diff options
author | Bobby Bingham <koorogi@koorogi.info> | 2020-05-03 22:16:37 -0500 |
---|---|---|
committer | Bobby Bingham <koorogi@koorogi.info> | 2021-02-06 10:39:37 -0600 |
commit | 4b45ae51cae1d0be87cd680ca3b5f8f7c95e61ac (patch) | |
tree | 9b7ed7b3e57def4fc4af98e0ebe988035ca604dd /emacs/.emacs.d | |
parent | cf2cf240a8f089227b4d7834b98a28949bf72526 (diff) |
emacs: agenda tweaks
Diffstat (limited to 'emacs/.emacs.d')
-rw-r--r-- | emacs/.emacs.d/org-mode.el | 25 |
1 files changed, 17 insertions, 8 deletions
diff --git a/emacs/.emacs.d/org-mode.el b/emacs/.emacs.d/org-mode.el index 7d20389..8cd5713 100644 --- a/emacs/.emacs.d/org-mode.el +++ b/emacs/.emacs.d/org-mode.el @@ -10,19 +10,28 @@ (setq org-agenda-custom-commands '(("w" "Work Agenda" - ((agenda "" + ((org-ql-block '(clocked :on today) + ((org-ql-block-header "Clocked Today"))) + (agenda "" ((org-agenda-span 1) (org-agenda-sorting-strategy '(time-up scheduled-down priority-down deadline-up)) (org-super-agenda-groups '((:todo "WAIT" :order 9) (:anything t))))) - (org-ql-block '(todo "TLG") - ((org-ql-block-header "Time Logging"))) - (org-ql-block '(and (todo) - (not (todo "TLG")) - (not (deadline)) - (not (scheduled))) - ((org-ql-block-header "Some Day")))) + (alltodo "" + ((org-super-agenda-groups + '((:discard (:deadline t)) + (:discard (:scheduled t)) + (:name "Time Logging" :todo "TLG") + (:name "Some Day" :anything t))) + (org-agenda-overriding-header "")))) + ;;(org-ql-block '(todo "TLG") + ;; ((org-ql-block-header "Time Logging"))) + ;;(org-ql-block '(and (todo) + ;; (not (todo "TLG")) + ;; (not (deadline)) + ;; (not (scheduled))) + ;; ((org-ql-block-header "Some Day")))) ((org-agenda-files '("~/org/tasks/work")))) ("h" "Home Agenda" ((agenda "" ((org-agenda-span 1))) |