Add agenda

1 files changed, 18 insertions, 1 deletions

diff --git a/2022/organizers-notebook.org b/2022/organizers-notebook.org
index 1347947f..0d3bdb09 100644
--- a/2022/organizers-notebook.org
+++ b/2022/organizers-notebook.org
@@ -21,7 +21,7 @@ General:
 - [[elisp:(org-babel-ref-resolve "i-like-danger()")][I’m okay trading off security for convenience]] / [[elisp:(org-babel-ref-resolve "back-to-safety()")][Bring me back to safety]]
   - [[elisp:(org-babel-ref-resolve "elisp-no-confirmation")][Do not ask for confirmation when evaluating elisp links or org-babel blocks]] (Risky)
 - [[elisp:(org-babel-execute-buffer)][Execute buffer]] (Risky and unreliable for now)
-
+- [[elisp:(emacsconf-show-my-agenda)][Show my agenda]]  
 Export:
 - [[elisp:(progn (org-md-export-to-markdown) (org-babel-tangle))][Export and tangle]]
 - [[elisp:(emacsconf-org-publish-this-page)][Export, tangle, commit, push]]
@@ -1884,6 +1884,23 @@ Meant to be used with `after-save-hook'."
 (unless (memq #'emacsconf-export-md-on-save after-save-hook)
   (message "Hook is no longer active"))
 #+end_src
+** Review agenda
+#+begin_src emacs-lisp :results silent
+(defcustom emacsconf-org-tag nil "Tag for your nick, for easier agenda filtering"
+  :group 'emacsconf
+  :type 'string)
+#+end_src
+#+begin_src emacs-lisp :results silent
+(defun emacsconf-show-my-agenda ()
+  (interactive)
+  (let* ((org-agenda-files (list (buffer-file-name)))
+         (tag-filter (if emacsconf-org-tag (concat "+" emacsconf-org-tag) ""))
+         (org-agenda-tag-filter-preset (list (when emacsconf-org-tag (concat "+" emacsconf-org-tag))))
+         (org-agenda-custom-commands `(("a" "Agenda"
+                                        ((agenda ,tag-filter)
+                                         (tags-todo ,(concat tag-filter "-SCHEDULED={.+}-DEADLINE={.+}")))))))
+    (org-agenda nil "a")))
+#+end_src
 * Lessons learned  
 :PROPERTIES:
 :CUSTOM_ID: lessons