From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 24 Feb 2018 00:53:30 +0000 (-0800)
Subject: add dla/show-agenda
X-Git-Url: https://git.donarmstrong.com/?p=lib.git;a=commitdiff_plain;h=0cb94941bc3f8ad19e08a385e2bdf6b74cc70db5;hp=4a4e307fa000328dd7cc5007aee9e9a8ab823b74

add dla/show-agenda
---

diff --git a/emacs_el/configuration/don-configuration.org b/emacs_el/configuration/don-configuration.org
index 003c71d..a668579 100644
--- a/emacs_el/configuration/don-configuration.org
+++ b/emacs_el/configuration/don-configuration.org
@@ -1405,6 +1405,24 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
   (setq-default org-log-done 'time)
   (setq-default org-agenda-ndays 5)
 
+  (setq org-agenda-sticky t)
+  (defun dla/show-org-agenda ()
+    (interactive)
+    (let (agendabuffer
+          '(delq nil 
+                (mapcar (lambda (x)
+                          (and (string-match-p
+                                "\*Org Agenda.*\*"
+                                (buffer-name x))
+                               x)
+                          )
+                        (buffer-list))))
+      (if agendabuffer
+          (switch-to-buffer
+           (buffer-name agendabuffer))
+        (org-agenda-list)))
+      (delete-other-windows))
+
   ;; agenda configuration
   ;; Do not dim blocked tasks
   (setq org-agenda-dim-blocked-tasks nil)