summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--emacs-init.org20
1 files changed, 15 insertions, 5 deletions
diff --git a/emacs-init.org b/emacs-init.org
index 6f114fd..9b8802d 100644
--- a/emacs-init.org
+++ b/emacs-init.org
@@ -1821,11 +1821,13 @@ Switch projects and subprojects from NEXT back to TODO"
(org-src-window-setup 'current-window)
(org-src-fontify-natively t)
(org-src-tab-acts-natively t)
- (org-edit-src-content-indentation 0)
-)
+ (org-edit-src-content-indentation 0))
+(defun fpi/collect-org-directories-recursively (dir)
+ "Return list of all directories which contain .org files of DIR and its subdirectories"
+ (delete-dups (mapcar 'file-name-directory (directory-files-recursively dir "\.org$"))))
(use-package org-agenda
:custom
- (org-agenda-files (quote ("~/s/s.org" "~/sync" "~/.emacs.d/gcal.org" "~/.emacs.d/tr.org" "~/n.org")))
+ (org-agenda-files (fpi/collect-org-directories-recursively "~/sync"))
(org-deadline-warning-days 14)
(org-agenda-start-on-weekday nil)
(org-agenda-span 14)
@@ -1847,7 +1849,7 @@ Switch projects and subprojects from NEXT back to TODO"
;; See emacs.christianbaeuerlein.com/my-org-config.html
(org-agenda-block-separator 9472)
(org-agenda-custom-commands
- '(("n" "Agenda and all TODOs"
+ `(("n" "Agenda and all TODOs"
((todo "INPROGRESS"
((org-agenda-overriding-header "Inprogress Tasks")))
(agenda)
@@ -1874,7 +1876,15 @@ Switch projects and subprojects from NEXT back to TODO"
((org-agenda-overriding-header "Things to Watch")
(org-agenda-skip-function 'bh/skip-project-tasks)
(org-agenda-sorting-strategy
- '(todo-state-down effort-up))))))))
+ '(todo-state-down effort-up))))))
+ ("z" "Todos in org-roam-dir"
+ ((alltodo ""
+ ((org-agenda-files (fpi/collect-org-directories-recursively org-roam-directory))))))
+ ("c" "Agenda and all todos in current directory"
+ ((agenda ""
+ ((org-agenda-files (fpi/collect-org-directories-recursively default-directory))))
+ (alltodo ""
+ ((org-agenda-files (fpi/collect-org-directories-recursively default-directory))))))))
)
(use-package ob-core
:custom