feat(emacs): Use map! to bind org-gtd keys

home/alex/programs/emacs/doom/config.el

@@ -56,7 +56,7 @@
 
 ;; This determines the style of line numbers in effect. If set to `nil', line
 ;; numbers are disabled. For relative line numbers, set this to `relative'.
-(setq display-line-numbers-type t)
+(setq display-line-numbers-type 'relative)
 
 ;; mouse
 ;; enable mouse reporting for terminal emulators
@@ -91,15 +91,16 @@
   :config
   (activities-mode)
   (activities-tabs-mode)
-  :bind
-  (("C-c a a" . #'activities-switch)
-   ("C-c C-a" . #'activities-switch)
-   ("C-c a n" . #'activities-new)
-   ("C-c a l" . #'activities-list)
-   ("C-c a s" . #'activities-save)
-   ("C-c a S" . #'activities-save-all)
-   ("C-c a R" . #'activities-revert)
-   ("C-c a r" . #'activities-resume)
+  (map!
+   (:prefix ("C-c a" . "Activities")
+    :desc "Switch activity" "a" #'activities-switch
+    :desc "Resume activity" "r" #'activities-resume
+    :desc "Create new activity" "n" #'activities-new
+    :desc "List activities" "l" #'activities-list
+    :desc "Save current activity " "s" #'activities-save
+    :desc "Save all activities" "S" #'activities-save-all
+    :desc "Revert activity to default" "R" #'activities-revert
+    )
    )
   )
 
@@ -171,7 +172,7 @@
   (org-edna-mode)
   (map! :leader
         :desc "Capture"        "X"  #'org-gtd-capture
-        (:prefix ("d" . "org-gtd")
+        (:prefix ("d" . "GTD")
          :desc "Capture"        "c"  #'org-gtd-capture
          :desc "Engage"         "e"  #'org-gtd-engage
          :desc "Process inbox"  "p"  #'org-gtd-process-inbox
@@ -184,13 +185,15 @@
          ))
   (map! :map org-gtd-clarify-map
         :desc "Organize this item" "C-c C-c" #'org-gtd-organize)
-  :bind
-  (("C-c d c" . #'org-gtd-capture)
-   ("C-c d e" . #'org-gtd-engage)
-   ("C-c d p" . #'org-gtd-process-inbox)
-   ("C-c d n" . #'org-gtd-show-all-next)
-   ("C-c d r p" . #'org-gtd-review-stuck-projects))
-  )
+  (map! (:prefix ("C-c d" . "GTD")
+         :desc "Capture"        "c"  #'org-gtd-capture
+         :desc "Engage"         "e"  #'org-gtd-engage
+         :desc "Process inbox"  "p"  #'org-gtd-process-inbox
+         :desc "Show all next"  "n"  #'org-gtd-show-all-next
+         (:prefix ("r" . "Review")
+          :desc "Stuck projects" "p"  #'org-gtd-review-stuck-projects
+          :desc "Stuck actions" "a"  #'org-gtd-review-stuck-single-action-items
+          :desc "Stuck habits" "h"  #'org-gtd-review-stuck-habit-items))))
 
 (defun ak/org-roam-node-insert-immediate (arg &rest args)
   (interactive "P")