Custom narrowing to help me focus

global.org

@@ -1061,8 +1061,8 @@
                 ("~"       . wilder/TeX-replace-tilde)
                 ("C-o"     . wilder/open-line-and-indent)
                 ;; Force moves around to be more “semantic”
-                ("C-v"     . forward-paragraph)
-                ("M-v"     . backward-paragraph)
+                ("C-v"     . goto-next-comment-line)
+                ("M-v"     . goto-previous-comment-line)
                 ("C-S-v"   . backward-paragraph)))
 
             (mapcar (lambda (ch)
@@ -1581,7 +1581,39 @@
       (define-key outshine-mode-map (kbd "C-M-i") nil))
     (add-hook 'sh-mode-hook 'outshine-mode)
     (require 'outshine)
+    (require 'outorg)
   #+END_SRC
+  Cook up some extra narrowing function
+  #+BEGIN_SRC emacs-lisp
+    (defun goto-next-comment-line ()
+      (interactive)
+      (re-search-forward "^\\S<" nil 1)
+      (re-search-forward "^\\s<" nil 1)
+      (beginning-of-line)
+    )
+
+    (defun goto-previous-comment-line ()
+      (interactive)
+      (re-search-backward "^\\s<" nil 1 )
+      (re-search-backward "^\\S<" nil 1 )
+      (beginning-of-line)
+      (unless (bobp) (next-line))
+    )
+
+    (defun narrow-between-comments ()
+      (interactive)
+      (save-excursion
+        (next-line)
+        (goto-previous-comment-line)
+        (setq beginning (point)))
+      (save-excursion
+        (goto-next-comment-line)
+        (unless (bobp) (previous-line) (end-of-line))
+        (setq ending (point)))
+      (narrow-to-region beginning ending))
+
+  #+END_SRC
+
 ** helm
    #+BEGIN_SRC emacs-lisp
      (require 'helm-config)