gtd: use org-super-agenda

This commit is contained in:
Max Schlueter 2023-03-07 09:50:48 +01:00
parent 24ee323b04
commit 218a8023cb

71
gtd.el
View File

@ -61,43 +61,42 @@
(setq org-edna-use-inheritance t) (setq org-edna-use-inheritance t)
(org-edna-mode)) (org-edna-mode))
(setq org-agenda-window-setup 'current-window (use-package! org-super-agenda
org-agenda-restore-windows-after-quit t :after org
org-agenda-block-separator nil :config
org-agenda-compact-blocks t (setq org-agenda-window-setup 'current-window
org-agenda-start-with-log-mode t org-agenda-restore-windows-after-quit t
org-agenda-hide-tags-regexp "." org-agenda-block-separator nil
org-agenda-custom-commands org-agenda-compact-blocks t
'(("g" "Get Things Done (GTD)" org-agenda-start-with-log-mode t
((agenda "" org-agenda-hide-tags-regexp "."
((org-agenda-skip-function org-super-agenda-header-map (make-sparse-keymap)
org-agenda-custom-commands
'(("g" "Get Things Done (GTD)"
((agenda ""
((org-agenda-skip-function
'(org-agenda-skip-entry-if 'deadline)) '(org-agenda-skip-entry-if 'deadline))
(org-deadline-warning-days 0))) (org-deadline-warning-days 0)))
(tags "inbox" (tags "inbox" ((org-agenda-overriding-header "")
((org-agenda-prefix-format " %?-14t% s") (org-agenda-prefix-format " %?-14t% s")
(org-agenda-overriding-header "\nInbox\n"))) (org-super-agenda-groups
(todo "NEXT" '((:name "Inbox"
( :anything t)))))
;; (org-agenda-skip-function (alltodo "" ((org-agenda-overriding-header "")
;; '(org-agenda-skip-entry-if 'deadline)) (org-agenda-prefix-format " %i %-14:c ")
;; (org-agenda-prefix-format " %i %-12:c [%e] ") (org-agenda-sorting-strategy '(category-up))
(org-agenda-prefix-format " %i %-14:c ") (org-agenda-skip-function
(org-agenda-sorting-strategy '(category-up)) '(org-agenda-skip-entry-if 'scheduled))
(org-agenda-overriding-header "\nTasks\n"))) (org-super-agenda-groups
(todo "WAIT" '((:name "Deadlines"
((org-agenda-todo-ignore-with-date t) :deadline t)
(org-agenda-prefix-format " %i %-14:c ") (:name "Tasks"
(org-agenda-overriding-header "\nBlocked/Delegated\n"))) :todo "NEXT")
;; (agenda nil (:name "Blocked/Delegated"
;; ((org-agenda-entry-types '(:deadline)) :todo "WAIT")
;; (org-agenda-format-date "") (:name "Completed today"
;; (org-deadline-warning-days 7) :log 'closed)
;; (org-agenda-skip-function (:discard (:anything t)))))))))))
;; '(org-agenda-skip-entry-if 'notregexp "\\* NEXT"))
;; (org-agenda-overriding-header "\nDeadlines")))
(tags "CLOSED>=\"<today>\""
((org-agenda-prefix-format " %i %-14:c ")
(org-agenda-overriding-header "\nCompleted today\n")))))))
;; Automatically save gtd files after some actions on them ;; Automatically save gtd files after some actions on them
;; Taken from: https://www.labri.fr/perso/nrougier/GTD/index.html ;; Taken from: https://www.labri.fr/perso/nrougier/GTD/index.html