el.secretario

Signed-off-by: main <magic_rb@redalder.org>

emacs-lisp/el_secretario.org

@@ -0,0 +1,33 @@
+:PROPERTIES:
+:header-args: emacs-lisp: :comments link :results none
+:ID:       3ed6a2d6-c84e-439c-aca6-6978dd82bd51
+:END:
+#+title: El Secretario
+#+filetags: emacs-load
+
+#+begin_src emacs-lisp :noweb yes
+  (use-package el-secretario
+    :straight (el-secretario :type git :host nil :repo "https://git.sr.ht/~magic_rb/el-secretario")
+    :defer t
+    :config
+    (setq el-secretario-session-end-hook nil)
+    (setq el-secretario-session-start-hook nil))
+#+end_src
+
+#+begin_src emacs-lisp
+  (defun el-secretario-emacs-lisp-review ()
+    "Review all Org-Roam nodes tagged as 'emacs-lisp'."
+    (interactive)
+    (el-secretario-start-session
+     (el-secretario-files-make-source
+      (seq-map #'car
+        (org-roam-db-query
+         [:select [nodes:file]
+          :from tags
+          :left-join nodes
+          :on (= tags:node-id nodes:id)
+          :where (like tag (quote "%\"emacs-load\""))]))
+      )))
+#+end_src
+
+