poked at use-package

config.el

@@ -1,3 +1,8 @@
+(use-package benchmark-init
+  :ensure t
+  :config
+  (add-hook 'after-init-hook 'benchmark-init/deactivate))
+
 (defmacro definteractive (name &rest body)
   `(defun ,name ,(car body)
      (interactive)
@@ -111,15 +116,19 @@
 (setq use-package-always-ensure t
       use-package-verbose t)
 
+(use-package diminish)
+
 (use-package keychain-environment
-  :bind ("C-c r e" . 'keychain-refresh-environment))
+  :bind ("C-c r e" . 'keychain-refresh-environment)
+  :init (keychain-refresh-environment))
 
+(unless (display-graphic-p)
   (use-package exwm
   :bind ("s-k" . 'exwm-workspace-delete)
   :config
   (require 'exwm-config)
   (require 'exwm-systemtray)
-  (exwm-systemtray-enable))
+  (exwm-systemtray-enable)))
 
 (use-package nginx-mode
   :custom
@@ -127,8 +136,6 @@
   (nginx-indent-level 2)
   :config (add-to-list 'auto-mode-alist '("/nginx/sites-\\(?:available\\|enabled\\)/" . nginx-mode)))
 
-(use-package diminish)
-
 (use-package company
   :diminish 'company-mode
   :bind (:map company-mode-map
@@ -138,17 +145,14 @@
   (company-minimum-prefix-length 3)
   :init (add-hook 'after-init-hook 'global-company-mode))
 
-;; (use-package csharp-mode
+(use-package csharp-mode
-;;   :defer t)
+  :defer t
-
+  :config
-;; (use-package omnisharp
+  (use-package omnisharp
-;;   :defer t
+    :defer t
-;;   :init (add-hook 'csharp-mode-hook 'omnisharp-mode))
+    :config
-
+    (add-hook 'csharp-mode-hook 'omnisharp-mode)
-;; (eval-after-load 'company
+    (add-to-list 'company-backends 'company-omnisharp)))
-;;   '(add-to-list 'company-backends 'company-omnisharp))
-
-;; (add-hook 'csharp-mode #'company-mode)
 
 (use-package spaceline
   :init
@@ -193,9 +197,20 @@
   :defer t
   :config (use-package alchemist))
 
+(use-package yasnippet
+  :diminish 'yas-minor-mode
+  :hook ((html-mode
+	  LaTeX-mode
+	  emacs-lisp-mode
+	  lisp-mode)
+	 . yas-minor-mode)
+  :init
+  (use-package yasnippet-snippets)
+  (yas-reload-all))
+
 (use-package hungry-delete
   :diminish 'hungry-delete-mode
-  :config (global-hungry-delete-mode 1))2
+  :config (global-hungry-delete-mode 1))
 
 (use-package which-key
   :diminish 'which-key-mode
@@ -211,17 +226,6 @@
 (use-package popup-kill-ring
   :bind ("M-y" . popup-kill-ring))
 
-(use-package yasnippet
-    :diminish 'yas-minor-mode
-:bind
-    :init
-    (use-package yasnippet-snippets)
-    (yas-reload-all))
-
-(add-hook 'html-mode-hook 'yas-minor-mode)
-(add-hook 'LaTeX-mode-hook 'yas-minor-mode)
-(add-hook 'emacs-lisp-mode 'yas-minor-mode)
-
 (setq ido-enable-flex-matching t
       ido-create-new-buffer 'always
       ido-everywhere 1)
@@ -307,24 +311,16 @@ It disables backup creation and auto saving.
 With no argument, this command toggles the mode.
 Non-null prefix argument turns on the mode.
 Null prefix argument turns off the mode."
-  ;; The initial value.
+  nil ;; Initial
-  nil
+  "Sensitive" ;; Modeline
-  ;; The indicator for the mode line.
+  nil ;; Bindings
-  " Sensitive"
-  ;; The minor mode bindings.
-  nil
   (if (symbol-value sensitive-minor-mode)
       (progn
-	;; disable backups
+	(setq make-backup-files nil)
-	(set (make-local-variable 'backup-inhibited) t) 
+	(auto-save-mode -1))
-	;; disable auto-save
+    (setq-local make-backup-files t)
-	(if auto-save-default
+    (auto-save-mode 1)))
-	    (auto-save-mode -1)))
+
-					;resort to default value of backup-inhibited
-    (kill-local-variable 'backup-inhibited)
-					;resort to default auto save setting
-    (if auto-save-default
-	(auto-save-mode 1))))
 
 ;; Regexps of sensitive files.
 (setq auto-minor-mode-alist

config.org

@@ -1,3 +1,10 @@
+* Benchmark
+  #+BEGIN_SRC emacs-lisp
+  (use-package benchmark-init
+    :ensure t
+    :config
+    (add-hook 'after-init-hook 'benchmark-init/deactivate))
+  #+END_SRC
 * macros
 ** definteractive
 Wrappers around functions and lambdas so I don't have to type
@@ -12,8 +19,8 @@ Wrappers around functions and lambdas so I don't have to type
     `(lambda ,(car body) (interactive) ,@(cdr body)))
 #+END_SRC
 ** local-keybind
-Hide unecessary lambda when calling (local-set-key) for org-mode
+Hide unecessary lambda when calling (local-set-key) for
-functions
+org-modefunctions
 #+BEGIN_SRC emacs-lisp
   (defmacro local-keybind (key value)
     `(lambda () (local-set-key (kbd ,key) (quote ,value))))
@@ -36,6 +43,9 @@ Saves config.org if it's open then reloads the file.
 
   ;; I read somewhere that Company breaks things?
   (add-hook 'org-mode-hook 'company-mode)
+
+  ;; Don't indent whole file with org-mode
+  (eval-after-load "org-mode" (local-set-key (kbd "s-i") nil))
 #+END_SRC
 ** Snippets
 #+BEGIN_SRC emacs-lisp
@@ -77,7 +87,7 @@ Saves config.org if it's open then reloads the file.
  #+END_SRC
 * emacs gui
 #+BEGIN_SRC emacs-lisp
-  (tool-bar-mode -1)
+  1(tool-bar-mode -1)
   (menu-bar-mode -1)
   (scroll-bar-mode -1)
   (line-number-mode 1)
@@ -157,19 +167,25 @@ Saves config.org if it's open then reloads the file.
     (setq use-package-always-ensure t
 	  use-package-verbose t)
 #+END_SRC
+** diminish
+#+BEGIN_SRC emacs-lisp
+  (use-package diminish)
+#+END_SRC
 ** keychain-environment
 #+BEGIN_SRC emacs-lisp
      (use-package keychain-environment
-    :bind ("C-c r e" . 'keychain-refresh-environment))
+       :bind ("C-c r e" . 'keychain-refresh-environment)
+       :init (keychain-refresh-environment))
 #+END_SRC
 ** exwm
 #+BEGIN_SRC emacs-lisp
+     (unless (display-graphic-p)
        (use-package exwm
        :bind ("s-k" . 'exwm-workspace-delete)
        :config
        (require 'exwm-config)
        (require 'exwm-systemtray)
-    (exwm-systemtray-enable))
+       (exwm-systemtray-enable)))
 #+END_SRC
 ** nginx
 #+BEGIN_SRC emacs-lisp
@@ -179,10 +195,6 @@ Saves config.org if it's open then reloads the file.
     (nginx-indent-level 2)
     :config (add-to-list 'auto-mode-alist '("/nginx/sites-\\(?:available\\|enabled\\)/" . nginx-mode)))
 #+END_SRC
-** diminish
-#+BEGIN_SRC emacs-lisp
-  (use-package diminish)
-#+END_SRC
 ** company
 #+BEGIN_SRC emacs-lisp
   (use-package company
@@ -194,17 +206,17 @@ Saves config.org if it's open then reloads the file.
     (company-minimum-prefix-length 3)
     :init (add-hook 'after-init-hook 'global-company-mode))
 #+END_SRC
-** omnisharp
+** c#
 #+BEGIN_SRC emacs-lisp
      (use-package csharp-mode
        :defer t
-    :config ((use-package omnisharp
+       :config
-	       :config (add-hook 'csharp-mode-hook 'omnisharp-mode))))
+       (use-package omnisharp
-
+	 :defer t
-  (eval-after-load 'company
+	 :config
-    '(add-to-list 'company-backends 'company-omnisharp))
+	 (add-hook 'csharp-mode-hook 'omnisharp-mode)
+	 (add-to-list 'company-backends 'company-omnisharp)))
 
-  (add-hook 'csharp-mode #'company-mode)
 #+END_SRC
 ** spaceline
 #+BEGIN_SRC emacs-lisp
@@ -214,7 +226,6 @@ Saves config.org if it's open then reloads the file.
     (setq powerline-default-seperator (quote arrow))
     (spaceline-spacemacs-theme)
     :config (spaceline-toggle-buffer-size-off))
-
 #+END_SRC
 ** dashboard
 #+BEGIN_SRC emacs-lisp
@@ -260,12 +271,25 @@ Saves config.org if it's open then reloads the file.
     :defer t
     :config (use-package alchemist))
 #+END_SRC
+** yasnippet
+ #+BEGIN_SRC emacs-lisp
+    (use-package yasnippet
+      :diminish 'yas-minor-mode
+      :hook ((html-mode
+	      LaTeX-mode
+	      emacs-lisp-mode
+	      lisp-mode)
+	     . yas-minor-mode)
+      :init
+      (use-package yasnippet-snippets)
+      (yas-reload-all))
+ #+END_SRC
 ** minor modes
 *** hungry delete
  #+BEGIN_SRC emacs-lisp
   (use-package hungry-delete
     :diminish 'hungry-delete-mode
-    :config (global-hungry-delete-mode 1))2
+    :config (global-hungry-delete-mode 1))
  #+END_SRC
 *** which key
  #+BEGIN_SRC emacs-lisp
@@ -289,21 +313,6 @@ Saves config.org if it's open then reloads the file.
   (use-package popup-kill-ring
     :bind ("M-y" . popup-kill-ring))
  #+END_SRC
-*** yasnippet
-#+BEGIN_SRC emacs-lisp
-  (use-package yasnippet
-    :diminish 'yas-minor-mode
-:bind
-    :init
-    (use-package yasnippet-snippets)
-    (yas-reload-all))
-#+END_SRC
-**** enable for major modes
-#+BEGIN_SRC emacs-lisp
-  (add-hook 'html-mode-hook 'yas-minor-mode)
-  (add-hook 'LaTeX-mode-hook 'yas-minor-mode)
-  (add-hook 'emacs-lisp-mode 'yas-minor-mode)
-#+END_SRC
 * ido
 #+BEGIN_SRC emacs-lisp
   (setq ido-enable-flex-matching t
@@ -376,7 +385,7 @@ Saves config.org if it's open then reloads the file.
   (defvaralias 'css-indent-offset 'tab-width)
 #+END_SRC
 * auto-minor-mode
-auto-mode-alist but for minor modes.
+auto-mode-alist for minor modes.
 
 For example, used with sensitive-mode to not create backups
 (path/to/file~) when creating yasnippets
@@ -413,24 +422,16 @@ For example, used with sensitive-mode to not create backups
   With no argument, this command toggles the mode.
   Non-null prefix argument turns on the mode.
   Null prefix argument turns off the mode."
-    ;; The initial value.
+    nil ;; Initial
-    nil
+    "Sensitive" ;; Modeline
-    ;; The indicator for the mode line.
+    nil ;; Bindings
-    " Sensitive"
-    ;; The minor mode bindings.
-    nil
     (if (symbol-value sensitive-minor-mode)
 	(progn
-	  ;; disable backups
+	  (setq make-backup-files nil)
-	  (set (make-local-variable 'backup-inhibited) t) 
+	  (auto-save-mode -1))
-	  ;; disable auto-save
+      (setq-local make-backup-files t)
-	  (if auto-save-default
+      (auto-save-mode 1)))
-	      (auto-save-mode -1)))
+
-					  ;resort to default value of backup-inhibited
-      (kill-local-variable 'backup-inhibited)
-					  ;resort to default auto save setting
-      (if auto-save-default
-	  (auto-save-mode 1))))
 
   ;; Regexps of sensitive files.
   (setq auto-minor-mode-alist

custom.el

@@ -0,0 +1,40 @@
+;; Stuff generated by emacs
+(custom-set-variables
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(TeX-engine (quote xetex))
+ '(company-idle-delay 0)
+ '(company-minimum-prefix-length 3)
+ '(custom-enabled-themes (quote (spacemacs-dark)))
+ '(custom-safe-themes
+   (quote
+    ("bffa9739ce0752a37d9b1eee78fc00ba159748f50dc328af4be661484848e476" default)))
+ '(dashboard-banner-logo-title "Komacs")
+ '(dashboard-center-content t)
+ '(dashboard-items (quote ((recents . 5))))
+ '(dashboard-set-init-info t)
+ '(dashboard-show-shortcuts nil)
+ '(dashboard-startup-banner "~/.emacs.d/Komacs.png")
+ '(ido-vertical-define-keys (quote C-n-and-C-p-only))
+ '(nginx-indent-level 2)
+ '(nginx-indent-tabs-mode t)
+ '(package-selected-packages
+   (quote
+    (benchmark-init alchemist elixir-mode nginx-mode ac-js2 pdf-tools yasnippet-snippets which-key use-package symon switch-window spacemacs-theme spaceline slime-company popup-kill-ring omnisharp keychain-environment js2-mode ido-vertical-mode hungry-delete exwm diminish dashboard company-auctex beacon avy)))
+ '(slime-lisp-implementations
+   (quote
+    ((sbcl
+      ("sbcl" "--core" "/usr/lib64/sbcl/sbcl.core")
+      :env
+      ("SBCL_HOME=/usr/lib64/sbcl/")))) t)
+ '(switch-window-increase 4 t)
+ '(switch-window-input-style (quote minibuffer) t)
+ '(switch-window-threshold 2 t))
+(custom-set-faces
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(default ((t (:inherit nil :stipple nil :background "#292b2e" :foreground "#b2b2b2" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 110 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))))

init.el

@@ -14,50 +14,20 @@
   (package-refresh-contents)
   (package-install 'spacemacs-theme))
 
+(defun in-emacs-home (file)
+  (when (stringp file)
+    (let ((file (concat user-emacs-directory file)))
+      (when (file-exists-p file)
+	file))))
 
+(setq custom-file (in-emacs-home "custom.el"))
+(defconst emacs-config (in-emacs-home "config.el"))
+(defconst emacs-org (in-emacs-home "config.org"))
 
 ;; org-babel won't compile these sometimes?
-(if (file-newer-than-file-p "~/.emacs.d/config.org" "~/.emacs.d/config.el")
+(load emacs-config)
-    (org-babel-load-file "~/.emacs.d/config.org")
+(load custom-file 'noerrror)
-  (load "~/.emacs.d/config.el"))
+
-
+(when (file-newer-than-file-p emacs-org emacs-config)
-;; Stuff generated by emacs
+  (org-babel-load-file emacs-org))
-(custom-set-variables
+
- ;; custom-set-variables was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(TeX-engine (quote xetex))
- '(company-idle-delay 0)
- '(company-minimum-prefix-length 3)
- '(custom-enabled-themes (quote (spacemacs-dark)))
- '(custom-safe-themes
-   (quote
-    ("bffa9739ce0752a37d9b1eee78fc00ba159748f50dc328af4be661484848e476" default)))
- '(dashboard-banner-logo-title "Komacs")
- '(dashboard-center-content t)
- '(dashboard-items (quote ((recents . 5))))
- '(dashboard-set-init-info t)
- '(dashboard-show-shortcuts nil)
- '(dashboard-startup-banner "~/.emacs.d/Komacs.png")
- '(ido-vertical-define-keys (quote C-n-and-C-p-only))
- '(nginx-indent-level 2)
- '(nginx-indent-tabs-mode t)
- '(package-selected-packages
-   (quote
-    (alchemist elixir-mode nginx-mode ac-js2 pdf-tools yasnippet-snippets which-key use-package symon switch-window spacemacs-theme spaceline slime-company popup-kill-ring omnisharp keychain-environment js2-mode ido-vertical-mode hungry-delete exwm diminish dashboard company-auctex beacon avy)))
- '(slime-lisp-implementations
-   (quote
-    ((sbcl
-      ("sbcl" "--core" "/usr/lib64/sbcl/sbcl.core")
-      :env
-      ("SBCL_HOME=/usr/lib64/sbcl/")))) t)
- '(switch-window-increase 4 t)
- '(switch-window-input-style (quote minibuffer) t)
- '(switch-window-threshold 2 t))
-(custom-set-faces
- ;; custom-set-faces was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(default ((t (:inherit nil :stipple nil :background "#292b2e" :foreground "#b2b2b2" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 110 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))))