sitemap

(->> [:select [nodes:id, nodes:title] :from nodes
              :where :not :exists [:select :null :from tags
                                           :where (and (= tags:node-id nodes:id)
                                                       (in tags:tag ["daily" "private"]))]
              :order-by nodes:title]
     (org-roam-db-query)
     (-map (cl-function (lambda ((id title))
                          (org-link-make-string (concat "id:" id) title)))))

(->> [:select [tags:tag, nodes:id, nodes:title] :from tags
              :join nodes :on (= tags:node-id nodes:id)
              :where :not :exists [:select :null :from tags
                                           :where (and (= tags:node-id nodes:id)
                                                       (in tags:tag ["daily" "private"]))]
              :order-by [tags:tag nodes:title]]
     (org-roam-db-query)
     (-group-by #'car)
     (-map (cl-function (lambda ((tag . nodes))
                          (->> nodes
                               (-map (cl-function (lambda ((tag id title))
                                                    (concat "- " (org-link-make-string (concat "id:" id) title) "\n"))))
                               (cons tag))))))