awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-08-31 14:43:33 -05:00
Code Issues Packages Projects Releases Wiki Activity

Teach org-roam-search to respect tags filters

Browse Source
This commit is contained in:
Chris Barrett
2022-09-24 19:09:21 +12:00
parent d8db5ccf84
commit ce9e35f9cf
1 changed files with 35 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
lisp/org-roam-search.el
View File

@@ -195,40 +195,41 @@ QUERY is a PRCE regexp string that will be passed to ripgrep."
(not (string-prefix-p "(" input)))
(format "(%s)" input)
input))))
(org-roam-review-display-buffer-and-select
(org-roam-review-create-buffer
:title (format "Search Results: %s" query)
:placeholder "No search results"
:buffer-name org-roam-search-buffer-name
:nodes
(lambda ()
(org-roam-search--ripgrep-for-nodes query))
:render
(-lambda ((&plist :nodes :placeholder :root-section))
(cond
((null nodes)
(insert placeholder)
(newline))
(t
(pcase-dolist (`(,_file . ,group) (seq-group-by #'org-roam-node-file nodes))
(when-let* ((top-node (-max-by (-on #'< #'org-roam-node-level)
group) )
(node-id (org-roam-node-id top-node))
(heading (org-link-display-format (org-roam-node-title top-node))))
(magit-insert-section section (org-roam-node-section node-id t)
(magit-insert-heading
(concat (propertize heading 'font-lock-face 'magit-section-heading)
" "
(when-let* ((mat (org-roam-review-node-maturity top-node)))
(alist-get mat org-roam-review-maturity-emoji-alist nil nil #'equal))))
(oset section parent root-section)
(oset section node top-node)
(oset section washer
(lambda ()
(org-roam-review-insert-preview top-node)
(org-roam-search--highlight-matches query)
(magit-section-maybe-remove-visibility-indicator section))))))
(org-roam-search--highlight-matches query)))))))
(let ((nodes (org-roam-search--ripgrep-for-nodes query)))
(org-roam-review-display-buffer-and-select
(org-roam-review-create-buffer
:title (format "Search Results: %s" query)
:placeholder "No search results"
:buffer-name org-roam-search-buffer-name
:nodes
(lambda ()
(seq-remove #'org-roam-review-node-ignored-p nodes))
:render
(-lambda ((&plist :nodes :placeholder :root-section))
(cond
((null nodes)
(insert placeholder)
(newline))
(t
(pcase-dolist (`(,_file . ,group) (seq-group-by #'org-roam-node-file nodes))
(when-let* ((top-node (-max-by (-on #'< #'org-roam-node-level)
group) )
(node-id (org-roam-node-id top-node))
(heading (org-link-display-format (org-roam-node-title top-node))))
(magit-insert-section section (org-roam-node-section node-id t)
(magit-insert-heading
(concat (propertize heading 'font-lock-face 'magit-section-heading)
" "
(when-let* ((mat (org-roam-review-node-maturity top-node)))
(alist-get mat org-roam-review-maturity-emoji-alist nil nil #'equal))))
(oset section parent root-section)
(oset section node top-node)
(oset section washer
(lambda ()
(org-roam-review-insert-preview top-node)
(org-roam-search--highlight-matches query)
(magit-section-maybe-remove-visibility-indicator section))))))
(org-roam-search--highlight-matches query))))))))
;;;###autoload
(defun org-roam-search-tags (query)