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 (when org-roam-hash-backlinks
(let ((backlinks (gethash file org-roam-hash-backlinks))) (let ((backlinks (gethash file org-roam-hash-backlinks)))
(with-current-buffer org-roam-buffer (with-current-buffer org-roam-buffer
(read-only-mode -1) (let ((inhibit-read-only t))
(erase-buffer) (erase-buffer)
(org-mode) (org-mode)
(make-local-variable 'org-return-follows-link) (make-local-variable 'org-return-follows-link)
(setq org-return-follows-link t) (setq org-return-follows-link t)
(insert (format "Backlinks for %s:\n\n" file)) (insert (format "Backlinks for %s:\n\n" file))
(if backlinks (if backlinks
(maphash (lambda (link contents) (maphash (lambda (link contents)
(insert (format "* [[file:%s][%s]]\n" (expand-file-name link org-roam-directory) link)) (insert (format "* [[file:%s][%s]]\n" (expand-file-name link org-roam-directory) link))
(dolist (content contents) (dolist (content contents)
(insert "#+BEGIN_SRC org\n") (insert "#+BEGIN_SRC org\n")
(insert content) (insert content)
(insert "\n#+END_SRC\n\n"))) (insert "\n#+END_SRC\n\n")))
backlinks) backlinks)
(insert "No backlinks.")) (insert "No backlinks.")))
(org-global-cycle 1)) (read-only-mode 1))
(setq org-roam-current-file file)))) (setq org-roam-current-file file))))
(defun org-roam () (defun org-roam ()