Add nroam-goto

* nroam.el (nroam-goto): New function.
* tests/nroam-test.el: New test for the function.

2 files changed, 15 insertions, 1 deletions

diff --git a/nroam.el b/nroam.el
index 6900d08..d2982aa 100644
--- a/nroam.el
+++ b/nroam.el
@@ -142,6 +142,12 @@ Make the region inserted by BODY read-only, and marked with
   (and (markerp nroam-start-marker)
        (marker-position nroam-start-marker)))
 
+(defun nroam-goto ()
+  "Move point to the beginning of nroam sections if any."
+  (interactive)
+  (when (nroam--sections-inserted-p)
+    (setf (point) (marker-position nroam-start-marker))))
+
 (defun nroam--prune ()
   "Remove nroam sections from the current buffer."
   (let ((inhibit-read-only t))
diff --git a/tests/nroam-test.el b/tests/nroam-test.el
index 7db8f75..c9a8a05 100644
--- a/tests/nroam-test.el
+++ b/tests/nroam-test.el
@@ -50,7 +50,15 @@ Execute BODY and cleanup the file and buffer after that."
        (setf (point) (point-min))
        (let ((section-position (re-search-forward nroam-test-main-section-regexp nil t)))
          (expect section-position :not :to-be nil)
-         (expect section-position :to-be-greater-than 10))))))
+         (expect section-position :to-be-greater-than 10)))))
+  (describe "nroam-goto"
+    (it "moves point if nroam heading is present"
+      (nroam-test-with-temp-file-buffer
+       (insert "nroam is great\n")
+       (nroam-update)
+       (setf (point) (point-min))
+       (nroam-goto)
+       (expect (looking-at-p nroam-test-main-section-regexp) :to-be t)))))
 
 (provide 'nroam-test)
 ;;; nroam-test.el ends here