;; 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") ;; abbrevation on command line (load-module "expand-abbrev-command-window.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 () (gemini-viewer:load-gemini-url "gemini://geminispace.info/search")) ;; global keymap (define-key "q" #'quit) ; here we are calling the custom ; function defined above (define-key "C-a" #'show-about-window) (define-key "?" #'print-quick-help) (define-key "C-h h" #'print-quick-help) (define-key "C-h a" #'apropos-help) (define-key "!" #'gemini-search) (define-key ">" #'open-gemini-address) (define-key "M-c" #'open-chats-list-window) (define-key "M-g s o" #'gemini-open-gemlog-window) (define-key "M-g s r" #'gemlog-refresh-all) (define-key "M-g c i" #'import-gemini-certificate) (define-key "M-g c s" #'gemini-open-certificates-window) (define-key "M-right" #'pass-focus-on-right) (define-key "M-left" #'pass-focus-on-left) (define-key "M-down" #'pass-focus-on-bottom) (define-key "M-up" #'pass-focus-on-top) ;; focus (define-key "f1" #'focus-to-tags-window) (define-key "f2" #'focus-to-thread-window) (define-key "f3" #'focus-to-message-window) (define-key "f4" #'focus-to-conversations-window) ;; follow requests keymap (define-key "up" #'follow-request-go-up *follow-requests-keymap*) (define-key "down" #'follow-request-go-down *follow-requests-keymap*) (define-key "d" #'follow-request-delete *follow-requests-keymap*) (define-key "C-J" #'process-follow-requests *follow-requests-keymap*) (define-key "q" #'cancel-follow-requests *follow-requests-keymap*) ;; send message keymap (define-key "up" #'attach-go-up *send-message-keymap*) (define-key "down" #'attach-go-down *send-message-keymap*) (define-key "d" #'attach-delete *send-message-keymap*) (define-key "s" #'change-subject *send-message-keymap*) (define-key "m" #'change-mentions *send-message-keymap*) (define-key "q" #'cancel-send-message *send-message-keymap*) (define-key "v" #'change-visibility *send-message-keymap*) (define-key "e" #'edit-message-body *send-message-keymap*) (define-key "C-J" #'send-message *send-message-keymap*) ;; thread window keymap (define-key "up" #'thread-go-up *thread-keymap*) (define-key "down" #'thread-go-down *thread-keymap*) (define-key "C-J" #'thread-open-selected-message *thread-keymap*) (define-key "dc" #'thread-mark-delete-selected-message *thread-keymap*) (define-key "U" #'thread-mark-prevent-delete-selected-message *thread-keymap*) (define-key "g" #'thread-goto-message *thread-keymap*) (define-key "/ b" #'thread-search-next-message-body *thread-keymap*) (define-key "\\\\ b" #'thread-search-previous-message-body *thread-keymap*) (define-key "/ m" #'thread-search-next-message-meta *thread-keymap*) (define-key "\\\\ m" #'thread-search-previous-message-meta *thread-keymap*) (define-key "N" #'repeat-search *thread-keymap*) (define-key "n" #'thread-search-next-unread-message *thread-keymap*) (define-key "C-I" #'thread-search-next-unread-message *thread-keymap*) (define-key "home" #'thread-goto-first-message *thread-keymap*) (define-key "end" #'thread-goto-last-message *thread-keymap*) (define-key "c" #'compose-message *thread-keymap*) (define-key "r" #'reply-message *thread-keymap*) (define-key "x" #'refresh-thread *thread-keymap*) (define-key "X" #'refresh-thread-totally *thread-keymap*) (define-key "v" #'open-message-attach *thread-keymap*) (define-key "l" #'open-message-link *thread-keymap*) (define-key "P" #'poll-vote *thread-keymap*) (define-key "C-c u" #'update-conversations *thread-keymap*) (define-key "C-c o" #'open-conversation *thread-keymap*) (define-key "C-c c" #'change-conversation-name *thread-keymap*) (define-key "C-f c" #'change-folder *thread-keymap*) (define-key "C-t c" #'change-timeline *thread-keymap*) (define-key "C-t u" #'update-current-timeline *thread-keymap*) (define-key "C-t U" #'update-current-timeline-backwards *thread-keymap*) (define-key "C-t R" #'reset-timeline-pagination *thread-keymap*) (define-key "C-t h r" #'refresh-tags *thread-keymap*) (define-key "C-u i" #'ignore-user *thread-keymap*) (define-key "C-u x" #'unignore-user *thread-keymap*) (define-key "C-u f" #'follow-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 c k i" #'crypto-import-key *thread-keymap*) (define-key "C-u c k s" #'crypto-export-key *thread-keymap*) (define-key "C-u c k g" #'crypto-generate-key *thread-keymap*) (define-key "C-X m t" #'move-message-tree *thread-keymap*) (define-key "C-X m f" #'favourite-selected-status *thread-keymap*) (define-key "C-X m r f" #'unfavourite-selected-status *thread-keymap*) (define-key "C-X m b" #'boost-selected-status *thread-keymap*) (define-key "C-X m r b" #'unboost-selected-status *thread-keymap*) (define-key "C-X m s" #'subscribe-to-hash *thread-keymap*) (define-key "C-X m u" #'unsubscribe-to-hash *thread-keymap*) (define-key "|" #'send-message-to-pipe *thread-keymap*) ;; message window keymap (define-key "up" #'message-scroll-up *message-keymap*) (define-key "down" #'message-scroll-down *message-keymap*) (define-key "left" #'message-scroll-left *message-keymap*) (define-key "right" #'message-scroll-right *message-keymap*) (define-key "C-J" #'message-scroll-down *message-keymap*) (define-key "home" #'message-scroll-begin *message-keymap*) (define-key "end" #'message-scroll-end *message-keymap*) (define-key "/" #'message-search-regex *message-keymap*) (define-key "N" #'repeat-search *message-keymap*) (define-key "npage" #'message-scroll-next-page *message-keymap*) (define-key "ppage" #'message-scroll-previous-page *message-keymap*) (define-key "|" #'send-to-pipe *message-keymap*) ;; gemini viewer keymap (define-key "up" #'message-scroll-up *gemini-message-keymap*) (define-key "down" #'message-scroll-down *gemini-message-keymap*) (define-key "left" #'message-scroll-left *gemini-message-keymap*) (define-key "right" #'message-scroll-right *gemini-message-keymap*) (define-key "C-J" #'message-scroll-down *gemini-message-keymap*) (define-key "home" #'message-scroll-begin *gemini-message-keymap*) (define-key "end" #'message-scroll-end *gemini-message-keymap*) (define-key "/" #'message-search-regex *gemini-message-keymap*) (define-key "N" #'repeat-search *gemini-message-keymap*) (define-key "npage" #'message-scroll-next-page *gemini-message-keymap*) (define-key "ppage" #'message-scroll-previous-page *gemini-message-keymap*) (define-key "l" #'open-message-link *gemini-message-keymap*) (define-key "b" #'gemini-history-back *gemini-message-keymap*) (define-key "C-b a" #'bookmark-gemini-page *gemini-message-keymap*) (define-key "C-b s" #'display-bookmark *gemini-message-keymap*) (define-key "C-b d" #'delete-gemini-bookmark *gemini-message-keymap*) (define-key "U" #'gemini-view-source *gemini-message-keymap*) (define-key "d" #'gemini-open-streams-window *gemini-message-keymap*) (define-key "c" #'gemini-open-certificates-window *gemini-message-keymap*) (define-key "r" #'gemini-refresh-page *gemini-message-keymap*) (define-key "s" #'gemini-subscribe-gemlog *gemini-message-keymap*) (define-key "p" #'message-toggle-preformatted-block *gemini-message-keymap*) (define-key "t" #'next-tour-link *gemini-message-keymap*) (define-key "O" #'open-gemini-toc *gemini-message-keymap*) (define-key "T" #'show-tour-links *gemini-message-keymap*) (define-key "|" #'send-to-pipe *gemini-message-keymap*) ;; gemini page table of contents keymap (define-key "up" #'gemini-toc-scroll-up *gemini-toc-keymap*) (define-key "down" #'gemini-toc-scroll-down *gemini-toc-keymap*) (define-key "q" #'gemini-toc-close *gemini-toc-keymap*) (define-key "n" #'gemini-toc-scroll-down-page *gemini-toc-keymap*) (define-key "C-J" #'gemini-toc-scroll-down-page *gemini-toc-keymap*) (define-key "p" #'gemini-toc-scroll-up-page *gemini-toc-keymap*) ;; gemini stream window keymap (define-key "a" #'gemini-abort-download *gemini-downloads-keymap*) (define-key "up" #'gemini-streams-window-up *gemini-downloads-keymap*) (define-key "down" #'gemini-streams-window-down *gemini-downloads-keymap*) (define-key "q" #'gemini-streams-window-close *gemini-downloads-keymap*) (define-key "C-J" #'gemini-streams-window-open-stream *gemini-downloads-keymap*) ;; gemini certificates window keymap (define-key "up" #'gemini-certificate-window-go-up *gemini-certificates-keymap*) (define-key "down" #'gemini-certificate-window-go-down *gemini-certificates-keymap*) (define-key "q" #'gemini-close-certificate-window *gemini-certificates-keymap*) (define-key "C-J" #'gemini-delete-certificate *gemini-certificates-keymap*) ;; gemini subscription window (define-key "C-J" #'show-gemlog-to-screen *gemlog-subscription-keymap*) (define-key "up" #'gemlogs-subscription-go-up *gemlog-subscription-keymap*) (define-key "down" #'gemlogs-subscription-go-down *gemlog-subscription-keymap*) (define-key "q" #'close-gemlog-window *gemlog-subscription-keymap*) (define-key "d" #'gemlog-cancel-subscription *gemlog-subscription-keymap*) (define-key "l" #'open-message-link *gemlog-subscription-keymap*) ;; tags keymap (define-key "up" #'tag-go-up *tags-keymap*) (define-key "down" #'tag-go-down *tags-keymap*) (define-key "C-J" #'open-tag-folder *tags-keymap*) (define-key "U" #'unsubscribe-to-hash *tags-keymap*) (define-key "r" #'refresh-tags *tags-keymap*) ;; conversations keymap (define-key "C-c c" #'change-conversation-name *conversations-keymap*) (define-key "C-J" #'goto-conversation *conversations-keymap*) (define-key "up" #'conversation-go-up *conversations-keymap*) (define-key "down" #'conversation-go-down *conversations-keymap*) (define-key "dc" #'delete-conversation *conversations-keymap*) (define-key "I" #'ignore-conversation *conversations-keymap*) ;; attachments keymap (define-key "C-J" #'open-message-attach-perform-opening *open-attach-keymap*) (define-key "up" #'open-message-attach-go-up *open-attach-keymap*) (define-key "down" #'open-message-attach-go-down *open-attach-keymap*) (define-key "q" #'close-open-attach-window *open-attach-keymap*) ;; message links keymap (define-key "C-J" #'open-message-link-perform-opening *open-message-link-keymap*) (define-key "up" #'open-message-link-go-up *open-message-link-keymap*) (define-key "down" #'open-message-link-go-down *open-message-link-keymap*) (define-key "q" #'close-open-message-link-window *open-message-link-keymap*) (define-key "e" #'open-message-link-open-enqueue *open-message-link-keymap*) (define-key "/" #'search-link-window *open-message-link-keymap*) (define-key "N" #'repeat-search *open-message-link-keymap*) (define-key "t" #'tour-mode-link *open-message-link-keymap*) (define-key "T" #'save-selected-message-in-tour *open-message-link-keymap*) ;; chats list window (define-key "r" #'refresh-chat-messages *chats-list-keymap*) (define-key "R" #'refresh-chats *chats-list-keymap*) (define-key "q" #'close-chats-list-window *chats-list-keymap*) (define-key "C-J" #'show-chat-to-screen *chats-list-keymap*) (define-key "l" #'change-chat-label *chats-list-keymap*) (define-key "c" #'chat-create-new *chats-list-keymap*) (define-key "up" #'chat-list-go-up *chats-list-keymap*) (define-key "down" #'chat-list-go-down *chats-list-keymap*) ;; chat window (defun write-to-chat () (chat-loop (message-window:metadata specials:*message-window*))) (define-key "M-c" #'write-to-chat *chat-message-keymap*) (define-key "up" #'message-scroll-up *chat-message-keymap*) (define-key "down" #'message-scroll-down *chat-message-keymap*) (define-key "home" #'message-scroll-begin *chat-message-keymap*) (define-key "end" #'message-scroll-end *chat-message-keymap*) (define-key "/" #'message-search-regex *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 "a" #'open-chat-link-window *chat-message-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))))