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

refactor(org): org-roam-node-doom-subdirs

Browse Source 
Didn't need to be so convoluted.
This commit is contained in:
Henrik Lissner
2022-02-11 01:55:44 +01:00
parent 9217bb81f4
commit 4c3be5e379
1 changed files with 7 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
modules/lang/org/autoload/contrib-roam2.el
View File

@ -44,16 +44,13 @@ If there's none, return an empty string."
;;;###autoload (autoload 'org-roam-node-doom-tags "lang/org/autoload/contrib-roam2" nil t) ;;;###autoload (autoload 'org-roam-node-doom-tags "lang/org/autoload/contrib-roam2" nil t)
(cl-defmethod org-roam-node-doom-tags ((node org-roam-node)) (cl-defmethod org-roam-node-doom-tags ((node org-roam-node))
"Return tags formatted in the same way how they appear in org files." "Return tags formatted in the same way how they appear in org files."
(when-let* ((tags (org-roam-node-tags node)) (cl-remove-if (doom-rpartial
(tags (cl-remove-if
(doom-rpartial
#'member (delq #'member (delq
nil (append nil (append
(list (bound-and-true-p org-archive-tag) (list (bound-and-true-p org-archive-tag)
(bound-and-true-p org-attach-auto-tag)) (bound-and-true-p org-attach-auto-tag))
(bound-and-true-p org-num-skip-tags)))) (bound-and-true-p org-num-skip-tags))))
tags))) (org-roam-node-tags node)))
tags))
;;;###autoload (autoload 'org-roam-node-doom-type "lang/org/autoload/contrib-roam2" nil t) ;;;###autoload (autoload 'org-roam-node-doom-type "lang/org/autoload/contrib-roam2" nil t)
(cl-defmethod org-roam-node-doom-type ((node org-roam-node)) (cl-defmethod org-roam-node-doom-type ((node org-roam-node))