awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-06 15:13:31 -05:00
Code Issues Packages Projects Releases Wiki Activity

Insert tags queries correctly for dblock headers

Browse Source
This commit is contained in:
Chris Barrett
2022-08-25 11:32:33 +12:00
parent 932cf7ca23
commit 0aa620453d
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org-roam-dblocks.el
View File

@@ -348,6 +348,14 @@ and old content."
;;;###autoload
(defalias 'org-dblock-write:notes #'org-roam-dblocks--write-content)
(defun org-roam-dblocks--read-tags-filter-for-dblock-args ()
(let* ((tags-filter (org-tags-filter-read))
(unpacked (append (seq-map (lambda (it) (concat "-" it)) (org-tags-filter-forbidden tags-filter))
(org-tags-filter-required tags-filter))))
(if (equal 1 (length unpacked))
(car unpacked)
unpacked)))
;;;###autoload
(defun org-insert-dblock:notes ()
"Insert a dynamic block org-roam notes at point."
@@ -356,7 +364,7 @@ and old content."
("Title Regexp Match"
(list :match (read-string "Match title (regexp): ")))
("Tags Filter"
(list :tags (format "(%s)" (org-tags-filter-pp (org-tags-filter-read))))))))
(list :tags (org-roam-dblocks--read-tags-filter-for-dblock-args))))))
(atomic-change-group
(org-create-dblock (append '(:name "notes") args))))
(org-update-dblock))