Refine Org agenda editing workflow

1 files changed, 13 insertions, 6 deletions

diff --git a/init.el b/init.el
index d0028c9..586fac2 100644
--- a/init.el
+++ b/init.el
@@ -8,6 +8,9 @@
 (require 'seq)
 (require 'subr-x)
 
+(defvar org-agenda-mode-map)
+(declare-function org-agenda-tree-to-indirect-buffer "org-agenda" (&optional arg))
+
 ;; --------------------------------------------------
 ;; Core paths
 ;; --------------------------------------------------
@@ -953,13 +956,13 @@
         org-agenda-window-setup 'only-window
         org-startup-folded 'overview
         org-cycle-hide-drawer-startup t
-        
+
         org-log-done 'time
         org-log-into-drawer "LOGBOOK"
         org-drawers '("PROPERTIES" "LOGBOOK")
-        
+
         org-todo-keywords
-        '((sequence "TODO(t)" "IN-PROGRESS(i@/!)" "WAIT(w@/!)" "|" "DONE(d@)")
+        '((sequence "TODO(t)" "IN-PROGRESS(i@/!)" "WAIT(w@/!)" "|" "DONE(d@)" "OBE(o@)")
           (sequence "CLARIFY(c@)" "WAIT(w@/!)" "|" "ANSWERED(a@)"))
 
         org-todo-keyword-faces
@@ -970,7 +973,7 @@
           ("WAIT" . (:foreground "Red" :weight bold))
           ("DONE" . (:foreground "LimeGreen" :weight bold))
           ("ANSWERED" . (:foreground "LimeGreen" :weight bold)))
-        
+
         org-use-speed-commands t
         org-refile-use-outline-path 'file
         org-outline-path-complete-in-steps nil
@@ -986,6 +989,10 @@
   (add-to-list 'display-buffer-alist
            '("\\*Org Capture\\*" (display-buffer-reuse-window display-buffer-same-window)))
 
+  (with-eval-after-load 'org-agenda
+    (define-key org-agenda-mode-map (kbd "TAB")
+                #'org-agenda-tree-to-indirect-buffer))
+
   (add-hook 'org-capture-mode-hook
             (lambda () (delete-other-windows))))
 
@@ -997,11 +1004,11 @@
       `(("i" "Inbox" entry
          (file+headline ,org-default-notes-file "Inbox")
          "* %?\n:PROPERTIES:\n:CAPTURED: %U\n:END:\n%a\n")
-        
+
         ("b" "Bookmark" entry
          (file+headline ,org-default-notes-file "Bookmarks")
          "* %?\n")
-        
+
         ("t" "Task" entry
          (file+headline ,org-default-notes-file "Tasks")
          "* TODO %?\n:PROPERTIES:\n:CAPTURED: %U\n:END:\n%a\n")