From 4c3be5e379c79e727772621192e46eb5e0edd57a Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 11 Feb 2022 01:55:44 +0100 Subject: [PATCH] refactor(org): org-roam-node-doom-subdirs Didn't need to be so convoluted. --- modules/lang/org/autoload/contrib-roam2.el | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) diff --git a/modules/lang/org/autoload/contrib-roam2.el b/modules/lang/org/autoload/contrib-roam2.el index 34d83071d..fac1df1bf 100644 --- a/modules/lang/org/autoload/contrib-roam2.el +++ b/modules/lang/org/autoload/contrib-roam2.el @@ -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) (cl-defmethod org-roam-node-doom-tags ((node org-roam-node)) "Return tags formatted in the same way how they appear in org files." - (when-let* ((tags (org-roam-node-tags node)) - (tags (cl-remove-if - (doom-rpartial - #'member (delq - nil (append - (list (bound-and-true-p org-archive-tag) - (bound-and-true-p org-attach-auto-tag)) - (bound-and-true-p org-num-skip-tags)))) - tags))) - tags)) + (cl-remove-if (doom-rpartial + #'member (delq + nil (append + (list (bound-and-true-p org-archive-tag) + (bound-and-true-p org-attach-auto-tag)) + (bound-and-true-p org-num-skip-tags)))) + (org-roam-node-tags node))) ;;;###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))