X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=emacs_el%2Fconfiguration%2Fdon-configuration.org;h=128a5972b579c92c14b3feb5b91ca2aafa296f32;hb=fae8f0ba131478924f88fe3edc6eae8226d48233;hp=3313bcc1c33c02b36061558e9bd5da3b5cfb6563;hpb=694b080de63bfd79d380fdc0a3b31c5302093ef0;p=lib.git

diff --git a/emacs_el/configuration/don-configuration.org b/emacs_el/configuration/don-configuration.org
index 3313bcc..128a597 100644
--- a/emacs_el/configuration/don-configuration.org
+++ b/emacs_el/configuration/don-configuration.org
@@ -132,6 +132,14 @@ load  [[https://github.com/jwiegley/use-package/][use-package]] even faster
   (add-hook 'minibuffer-exit-hook #'don/minibuffer-exit-hook)
 #+END_SRC
 * Modules
+** Spacemacs theme
+#+BEGIN_SRC emacs-lisp
+(use-package spacemacs-theme
+  :ensure t
+  :init
+  (load-theme 'spacemacs-dark)
+  )
+#+END_SRC
 ** Hippie Expand
 #+BEGIN_SRC emacs-lisp
   (use-package hippie-exp
@@ -310,6 +318,7 @@ value, scrolling continues until there is no more output.
 *** Avy
 #+BEGIN_SRC emacs-lisp
   (use-package avy
+    :if (>= emacs-major-version 25)
     :ensure t
     :bind (("C-c C-<SPC>" . avy-goto-word-or-subword-1)
            ("C-c j j" . avy-goto-word-or-subword-1)
@@ -372,32 +381,31 @@ value, scrolling continues until there is no more output.
 #+END_SRC
 ** Company
 #+BEGIN_SRC emacs-lisp
-  (use-package company
-    :ensure t
-    :bind (("M-/" . company-complete))
-    :config
-    (setq company-echo-delay 0     ; remove blinking
-          company-show-numbers t   ; show numbers for easy selection
-          company-selection-wrap-around t
-          company-require-match nil
-          company-dabbrev-ignore-case t
-          company-dabbrev-ignore-invisible t
-          company-dabbrev-other-buffers t
-          company-dabbrev-downcase nil
-          company-dabbrev-code-everywhere t
-          company-tooltip-align-annotations t
-          company-minimum-prefix-length 1
-          company-global-modes '(not)
-          company-lighter-base "(C)")
-    (global-company-mode 1)
-  
-    (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 "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)
-    )
+(use-package company
+  :ensure t
+  :bind (("M-/" . company-complete))
+  :config
+  (setq company-echo-delay 0     ; remove blinking
+        company-show-numbers t   ; show numbers for easy selection
+        company-selection-wrap-around t
+        company-require-match nil
+        company-dabbrev-ignore-case t
+        company-dabbrev-ignore-invisible t
+        company-dabbrev-other-buffers t
+        company-dabbrev-downcase nil
+        company-dabbrev-code-everywhere t
+        company-tooltip-align-annotations t
+        company-minimum-prefix-length 1
+        company-global-modes '(not)
+        company-lighter-base "(C)")
+  (global-company-mode 1)
+  :bind (:map company-active-map
+              ("C-n" . company-select-next)
+              ("C-p" . company-select-previous)
+              ("M-?" . company-show-doc-buffer)
+              ("M-." . company-show-location)
+              )
+  )
 #+END_SRC
 *** C/C++
 #+BEGIN_SRC emacs-lisp
@@ -682,6 +690,13 @@ value, scrolling continues until there is no more output.
     (setq ediff-window-setup-function 'ediff-setup-windows-plain)
   )
 #+END_SRC
+** Do the Right Thing Indenting
+Attempts to automatically identify the right indentation for a file
+#+BEGIN_SRC emacs-lisp
+(use-package dtrt-indent
+  :ensure t
+)  
+#+END_SRC
 ** VCL --editing varnish configuration files
 #+BEGIN_SRC emacs-lisp
   (use-package vcl-mode
@@ -1694,6 +1709,16 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
   ;           (lambda ()
   ;             (add-hook 'before-save-hook 'my/org-add-ids-to-headlines-in-file nil 'local)))
 #+END_SRC
+** Org ID locations
+#+BEGIN_SRC emacs-lisp
+(use-package find-lisp
+  :ensure t)
+(setq org-agenda-text-search-extra-files
+      (append '(agenda-archives)
+              (find-lisp-find-files "~/projects/org-notes" "\.org$")
+              (find-lisp-find-files "~/projects/org-notes" "\.org_archive$")
+              ))
+#+END_SRC
 ** Keywords (TODO)
 #+BEGIN_SRC emacs-lisp
   (setq org-todo-keywords
@@ -2320,18 +2345,19 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
 #+END_SRC
 ** Org-Gcal
 #+BEGIN_SRC emacs-lisp
-  (use-package calfw
-    :ensure f
-    )
-  (use-package calfw-org
-    :ensure f
-    )
-  (use-package org-gcal
-    :ensure f
-    :config '((if (file-readable-p "~/.hide/org_gcal.el")
-                  (load-file "~/.hide/org_gcal.el"))
-              )
-    )
+(use-package calfw
+  :ensure f
+  )
+(use-package calfw-org
+  :ensure f
+  )
+(use-package org-gcal
+  :if (file-readable-p "~/.hide/org_gcal.el")
+  :ensure f
+  :config '((if (file-readable-p "~/.hide/org_gcal.el")
+                (load-file "~/.hide/org_gcal.el"))
+            )
+  )
 #+END_SRC
 ** appt integration
 #+BEGIN_SRC emacs-lisp