yogsototh/org-roam
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

prevent update when no backlinks

Browse source
This commit is contained in:
Jethro Kuan 2020-02-03 01:06:23 +08:00
parent 4ab3c7d314
commit f968529b8d
1 changed files with 17 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
org-roam.el
View file

@ -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'.