awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-09-30 17:00:56 -05:00
Code Issues Packages Projects Releases Wiki Activity

Make org-roam buffer read-only

Browse Source
This commit is contained in:
Jethro Kuan
2020-02-05 00:17:35 +08:00
parent 0b54e0390e
commit 2f0107a978
1 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
org-roam.el
View File

@@ -183,22 +183,22 @@ Valid states are 'visible, 'exists and 'none."
(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))
(if backlinks
(maphash (lambda (link contents)
(insert (format "* [[file:%s][%s]]\n" (expand-file-name link org-roam-directory) link))
(dolist (content contents)
(insert "#+BEGIN_SRC org\n")
(insert content)
(insert "\n#+END_SRC\n\n")))
backlinks)
(insert "No backlinks."))
(org-global-cycle 1))
(let ((inhibit-read-only t))
(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))
(if backlinks
(maphash (lambda (link contents)
(insert (format "* [[file:%s][%s]]\n" (expand-file-name link org-roam-directory) link))
(dolist (content contents)
(insert "#+BEGIN_SRC org\n")
(insert content)
(insert "\n#+END_SRC\n\n")))
backlinks)
(insert "No backlinks.")))
(read-only-mode 1))
(setq org-roam-current-file file))))
(defun org-roam ()