Make org-roam buffer read-only

This commit is contained in:
Jethro Kuan
2020-02-05 00:17:35 +08:00
parent 0b54e0390e
commit 2f0107a978

View File

@@ -183,7 +183,7 @@ 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)
@@ -197,8 +197,8 @@ Valid states are 'visible, 'exists and 'none."
(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 ()