From 965f09b69ecc265966dd739920240f45961b6386 Mon Sep 17 00:00:00 2001 From: cage Date: Fri, 25 Feb 2022 12:37:18 +0100 Subject: [PATCH] - added 'k' and 'j' as alias for scrolling windows up and down. --- etc/init.lisp | 69 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 69 insertions(+) diff --git a/etc/init.lisp b/etc/init.lisp index af3095e..53c2d44 100644 --- a/etc/init.lisp +++ b/etc/init.lisp @@ -205,6 +205,10 @@ (define-key "down" #'follow-request-go-down *follow-requests-keymap*) +(define-key "k" #'follow-request-go-up *follow-requests-keymap*) + +(define-key "j" #'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*) @@ -217,6 +221,10 @@ (define-key "down" #'attach-go-down *send-message-keymap*) +(define-key "k" #'attach-go-up *send-message-keymap*) + +(define-key "j" #'attach-go-down *send-message-keymap*) + (define-key "d" #'attach-delete *send-message-keymap*) (define-key "s" #'change-subject *send-message-keymap*) @@ -237,6 +245,10 @@ (define-key "down" #'thread-go-down *thread-keymap*) +(define-key "k" #'thread-go-up *thread-keymap*) + +(define-key "j" #'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*) @@ -347,6 +359,10 @@ (define-key "down" #'message-scroll-down *message-keymap*) +(define-key "k" #'message-scroll-up *message-keymap*) + +(define-key "j" #'message-scroll-down *message-keymap*) + (define-key "left" #'message-scroll-left *message-keymap*) (define-key "right" #'message-scroll-right *message-keymap*) @@ -373,6 +389,10 @@ (define-key "down" #'message-scroll-down *gemini-message-keymap*) +(define-key "k" #'message-scroll-up *gemini-message-keymap*) + +(define-key "j" #'message-scroll-down *gemini-message-keymap*) + (define-key "left" #'message-scroll-left *gemini-message-keymap*) (define-key "right" #'message-scroll-right *gemini-message-keymap*) @@ -433,6 +453,10 @@ (define-key "down" #'gemini-toc-scroll-down *gemini-toc-keymap*) +(define-key "k" #'gemini-toc-scroll-up *gemini-toc-keymap*) + +(define-key "j" #'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*) @@ -457,6 +481,10 @@ (define-key "down" #'gemini-streams-window-down *gemini-downloads-keymap*) +(define-key "k" #'gemini-streams-window-up *gemini-downloads-keymap*) + +(define-key "j" #'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*) @@ -467,6 +495,10 @@ (define-key "down" #'gemini-certificate-window-go-down *gemini-certificates-keymap*) +(define-key "k" #'gemini-certificate-window-go-up *gemini-certificates-keymap*) + +(define-key "j" #'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*) @@ -479,6 +511,10 @@ (define-key "down" #'gemlogs-subscription-go-down *gemlog-subscription-keymap*) +(define-key "k" #'gemlogs-subscription-go-up *gemlog-subscription-keymap*) + +(define-key "j" #'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*) @@ -491,6 +527,10 @@ (define-key "down" #'gempub-library-window-go-down *gempub-library-keymap*) +(define-key "k" #'gempub-library-window-go-up *gempub-library-keymap*) + +(define-key "j" #'gempub-library-window-go-down *gempub-library-keymap*) + (define-key "q" #'gempub-library-window-close *gempub-library-keymap*) (define-key "C-J" #'gempub-open-file *gempub-library-keymap*) @@ -501,6 +541,10 @@ (define-key "down" #'tag-go-down *tags-keymap*) +(define-key "k" #'tag-go-up *tags-keymap*) + +(define-key "j" #'tag-go-down *tags-keymap*) + (define-key "C-J" #'open-tag-folder *tags-keymap*) (define-key "U" #'unsubscribe-to-hash *tags-keymap*) @@ -517,6 +561,10 @@ (define-key "down" #'conversation-go-down *conversations-keymap*) +(define-key "k" #'conversation-go-up *conversations-keymap*) + +(define-key "j" #'conversation-go-down *conversations-keymap*) + (define-key "dc" #'delete-conversation *conversations-keymap*) (define-key "I" #'ignore-conversation *conversations-keymap*) @@ -531,6 +579,10 @@ (define-key "down" #'open-message-attach-go-down *open-attach-keymap*) +(define-key "k" #'open-message-attach-go-up *open-attach-keymap*) + +(define-key "j" #'open-message-attach-go-down *open-attach-keymap*) + (define-key "q" #'close-open-attach-window *open-attach-keymap*) ;; message links keymap @@ -541,6 +593,10 @@ (define-key "down" #'open-message-link-go-down *open-message-link-keymap*) +(define-key "k" #'open-message-link-go-up *open-message-link-keymap*) + +(define-key "j" #'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*) @@ -575,6 +631,11 @@ (define-key "down" #'chat-list-go-down *chats-list-keymap*) +(define-key "k" #'chat-list-go-up *chats-list-keymap*) + +(define-key "j" #'chat-list-go-down *chats-list-keymap*) + + ;; chat window (defun write-to-chat () @@ -586,6 +647,10 @@ (define-key "down" #'message-scroll-down *chat-message-keymap*) +(define-key "k" #'message-scroll-up *chat-message-keymap*) + +(define-key "j" #'message-scroll-down *chat-message-keymap*) + (define-key "home" #'message-scroll-begin *chat-message-keymap*) (define-key "end" #'message-scroll-end *chat-message-keymap*) @@ -628,6 +693,10 @@ (define-key "down" #'file-explorer-go-down *filesystem-explorer-keymap*) +(define-key "k" #'file-explorer-go-up *filesystem-explorer-keymap*) + +(define-key "j" #'file-explorer-go-down *filesystem-explorer-keymap*) + (define-key "home" #'file-explorer-scroll-begin *filesystem-explorer-keymap*) (define-key "end" #'file-explorer-scroll-end *filesystem-explorer-keymap*)