diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-09-29 10:01:45 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-09-29 10:01:45 -0400 |
| commit | b3d8f4d95c5f94981a0249913141aece0ec64758 (patch) | |
| tree | feb71323ad39532b67411422e49bf0dc1fa03bd2 /2022 | |
| parent | 78b7aa5face4489abf05d0d2c0e9186e5386ed9a (diff) | |
| download | emacsconf-wiki-b3d8f4d95c5f94981a0249913141aece0ec64758.tar.xz emacsconf-wiki-b3d8f4d95c5f94981a0249913141aece0ec64758.zip | |
Add agenda
Diffstat (limited to '')
| -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 |