Set visibility of backlinks section

* nroam.el (nroam--insert): Set visibility according to
startup-options.

1 files changed, 12 insertions, 6 deletions

diff --git a/nroam.el b/nroam.el
index e7cf780..87855d7 100644
--- a/nroam.el
+++ b/nroam.el
@@ -185,12 +185,18 @@ Make the region inserted by BODY read-only, and marked with
 
 (defun nroam--insert ()
   "Insert nroam sections in the current buffer."
-  (with-buffer-modified-unmodified
-   (save-excursion
-     (goto-char (point-max))
-     (with-nroam-markers
-       (seq-do #'funcall nroam-sections)))
-   (nroam--hide-drawers)))
+  (let ((p (point-max)))
+    (with-buffer-modified-unmodified
+     (save-excursion
+       (goto-char p)
+       (with-nroam-markers
+         (seq-do #'funcall nroam-sections))
+       (when (nroam--sections-inserted-p)
+         (goto-char (+ p 1)) ; maybe to implicit. But loc. of new
+                             ; backlinks section
+         (save-restriction
+           (org-narrow-to-subtree)
+           (org-set-startup-visibility)))))))
 
 (defun nroam--get-backlinks ()
   "Return a list of backlinks for the current buffer."