From: rearman <rearman@r717.net>
Date: Wed, 21 May 2025 20:51:11 +0000 (-0400)
Subject: Add lisp-mode like bindings for org-mode
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=0bd2404ee8c1f0d9d55350e96fb187758a5daf95;p=emacsinit.git

Add lisp-mode like bindings for org-mode
---

diff --git a/re/re-org.el b/re/re-org.el
index 546e718..d7153c8 100644
--- a/re/re-org.el
+++ b/re/re-org.el
@@ -20,7 +20,8 @@
 
 (setq org-goto-interface 'outline-path-completion
       org-outline-path-complete-in-steps nil
-      org-goto-max-level 20)
+      org-goto-max-level 20
+      org-goto-auto-isearch nil)
 
 (setq org-special-ctrl-a/e t
       org-special-ctrl-k t
@@ -139,6 +140,12 @@
 (keymap-set org-mode-map "M-<left>" #'org-shiftmetaleft)
 (keymap-set org-mode-map "M-S-<right>" #'org-metaright)
 (keymap-set org-mode-map "M-S-<left>" #'org-metaleft)
+(keymap-set org-mode-map "C-M-u" #'org-up-element)
+(keymap-set org-mode-map "C-M-d" #'org-down-element)
+(keymap-set org-mode-map "C-M-b" #'org-backward-heading-same-level)
+(keymap-set org-mode-map "C-M-f" #'org-forward-heading-same-level)
+(keymap-set org-mode-map "C-M-p" #'org-previous-visible-heading)
+(keymap-set org-mode-map "C-M-n" #'org-next-visible-heading)
 
 (provide 're-org)
 ;;; re-org.el ends here