emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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

17
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 #'member (delq
(doom-rpartial nil (append
#'member (delq (list (bound-and-true-p org-archive-tag)
nil (append (bound-and-true-p org-attach-auto-tag))
(list (bound-and-true-p org-archive-tag) (bound-and-true-p org-num-skip-tags))))
(bound-and-true-p org-attach-auto-tag)) (org-roam-node-tags node)))
(bound-and-true-p org-num-skip-tags))))
tags)))
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))