From cfb9fd37f61f421a6027fbc8bd2fcd5cf68b4cfd Mon Sep 17 00:00:00 2001 From: Guangxiong Lin Date: Thu, 7 Jul 2022 22:52:22 +0800 Subject: Update emacs config --- .emacs.d/lisp/init-org-agenda.el | 21 +++++++-------------- 1 file changed, 7 insertions(+), 14 deletions(-) (limited to '.emacs.d/lisp/init-org-agenda.el') diff --git a/.emacs.d/lisp/init-org-agenda.el b/.emacs.d/lisp/init-org-agenda.el index 4f047cd..18b2441 100644 --- a/.emacs.d/lisp/init-org-agenda.el +++ b/.emacs.d/lisp/init-org-agenda.el @@ -12,19 +12,6 @@ (org-agenda-log-mode-items '(state clock closed)))) "A block showing my schedule and logged tasks for this week.") -(defvar gx/org-agenda-block--stuck-projects - '(org-ql-block '(and (or (tags "PROJECT") - (not (ancestors (todo)))) - (todo) - (not (done)) - (not (todo "SOMEDAY")) - (not (todo "NEXT")) - (not (scheduled)) - (not (descendants (todo "NEXT"))) - (not (descendants (scheduled)))) - ((org-ql-block-header "Stuck Projects"))) - "A block showing stuck projects.") - (defvar gx/org-agenda-block--unwilling-to-do '(tags-todo "UNWILLING" ((org-agenda-overriding-header "Unwilling to do"))) @@ -58,6 +45,12 @@ ((org-ql-block-header "Next unscheduled tasks"))) "A block showing next unscheduled tasks.") +(defvar gx/org-agenda-block--inbox + '(tags "INBOX" + ((org-agenda-overriding-header "INBOX:") + (org-tags-match-list-sublevels nil))) + "A block showing my tasks in INBOX.") + (defvar gx/org-agenda-block--display-settings '((org-agenda-todo-ignore-deadlines 'near) (org-agenda-todo-ignore-scheduled t)) @@ -144,11 +137,11 @@ (setq org-agenda-custom-commands `((" " "Daily agenda and all important TODOs" (,gx/org-agenda-block--today-schedule + ,gx/org-agenda-block--inbox ,gx/org-agenda-block--attention ,gx/org-agenda-block--unwilling-to-do ;; (tags-todo "computer|@office|phone") ;; (tags "PROJECT+CATEGORY=\"elephants\"") - ,gx/org-agenda-block--stuck-projects ,gx/org-agenda-block--next-not-scheduled ,gx/org-agenda-block--waiting-not-scheduled) ,gx/org-agenda-block--display-settings) -- cgit v1.2.3