diff options
Diffstat (limited to 'lib/doc/jao-org-focus.el')
| -rw-r--r-- | lib/doc/jao-org-focus.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/doc/jao-org-focus.el b/lib/doc/jao-org-focus.el index a8d72be..859cb65 100644 --- a/lib/doc/jao-org-focus.el +++ b/lib/doc/jao-org-focus.el @@ -124,6 +124,11 @@ With arg, offer to switch to all children, regardless of their parent." (completing-read "Focused child: " fl nil t nil 'jao-org-focus--focused-history)))) +(defun jao-org-focus-goto-line (n) + (interactive "NGo to line: ") + (goto-char (point-min)) + (forward-visible-line n)) + (define-minor-mode org-focus-mode "A mode where keeping track of focused children is on by default." :lighter " ◎" @@ -139,12 +144,17 @@ With arg, offer to switch to all children, regardless of their parent." (define-minor-mode org-focus-child-mode "A mode for the children of a focused org buffer." :lighter " ◉" - :keymap org-focus-mode-map (when (and org-focus-child-mode (require 'symbol-overlay nil t)) (face-remap-reset-base 'symbol-overlay-default-face) (face-remap-add-relative 'symbol-overlay-default-face 'warning 'underline) (symbol-overlay-mode 1))) +(set-keymap-parent org-focus-child-mode-map org-focus-mode) +(keymap-set org-focus-child-mode-map + "<remap> <goto-line>" + #'jao-org-focus-goto-line) + + (with-eval-after-load 'symbol-overlay (keymap-set org-focus-mode-map "M-n" 'symbol-overlay-jump-next) (keymap-set org-focus-mode-map "M-p" 'symbol-overlay-jump-prev)) |