From ee26c02e1c3b447b248f444b777f0cd2c8287edc Mon Sep 17 00:00:00 2001
From: Thomas Moulia <jtmoulia@pocketknife.io>
Date: Mon, 1 Mar 2021 20:04:41 -0800
Subject: [PATCH] Add org-agenda-priority keybindings to org config (#4521)

* Add org-agenda-priority keybindings to org config

Summary: This diff adds evil-esque keybindings for the org-agenda-priority
functions. These functions allow the org subtree priority to be set from
the agenda view.

* Correct org priority keybinds

These keys were meant to be on <localleader> p, but were mistakenly
bound on <localleader> s p.

Also mirrors these keybinds to org-agenda-mode-map.

* Use non-agenda org-priority commands

Also make casing in which-key labels more consistent.

Co-authored-by: Henrik Lissner <accounts@v0.io>
---
 modules/lang/org/config.el | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/modules/lang/org/config.el b/modules/lang/org/config.el
index f60556e49..7a14529dc 100644
--- a/modules/lang/org/config.el
+++ b/modules/lang/org/config.el
@@ -724,7 +724,6 @@ between the two."
         "I" #'org-toggle-inline-images
         "n" #'org-store-link
         "o" #'org-set-property
-        "p" #'org-priority
         "q" #'org-set-tags-command
         "t" #'org-todo
         "T" #'org-todo-list
@@ -830,7 +829,7 @@ between the two."
          "O" #'+org/refile-to-other-buffer
          "v" #'+org/refile-to-visible
          "r" #'org-refile) ; to all `org-refile-targets'
-        (:prefix ("s" . "Tree/Subtree")
+        (:prefix ("s" . "tree/subtree")
          "a" #'org-toggle-archive-tag
          "b" #'org-tree-to-indirect-buffer
          "d" #'org-cut-subtree
@@ -843,11 +842,11 @@ between the two."
          "s" #'org-sparse-tree
          "A" #'org-archive-subtree
          "N" #'widen
-         "S" #'org-sort
-         (:prefix ("p" . "Org Priority")
-          "d" #'org-priority-down
-          "p" #'org-priority
-          "u" #'org-priority-up)))
+         "S" #'org-sort)
+        (:prefix ("p" . "priority")
+         "d" #'org-priority-down
+         "p" #'org-priority
+         "u" #'org-priority-up))
 
   (map! :after org-agenda
         :map org-agenda-mode-map
@@ -863,6 +862,10 @@ between the two."
          "o" #'org-agenda-clock-out
          "r" #'org-agenda-clockreport-mode
          "s" #'org-agenda-show-clocking-issues)
+        (:prefix ("p" . "priority")
+         "d" #'org-agenda-priority-down
+         "p" #'org-agenda-priority
+         "u" #'org-agenda-priority-up)
         "q" #'org-agenda-set-tags
         "r" #'org-agenda-refile
         "t" #'org-agenda-todo))