diff options
| author | Raul Benencia <rul@kalgan.cc> | 2023-02-08 11:54:01 -0800 |
|---|---|---|
| committer | Raul Benencia <rul@kalgan.cc> | 2023-02-13 15:55:37 -0800 |
| commit | 259fae280c5d10d08defaa03c8c86aa97ca59cf5 (patch) | |
| tree | 3f1a6abdd7882937900abc6af3f2985729c951c2 | |
| parent | 0f4ef638c481f4aea6497812fcb1fa3dc832d929 (diff) | |
emacs: do not show events on P agenda
| -rw-r--r-- | .emacs.local.d/modes/org.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/.emacs.local.d/modes/org.el b/.emacs.local.d/modes/org.el index 51b269e..ce4695a 100644 --- a/.emacs.local.d/modes/org.el +++ b/.emacs.local.d/modes/org.el @@ -112,6 +112,20 @@ (setq my-org-agenda-custom-commands `(("P" "Projects and tasks" ( + (agenda "" ( + (org-agenda-overriding-header "š Today's agenda\n") + (org-agenda-span 1) + (org-deadline-warning-days 0) + (org-agenda-block-separator nil) + (org-scheduled-past-days 0) + (org-agenda-skip-function '(org-agenda-skip-subtree-if + 'regexp "EVENT")) + ;; We don't need the `org-agenda-date-today' + ;; highlight because that only has a practical + ;; utility in multi-day views. + (org-agenda-day-face-function (lambda (date) 'org-agenda-date)) + (org-agenda-format-date "%A %-e %B %Y") + )) (tags-todo "-HOLD-CANCELLED/!" ((org-agenda-overriding-header "\nš¢ Projects") (org-agenda-skip-function 'bh/skip-non-projects) |