diff options
| -rw-r--r-- | init.el | 13 |
1 files changed, 12 insertions, 1 deletions
@@ -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 "*"))) |