From 4b45ae51cae1d0be87cd680ca3b5f8f7c95e61ac Mon Sep 17 00:00:00 2001 From: Bobby Bingham Date: Sun, 3 May 2020 22:16:37 -0500 Subject: emacs: agenda tweaks --- emacs/.emacs.d/org-mode.el | 25 +++++++++++++++++-------- 1 file changed, 17 insertions(+), 8 deletions(-) (limited to 'emacs') 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))) -- cgit v1.2.3