From 988cc3f0f9c3bc9921dbc87ab61da36513be9364 Mon Sep 17 00:00:00 2001 From: Jethro Kuan Date: Wed, 5 Feb 2020 02:53:07 +0800 Subject: [PATCH] make org-roam-buffer preview more bearable --- org-roam.el | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/org-roam.el b/org-roam.el index 9cef2d6..d18cc88 100644 --- a/org-roam.el +++ b/org-roam.el @@ -7,6 +7,7 @@ (require 'deft) (require 'async) (require 'subr-x) +(require 's) (defgroup org-roam nil "Roam Research replica in Org-mode." @@ -32,6 +33,9 @@ Valid values are (defvar org-roam-buffer "*org-roam*" "Org-roam buffer name.") +(defvar org-roam-preview-content-delimiter "------" + "Delimiter for preview content.") + (defvar org-roam-hash-backlinks nil "Cache containing backlinks for `org-roam' buffers.") @@ -187,17 +191,17 @@ Valid states are 'visible, 'exists and 'none." (erase-buffer) (when (not (eq major-mode 'org-mode)) (org-mode)) - (make-local-variable 'org-return-follows-link) (setq org-return-follows-link t) - (insert (format "Backlinks for %s:\n\n" file)) + (insert file) + (insert "\n\n* Backlinks\n") (if backlinks (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) - (insert "#+BEGIN_SRC org\n") - (insert content) - (insert "\n#+END_SRC\n\n"))) + (insert (format "%s\n" org-roam-preview-content-delimiter)) + (insert (s-replace "\n" " " content)) + (insert (format "\n%s\n\n" org-roam-preview-content-delimiter)))) backlinks) (insert "No backlinks."))) (read-only-mode 1))