Add repeat maps to acdw-compat.el

1 files changed, 122 insertions, 0 deletions

@@ -439,6 +439,128 @@ When Repeat mode is enabled, and the command symbol has the property named
             (princ (format-message " `%s'\n" command)))
           (princ "\n"))))))
 
+;;; Bindings!
+(safe-defvar undo-repeat-map
+    (let ((map (make-sparse-keymap)))
+      (define-key map "u" 'undo)
+      map)
+  "Keymap to repeat undo key sequences `C-x u u'.  Used in `repeat-mode'.")
+(put 'undo 'repeat-map 'undo-repeat-map)
+
+
+(safe-defvar next-error-repeat-map
+    (let ((map (make-sparse-keymap)))
+      (define-key map    "n" 'next-error)
+      (define-key map "\M-n" 'next-error)
+      (define-key map    "p" 'previous-error)
+      (define-key map "\M-p" 'previous-error)
+      map)
+  "Keymap to repeat next-error key sequences.  Used in `repeat-mode'.")
+(put 'next-error 'repeat-map 'next-error-repeat-map)
+(put 'previous-error 'repeat-map 'next-error-repeat-map)
+
+
+(safe-defvar page-navigation-repeat-map
+    (let ((map (make-sparse-keymap)))
+      (define-key map "]" #'forward-page)
+      (define-key map "[" #'backward-page)
+      map)
+  "Keymap to repeat page navigation key sequences.  Used in `repeat-mode'.")
+
+(put 'forward-page 'repeat-map 'page-navigation-repeat-map)
+(put 'backward-page 'repeat-map 'page-navigation-repeat-map)
+
+
+(safe-defvar tab-bar-switch-repeat-map
+    (let ((map (make-sparse-keymap)))
+      (define-key map "o" 'tab-next)
+      (define-key map "O" 'tab-previous)
+      map)
+  "Keymap to repeat tab switch key sequences `C-x t o o O'.
+Used in `repeat-mode'.")
+(put 'tab-next 'repeat-map 'tab-bar-switch-repeat-map)
+(put 'tab-previous 'repeat-map 'tab-bar-switch-repeat-map)
+
+(safe-defvar tab-bar-move-repeat-map
+    (let ((map (make-sparse-keymap)))
+      (define-key map "m" 'tab-move)
+      (define-key map "M" (lambda ()
+                            (interactive)
+                            (setq repeat-map 'tab-bar-move-repeat-map)
+                            (tab-move -1)))
+      map)
+  "Keymap to repeat tab move key sequences `C-x t m m M'.
+Used in `repeat-mode'.")
+(put 'tab-move 'repeat-map 'tab-bar-move-repeat-map)
+
+
+(safe-defvar other-window-repeat-map
+    (let ((map (make-sparse-keymap)))
+      (define-key map "o" 'other-window)
+      (define-key map "O" (lambda ()
+                            (interactive)
+                            (setq repeat-map 'other-window-repeat-map)
+                            (other-window -1)))
+      map)
+  "Keymap to repeat other-window key sequences.  Used in `repeat-mode'.")
+(put 'other-window 'repeat-map 'other-window-repeat-map)
+
+(safe-defvar resize-window-repeat-map
+    (let ((map (make-sparse-keymap)))
+      ;; Standard keys:
+      (define-key map "^" 'enlarge-window)
+      (define-key map "}" 'enlarge-window-horizontally)
+      (define-key map "{" 'shrink-window-horizontally)
+      ;; Additional keys:
+      (define-key map "v" 'shrink-window)
+      map)
+  "Keymap to repeat window resizing commands.  Used in `repeat-mode'.")
+(put 'enlarge-window 'repeat-map 'resize-window-repeat-map)
+(put 'enlarge-window-horizontally 'repeat-map 'resize-window-repeat-map)
+(put 'shrink-window-horizontally 'repeat-map 'resize-window-repeat-map)
+(put 'shrink-window 'repeat-map 'resize-window-repeat-map)
+
+
+(with-eval-after-load 'outline
+  (safe-defvar outline-navigation-repeat-map
+      (let ((map (make-sparse-keymap)))
+        (define-key map (kbd "C-b") #'outline-backward-same-level)
+        (define-key map (kbd "b") #'outline-backward-same-level)
+        (define-key map (kbd "C-f") #'outline-forward-same-level)
+        (define-key map (kbd "f") #'outline-forward-same-level)
+        (define-key map (kbd "C-n") #'outline-next-visible-heading)
+        (define-key map (kbd "n") #'outline-next-visible-heading)
+        (define-key map (kbd "C-p") #'outline-previous-visible-heading)
+        (define-key map (kbd "p") #'outline-previous-visible-heading)
+        (define-key map (kbd "C-u") #'outline-up-heading)
+        (define-key map (kbd "u") #'outline-up-heading)
+        map))
+
+  (dolist (command '(outline-backward-same-level
+                     outline-forward-same-level
+                     outline-next-visible-heading
+                     outline-previous-visible-heading
+                     outline-up-heading))
+    (put command 'repeat-map 'outline-navigation-repeat-map))
+
+  (safe-defvar outline-editing-repeat-map
+      (let ((map (make-sparse-keymap)))
+        (define-key map (kbd "C-v") #'outline-move-subtree-down)
+        (define-key map (kbd "v") #'outline-move-subtree-down)
+        (define-key map (kbd "C-^") #'outline-move-subtree-up)
+        (define-key map (kbd "^") #'outline-move-subtree-up)
+        (define-key map (kbd "C->") #'outline-demote)
+        (define-key map (kbd ">") #'outline-demote)
+        (define-key map (kbd "C-<") #'outline-promote)
+        (define-key map (kbd "<") #'outline-promote)
+        map))
+
+  (dolist (command '(outline-move-subtree-down
+                     outline-move-subtree-up
+                     outline-demote
+                     outline-promote))
+    (put command 'repeat-map 'outline-editing-repeat-map))
+  )
 
 (provide 'acdw-compat)
 ;;; acdw-compat.el ends here