pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 08:14:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

Show minimal agenda. Maybe decrease friction in looking at tasks

Browse source
This commit is contained in:
Benson Chu 2021-04-07 20:40:13 -05:00
parent 134f97f633
commit 653cf97a77
1 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/org-config/my-org-agenda-commands.el
View file

@ -274,6 +274,28 @@
(:name "Today" :time-grid t (:name "Today" :time-grid t
:and (:not (:and (:not (:scheduled today) :and (:not (:and (:not (:scheduled today)
:not (:deadline today))))))))) :not (:deadline today)))))))))
("am" "\tMinimal agenda" agenda ""
((org-agenda-tag-filter-preset (quote ("+dev")))
(org-agenda-skip-function (lambda ()
(when (or (when-let (delayed (org-entry-get (point) "DELAYED"))
(org-time< (org-matcher-time "<now>") delayed))
(member (org-get-todo-state) '("HOLD" "TICKLER")))
(outline-next-heading))))
(org-super-agenda-groups '((:name "Delayed" :pred
((lambda (item)
(when-let (marker (or (get-text-property 0 'org-marker item)
(get-text-property 0 'org-hd-marker item)))
(with-current-buffer (marker-buffer marker)
(goto-char marker)
(and ;; (not (string-match-p "SCHEDULED" item))
(org-entry-get (point) "DELAYED")))))))
(:name "The Plan" :and (:tag "PLAN" :log nil))
(:name "Overdue" :and (:deadline past :log nil))
(:name "Upcoming" :and (:deadline future :not (:todo "DONE")))
(:name "Should do" :and (:scheduled past :log nil))
(:name "Today" :time-grid t
:and (:not (:and (:not (:scheduled today)
:not (:deadline today)))))))))
("p" . "\tProd") ("p" . "\tProd")
("pa" "\tAll" ,(production-agenda "time")) ("pa" "\tAll" ,(production-agenda "time"))
("ps" "\tschool" ,(production-agenda "school")) ("ps" "\tschool" ,(production-agenda "school"))