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

org-roam-mode-sections: Convert to abnormal hook (#1504)

Browse Source 
See: #1503
This commit is contained in:
Nicholas Vollmer
2021-05-02 04:35:36 -04:00
committed by GitHub
parent bc4b7fa409
commit 109917c589
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
org-roam-mode.el
View File

@ -124,11 +124,12 @@ and `:slant'."
(defvar org-roam-current-node nil (defvar org-roam-current-node nil
"The current node at point.") "The current node at point.")
(defcustom org-roam-mode-sections (list #'org-roam-backlinks-section (defcustom org-roam-mode-section-functions (list #'org-roam-backlinks-section
#'org-roam-reflinks-section) #'org-roam-reflinks-section)
"List of functions that insert sections for Org-roam." "Functions which insert sections of the `org-roam-buffer'.
Each function is called with one argument, which is the current org-roam node at point."
:group 'org-roam :group 'org-roam
:type '(repeat function)) :type 'hook)
;;; The mode ;;; The mode
(defvar org-roam-mode-map (defvar org-roam-mode-map
@ -162,8 +163,7 @@ which visits the thing at point."
(org-roam-set-header-line-format (org-roam-node-title org-roam-current-node)) (org-roam-set-header-line-format (org-roam-node-title org-roam-current-node))
(magit-insert-section (org-roam) (magit-insert-section (org-roam)
(magit-insert-heading) (magit-insert-heading)
(dolist (fn org-roam-mode-sections) (run-hook-with-args 'org-roam-mode-section-functions org-roam-current-node)))))
(funcall fn org-roam-current-node))))))
(defun org-roam-buffer () (defun org-roam-buffer ()
"Launch an Org-roam buffer for the current node at point." "Launch an Org-roam buffer for the current node at point."