From 0659ad8df344352ee2653d7fc315e62080de5c9a Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sun, 12 Nov 2023 15:01:40 +0100
Subject: [PATCH] - updated documentation.

---
 etc/init.lisp        |  3 +++
 src/keybindings.lisp | 22 ++++++++++++++++++++--
 2 files changed, 23 insertions(+), 2 deletions(-)

diff --git a/etc/init.lisp b/etc/init.lisp
index 66b78d7..8967010 100644
--- a/etc/init.lisp
+++ b/etc/init.lisp
@@ -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*)
diff --git a/src/keybindings.lisp b/src/keybindings.lisp
index 9c1c0c1..8414a83 100644
--- a/src/keybindings.lisp
+++ b/src/keybindings.lisp
@@ -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))