revealing outline hoisting

1 files changed, 12 insertions, 1 deletions

diff --git a/init.el b/init.el
index 2a3ea8d..cf44e38 100644
--- a/init.el
+++ b/init.el
@@ -2198,6 +2198,11 @@
     (outline-minor-mode -1)
     (outline-minor-faces-mode -1)))
 
+(defun jao-outline-minor-expand-all ()
+  (when jao-outline-minor-mode (outline-show-all)))
+
+(add-hook 'find-function-after-hook #'jao-outline-minor-expand-all)
+
 ;;; Programming languages
 ;;;; Elisp
 (add-hook 'emacs-lisp-mode-hook #'jao-outline-minor-mode)
@@ -2976,6 +2981,12 @@
 (defun jao-window-system-p ()
   (or jao-exwm-enabled jao-xmonad-enabled jao-sway-enabled))
 
+(defun jao-reveal ()
+  (interactive)
+  (cond ((or outline-minor-mode (derived-mode-p 'outline-mode ))
+         (outline-show-entry))
+        ((derived-mode-p 'org-mode) (org-reveal))))
+
 (transient-define-prefix jao-transient-utils ()
   "Global operations in X11."
   [["Notes"
@@ -3008,7 +3019,7 @@
     ("x" "restart xmobar" jao-xmobar-restart :if jao-exwm-enabled-p)
     ("x" "kill xmobar" jao-xmobar-kill :if jao-xmonad-enabled-p)]
    ["Helpers"
-    ("r" "org reveal" org-reveal)
+    ("r" "reveal" jao-reveal)
     ("k" (lambda () (concat "keyboard" (when (jao-kb-toggled-p) "*")))
      jao-kb-toggle :if jao-window-system-p)
     ("M" (lambda () (concat "minibuffer" (when jao-minibuffer-mode "*")))