ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-org] Fixup stuck-projects and overview agenda views

Browse source
This commit is contained in:
Tom Willemse 2024-04-03 13:22:29 -07:00
parent 7c8bc8a6f2
commit f3d23e56c8
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
oni-org/oni-org.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 2024.0312.113546 ;; Version: 2024.0315.155036
;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-bullets org-edna diminish all-the-icons olivetti form-feed org-pretty-table ob-async org-ql org-super-agenda) ;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-bullets org-edna diminish all-the-icons olivetti form-feed org-pretty-table ob-async org-ql org-super-agenda)
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -1230,10 +1230,12 @@ same code all the time."
,value-name))))) ,value-name)))))
(oni-org--map-put org-agenda-custom-commands "P" (oni-org--map-put org-agenda-custom-commands "P"
'("Stuck projects" ((org-ql-block '(and (todo) (children (not (todo)))))))) '("Stuck projects" ((org-ql-block '(and (todo) (children) (not (children (todo))))))))
(oni-org--map-put org-agenda-custom-commands "o" (oni-org--map-put org-agenda-custom-commands "o"
'("Overview" ((org-ql-block '(and (todo) (children (not (todo)))) '("Overview" ((org-ql-block '(and (todo)
(children)
(not (children (todo))))
((org-ql-block-header "Stuck projects"))) ((org-ql-block-header "Stuck projects")))
(org-ql-block '(and (todo) (not (children))) (org-ql-block '(and (todo) (not (children)))
((org-super-agenda-groups '((:auto-parent))) ((org-super-agenda-groups '((:auto-parent)))