From f968529b8db09e85959170e55e23d1af71bf548d Mon Sep 17 00:00:00 2001 From: Jethro Kuan Date: Mon, 3 Feb 2020 01:06:23 +0800 Subject: [PATCH] prevent update when no backlinks --- org-roam.el | 33 +++++++++++++++++---------------- 1 file changed, 17 insertions(+), 16 deletions(-) diff --git a/org-roam.el b/org-roam.el index ef1ef25..e611e3c 100644 --- a/org-roam.el +++ b/org-roam.el @@ -170,22 +170,23 @@ Valid states are 'visible, 'exists and 'none." (defun org-roam-update (file) "Show the backlinks for given org file `FILE'." (unless (string= org-roam-current-file file) - (let ((backlinks (gethash file org-roam-hash-backlinks))) - (with-current-buffer org-roam-buffer - (read-only-mode -1) - (erase-buffer) - (org-mode) - (make-local-variable 'org-return-follows-link) - (setq org-return-follows-link t) - (insert (format "Backlinks for %s:\n\n" file)) - (when backlinks - (maphash (lambda (link contents) - (insert (format "* [[file:%s][%s]]\n" (expand-file-name link org-roam-directory) link)) - (dolist (content contents) - (insert (format "\n\n%s\n\n" content)))) - backlinks)) - (read-only-mode +1)))) - (setq org-roam-current-file file)) + (when org-roam-hash-backlinks + (let ((backlinks (gethash file org-roam-hash-backlinks))) + (with-current-buffer org-roam-buffer + (read-only-mode -1) + (erase-buffer) + (org-mode) + (make-local-variable 'org-return-follows-link) + (setq org-return-follows-link t) + (insert (format "Backlinks for %s:\n\n" file)) + (when backlinks + (maphash (lambda (link contents) + (insert (format "* [[file:%s][%s]]\n" (expand-file-name link org-roam-directory) link)) + (dolist (content contents) + (insert (format "\n\n%s\n\n" content)))) + backlinks)) + (read-only-mode +1))) + (setq org-roam-current-file file)))) (defun org-roam () "Initialize `org-roam'.