awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-03 12:27:23 -05:00
Code Issues Packages Projects Releases Wiki Activity

simplify section insertion

Browse Source
This commit is contained in:
Jethro Kuan
2021-03-25 19:19:13 +08:00
parent 7bb61806ef
commit a4ab83ea89
4 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
org-roam-backlinks.el
View File

@ -76,7 +76,7 @@ Sorts by title."
(org-roam-node-title (org-roam-backlink-source-node b)))) (org-roam-node-title (org-roam-backlink-source-node b))))
;;; Section inserter ;;; Section inserter
(cl-defun org-roam-backlinks-insert-section (&key node _file) (defun org-roam-backlinks-insert-section (node)
"Insert backlinks section for NODE." "Insert backlinks section for NODE."
(let* ((backlinks (seq-sort #'org-roam-backlinks-sort (org-roam-backlinks-get node)))) (let* ((backlinks (seq-sort #'org-roam-backlinks-sort (org-roam-backlinks-get node))))
(magit-insert-section (org-roam-backlinks) (magit-insert-section (org-roam-backlinks)

10
org-roam-mode.el
View File

@ -154,20 +154,18 @@ which visits the thing at point."
(interactive) (interactive)
(if-let ((node (org-roam-node-at-point))) (if-let ((node (org-roam-node-at-point)))
(progn (progn
(let ((file (buffer-file-name (buffer-base-buffer))) (let ((buffer (get-buffer-create
(buffer (get-buffer-create
(concat "org-roam: " (concat "org-roam: "
(file-relative-name (buffer-file-name) org-roam-directory))))) (file-relative-name (buffer-file-name) org-roam-directory)))))
(with-current-buffer buffer (with-current-buffer buffer
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(erase-buffer) (erase-buffer)
(org-roam-mode) (org-roam-mode)
(org-roam-set-header-line-format (org-roam-set-header-line-format (org-roam-node-title node))
(org-roam-node-title node)) (magit-insert-section (org-roam)
(magit-insert-section (demo-buffer)
(magit-insert-heading) (magit-insert-heading)
(dolist (fn org-roam-mode-sections) (dolist (fn org-roam-mode-sections)
(funcall fn :node node :file file))))) (funcall fn node)))))
(switch-to-buffer-other-window buffer))) (switch-to-buffer-other-window buffer)))
(user-error "No node at point"))) (user-error "No node at point")))

2
org-roam-reflinks.el
View File

@ -74,7 +74,7 @@ Sorts by title."
(org-roam-node-title (org-roam-reflink-source-node b)))) (org-roam-node-title (org-roam-reflink-source-node b))))
;;; Section inserter ;;; Section inserter
(cl-defun org-roam-reflinks-insert-section (&key node _file) (defun org-roam-reflinks-insert-section (node)
"Insert reflinks section for NODE." "Insert reflinks section for NODE."
(when (org-roam-node-refs node) (when (org-roam-node-refs node)
(let* ((reflinks (seq-sort #'org-roam-reflinks-sort (org-roam-reflinks-get node)))) (let* ((reflinks (seq-sort #'org-roam-reflinks-sort (org-roam-reflinks-get node))))

4
org-roam-unlinked-references.el
View File

@ -116,7 +116,7 @@ This is the ROW within FILE."
(end-of-line) (end-of-line)
(point))))) (point)))))
(cl-defun org-roam-unlinked-references-insert-section (&key node file) (defun org-roam-unlinked-references-insert-section (node)
"Render unlinked references for NODE. "Render unlinked references for NODE.
References from FILE are excluded." References from FILE are excluded."
(when (and (executable-find "rg") (when (and (executable-find "rg")
@ -145,7 +145,7 @@ References from FILE are excluded."
col (string-to-number (match-string 3 line)) col (string-to-number (match-string 3 line))
match (match-string 4 line)) match (match-string 4 line))
(when (and match (when (and match
(not (f-equal-p file f)) (not (f-equal-p (org-roam-node-file node) f))
(member (downcase match) (mapcar #'downcase titles))) (member (downcase match) (mapcar #'downcase titles)))
(magit-insert-section section (org-roam-grep-section) (magit-insert-section section (org-roam-grep-section)
(oset section file f) (oset section file f)