tinmop/etc/init.lisp

;; this is the main configuration file for tinmop.

;; This file must be a valid  common lisp program to allow the program
;; to even starts. This file is actual common lisp source code that is
;; loaded end  executed by the main  program; be careful, do  not copy
;; and paste  code from untrusted sources  as this could results  in a
;; *severe* security damage.

;; Anyway, even if you  do not know lisp you should  be able to change
;; keybindings  with no  difficult. Editing  this file  is the  way to
;; accomplish this task.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This line on  top of the file  is mandatory if you want  to write a
;; module (AKA plugin) for the program  as the form below will provide
;; you with access to many program's machinery

(in-package :modules)

;; of course you can define new  functions. Also note that the function called at
;; the end of the each command:
;;
;; (define-key "command keybinding" function)
;;                                  ^^^^^^^^
;;
;; can not be an anonymous function.

(defun quit ()        ; define a custom function named 'quit' and no parameters.
  "Quit the  program" ; This  string after the function  name and parameters is
                      ; called 'docstring' and will be presented to the
                      ; user as inline help
  (ui:clean-close-program))

;; this file can load others using the 'load-module' function the file
;; in  looked  up in  the  home  (e.g.  $HOME/.config/tinmop/)  config
;; directory or in the system wide config directory

(load-module "next-previous-open.lisp")

;; share a gemini page

(load-module "share-gemini-link.lisp")

;; abbreviations on command line

(load-module "expand-abbrev-command-window.lisp")

;; delete posts using a regular expression

(load-module "delete-by-regex.lisp")

;; fetch expired polls when deleting notifications

(load-module "fetch-expired-poll.lisp")

;; keybindings syntax:

;; a command is executed after a sequence  of one or more keys.  a key
;; can be composed by a single physical button pressed on the keyboard
;; or by a combination of a button pressed together.

;; Example of keys are:

;; "a"     -> press the button on the keyboard with the symbol 'a' printed on top
;; "a b"   -> press and release the button 'a' and then press the button 'b'
;; "f1 f2" -> press function key 1 and function key 2

;; sometimes a key is composed by  two pressed buttons. For example to
;; input the character 'C' (i.e. capital 'c') usually you should use a
;; combination of SHIFT and C but there is more: a key can be composed
;; by two button pressed, the first called a "modifier" button.

;; The "modifier" button  must  be keep pressed
;; while the second button is hit for the key to be valid.

;; There  are  only  two  legal modifier  buttons:  the  "Alt"  button
;; (indicated with the letter "M") and the "Control" button (indicated
;; with "C").

;; So said some combined keys example are given:

;; "M-1" -> press "Alt" and, while pressed, press "1"

;; Note the dash between the symbols, the key below:

;; "M 1"

;; means: "Press the combination of button to print the capital button
;; 'M'  and the  button to  print the  character '1',  so this  is not
;; equivalent to "M-1".

;; With this information in mind we can decode more keys like the ones
;; given below:

;; "C-c x"  -> Press control and  keep pressed press 'c'  then release
;; the two buttons and press 'x'.

;; "C-c c"  -> Press control and  keep pressed press 'c'  then release
;; the two buttons and press 'c' again.

;; Caveat:

;; - The single letter after control modifier are case insensitive;
;; - the enter key must be specified by "C-J";
;; - "dc" is the key Delete;

;; To define a new key just use the 'define-key' form below:

;; (define key COMMAND FUNCTION)

;; Where  COMMAND is  a  sequence of  keys and  FUNCTION  is the  name
;; (prefixed by:  #') of the function  to fire after command  has been
;; completed

;; See the command below as examples.

;; key conflict

;; Sometime two commands key may conflict, for example:

;; (define "C-x a"   #'foo)

;; (define "C-x a b" #'bar)

;; How the program  could know which way choose when  the button 'a' is
;; pressed?  Should be  executed the  function 'foo'  or should  we go
;; beyond this function and wait for the button 'b' to be pressed?

;; The convention  chosen is  that will be  executed the  shorter path
;; that lead to  a function so, in the case  above, the function 'foo'
;; will be executed.

;; Note that the two command below are *not* in conflict:

;; (define "C-x a b c d"   #'foo)

;; (define "C-x a e"       #'bar)

(defun gemini-search ()
  "Search   the  geminispace   using  keyword   (note:  will   contact
  \"gemini://kennedy.gemi.dev/search\""
 (gemini-viewer:load-gemini-url (swconf:config-gemini-search-engine-iri)))

(defun open-gemini-links-and-ask-tour ()
  "Open the link window and ask for tour link indices"
  (when (message-window:display-gemini-text-p specials:*message-window*)
    (when (not specials:*open-message-link-window*)
      (ui:open-message-link))
    (ui::focus-to-open-message-link-window)
    (ui:tour-mode-link)))

;; global keymap

(define-key "!"         #'gemini-search)

(define-key ">"         #'open-net-address)

(define-key "@"         #'switch-fediverse-account)

(define-key "?"         #'print-quick-help)

(define-key "C d"       #'clear-cache)

(define-key "C-I"       #'pass-focus-next)

(define-key "C-a"       #'show-about-window)

(define-key "A"         #'show-announcements)

(define-key "C-h A"     #'apropos-help-global)

(define-key "C-h a"     #'apropos-help)

(define-key "C-h h"     #'print-quick-help)

(define-key "C-h m"     #'open-manual)

(define-key "C-q"       #'quit)

(when (api-pleroma:instance-pleroma-p)
  (define-key "M-c"       #'open-chats-list-window))

(define-key "M-down"    #'pass-focus-on-bottom)

(define-key "M-e"       #'eval-command)

(define-key "M-g c i"   #'import-gemini-certificate)

(define-key "M-g c s"   #'gemini-open-certificates-window)

(define-key "M-g g b s" #'display-bookmark)

(define-key "M-g g l"   #'open-gempub-library)

(define-key "M-g s o"   #'gemini-open-gemlog-window)

(define-key "M-g s r"   #'gemlog-refresh-all)

(define-key "M-g s t a" #'gemlog-add-unread-posts-tour)

(define-key "M-l"       #'load-script-file)

(define-key "M-left"    #'pass-focus-on-left)

(define-key "M-right"   #'pass-focus-on-right)

(define-key "M-s l"     #'message-window-lock-scrolling)

(define-key "M-s u"     #'message-window-unlock-scrolling)

(define-key "M-t S"     #'shuffle-tour)

(define-key "M-t a"     #'open-gemini-links-and-ask-tour)

(define-key "M-t c"     #'clean-all-tour)

(define-key "M-t s"     #'show-tour-links)

(define-key "M-t t"     #'next-tour-link)

(define-key "M-up"      #'pass-focus-on-top)

(define-key "q"         #'confirm-and-clean-close-program)

;; follow requests keymap

(define-key "C-J"       #'process-follow-requests                     *follow-requests-keymap*)

(define-key "d"         #'follow-request-delete                       *follow-requests-keymap*)

(define-key "down"      #'follow-request-go-down                      *follow-requests-keymap*)

(define-key "j"         #'follow-request-go-down                      *follow-requests-keymap*)

(define-key "k"         #'follow-request-go-up                        *follow-requests-keymap*)

(define-key "q"         #'cancel-follow-requests                      *follow-requests-keymap*)

(define-key "up"        #'follow-request-go-up                        *follow-requests-keymap*)

;; send message keymap

(define-key "C-J"       #'send-message                                *send-message-keymap*)

(define-key "d"         #'attach-delete                               *send-message-keymap*)

(define-key "down"      #'attach-go-down                              *send-message-keymap*)

(define-key "e"         #'edit-message-body                           *send-message-keymap*)

(define-key "j"         #'attach-go-down                              *send-message-keymap*)

(define-key "k"         #'attach-go-up                                *send-message-keymap*)

(define-key "m"         #'change-mentions                             *send-message-keymap*)

(define-key "q"         #'cancel-send-message                         *send-message-keymap*)

(define-key "C-g"       #'cancel-send-message                         *send-message-keymap*)

(define-key "s"         #'change-subject                              *send-message-keymap*)

(define-key "l"         #'change-language                             *send-message-keymap*)

(define-key "up"        #'attach-go-up                                *send-message-keymap*)

(define-key "v"         #'change-visibility                           *send-message-keymap*)

;; thread window keymap

(defun print-post-id ()
  "Print the post's ID to the command window"
  (a:when-let* ((selected-row (line-oriented-window:selected-row-fields specials:*thread-window*))
                (status-id    (db:row-message-status-id selected-row)))
    (ui:info-message (format nil "ID: ~a" status-id))))

(define-key "["         #'thread-go-to-parent-post                    *thread-keymap*)

(define-key "^"         #'thread-open-parent-post                     *thread-keymap*)

(define-key "/ q"       #'search-fediverse                            *thread-keymap*)

(define-key "/ Q"       #'search-fediverse-local                      *thread-keymap*)

(define-key "/ b"       #'thread-search-next-message-body             *thread-keymap*)

(define-key "/ m"       #'thread-search-next-message-meta             *thread-keymap*)

(define-key "C-J"       #'thread-open-selected-message                *thread-keymap*)

(define-key "C-X m b"   #'boost-selected-status                       *thread-keymap*)

(define-key "C-X m f"   #'favourite-selected-status                   *thread-keymap*)

(define-key "C-X m r b" #'unboost-selected-status                     *thread-keymap*)

(define-key "C-X m r f" #'unfavourite-selected-status                 *thread-keymap*)

(define-key "C-X m s"   #'subscribe-to-hash                           *thread-keymap*)

(define-key "C-X m t"   #'move-message-tree                           *thread-keymap*)

(define-key "C-X m u"   #'unsubscribe-to-hash                         *thread-keymap*)

(define-key "C-c c"     #'change-conversation-name                    *thread-keymap*)

(define-key "C-c o"     #'open-conversation                           *thread-keymap*)

(define-key "C-c u"     #'update-conversations                        *thread-keymap*)

(define-key "C-f c"     #'change-folder                               *thread-keymap*)

(define-key "C-t R"     #'reset-timeline-pagination                   *thread-keymap*)

(define-key "C-t U"     #'update-current-timeline-backwards           *thread-keymap*)

(define-key "C-t c"     #'change-timeline                             *thread-keymap*)

(define-key "C-t h r"   #'refresh-tags                                *thread-keymap*)

(define-key "C-t u"     #'update-current-timeline                     *thread-keymap*)

(define-key "C-u c k g" #'crypto-generate-key                         *thread-keymap*)

(define-key "C-u c k i" #'crypto-import-key                           *thread-keymap*)

(define-key "C-u c k s" #'crypto-export-key                           *thread-keymap*)

(define-key "C-u f"     #'follow-user                                 *thread-keymap*)

(define-key "C-u i"     #'ignore-user                                 *thread-keymap*)

(define-key "C-u r f"   #'start-follow-request-processing             *thread-keymap*)

(define-key "C-u r r"   #'report-status                               *thread-keymap*)

(define-key "C-u u"     #'unfollow-user                               *thread-keymap*)

(define-key "C-u v a"   #'view-user-avatar                            *thread-keymap*)

(define-key "C-u x"     #'unignore-user                               *thread-keymap*)

(define-key "D"         #'delete-post-using-regex                     *thread-keymap*)

(define-key "I"         #'print-post-id                               *thread-keymap*)

(define-key "M"         #'print-mentions                              *thread-keymap*)

(define-key "M-u"       #'delete-and-move-previous                    *thread-keymap*)

(define-key "N d"       #'delete-notifications                        *thread-keymap*)

(define-key "T d"       #'thread-delete-subtree                       *thread-keymap*)

(define-key "e"         #'edit-posted-message                         *thread-keymap*)

(define-key "P"         #'poll-vote                                   *thread-keymap*)

(define-key "p"         #'show-parent-post                            *thread-keymap*)

(define-key "U"         #'thread-mark-prevent-delete-selected-message *thread-keymap*)

(define-key "X"         #'refresh-thread-totally                      *thread-keymap*)

(define-key "\\\\ \\\\" #'repeat-search                               *thread-keymap*)

(define-key "/ /"       #'repeat-search                               *thread-keymap*)

(define-key "\\\\ b"    #'thread-search-previous-message-body         *thread-keymap*)

(define-key "\\\\ m"    #'thread-search-previous-message-meta         *thread-keymap*)

(define-key "c"         #'compose-message                             *thread-keymap*)

(define-key "d"         #'delete-and-move-next                        *thread-keymap*)

;; instead of "dc", "key-delete-char" can be used
(define-key "dc"        #'thread-mark-delete-selected-message         *thread-keymap*)

(define-key "down"      #'thread-go-down                              *thread-keymap*)

(define-key "end"       #'thread-goto-last-message                    *thread-keymap*)

(define-key "g"         #'thread-goto-message                         *thread-keymap*)

(define-key "home"      #'thread-goto-first-message                   *thread-keymap*)

(define-key "j"         #'thread-go-down                              *thread-keymap*)

(define-key "k"         #'thread-go-up                                *thread-keymap*)

(define-key "l"         #'open-message-link                           *thread-keymap*)

(define-key "left"      #'open-previous                               *thread-keymap*)

(define-key "n"         #'thread-search-next-unread-message           *thread-keymap*)

(define-key "r"         #'reply-message                               *thread-keymap*)

(define-key "right"     #'open-next                                   *thread-keymap*)

(define-key "s d"       #'status-tree->text                           *thread-keymap*)

(define-key "up"        #'thread-go-up                                *thread-keymap*)

(define-key "v"         #'open-message-attach                         *thread-keymap*)

(define-key "x"         #'refresh-thread                              *thread-keymap*)

(define-key "|"         #'send-message-to-pipe                        *thread-keymap*)

;; message window keymap

(define-key "/"         #'message-search-regex                        *message-keymap*)

(define-key "C-J"       #'message-scroll-down                         *message-keymap*)

(define-key "N"         #'repeat-search                               *message-keymap*)

(define-key "d"         #'delete-shown-post                           *message-keymap*)

(define-key "down"      #'message-scroll-down                         *message-keymap*)

(define-key "end"       #'message-scroll-end                          *message-keymap*)

(define-key "home"      #'message-scroll-begin                        *message-keymap*)

(define-key "j"         #'message-scroll-down                         *message-keymap*)

(define-key "k"         #'message-scroll-up                           *message-keymap*)

(define-key "l"         #'message-extract-links                       *message-keymap*)

(define-key "left"      #'message-scroll-left                         *message-keymap*)

(define-key "npage"     #'message-scroll-next-page                    *message-keymap*)

;; instead of "ppage", "key-previous-page" can be used
(define-key "ppage"     #'message-scroll-previous-page                *message-keymap*)

(define-key "right"     #'message-scroll-right                        *message-keymap*)

(define-key "up"        #'message-scroll-up                           *message-keymap*)

(define-key "|"         #'send-to-pipe                                *message-keymap*)

;; gemini viewer keymap

(define-key "/"         #'message-search-regex                       *gemini-message-keymap*)

(define-key "B"         #'address-go-back-in-path                    *gemini-message-keymap*)

(define-key "C-J"       #'message-scroll-down                        *gemini-message-keymap*)

(define-key "C-["       #'go-to-previous-link                        *gemini-message-keymap*)

(define-key "C-]"       #'go-to-next-link                            *gemini-message-keymap*)

(define-key "C-b a"     #'bookmark-gemini-page                       *gemini-message-keymap*)

(define-key "C-b d"     #'delete-gemini-bookmark                     *gemini-message-keymap*)

(define-key "C-b s"     #'display-bookmark                           *gemini-message-keymap*)

(define-key "I M"       #'gemini-images-montage                      *gemini-message-keymap*)

(define-key "N"         #'repeat-search                              *gemini-message-keymap*)

(define-key "O"         #'open-gemini-toc                            *gemini-message-keymap*)

(define-key "R"         #'address-go-root-path                       *gemini-message-keymap*)

(define-key "T"         #'show-tour-links                            *gemini-message-keymap*)

(define-key "U"         #'gemini-view-source                         *gemini-message-keymap*)

(define-key "["         #'open-previous-link                         *gemini-message-keymap*)

(define-key "]"         #'open-next-visible-link                     *gemini-message-keymap*)

(define-key "b"         #'net-address-history-back                   *gemini-message-keymap*)

(define-key "c"         #'gemini-open-certificates-window            *gemini-message-keymap*)

(define-key "d"         #'gemini-open-streams-window                 *gemini-message-keymap*)

(define-key "down"      #'message-scroll-down                        *gemini-message-keymap*)

(define-key "end"       #'message-scroll-end                         *gemini-message-keymap*)

(define-key "home"      #'message-scroll-begin                       *gemini-message-keymap*)

(define-key "j"         #'message-scroll-down                        *gemini-message-keymap*)

(define-key "k"         #'message-scroll-up                          *gemini-message-keymap*)

(define-key "l"         #'open-message-link                          *gemini-message-keymap*)

(define-key "left"      #'message-scroll-left                        *gemini-message-keymap*)

;; instead of "npage", "key-next-page" can be used
(define-key "npage"     #'message-scroll-next-page                   *gemini-message-keymap*)

(define-key "p"         #'message-toggle-preformatted-block          *gemini-message-keymap*)

(define-key "ppage"     #'message-scroll-previous-page               *gemini-message-keymap*)

(define-key "r"         #'gemini-refresh-page                        *gemini-message-keymap*)

(define-key "right"     #'message-scroll-right                       *gemini-message-keymap*)

(define-key "s"         #'gemini-subscribe-gemlog                    *gemini-message-keymap*)

(define-key "t"         #'next-tour-link                             *gemini-message-keymap*)

(define-key "up"        #'message-scroll-up                          *gemini-message-keymap*)

(define-key "|"         #'send-to-pipe                               *gemini-message-keymap*)


;; gemini page table of contents keymap

(define-key "/"         #'gemini-toc-search                          *gemini-toc-keymap*)

(define-key "C-J"       #'gemini-toc-scroll-down-page                *gemini-toc-keymap*)

(define-key "N"         #'repeat-search                              *gemini-toc-keymap*)

(define-key "down"      #'gemini-toc-scroll-down                     *gemini-toc-keymap*)

(define-key "end"       #'gemini-toc-scroll-end                      *gemini-toc-keymap*)

(define-key "home"      #'gemini-toc-scroll-begin                    *gemini-toc-keymap*)

(define-key "j"         #'gemini-toc-scroll-down                     *gemini-toc-keymap*)

(define-key "k"         #'gemini-toc-scroll-up                       *gemini-toc-keymap*)

(define-key "n"         #'gemini-toc-scroll-down-page                *gemini-toc-keymap*)

(define-key "p"         #'gemini-toc-scroll-up-page                  *gemini-toc-keymap*)

(define-key "q"         #'gemini-toc-close                           *gemini-toc-keymap*)

(define-key "C-g"       #'gemini-toc-close                           *gemini-toc-keymap*)

(define-key "up"        #'gemini-toc-scroll-up                       *gemini-toc-keymap*)

;; gemini stream window keymap

(define-key "C-J"       #'gemini-streams-window-open-stream          *gemini-downloads-keymap*)

(define-key "a"         #'gemini-abort-download                      *gemini-downloads-keymap*)

(define-key "down"      #'gemini-streams-window-down                 *gemini-downloads-keymap*)

(define-key "j"         #'gemini-streams-window-down                 *gemini-downloads-keymap*)

(define-key "k"         #'gemini-streams-window-up                   *gemini-downloads-keymap*)

(define-key "q"         #'gemini-streams-window-close                *gemini-downloads-keymap*)

(define-key "up"        #'gemini-streams-window-up                   *gemini-downloads-keymap*)

;; gemini certificates window keymap

(define-key "C-J"       #'gemini-certificate-information             *gemini-certificates-keymap*)

(define-key "d"         #'gemini-delete-certificate                  *gemini-certificates-keymap*)

(define-key "down"      #'gemini-certificate-window-go-down          *gemini-certificates-keymap*)

(define-key "j"         #'gemini-certificate-window-go-down          *gemini-certificates-keymap*)

(define-key "k"         #'gemini-certificate-window-go-up            *gemini-certificates-keymap*)

(define-key "q"         #'gemini-close-certificate-window            *gemini-certificates-keymap*)

(define-key "C-g"       #'gemini-close-certificate-window            *gemini-certificates-keymap*)

(define-key "up"        #'gemini-certificate-window-go-up            *gemini-certificates-keymap*)

(define-key "c"         #'gemini-change-certificate-password         *gemini-certificates-keymap*)

(define-key "D"         #'clear-cached-client-tls-certificates       *gemini-certificates-keymap*)

;; gemini subscription window

(define-key "C-J"       #'show-gemlog-to-screen                      *gemlog-subscription-keymap*)

(define-key "d"         #'gemlog-cancel-subscription                 *gemlog-subscription-keymap*)

(define-key "down"      #'gemlogs-subscription-go-down               *gemlog-subscription-keymap*)

(define-key "j"         #'gemlogs-subscription-go-down               *gemlog-subscription-keymap*)

(define-key "k"         #'gemlogs-subscription-go-up                 *gemlog-subscription-keymap*)

(define-key "l"         #'open-message-link                          *gemlog-subscription-keymap*)

(define-key "q"         #'close-gemlog-window                        *gemlog-subscription-keymap*)

(define-key "C-g"       #'close-gemlog-window                        *gemlog-subscription-keymap*)

(define-key "up"        #'gemlogs-subscription-go-up                 *gemlog-subscription-keymap*)

;; gempub library window keymap

(define-key "C-J"       #'gempub-open-file                           *gempub-library-keymap*)

(define-key "down"      #'gempub-library-window-go-down              *gempub-library-keymap*)

(define-key "j"         #'gempub-library-window-go-down              *gempub-library-keymap*)

(define-key "k"         #'gempub-library-window-go-up                *gempub-library-keymap*)

(define-key "q"         #'gempub-library-window-close                *gempub-library-keymap*)

(define-key "C-g"       #'gempub-library-window-close                *gempub-library-keymap*)

(define-key "up"        #'gempub-library-window-go-up                *gempub-library-keymap*)

;; tags keymap

(define-key "C-J"       #'open-tag-folder                             *tags-keymap*)

(define-key "U"         #'unsubscribe-to-hash                         *tags-keymap*)

(define-key "down"      #'tag-go-down                                 *tags-keymap*)

(define-key "j"         #'tag-go-down                                 *tags-keymap*)

(define-key "k"         #'tag-go-up                                   *tags-keymap*)

(define-key "r"         #'refresh-tags                                *tags-keymap*)

(define-key "s"         #'subscribe-to-hash                           *tags-keymap*)

(define-key "up"        #'tag-go-up                                   *tags-keymap*)

;; conversations keymap

(define-key "C-J"       #'goto-conversation                           *conversations-keymap*)

(define-key "C-c c"     #'change-conversation-name                    *conversations-keymap*)

(define-key "I"         #'ignore-conversation                         *conversations-keymap*)

(define-key "dc"        #'delete-conversation                         *conversations-keymap*)

(define-key "down"      #'conversation-go-down                        *conversations-keymap*)

(define-key "j"         #'conversation-go-down                        *conversations-keymap*)

(define-key "k"         #'conversation-go-up                          *conversations-keymap*)

(define-key "up"        #'conversation-go-up                          *conversations-keymap*)

;; attachments keymap

(defun copy-to-clipboard (window)
  (ui:copy-link-to-clipboard window))

(defun copy-from-attach-window-to-clipboard ()
  "Copy the selected link to clipboard"
  (copy-link-to-clipboard specials:*open-attach-window*))

(defun open-attachment-ignoring-cache ()
  (open-message-attach-perform-opening :ignore-cache t))

(define-key "C-J"       #'open-message-attach-perform-opening           *open-attach-keymap*)

(define-key "O"         #'open-attachment-ignoring-cache                *open-attach-keymap*)

(define-key "C-c"       #'copy-from-attach-window-to-clipboard          *open-attach-keymap*)

(define-key "a"         #'open-all-message-attachments                  *open-attach-keymap*)

(define-key "down"      #'open-message-attach-go-down                   *open-attach-keymap*)

(define-key "j"         #'open-message-attach-go-down                   *open-attach-keymap*)

(define-key "k"         #'open-message-attach-go-up                     *open-attach-keymap*)

(define-key "q"         #'close-open-attach-window                      *open-attach-keymap*)

(define-key "C-g"       #'close-open-attach-window                      *open-attach-keymap*)

(define-key "up"        #'open-message-attach-go-up                     *open-attach-keymap*)

;; message links keymap

(define-key "C-J"       #'open-message-link-perform-opening             *open-message-link-keymap*)

(define-key "C-s"       #'open-message-link-perform-fediverse-searching *open-message-link-keymap*)

(defun copy-from-message-link-to-clipboard ()
  "Copy the selected link to clipboard"
  (copy-link-to-clipboard specials:*open-message-link-window*))

(define-key "/"         #'search-link-window                            *open-message-link-keymap*)

(define-key "C-c"       #'copy-from-message-link-to-clipboard           *open-message-link-keymap*)

(define-key "N"         #'repeat-search                                 *open-message-link-keymap*)

(define-key "T"         #'save-selected-message-in-tour                 *open-message-link-keymap*)

(define-key "]"         #'gemini-jump-to-link                           *open-message-link-keymap*)

(define-key "down"      #'open-message-link-go-down                     *open-message-link-keymap*)

(define-key "e"         #'open-message-link-open-enqueue                *open-message-link-keymap*)

(define-key "end"       #'open-message-link-window-scroll-end           *open-message-link-keymap*)

(define-key "home"      #'open-message-link-window-scroll-begin         *open-message-link-keymap*)

(define-key "j"         #'open-message-link-go-down                     *open-message-link-keymap*)

(define-key "k"         #'open-message-link-go-up                       *open-message-link-keymap*)

(define-key "q"         #'close-open-message-link-window                *open-message-link-keymap*)

(define-key "C-g"       #'close-open-message-link-window                *open-message-link-keymap*)

(define-key "t"         #'tour-mode-link                                *open-message-link-keymap*)

(define-key "up"        #'open-message-link-go-up                       *open-message-link-keymap*)

;; chats list window, pleroma only
(when (api-pleroma:instance-pleroma-p)
  (define-key "C-J"       #'show-chat-to-screen                           *chats-list-keymap*)

  (define-key "R"         #'refresh-chats                                 *chats-list-keymap*)

  (define-key "c"         #'chat-create-new                               *chats-list-keymap*)

  (define-key "down"      #'chat-list-go-down                             *chats-list-keymap*)

  (define-key "j"         #'chat-list-go-down                             *chats-list-keymap*)

  (define-key "k"         #'chat-list-go-up                               *chats-list-keymap*)

  (define-key "l"         #'change-chat-label                             *chats-list-keymap*)

  (define-key "q"         #'close-chats-list-window                       *chats-list-keymap*)

  (define-key "C-g"       #'close-chats-list-window                       *chats-list-keymap*)

  (define-key "r"         #'refresh-chat-messages                         *chats-list-keymap*)

  (define-key "up"        #'chat-list-go-up                               *chats-list-keymap*))

;; chat  window

(defun write-to-chat ()
  (chat-loop (message-window:metadata specials:*message-window*)))

(when (api-pleroma:instance-pleroma-p)
  (define-key "/"         #'message-search-regex                          *chat-message-keymap*)

  (define-key "M-c"       #'write-to-chat                                 *chat-message-keymap*)

  (define-key "a"         #'open-chat-link-window                         *chat-message-keymap*)

  (define-key "down"      #'message-scroll-down                           *chat-message-keymap*)

  (define-key "end"       #'message-scroll-end                            *chat-message-keymap*)

  (define-key "home"      #'message-scroll-begin                          *chat-message-keymap*)

  (define-key "j"         #'message-scroll-down                           *chat-message-keymap*)

  (define-key "k"         #'message-scroll-up                             *chat-message-keymap*)

  (define-key "npage"     #'message-scroll-next-page                      *chat-message-keymap*)

  (define-key "ppage"     #'message-scroll-previous-page                  *chat-message-keymap*)

  (define-key "up"        #'message-scroll-up                             *chat-message-keymap*))

;; file explorer

(define-key "/"         #'file-explorer-search          *filesystem-explorer-keymap*)

(define-key "C-J"       #'file-explorer-open-node       *filesystem-explorer-keymap*)

(define-key "D"         #'file-explorer-delete-tree     *filesystem-explorer-keymap*)

(define-key "M d"       #'file-explorer-download-mirror *filesystem-explorer-keymap*)

(define-key "M u"       #'file-explorer-upload-mirror   *filesystem-explorer-keymap*)

(define-key "M-m"       #'file-explorer-mark-by-regexp  *filesystem-explorer-keymap*)

(define-key "N"         #'repeat-search                 *filesystem-explorer-keymap*)

(define-key "X"         #'file-explorer-delete-marked   *filesystem-explorer-keymap*)

(define-key "a"         #'file-explorer-create-path     *filesystem-explorer-keymap*)

(define-key "c"         #'file-explorer-close-path      *filesystem-explorer-keymap*)

(define-key "d"         #'file-explorer-download-path   *filesystem-explorer-keymap*)

(define-key "down"      #'file-explorer-go-down         *filesystem-explorer-keymap*)

(define-key "e"         #'file-explorer-edit-file       *filesystem-explorer-keymap*)

(define-key "end"       #'file-explorer-scroll-end      *filesystem-explorer-keymap*)

(define-key "home"      #'file-explorer-scroll-begin    *filesystem-explorer-keymap*)

(define-key "i"         #'file-explorer-node-details    *filesystem-explorer-keymap*)

(define-key "j"         #'file-explorer-go-down         *filesystem-explorer-keymap*)

(define-key "k"         #'file-explorer-go-up           *filesystem-explorer-keymap*)

(define-key "m"         #'file-explorer-mark-entry      *filesystem-explorer-keymap*)

(define-key "q"         #'file-explorer-close-window    *filesystem-explorer-keymap*)

(define-key "C-g"       #'file-explorer-close-window    *filesystem-explorer-keymap*)

(define-key "r"         #'file-explorer-rename-path     *filesystem-explorer-keymap*)

(define-key "u"         #'file-explorer-upload-path     *filesystem-explorer-keymap*)

(define-key "up"        #'file-explorer-go-up           *filesystem-explorer-keymap*)

(define-key "x"         #'file-explorer-expand-path     *filesystem-explorer-keymap*)

;; gopher viewer keymap

(define-key "C-J"       #'gopher-window:open-menu-link               *gopher-keymap*)

(define-key "C-b a"     #'bookmark-gopher-page                       *gopher-keymap*)

(define-key "C-b d"     #'delete-gemini-bookmark                     *gopher-keymap*)

(define-key "C-b s"     #'display-bookmark                           *gopher-keymap*)

(define-key "b"         #'net-address-history-back                   *gopher-keymap*)

(define-key "down"      #'gopher-window:go-to-next-link              *gopher-keymap*)

(define-key "j"         #'gopher-window:go-to-next-link              *gopher-keymap*)

(define-key "k"         #'gopher-window:go-to-previous-link          *gopher-keymap*)

(define-key "up"        #'gopher-window:go-to-previous-link          *gopher-keymap*)

;;;; hooks

;; this module  will install an  hook to  rewrite urls; By  default it
;; does nothing, see the source for configuration

(load-module "rewrite-message-urls.lisp")

;;; this hooks will skips toots with contain less than 20 words
;;; (note: it is commented out)

;; (hooks:add-hook 'hooks:*skip-message-hook*
;;                 (lambda (toot timeline folder kind localp)
;;                   (declare (ignore timeline folder kind localp))
;;                   (when-let* ((text        (html-utils:html->text (tooter:content toot)
;;                                                                   :add-link-footnotes nil))
;;                               (trimmed     (text-utils:trim-blanks text))
;;                               (word-counts (length (text-utils:split-words trimmed))))
;;                     (< word-counts 10))))

;;; this hook will remove the footnotes to link in the message added by tinmop

(hooks:add-hook 'hooks:*before-composing-message*
                (lambda (file)
                  (let* ((lines                 (text-utils:split-lines (fs:slurp-file file)))
                         (re-footnote-reference (cl-ppcre:create-scanner "\\[[0-9]+\\]"))
                         (re-footnote           (cl-ppcre:create-scanner
                                                (text-utils:strcat (swconf:quote-char)
                                                                   "\\[[0-9]+\\]"
                                                                   ".+")))
                         (clean-lines (loop for line in lines
                                            collect
                                            (progn
                                              (setf line
                                                    (cl-ppcre:regex-replace-all re-footnote
                                                                                line
                                                                                ""))
                                              (setf line
                                                    (cl-ppcre:regex-replace-all re-footnote-reference
                                                                                line
                                                                                ""))
                                              line))))
                    (with-open-file (stream
                                     file
                                     :direction :output
                                     :if-does-not-exist :error
                                     :if-exists         :supersede)
                      (loop for line in clean-lines do
                        (format stream "~a~%" line))))
                  file))