From 4b7751438351671a99cf698f685ac55acd8d86a1 Mon Sep 17 00:00:00 2001
From: fpi
Date: Sun, 7 Jun 2020 14:17:08 +0200
Subject: Add agenda view for roam-directory & current directory

Ideally the view for current-directory should be non-sticky..
---
 emacs-init.org | 20 +++++++++++++++-----
 1 file 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
-- 
cgit v1.2.3