summaryrefslogtreecommitdiffstats
path: root/2022
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-09-29 10:01:45 -0400
committerSacha Chua <sacha@sachachua.com>2022-09-29 10:01:45 -0400
commitb3d8f4d95c5f94981a0249913141aece0ec64758 (patch)
treefeb71323ad39532b67411422e49bf0dc1fa03bd2 /2022
parent78b7aa5face4489abf05d0d2c0e9186e5386ed9a (diff)
downloademacsconf-wiki-b3d8f4d95c5f94981a0249913141aece0ec64758.tar.xz
emacsconf-wiki-b3d8f4d95c5f94981a0249913141aece0ec64758.zip
Add agenda
Diffstat (limited to '')
-rw-r--r--2022/organizers-notebook.org19
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