diff --git a/emacs-lisp/el_secretario.org b/emacs-lisp/el_secretario.org new file mode 100644 index 0000000..2e93679 --- /dev/null +++ b/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 + +