metamorph · June 18, 2015 06:43
diff --git a/.spacemacs.el b/.spacemacs.el
 ;; -*- mode: emacs-lisp -*-
 ;; This file is loaded by Spacemacs at startup.
 ;; It must be stored in your home directory.

 ;; Configuration Layers
 ;; --------------------

 (setq-default
 ;; List of additional paths where to look for configuration layers.
 ;; Paths must have a trailing slash (ie. `~/.mycontribs/')
 dotspacemacs-configuration-layer-path '()
 ;; List of configuration layers to load.
 dotspacemacs-configuration-layers '(markdown
                                     auto-completion
                                     git
                                     clojure
                                     scala
                                     evil-commentary
                                     perspectives
                                     ruby
                                     emacs-lisp
                                    (shell :variables
                                            shell-default-shell 'multi-term)
                                     spotify
                                     org)
 ;; A list of packages and/or extensions that will not be install and loaded.
 dotspacemacs-excluded-packages '(evil-escape)
 )

 ;; Settings
 ;; --------

 (setq-default
                            ;; Specify the startup banner. If the value is an integer then the
                            ;; banner with the corresponding index is used, if the value is `random'
                            ;; then the banner is chosen randomly among the available banners, if
                            ;; the value is nil then no banner is displayed.
                             dotspacemacs-startup-banner 'random
                             ;; List of themes, the first of the list is loaded when spacemacs starts.
                             ;; Press <SPC> T n to cycle to the next theme in the list (works great
                             ;; with 2 themes variants, one dark and one light)
                             dotspacemacs-themes '(
                                                   leuven
 						   ;; zenburn
                                                   monokai
                                                   solarized-light
                                                   solarized-dark)
                             ;; solarized-dark
                             ;; solarized-light
                             ;; monokai)
                             ;; Default font. `powerline-scale' allows to quickly tweak the mode-line
                             ;; size to make separators look not too crappy.
                             dotspacemacs-default-font '("Source Code Pro"
                                                         :size 13
                                                         :weight normal
                                                         :width normal
                                                         :powerline-scale 1.1)
                             ;; The leader key
                             dotspacemacs-leader-key "SPC"
                             ;; Major mode leader key is a shortcut key which is the equivalent of
                             ;; pressing `<leader> m`
                             dotspacemacs-major-mode-leader-key ","
                             ;; The command key used for Evil commands (ex-commands) and
                             ;; Emacs commands (M-x).
                             ;; By default the command key is `:' so ex-commands are executed like in Vim
                             ;; with `:' and Emacs commands are executed with `<leader> :'.
                             dotspacemacs-command-key ":"
                             ;; Guide-key delay in seconds. The Guide-key is the popup buffer listing
                             ;; the commands bound to the current keystrokes.
                             dotspacemacs-guide-key-delay 0.4
                             ;; Enable micro-state for helm buffer when pressing on TAB."
                             dotspacemacs-helm-micro-state t
                             ;; If non nil the frame is fullscreen when Emacs starts up (Emacs 24.4+ only).
                             dotspacemacs-fullscreen-at-startup nil
                             ;; If non nil `spacemacs/toggle-fullscreen' will not use native fullscreen.
                             ;; Use to disable fullscreen animations in OSX."
                             dotspacemacs-fullscreen-use-non-native nil
                             ;; If non nil the frame is maximized when Emacs starts up (Emacs 24.4+ only).
                             ;; Takes effect only if `dotspacemacs-fullscreen-at-startup' is nil.
                             dotspacemacs-maximized-at-startup nil
                             ;; A value from the range (0..100), in increasing opacity, which describes the
                             ;; transparency level of a frame when it's active or selected. Transparency can
                             ;; be toggled through `toggle-transparency'.
                             dotspacemacs-active-transparency 90
                             ;; A value from the range (0..100), in increasing opacity, which describes the
                             ;; transparency level of a frame when it's inactive or deselected. Transparency
                             ;; can be toggled through `toggle-transparency'.
                             dotspacemacs-inactive-transparency 90
                             ;; If non nil unicode symbols are displayed in the mode line (e.g. for lighters)
                             dotspacemacs-mode-line-unicode-symbols t
                             ;; If non nil smooth scrolling (native-scrolling) is enabled. Smooth scrolling
                             ;; overrides the default behavior of Emacs which recenters the point when
                             ;; it reaches the top or bottom of the screen
                             dotspacemacs-smooth-scrolling t
                             ;; If non-nil smartparens-strict-mode will be enabled in programming modes.
                             dotspacemacs-smartparens-strict-mode nil
                             ;; If non nil advises quit functions to keep server open when quitting.
                             dotspacemacs-persistent-server nil
                             ;; The default package repository used if no explicit repository has been
                             ;; specified with an installed package.
                             ;; Not used for now.
                             dotspacemacs-default-package-repository nil)

 ;; Initialization Hooks
 ;; --------------------

 (defun dotspacemacs/init ()
  "User initialization for Spacemacs. This function is called at the very
 startup."
  )

 (defun dotspacemacs/config ()
  "This is were you can ultimately override default Spacemacs configuration.
 This function is called at the very end of Spacemacs initialization."
  (setq org-agenda-files
        (list  "~/Dropbox/Documents/HRM/WIKI/peab/peab-integrationer.org"
               "~/Dropbox/Documents/HRM/WIKI/TODO.org"
               "~/Dropbox/Documents/HRM/WIKI/main/process.org"
               "~/Dropbox/Documents/HRM/WIKI/peab/peab.org"
               "~/Dropbox/Documents/org-mode-journal.org"))

  ;; Open agenda
  (evil-leader/set-key "oa" 'org-agenda)

  ;; Open Helm-Mini with 'oo'
  (evil-leader/set-key "oo" 'helm-mini)

  ;; Magit settings
  (setq-default git-enable-magit-svn-plugin t)
  (setq-default git-enable-github-support t)

  ;; Add note when closing org-notes.
  (setq org-log-done 'note)

  ;; Use fuzzy search in helm for recent files and buffers
  (setq helm-recentf-fuzzy-match t)
  (setq helm-buffers-fuzzy-matching t)

  ;; Remove fly-spell for markdown and text-files.
  (remove-hook 'text-mode-hook 'enable-flyspell-mode)
  (remove-hook 'markdown-mode-hook 'enable-flyspell-mode)

  ;; Clever word-wrap
  (global-visual-line-mode 1)

  ;; auto-completion - use tabs instead of space.
  (setq-default auto-completion-use-tab-instead-of-enter t)

  ;; == Custom Journaling ==
  ;; Stolen from http://www.howardism.org/Technical/Emacs/journaling-org.html
  (setq org-capture-templates
        '(
          ("j" "Journal Entry"
           entry (file+datetree "~/Dropbox/Documents/org-mode-journal.org")
           "* %<%H:%M> %?"
           :empty-lines 1)
          ("t" "Todo Entry"
           entry (file+olp "~/Dropbox/Documents/HRM/WIKI/TODO.org" "INBOX")
           "* TODO %T %?\n\nFrom: %a"
           :empty-lines 1)
          )
        )
  (defun my-spacemacs/add-journal-entry ()
    "Add journal entry"
    (interactive)
    (org-capture nil "j"))
  (defun my-spacemacs/add-todo-entry ()
    "Add todo entry"
    (interactive)
    (org-capture nil "t"))
  (evil-leader/set-key "oj" 'my-spacemacs/add-journal-entry)
  (evil-leader/set-key "ot" 'my-spacemacs/add-todo-entry)
  ;; Clocking
  (setq org-clock-into-drawer t)
  (setq org-clock-persist t)
  (org-clock-persistence-insinuate)

 )

 ;; Custom variables
 ;; ----------------

 ;; Do not write anything in this section. This is where Emacs will
 ;; auto-generate custom variable definitions.


 (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.
 '(ac-ispell-requires 4)
 '(ahs-case-fold-search nil)
 '(ahs-default-range (quote ahs-range-whole-buffer))
 '(ahs-idle-interval 0.25)
 '(ahs-idle-timer 0 t)
 '(ahs-inhibit-face-list nil)
 '(ansi-color-faces-vector
   [default default default italic underline success warning error])
 '(backup-directory-alist (quote (("." . "~/.emacs-backup"))))
 '(custom-safe-themes
   (quote
    ("9fb6da24a680973616017ccabc576a09915884696ba1b0b045d9c33970620731" "dcde3c9b3118fd9b2e9fbe1fe390d412216aa40f046ef5a158546616bb20f074" "6a9606327ecca6e772fba6ef46137d129e6d1888dcfc65d0b9b27a7a00a4af20" "9f3a4edb56d094366afed2a9ba3311bbced0f32ca44a47a765d8ef4ce5b8e4ea" "da7fa7211dd96fcf77398451e3f43052558f01b20eb8bee9ac0fd88627e11e22" "9efaa1292e9180cb33a277f24f29b296bd0fe5b4546ea05368e6e393abb90881" "282606e51ef2811142af5068bd6694b7cf643b27d63666868bc97d04422318c1" "d9a09bb02e2a1c54869dfd6a1412553fe5cb2d01a94ba25ef2be4634d1ca2c79" "a8245b7cc985a0610d71f9852e9f2767ad1b852c2bdea6f4aadc12cce9c4d6d0" "8aebf25556399b58091e533e455dd50a6a9cba958cc4ebb0aab175863c25b9a4" "e80932ca56b0f109f8545576531d3fc79487ca35a9a9693b62bf30d6d08c9aaf" "a041a61c0387c57bb65150f002862ebcfe41135a3e3425268de24200b82d6ec9" "4dd1b115bc46c0f998e4526a3b546985ebd35685de09bc4c84297971c822750e" default)))
 '(erc-modules
   (quote
    (list notifications youtube log image services completion hl-nicks netsplit fill button match track readonly networks ring autojoin noncommands irccontrols move-to-prompt stamp menu list)))
 '(magit-use-overlays nil)
 '(paradox-github-token t)
 '(ring-bell-function (quote ignore) t)
 '(scala-indent:align-forms t)
 '(scala-indent:align-parameters t)
 '(scala-indent:default-run-on-strategy scala-indent:operator-strategy)
 '(send-mail-function (quote mailclient-send-it)))
 (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 (:family "Source Code Pro" :foundry "adobe" :slant normal :weight normal :height 98 :width normal))))
 '(company-tooltip-common ((t (:inherit company-tooltip :weight bold :underline nil))))
 '(company-tooltip-common-selection ((t (:inherit company-tooltip-selection :weight bold :underline nil)))))
	;; -- mode: emacs-lisp --
	;; This file is loaded by Spacemacs at startup.
	;; It must be stored in your home directory.

	;; Configuration Layers
	;; --------------------

	(setq-default
	;; List of additional paths where to look for configuration layers.
	;; Paths must have a trailing slash (ie. `~/.mycontribs/')
	dotspacemacs-configuration-layer-path '()
	;; List of configuration layers to load.
	dotspacemacs-configuration-layers '(markdown
	auto-completion
	git
	clojure
	scala
	evil-commentary
	perspectives
	ruby
	emacs-lisp
	(shell :variables
	shell-default-shell 'multi-term)
	spotify
	org)
	;; A list of packages and/or extensions that will not be install and loaded.
	dotspacemacs-excluded-packages '(evil-escape)
	)

	;; Settings
	;; --------

	(setq-default
	;; Specify the startup banner. If the value is an integer then the
	;; banner with the corresponding index is used, if the value is `random'
	;; then the banner is chosen randomly among the available banners, if
	;; the value is nil then no banner is displayed.
	dotspacemacs-startup-banner 'random
	;; List of themes, the first of the list is loaded when spacemacs starts.
	;; Press <SPC> T n to cycle to the next theme in the list (works great
	;; with 2 themes variants, one dark and one light)
	dotspacemacs-themes '(
	leuven
	;; zenburn
	monokai
	solarized-light
	solarized-dark)
	;; solarized-dark
	;; solarized-light
	;; monokai)
	;; Default font. `powerline-scale' allows to quickly tweak the mode-line
	;; size to make separators look not too crappy.
	dotspacemacs-default-font '("Source Code Pro"
	:size 13
	:weight normal
	:width normal
	:powerline-scale 1.1)
	;; The leader key
	dotspacemacs-leader-key "SPC"
	;; Major mode leader key is a shortcut key which is the equivalent of
	;; pressing `<leader> m`
	dotspacemacs-major-mode-leader-key ","
	;; The command key used for Evil commands (ex-commands) and
	;; Emacs commands (M-x).
	;; By default the command key is `:' so ex-commands are executed like in Vim
	;; with `:' and Emacs commands are executed with `<leader> :'.
	dotspacemacs-command-key ":"
	;; Guide-key delay in seconds. The Guide-key is the popup buffer listing
	;; the commands bound to the current keystrokes.
	dotspacemacs-guide-key-delay 0.4
	;; Enable micro-state for helm buffer when pressing on TAB."
	dotspacemacs-helm-micro-state t
	;; If non nil the frame is fullscreen when Emacs starts up (Emacs 24.4+ only).
	dotspacemacs-fullscreen-at-startup nil
	;; If non nil `spacemacs/toggle-fullscreen' will not use native fullscreen.
	;; Use to disable fullscreen animations in OSX."
	dotspacemacs-fullscreen-use-non-native nil
	;; If non nil the frame is maximized when Emacs starts up (Emacs 24.4+ only).
	;; Takes effect only if `dotspacemacs-fullscreen-at-startup' is nil.
	dotspacemacs-maximized-at-startup nil
	;; A value from the range (0..100), in increasing opacity, which describes the
	;; transparency level of a frame when it's active or selected. Transparency can
	;; be toggled through `toggle-transparency'.
	dotspacemacs-active-transparency 90
	;; A value from the range (0..100), in increasing opacity, which describes the
	;; transparency level of a frame when it's inactive or deselected. Transparency
	;; can be toggled through `toggle-transparency'.
	dotspacemacs-inactive-transparency 90
	;; If non nil unicode symbols are displayed in the mode line (e.g. for lighters)
	dotspacemacs-mode-line-unicode-symbols t
	;; If non nil smooth scrolling (native-scrolling) is enabled. Smooth scrolling
	;; overrides the default behavior of Emacs which recenters the point when
	;; it reaches the top or bottom of the screen
	dotspacemacs-smooth-scrolling t
	;; If non-nil smartparens-strict-mode will be enabled in programming modes.
	dotspacemacs-smartparens-strict-mode nil
	;; If non nil advises quit functions to keep server open when quitting.
	dotspacemacs-persistent-server nil
	;; The default package repository used if no explicit repository has been
	;; specified with an installed package.
	;; Not used for now.
	dotspacemacs-default-package-repository nil)

	;; Initialization Hooks
	;; --------------------

	(defun dotspacemacs/init ()
	"User initialization for Spacemacs. This function is called at the very
	startup."
	)

	(defun dotspacemacs/config ()
	"This is were you can ultimately override default Spacemacs configuration.
	This function is called at the very end of Spacemacs initialization."
	(setq org-agenda-files
	(list "~/Dropbox/Documents/HRM/WIKI/peab/peab-integrationer.org"
	"~/Dropbox/Documents/HRM/WIKI/TODO.org"
	"~/Dropbox/Documents/HRM/WIKI/main/process.org"
	"~/Dropbox/Documents/HRM/WIKI/peab/peab.org"
	"~/Dropbox/Documents/org-mode-journal.org"))

	;; Open agenda
	(evil-leader/set-key "oa" 'org-agenda)

	;; Open Helm-Mini with 'oo'
	(evil-leader/set-key "oo" 'helm-mini)

	;; Magit settings
	(setq-default git-enable-magit-svn-plugin t)
	(setq-default git-enable-github-support t)

	;; Add note when closing org-notes.
	(setq org-log-done 'note)

	;; Use fuzzy search in helm for recent files and buffers
	(setq helm-recentf-fuzzy-match t)
	(setq helm-buffers-fuzzy-matching t)

	;; Remove fly-spell for markdown and text-files.
	(remove-hook 'text-mode-hook 'enable-flyspell-mode)
	(remove-hook 'markdown-mode-hook 'enable-flyspell-mode)

	;; Clever word-wrap
	(global-visual-line-mode 1)

	;; auto-completion - use tabs instead of space.
	(setq-default auto-completion-use-tab-instead-of-enter t)

	;; == Custom Journaling ==
	;; Stolen from http://www.howardism.org/Technical/Emacs/journaling-org.html
	(setq org-capture-templates
	'(
	("j" "Journal Entry"
	entry (file+datetree "~/Dropbox/Documents/org-mode-journal.org")
	"* %<%H:%M> %?"
	:empty-lines 1)
	("t" "Todo Entry"
	entry (file+olp "~/Dropbox/Documents/HRM/WIKI/TODO.org" "INBOX")
	"* TODO %T %?\n\nFrom: %a"
	:empty-lines 1)
	)
	)
	(defun my-spacemacs/add-journal-entry ()
	"Add journal entry"
	(interactive)
	(org-capture nil "j"))
	(defun my-spacemacs/add-todo-entry ()
	"Add todo entry"
	(interactive)
	(org-capture nil "t"))
	(evil-leader/set-key "oj" 'my-spacemacs/add-journal-entry)
	(evil-leader/set-key "ot" 'my-spacemacs/add-todo-entry)
	;; Clocking
	(setq org-clock-into-drawer t)
	(setq org-clock-persist t)
	(org-clock-persistence-insinuate)

	)

	;; Custom variables
	;; ----------------

	;; Do not write anything in this section. This is where Emacs will
	;; auto-generate custom variable definitions.


	(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.
	'(ac-ispell-requires 4)
	'(ahs-case-fold-search nil)
	'(ahs-default-range (quote ahs-range-whole-buffer))
	'(ahs-idle-interval 0.25)
	'(ahs-idle-timer 0 t)
	'(ahs-inhibit-face-list nil)
	'(ansi-color-faces-vector
	[default default default italic underline success warning error])
	'(backup-directory-alist (quote (("." . "~/.emacs-backup"))))
	'(custom-safe-themes
	(quote
	("9fb6da24a680973616017ccabc576a09915884696ba1b0b045d9c33970620731" "dcde3c9b3118fd9b2e9fbe1fe390d412216aa40f046ef5a158546616bb20f074" "6a9606327ecca6e772fba6ef46137d129e6d1888dcfc65d0b9b27a7a00a4af20" "9f3a4edb56d094366afed2a9ba3311bbced0f32ca44a47a765d8ef4ce5b8e4ea" "da7fa7211dd96fcf77398451e3f43052558f01b20eb8bee9ac0fd88627e11e22" "9efaa1292e9180cb33a277f24f29b296bd0fe5b4546ea05368e6e393abb90881" "282606e51ef2811142af5068bd6694b7cf643b27d63666868bc97d04422318c1" "d9a09bb02e2a1c54869dfd6a1412553fe5cb2d01a94ba25ef2be4634d1ca2c79" "a8245b7cc985a0610d71f9852e9f2767ad1b852c2bdea6f4aadc12cce9c4d6d0" "8aebf25556399b58091e533e455dd50a6a9cba958cc4ebb0aab175863c25b9a4" "e80932ca56b0f109f8545576531d3fc79487ca35a9a9693b62bf30d6d08c9aaf" "a041a61c0387c57bb65150f002862ebcfe41135a3e3425268de24200b82d6ec9" "4dd1b115bc46c0f998e4526a3b546985ebd35685de09bc4c84297971c822750e" default)))
	'(erc-modules
	(quote
	(list notifications youtube log image services completion hl-nicks netsplit fill button match track readonly networks ring autojoin noncommands irccontrols move-to-prompt stamp menu list)))
	'(magit-use-overlays nil)
	'(paradox-github-token t)
	'(ring-bell-function (quote ignore) t)
	'(scala-indent:align-forms t)
	'(scala-indent:align-parameters t)
	'(scala-indent:default-run-on-strategy scala-indent:operator-strategy)
	'(send-mail-function (quote mailclient-send-it)))
	(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 (:family "Source Code Pro" :foundry "adobe" :slant normal :weight normal :height 98 :width normal))))
	'(company-tooltip-common ((t (:inherit company-tooltip :weight bold :underline nil))))
	'(company-tooltip-common-selection ((t (:inherit company-tooltip-selection :weight bold :underline nil)))))