From 8b980efcd9497e395f4d82a1304267ae4426b00d Mon Sep 17 00:00:00 2001 From: Visuwesh Date: Mon, 9 Sep 2024 19:46:47 +0530 Subject: [PATCH] Add repeat-mode keymap for navigation commands * org-keys.el (org-navigation-repeat-map): Add repeat-map to make navigation easier when repeat-mode is turned on. --- lisp/org-keys.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/lisp/org-keys.el b/lisp/org-keys.el index 1daedaae8..ec32d212d 100644 --- a/lisp/org-keys.el +++ b/lisp/org-keys.el @@ -462,6 +462,25 @@ (org-defkey org-mode-map (kbd "C-S-") #'org-shiftcontrolleft) (org-defkey org-mode-map (kbd "C-S-") #'org-shiftcontrolup) (org-defkey org-mode-map (kbd "C-S-") #'org-shiftcontroldown) +;;; Repeat-mode map. +(defvar org-navigation-repeat-map (make-sparse-keymap) + "Repeat keymap for navigation commands.") +(org-defkey org-navigation-repeat-map (kbd "b") #'org-backward-heading-same-level) +(org-defkey org-navigation-repeat-map (kbd "C-b") #'org-backward-heading-same-level) +(org-defkey org-navigation-repeat-map (kbd "f") #'org-forward-heading-same-level) +(org-defkey org-navigation-repeat-map (kbd "C-f") #'org-forward-heading-same-level) +(org-defkey org-navigation-repeat-map (kbd "n") #'org-next-visible-heading) +(org-defkey org-navigation-repeat-map (kbd "C-n") #'org-next-visible-heading) +(org-defkey org-navigation-repeat-map (kbd "p") #'org-previous-visible-heading) +(org-defkey org-navigation-repeat-map (kbd "C-p") #'org-previous-visible-heading) +(declare-function outline-up-heading "outline" (arg &optional invisible-ok)) +(org-defkey org-navigation-repeat-map (kbd "u") #'outline-up-heading) +(org-defkey org-navigation-repeat-map (kbd "C-u") #'outline-up-heading) +(map-keymap + (lambda (_key cmd) + (put cmd 'repeat-map 'org-navigation-repeat-map)) + org-navigation-repeat-map) + ;;;; Extra keys for TTY access. ;; We only set them when really needed because otherwise the -- 2.45.2