aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2021-06-05 17:14:00 -0400
committerKyle Meyer <kyle@kyleam.com>2021-06-07 00:12:07 -0400
commit5083f82952920cccede561c1e4d622611d20bcef (patch)
treed762987f22f354076fee72060fe2b98d8acade9b
parent6738bf5704c7d7fdf12152980b43673a591182f0 (diff)
downloadpiem-5083f82952920cccede561c1e4d622611d20bcef.tar.gz
lei: Configure bindings for query and show modes
-rw-r--r--piem-lei.el19
1 files changed, 19 insertions, 0 deletions
diff --git a/piem-lei.el b/piem-lei.el
index 8267da5..71f548c 100644
--- a/piem-lei.el
+++ b/piem-lei.el
@@ -139,6 +139,13 @@ unless DISPLAY is non-nil."
("^>>>> \\(.*\\)" 0 'piem-lei-show-cited-text-4))
"Font lock keywords for `piem-lei-show-mode'.")
+(defvar piem-lei-show-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map "s" #'piem-lei-query)
+ (define-key map "t" #'piem-lei-query-thread)
+ map)
+ "Keymap for `piem-lei-show-mode'.")
+
(define-derived-mode piem-lei-show-mode special-mode "lei-show"
"Major mode for displaying message via lei."
:group 'piem-lei
@@ -319,6 +326,18 @@ line's message, scroll its text downward, passing ARG to
(arg (- arg))
(t '-))))
+(defvar piem-lei-query-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map (kbd "RET") #'piem-lei-query-show)
+ (define-key map (kbd "DEL") #'piem-lei-query-show-or-scroll-down)
+ (define-key map (kbd "SPC") #'piem-lei-query-show-or-scroll-up)
+ (define-key map "n" #'piem-lei-query-next-line)
+ (define-key map "p" #'piem-lei-query-previous-line)
+ (define-key map "s" #'piem-lei-query)
+ (define-key map "t" #'piem-lei-query-thread)
+ map)
+ "Keymap for `piem-lei-query-mode'.")
+
(define-derived-mode piem-lei-query-mode special-mode "lei-query"
"Major mode for displaying overview of `lei q' results."
:group 'piem-lei