diff --git a/etc/init.lisp b/etc/init.lisp index b3d7cf0..e7f8a2a 100644 --- a/etc/init.lisp +++ b/etc/init.lisp @@ -251,6 +251,8 @@ (define-key "q" #'cancel-send-message *send-message-keymap*) +(define-key "C-g" #'cancel-send-message *send-message-keymap*) + (define-key "s" #'change-subject *send-message-keymap*) (define-key "l" #'change-language *send-message-keymap*) @@ -525,6 +527,8 @@ (define-key "q" #'gemini-toc-close *gemini-toc-keymap*) +(define-key "C-g" #'gemini-toc-close *gemini-toc-keymap*) + (define-key "up" #'gemini-toc-scroll-up *gemini-toc-keymap*) ;; gemini stream window keymap @@ -557,6 +561,8 @@ (define-key "q" #'gemini-close-certificate-window *gemini-certificates-keymap*) +(define-key "C-g" #'gemini-close-certificate-window *gemini-certificates-keymap*) + (define-key "up" #'gemini-certificate-window-go-up *gemini-certificates-keymap*) (define-key "c" #'gemini-change-certificate-password *gemini-certificates-keymap*) @@ -579,6 +585,8 @@ (define-key "q" #'close-gemlog-window *gemlog-subscription-keymap*) +(define-key "C-g" #'close-gemlog-window *gemlog-subscription-keymap*) + (define-key "up" #'gemlogs-subscription-go-up *gemlog-subscription-keymap*) ;; gempub library window keymap @@ -593,6 +601,8 @@ (define-key "q" #'gempub-library-window-close *gempub-library-keymap*) +(define-key "C-g" #'gempub-library-window-close *gempub-library-keymap*) + (define-key "up" #'gempub-library-window-go-up *gempub-library-keymap*) ;; tags keymap @@ -659,6 +669,8 @@ (define-key "q" #'close-open-attach-window *open-attach-keymap*) +(define-key "C-g" #'close-open-attach-window *open-attach-keymap*) + (define-key "up" #'open-message-attach-go-up *open-attach-keymap*) ;; message links keymap @@ -693,6 +705,8 @@ (define-key "q" #'close-open-message-link-window *open-message-link-keymap*) +(define-key "C-g" #'close-open-message-link-window *open-message-link-keymap*) + (define-key "t" #'tour-mode-link *open-message-link-keymap*) (define-key "up" #'open-message-link-go-up *open-message-link-keymap*) @@ -715,6 +729,8 @@ (define-key "q" #'close-chats-list-window *chats-list-keymap*) + (define-key "C-g" #'close-chats-list-window *chats-list-keymap*) + (define-key "r" #'refresh-chat-messages *chats-list-keymap*) (define-key "up" #'chat-list-go-up *chats-list-keymap*)) @@ -789,6 +805,8 @@ (define-key "q" #'file-explorer-close-window *filesystem-explorer-keymap*) +(define-key "C-g" #'file-explorer-close-window *filesystem-explorer-keymap*) + (define-key "r" #'file-explorer-rename-path *filesystem-explorer-keymap*) (define-key "u" #'file-explorer-upload-path *filesystem-explorer-keymap*)