From cc48de3d92514b44492ed057ade65f5661c131f2 Mon Sep 17 00:00:00 2001
From: Charlotte Van Petegem <charlotte@vanpetegem.me>
Date: Sun, 26 Mar 2023 17:56:19 +0200
Subject: [PATCH] More org configuration

---
 modules/base/emacs/base-init.el | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/modules/base/emacs/base-init.el b/modules/base/emacs/base-init.el
index 71d24f66..585a7300 100644
--- a/modules/base/emacs/base-init.el
+++ b/modules/base/emacs/base-init.el
@@ -235,13 +235,19 @@
 
 ;; Org
 (use-package org
-  :init
-  (defun set-creation-date-heading-property () (org-set-property "CREATED" (format-time-string (org-time-stamp-format t t))))
   :hook
   (org-insert-heading . set-creation-date-heading-property)
   :custom
   (org-directory "~/sync/notes" "Store org journal in synced directory")
+  (org-default-notes-file (concat org-directory "/inbox.org") "Capture in inbox by default")
   (org-agenda-files '("~/sync/notes") "Let's say all files can contain events for now")
+  :demand t
+  :config
+  (defun find-file-in-org-directory ()
+    (interactive)
+    (ido-find-file-in-dir org-directory)
+    )
+  (defun set-creation-date-heading-property () (org-set-property "CREATED" (format-time-string (org-time-stamp-format t t))))
   :general
   (lmap
     :keymap 'org-mode-map
@@ -250,6 +256,11 @@
     "SPC >" '(org-demote-subtree :which-key "Increase level")
     "SPC c" '(orc-clone-subtree-with-time-shift :which-key "Repeat subtree")
     )
+  (lmap
+    "o a" '(org-agenda :which-key "Agenda")
+    "o t" '(org-todo-list :which-key "Todo list")
+    "o o" '(find-file-in-org-directory :which-key "Find org file")
+    )
   )
 
 ;; Sorting when filtering