share.el

(use-package consult-notes
  :commands (consult-notes
             consult-notes-org-roam-find-node
             consult-notes-org-roam-find-node-relation)
  :config
  (consult-notes-org-roam-mode))


(after! org-agenda
  (use-package! org-roam
    :config
    (m/org-roam-refresh-agenda-list)))

(defun m/org-roam-filter-by-tag (tag-name)
  (lambda (node)
    (member tag-name (org-roam-node-tags node))))

(defun m/org-roam-list-notes-by-tag (tag-name)
  (mapcar #'org-roam-node-file
          (seq-filter
           (m/org-roam-filter-by-tag tag-name)
           (org-roam-node-list))))

(defun m/org-roam-refresh-agenda-list ()
  (interactive)
  (setq org-agenda-files
        (cons (expand-file-name org-roam-dailies-directory org-roam-directory)
              (m/org-roam-list-notes-by-tag "proj"))))