2 Commits

1 changed files with 6 additions and 8 deletions
Split View
  1. +6
    -8
      nroam.el

+ 6
- 8
nroam.el View File

@ -185,17 +185,17 @@ Make the region inserted by BODY read-only, and marked with
(defun nroam--insert ()
"Insert nroam sections in the current buffer."
(let ((p (point-max)))
(let ((point (point-max)))
(with-buffer-modified-unmodified
(save-excursion
(goto-char p)
(goto-char point)
(unless (bobp)
(nroam--ensure-empty-line))
(with-nroam-markers
(nroam--do-separated-by-newlines #'funcall nroam-sections))
(when (nroam--sections-inserted-p)
(save-restriction
(narrow-to-region p (point-max))
(narrow-to-region point (point-max))
(org-set-startup-visibility)))))))
(defun nroam--get-backlinks ()
@ -210,11 +210,9 @@ Make the region inserted by BODY read-only, and marked with
(defun nroam--insert-backlinks-heading (count)
"Insert the heading for the backlinks section with a COUNT."
(insert (if (= count 0)
"* No linked reference\n"
(format "* %s %s\n"
count
(nroam--pluralize count "linked reference")))))
(insert (format "* %s %s\n"
(if (= count 0) "No" count)
(nroam--pluralize count "linked reference"))))
(defun nroam--insert-backlink-group (group)
"Insert all backlinks in GROUP."


Loading…
Cancel
Save