X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=emacs_el%2Fconfiguration%2Fdon-configuration.org;h=a668579a58add428fc670a2f89e8d8b0e1072607;hb=0cb94941bc3f8ad19e08a385e2bdf6b74cc70db5;hp=aa6653bab706bd79e64ffd931a1787f53952f0cd;hpb=377c89e2123fab28c401953b2557b94dbef6731d;p=lib.git

diff --git a/emacs_el/configuration/don-configuration.org b/emacs_el/configuration/don-configuration.org
index aa6653b..a668579 100644
--- a/emacs_el/configuration/don-configuration.org
+++ b/emacs_el/configuration/don-configuration.org
@@ -387,7 +387,7 @@ value, scrolling continues until there is no more output.
   
     (bind-key "C-n"   #'company-select-next company-active-map)
     (bind-key "C-p"   #'company-select-previous company-active-map)
-    (bind-key "<tab>" #'company-complete company-active-map)
+    ; (bind-key "<tab>" #'company-complete company-active-map)
     (bind-key "M-?"   #'company-show-doc-buffer company-active-map)
     (bind-key "M-."   #'company-show-location company-active-map)
     (bind-key "M-/"   #'company-complete-common org-mode-map)
@@ -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)