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

Leisure agenda file

Browse source
This commit is contained in:
Benson Chu 2022-04-09 11:15:37 -05:00
parent 67c682930c
commit 6897c24349
2 changed files with 42 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -204,6 +204,47 @@
:and (:not (:and (:not (:scheduled today)
:not (:deadline today))))))))))
((org-agenda-start-with-log-mode '(closed))))
("l" "\tLeisure"
((org-ql-block '(and (tags "leisure")
(todo "TODO" "ONE" "META" "META1" "EMPTY" "SEQ")
(property "DELAYED")
(org-time< (property "DELAYED") (org-matcher-time "<now>")))
((org-ql-block-header "Previously Delayed")))
(my/org-ql-stuck-projects "leisure"
((org-ql-block-header "Stuck Projects")
(org-ql-indent-levels t)))
(my/org-ql-active-projects "leisure"
((org-ql-block-header "Active Projects")
(org-ql-indent-levels t)))
(org-ql-block '(and (tags "pinned")
(eq (opr/get-type) 'project))
((org-ql-block-header "Pinned Projects")
(org-ql-indent-levels t)
(org-use-tag-inheritance nil)))
(agenda ""
((org-agenda-tag-filter-preset (quote ("+leisure")))
(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))))))))))
((org-agenda-start-with-log-mode '(closed))
(org-agenda-files `(,(my/agenda-file "leisure.org")))))
("t" "\tTest"
((agenda ""
((org-agenda-tag-filter-preset (quote ("+dev")))

1
lisp/org-config/my-org-agenda-files.el
View file

@ -42,6 +42,7 @@
(defconst my/non-agenda-files
`(,(my/agenda-file "datetree.org")
,(my/agenda-file "reference.org")
,(my/agenda-file "leisure.org")
,(my/org-file "entries/journal.gpg")
,(my/org-file "entries/reviews.gpg")))