[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/logos f1aaa9416d 1/2: Add new map for repeat-mode
From: |
ELPA Syncer |
Subject: |
[elpa] externals/logos f1aaa9416d 1/2: Add new map for repeat-mode |
Date: |
Fri, 22 Jul 2022 23:57:39 -0400 (EDT) |
branch: externals/logos
commit f1aaa9416db49ec573f3b4f93390f8a85b2d1133
Author: Lucy McPhail <lucy.mcphail.p@gmail.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Add new map for repeat-mode
---
logos.el | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/logos.el b/logos.el
index 33b2240f65..9b179649a4 100644
--- a/logos.el
+++ b/logos.el
@@ -360,6 +360,16 @@ alternate, thus toggling MODE."
(defvar logos-focus-mode-map (make-sparse-keymap)
"The keymap of `logos-focus-mode'.")
+(defvar logos-repeat-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map "]" 'logos-forward-page-dwim)
+ (define-key map "[" 'logos-backward-page-dwim)
+ map)
+ "Keymap to repeat logos key sequences. Used in `repeat-mode'.")
+
+(put #'logos-forward-page-dwim 'repeat-map 'logos-repeat-map)
+(put #'logos-backward-page-dwim 'repeat-map 'logos-repeat-map)
+
(define-minor-mode logos-focus-mode
"Buffer-local mode for focused editing.
When enabled it sets the buffer-local value of these user