From 4772ad922d57429ed0d1b3e6c77444885bd9cb54 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Fri, 18 Aug 2023 03:23:36 -0600
Subject: [PATCH] [Emacs] Use org-agenda-transient

---
 dotfiles/emacs.d/README.org | 66 ++++++++++++++++++++-----------------
 1 file changed, 35 insertions(+), 31 deletions(-)

diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org
index 8702c614..c2aa81a2 100644
--- a/dotfiles/emacs.d/README.org
+++ b/dotfiles/emacs.d/README.org
@@ -3017,8 +3017,20 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877
 #+BEGIN_SRC emacs-lisp :tangle org-config.el
 (defvar imalison:org-dir "~/org")
 (use-package org
-  :bind (:map org-mode-map
-              (("C-e" . end-of-visual-line)))
+  :commands (org-mode org org-mobile-push org-mobile-pull org-agenda)
+  :mode ("\\.org\\'" . org-mode)
+  :bind (("C-c c" . org-capture)
+         :map org-mode-map
+         (("C-e" . end-of-visual-line)
+          ("C-c n t" . org-insert-todo-heading)
+          ("C-c n s" . org-insert-todo-subheading)
+          ("C-c n h" . org-insert-habit)
+          ("C-c n m" . org-make-habit)
+          ("C-c n l" . org-store-link)
+          ("C-c n i" . org-insert-link)
+          ("C-c C-t" . org-todo)
+          ("C-c C-S-t" . org-todo-force-notes)
+          ("M-." . elisp-slime-nav-find-elisp-thing-at-point)))
   :preface
   (progn
     (require 'cl-lib)
@@ -3040,6 +3052,20 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877
     (add-hook 'org-mode-hook (lambda () (setq org-todo-key-trigger t)))
     (add-hook 'org-agenda-mode-hook 'imalison:disable-linum-mode)
 
+    (cl-defun imalison:org-time-condition-met-p (&key (property "CREATED") (days 30) (future nil))
+      (let* ((property-value (org-entry-get (point) property))
+             (comparison-time
+              (if future
+                  (time-add (current-time) (days-to-time days))
+                (time-subtract (current-time) (days-to-time days))))
+             (formatted-time-string (format-time-string "<%Y-%m-%d %H:%M>" comparison-time))
+             (compare-time (org-time-string-to-time formatted-time-string))
+             (node-time (when property-value (org-time-string-to-time property-value))))
+        (when node-time
+          (if future
+              (time-less-p node-time compare-time)
+            (time-less-p compare-time node-time)))))
+
     (defun org-archive-if (condition-function)
       (if (funcall condition-function)
           (let ((next-point-marker
@@ -3131,20 +3157,6 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877
   the same tree node, and the headline of the tree node in the Org-mode file."
       (interactive "P")
       (org-agenda-todo "DONE")))
-  :commands (org-mode org org-mobile-push org-mobile-pull org-agenda)
-  :mode ("\\.org\\'" . org-mode)
-  :bind (("C-c a" . org-agenda)
-         ("C-c c" . org-capture)
-         :map org-mode-map
-         ("C-c n t" . org-insert-todo-heading)
-         ("C-c n s" . org-insert-todo-subheading)
-         ("C-c n h" . org-insert-habit)
-         ("C-c n m" . org-make-habit)
-         ("C-c n l" . org-store-link)
-         ("C-c n i" . org-insert-link)
-         ("C-c C-t" . org-todo)
-         ("C-c C-S-t" . org-todo-force-notes)
-         ("M-." . elisp-slime-nav-find-elisp-thing-at-point))
   :config
   (progn
     (setq org-global-properties
@@ -3338,20 +3350,6 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877
     :STYLE: habit
     :END:"))
 
-    (cl-defun imalison:org-time-condition-met-p (&key (property "CREATED") (days 30) (future nil))
-      (let* ((property-value (org-entry-get (point) property))
-             (comparison-time
-              (if future
-                  (time-add (current-time) (days-to-time days))
-                (time-subtract (current-time) (days-to-time days))))
-             (formatted-time-string (format-time-string "<%Y-%m-%d %H:%M>" comparison-time))
-             (compare-time (org-time-string-to-time formatted-time-string))
-             (node-time (when property-value (org-time-string-to-time property-value))))
-        (when node-time
-          (if future
-              (time-less-p node-time compare-time)
-            (time-less-p compare-time node-time)))))
-
     (defmacro imalison:def-agenda-pred (&rest forms)
       `(lambda ()
          (unless ,@forms
@@ -3388,7 +3386,9 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877
              ((org-agenda-overriding-header "Recently Created:")
               (org-agenda-skip-function
                ,(imalison:def-agenda-pred
-                 (imalison:org-time-condition-met-p :property "DEADLINE" :days 10))))))
+                 (imalison:org-time-condition-met-p :days 10)))
+              (org-agenda-cmp-user-defined 'org-cmp-creation-times)
+              (org-agenda-sorting-strategy '(user-defined-down)))))
           (next '(todo "NEXT"))
           (started '(todo "STARTED"))
           (missing-deadline
@@ -3422,6 +3422,10 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877
                ((org-agenda-overriding-header
                  "At least priority C:"))))))
 
+    (require 'org-agenda)
+    (when (fboundp 'org-agenda-transient)
+      (bind-key "C-c a" 'org-agenda-transient))
+
     ;; What follows is a description of the significance of each of
     ;; the values available in `org-todo-keywords'. All headings with
     ;; one of these keywords deal with the concept of the completion