Add nroam-goto

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

1 files changed, 6 insertions, 0 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))