colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Emacs] Rearrange agenda commands

Browse Source
This commit is contained in:
Ivan Malison 2023-09-13 20:10:52 -06:00
parent 75d5807893
commit 4bee02686e
1 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
dotfiles/emacs.d/org-config.org
View File

@ -399,19 +399,16 @@ We're going to use this to write separate parts of our config to different secti
#+end_src #+end_src
*** Agenda Commands (Views) *** Agenda Commands (Views)
#+begin_src emacs-lisp :tangle org-config-config.el #+begin_src emacs-lisp :tangle org-config-config.el
(let ((this-week-high-priority (let ((high-priority
;; The < in the following line has behavior that is opposite ;; The < in the following line has behavior that is opposite
;; to what one might expect. ;; to what one might expect.
`(tags-todo `(tags-todo
"+PRIORITY<\"C\"" "+PRIORITY<\"C\""
((org-agenda-overriding-header "Upcoming high priority tasks:") ((org-agenda-overriding-header "High priority tasks:")
(org-agenda-skip-function (org-agenda-skip-function
,(imalison:def-agenda-pred ,(imalison:def-agenda-pred
(or (not (org-is-habit-p))))
(imalison:org-time-condition-met-p )))
:property "DEADLINE" :days 7 :future t)
(imalison:org-time-condition-met-p
:property "SCHEDULED" :days 7 :future t)))))))
(due-today (due-today
`(alltodo `(alltodo
"" ""
@ -462,13 +459,13 @@ We're going to use this to write separate parts of our config to different secti
(org-agenda-ndays 5) (org-agenda-ndays 5)
(org-deadline-warning-days 0) (org-deadline-warning-days 0)
(org-agenda-skip-function 'imalison:assigned-to-me-agenda-pred))) (org-agenda-skip-function 'imalison:assigned-to-me-agenda-pred)))
,high-priority
,all-habits ,all-habits
,next ,next
,inbox ,recently-created
,this-week-high-priority ,inbox)
,recently-created)
nil nil) nil nil)
,(cons "A" (cons "High priority upcoming" this-week-high-priority)) ,(cons "A" (cons "High priority" high-priority))
,(cons "d" (cons "Overdue tasks and due today" due-today)) ,(cons "d" (cons "Overdue tasks and due today" due-today))
,(cons "r" (cons "Recently created" recently-created)) ,(cons "r" (cons "Recently created" recently-created))
("h" "A, B priority:" tags-todo "+PRIORITY<\"C\"" ("h" "A, B priority:" tags-todo "+PRIORITY<\"C\""
@ -479,10 +476,10 @@ We're going to use this to write separate parts of our config to different secti
"At least priority C:"))) "At least priority C:")))
("l" "Completions" ("l" "Completions"
. (agenda "" . (agenda ""
((org-agenda-overriding-header "Completion History:") ((org-agenda-overriding-header "Completion History:")
(org-agenda-ndays 5) (org-agenda-ndays 5)
(org-agenda-entry-types '(:none)) (org-agenda-entry-types '(:none))
(org-agenda-start-with-log-mode '(state)))))))) (org-agenda-start-with-log-mode '(state))))))))
#+end_src #+end_src
*** Filters *** Filters
**** Regexp Presets **** Regexp Presets