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

(feat)buffer: pass args to org-mode-section-functions (#2123)

Browse Source 
* (feat)buffer: pass args to org-mode-section-functions

* update docs
This commit is contained in:
Jethro Kuan
2022-03-12 21:24:11 -08:00
committed by GitHub
parent b179a5a1a6
commit cc3689f30f
3 changed files with 19 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
doc/org-roam.org
View File

@ -648,13 +648,14 @@ To configure what sections are displayed in the buffer, set ~org-roam-mode-secti
Note that computing unlinked references may be slow, and has not been added in by default.
Or, if you want to render unique sources for backlinks (and also keep rendering reference links), set ~org-roam-mode-section-functions~ as follows:
For each section function, you can pass args along to modify its behaviour. For
example, if you want to render unique sources for backlinks (and also keep
rendering reference links), set ~org-roam-mode-section-functions~ as follows:
#+begin_src emacs-lisp
(setq org-roam-mode-section-functions
(list
(lambda (node) (org-roam-backlinks-section node :unique t))
#'org-roam-reflinks-section))
'((org-roam-backlinks-section :unique t)
org-roam-reflinks-section))
#+end_src
** Configuring the Org-roam buffer display

12
doc/org-roam.texi
View File

@ -988,16 +988,16 @@ To configure what sections are displayed in the buffer, set @code{org-roam-mode-
Note that computing unlinked references may be slow, and has not been added in by default.
Or, if you want to render unique sources for backlinks (and also keep rendering reference links), set @code{org-roam-mode-section-functions} as follows:
For each section function, you can pass args along to modify its behaviour. For
example, if you want to render unique sources for backlinks (and also keep
rendering reference links), set @code{org-roam-mode-section-functions} as follows:
@lisp
(setq org-roam-mode-section-functions
(list
(lambda (node) (org-roam-backlinks-section node :unique t))
#'org-roam-reflinks-section))
(setq org-roam-mode-section-functions
'((org-roam-backlinks-section :unique t)
org-roam-reflinks-section))
@end lisp
@node Configuring the Org-roam buffer display
@section Configuring the Org-roam buffer display

9
org-roam-mode.el
View File

@ -228,7 +228,14 @@ buffer."
(org-roam-node-title org-roam-buffer-current-node))
(magit-insert-section (org-roam)
(magit-insert-heading)
(run-hook-with-args 'org-roam-mode-section-functions org-roam-buffer-current-node))
(dolist (section-fn org-roam-mode-section-functions)
(pcase section-fn
((pred functionp)
(funcall section-fn org-roam-buffer-current-node))
(`(,fn . ,args)
(apply fn (cons org-roam-buffer-current-node args)))
(_
(user-error "Invalid `org-roam-mode-section-functions specification.'")))))
(run-hooks 'org-roam-buffer-postrender-functions)
(goto-char 0)))