cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- updated documentation.

This commit is contained in:
cage 2023-11-12 15:01:40 +01:00
parent c30c334a82
commit 0659ad8df3
2 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
etc/init.lisp
View File

@ -353,6 +353,7 @@
(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*)
@ -415,6 +416,7 @@
(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*)
@ -477,6 +479,7 @@
(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*)

22
src/keybindings.lisp
View File

@ -60,7 +60,25 @@
;; | 'key-end'
;; | 'key-next-page'
;; | 'key-previous-page'
;; | 'dc'
;; | 'key-delete-char'
;; | ARROW-RIGHT
;; | ARROW-LEFT
;; | ARROW-UP
;; | ARROW-DOWN
;; | KEY-HOME
;; | KEY-END
;; | KEY-NEXT-PAGE
;; | KEY-PREVIOUS-PAGE
;; | KEY-DELETE-NEXT-CHAR
;; ARROW-RIGHT := 'right'
;; ARROW-LEFT := 'left'
;; ARROW-UP := 'up'
;; ARROW-DOWN := 'down'
;; KEY-HOME := 'home'
;; KEY-END := 'end'
;; KEY-NEXT-PAGE := 'npage'
;; KEY-PREVIOUS-PAGE := 'ppage'
;; KEY-DELETE-NEXT-CHAR := 'dc'
;; COMMAND-MOD-1 := 'C'
;; COMMAND-MOD-2 := '^'
;; META-MOD := 'M'
@ -141,7 +159,7 @@
key-end
key-next-page
key-previous-page
key-next-page)
key-delete-next-char)
(:text t)
(:function string-upcase))