Add org-open-at-point-stay as speed command

1 files changed, 14 insertions, 1 deletions

diff --git a/lisp/init-org.el b/lisp/init-org.el
index bde6040..e5fad96 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -257,6 +257,17 @@ to
                                           (funcall 'pop-to-buffer buffer-or-name nil norecord)))
     (org-switchb arg)))
 
+(defun km/org-open-at-point-stay ()
+  "Like `org-open-at-point', but stay on heading.
+This variant is convient to use in `org-speed-commands-user'
+because remaining on the heading allows additional commands to be
+called through the speed command interface."
+  (interactive)
+  (unless (org-at-heading-p)
+    (user-error "Not at heading"))
+  (save-excursion
+    (call-interactively #'org-open-at-point)))
+
 (after 'org
   (define-key org-mode-map (kbd "C-c C-x B")
     'km/org-tree-to-indirect-buffer-current-window)
@@ -281,7 +292,9 @@ to
   ;; to C-,).
   (define-key org-mode-map (kbd "C-'") nil)
 
-  (define-key org-mode-map (kbd "C-c m") 'km/org-prefix-map))
+  (define-key org-mode-map (kbd "C-c m") 'km/org-prefix-map)
+
+  (add-to-list 'org-speed-commands-user '("o" . km/org-open-at-point-stay)))
 
 (define-prefix-command 'km/org-prefix-map)
 (define-key km/org-prefix-map "c" 'km/org-clone-and-shift-by-repeater)