mirror of
https://git.sr.ht/~magic_rb/dotfiles
synced 2024-11-25 01:26:14 +01:00
34 lines
921 B
Org Mode
34 lines
921 B
Org Mode
|
: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
|
||
|
|
|
||
|
|
|