From e8ab0795308aaa1e0d45bd73343796aa7f7a6bdc Mon Sep 17 00:00:00 2001
From: rearman <rearman@r717.net>
Date: Thu, 9 May 2024 16:57:41 -0400
Subject: [PATCH] Re-arrnage org config, make custom agenda binding global

---
 init.org | 89 +++++++++++++++++++++++++++-----------------------------
 1 file changed, 43 insertions(+), 46 deletions(-)

diff --git a/init.org b/init.org
index ebba86b..c0e6c67 100644
--- a/init.org
+++ b/init.org
@@ -663,36 +663,6 @@ Make the =C-c C-j= binding more useful
       org-goto-max-level 9)
 #+END_SRC
 
-*** Bindings
-:PROPERTIES:
-:ID:       adf21035-f2f1-443b-a599-4ce4f282a2ff
-:END:
-**** Global
-:PROPERTIES:
-:ID:       3281906e-1f44-4abb-9f9d-0a0a39221752
-:END:
-The usual bindings.
-#+BEGIN_SRC emacs-lisp
-(keymap-global-set "C-c l" 'org-store-link)
-(keymap-global-set "C-c a" 'org-agenda)
-(keymap-global-set "C-c c" 'org-capture)
-(keymap-global-set "C-c b" 'org-switchb)
-#+END_SRC
-
-**** Mode-Specific
-:PROPERTIES:
-:ID:       99906320-74b0-4414-8d87-1ce1ddddad97
-:END:
-Give me logical in/out-denting on the easier binding, since I use that more often.
-#+BEGIN_SRC emacs-lisp
-(add-hook 'org-mode-hook
-          (lambda ()
-            (keymap-set org-mode-map "M-<right>" 'org-shiftmetaright)
-            (keymap-set org-mode-map "M-<left>" 'org-shiftmetaleft)
-            (keymap-set org-mode-map "M-S-<right>" 'org-metaright)
-            (keymap-set org-mode-map "M-S-<left>" 'org-metaleft)))
-#+END_SRC
-
 *** Special keys & subtree yanking
 :PROPERTIES:
 :ID:       396b69c0-7078-420a-9be3-5bf478a87584
@@ -835,22 +805,6 @@ Resume clocking when emacs restarts, save&load running clock and history on exit
       org-pretty-entities t)
 #+END_SRC
 
-**** Custom Agenda on Single key
-:PROPERTIES:
-:ID:       c921d7e6-63ef-4a89-851a-0f3a122e9fa0
-:END:
-Stolen from [[https://emacs.stackexchange.com/questions/864/how-to-bind-a-key-to-a-specific-agenda-command-list-in-org-mode][Stack Exchange]]
-#+BEGIN_SRC emacs-lisp
-(defun org-agenda-show-custom (&optional arg)
-  "Show my custom agenda."
-  (interactive "P")
-  (org-agenda arg " "))
-
-(add-hook 'org-mode-hook
-          (lambda ()
-            (keymap-set org-mode-map "<f2>" 'org-agenda-show-custom)))
-#+END_SRC
-
 *** Templates
 :PROPERTIES:
 :ID:       ab7c773c-5a03-4c7b-be8a-318f2b3fd0db
@@ -1088,6 +1042,49 @@ Stolen from https://github.com/larstvei/dot-emacs."
 (add-hook 'after-save-hook 'tangle-init)
 #+END_SRC
 
+*** Custom Agenda on Single key
+:PROPERTIES:
+:ID:       c921d7e6-63ef-4a89-851a-0f3a122e9fa0
+:END:
+Stolen from [[https://emacs.stackexchange.com/questions/864/how-to-bind-a-key-to-a-specific-agenda-command-list-in-org-mode][Stack Exchange]]
+#+BEGIN_SRC emacs-lisp
+(defun org-agenda-show-custom (&optional arg)
+  "Show my custom agenda."
+  (interactive "P")
+  (org-agenda arg " "))
+#+END_SRC
+
+*** Bindings
+:PROPERTIES:
+:ID:       adf21035-f2f1-443b-a599-4ce4f282a2ff
+:END:
+**** Global
+:PROPERTIES:
+:ID:       3281906e-1f44-4abb-9f9d-0a0a39221752
+:END:
+The usual bindings.
+#+BEGIN_SRC emacs-lisp
+(keymap-global-set "C-c l" 'org-store-link)
+(keymap-global-set "C-c a" 'org-agenda)
+(keymap-global-set "C-c c" 'org-capture)
+(keymap-global-set "C-c b" 'org-switchb)
+(keymap-global-set "<f2>" 'org-agenda-show-custom)
+#+END_SRC
+
+**** Mode-Specific
+:PROPERTIES:
+:ID:       99906320-74b0-4414-8d87-1ce1ddddad97
+:END:
+Give me logical in/out-denting on the easier binding, since I use that more often.
+#+BEGIN_SRC emacs-lisp
+(add-hook 'org-mode-hook
+          (lambda ()
+            (keymap-set org-mode-map "M-<right>" 'org-shiftmetaright)
+            (keymap-set org-mode-map "M-<left>" 'org-shiftmetaleft)
+            (keymap-set org-mode-map "M-S-<right>" 'org-metaright)
+            (keymap-set org-mode-map "M-S-<left>" 'org-metaleft)))
+#+END_SRC
+
 ** Dired configuration
 :PROPERTIES:
 :ID:       245c157b-036f-4489-b221-193691a7f94b
-- 
2.39.5