wee improvementsmain

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))