home

commit fe13dd7a766c788377a2747ecb20e46d37a27752
parent 618d9130c74bc1cbb518bbe96bc2a940e829fc67
Author: Vincent Demeester <vincent@sbr.pm>
Date:   Fri, 10 Jul 2020 16:02:36 +0200

tools/emacs: bind org-agenda and reload func

Signed-off-by: Vincent Demeester <vincent@sbr.pm>

Diffstat:
M
tools/emacs/config/config-org.el
 | 
17
++++++++++++-----

1 file changed, 12 insertions(+), 5 deletions(-)
diff --git a/tools/emacs/config/config-org.el b/tools/emacs/config/config-org.el
@@ -32,7 +32,8 @@
   :commands (org-agenda org-capture)
   :bind (("C-c o l" . org-store-link)
          ("C-c o r r" . org-refile)
-         ("C-c o a" . org-agenda)
+         ("C-c o a a" . org-agenda)
+         ("C-c o a r" . my/reload-org-agenda-files)
          ("C-c o s" . org-sort)
          ("<f12>" . org-agenda)
          ("C-c o c" . org-capture)
@@ -59,9 +60,15 @@
     > _ \n
     > "* Introduction"
     )
-  (setq org-agenda-files `(,org-projects-dir
-                           "~/src/home"
-                           "~/src/www/")
+
+  (defun my/org-agenda-files ()
+    `(,org-projects-dir
+      "~/src/home"
+      "~/src/www/"))
+  (defun my/reload-org-agenda-files ()
+    (interactive)
+    (setq org-agenda-files (my/org-agenda-files)))
+  (setq org-agenda-files (my/org-agenda-files)
         org-agenda-file-regexp "^[a-zA-Z0-9-_]+.org$"
         org-use-speed-commands t
         org-special-ctrl-a/e t
@@ -183,7 +190,7 @@
 (use-package org-agenda
   :after org
   :commands (org-agenda)
-  :bind (("C-c o a" . org-agenda)
+  :bind (("C-c o a a" . org-agenda)
          ("<f12>" . org-agenda)
          ("C-c o r a" . org-agenda-refile))
   :config