diff options
| -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))) |