diff options
| -rw-r--r-- | 2022/organizers-notebook.org | 19 |
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 |