1
0
Fork 0
tinmop/etc/init.lisp

304 lines
11 KiB
Common Lisp
Raw Normal View History

2020-05-08 15:45:43 +02:00
;; 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")
2020-05-08 15:45:43 +02:00
;; 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)
;; global keymap
(define-key "q" #'quit) ; here we are calling the custom
2020-05-08 15:45:43 +02:00
; function defined above
(define-key "?" #'print-quick-help)
;; 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 "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" #'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 "v" #'open-message-attach *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*)
2020-05-08 15:45:43 +02:00
(define-key "C-t h r" #'refresh-tags *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 "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-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*)
;; message window keymap
(define-key "up" #'message-scroll-up *message-keymap*)
(define-key "down" #'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 "npage" #'message-scroll-next-page *message-keymap*)
(define-key "ppage" #'message-scroll-previous-page *message-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*)
2020-05-08 15:45:43 +02:00
(define-key "r" #'refresh-tags *tags-keymap*)
2020-05-08 15:45:43 +02:00
;; conversations keymap
(define-key "C-c c" #'change-conversation-name *conversations-keymap*)
2020-05-08 15:45:43 +02:00
(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-message-window *open-attach-keymap*)