ryuslash/emacs-config
1
0
Fork 0
Code Activity

Add Stuck projects and overview agenda commands

Browse source
This commit is contained in:
Tom Willemse 2024-03-12 11:36:32 -07:00
parent 2011414821
commit 15e555bb5e
1 changed files with 17 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -4,8 +4,8 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 2024.0201.164329 ;; Version: 2024.0312.113546
;; 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) ;; 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
;; it under the terms of the GNU General Public License as published by ;; it under the terms of the GNU General Public License as published by
@ -47,7 +47,9 @@
(require 'org-faces) (require 'org-faces)
(require 'org-habit) (require 'org-habit)
(require 'org-protocol) (require 'org-protocol)
(require 'org-ql)
(require 'org-roam) (require 'org-roam)
(require 'org-super-agenda)
(require 'range) (require 'range)
(require 'subr-x) (require 'subr-x)
(require 'yasnippet) (require 'yasnippet)
@ -555,6 +557,7 @@ also move point to the start of the heading."
(add-hook 'org-mode-hook 'yas-minor-mode) (add-hook 'org-mode-hook 'yas-minor-mode)
(org-edna-mode) (org-edna-mode)
(org-super-agenda-mode)
(unless (eq system-type 'windows-nt) (unless (eq system-type 'windows-nt)
(require 'org-bullets) (require 'org-bullets)
@ -1226,6 +1229,18 @@ same code all the time."
(map-insert ,collection ,key-name ,value-name)) (map-insert ,collection ,key-name ,value-name))
,value-name))))) ,value-name)))))
(oni-org--map-put org-agenda-custom-commands "P"
'("Stuck projects" ((org-ql-block '(and (todo) (children (not (todo))))))))
(oni-org--map-put org-agenda-custom-commands "o"
'("Overview" ((org-ql-block '(and (todo) (children (not (todo))))
((org-ql-block-header "Stuck projects")))
(org-ql-block '(and (todo) (not (children)))
((org-super-agenda-groups '((:auto-parent)))
(org-ql-block-header "Todo")))
(agenda ""
((org-agenda-span 3))))))
(oni-org--map-put org-capture-templates "t" (oni-org--map-put org-capture-templates "t"
'("A simple TODO item." entry (file "") "* TODO %? '("A simple TODO item." entry (file "") "* TODO %?
:PROPERTIES: :PROPERTIES: