init.el

(require 'package)

(setq package-archives '(
                         ("melpa" . "http://melpa.milkbox.net/packages/")
                         ("gnu" . "http://elpa.gnu.org/packages/")
                         ))

(package-initialize)
(when (not package-archive-contents)
  (package-refresh-contents))

(defvar my-packages '(markdown-mode
                      less-css-mode
                      js2-mode
                      yaml-mode
                      puppet-mode
                      systemd
                      clojure-mode
                      auto-complete
                      ac-cider
                      cider
                      kill-ring-search
                      expand-region
                      multi-term
                      ;; anzu
                      fiplr
                      ido-vertical-mode
                      latest-clojure-libraries
                      py-autopep8
                      py-isort
                      go-eldoc
                      dockerfile-mode
                      magit-gh-pulls
                      paredit
                      powerline
                      rainbow-delimiters
                      company
                      flycheck
                      gitconfig-mode
                      toml-mode
                      terraform-mode
                      typescript-mode
                      dumb-jump

                      ;; colors:
                      doom-themes
                      forest-blue-theme
                      cycle-themes
                      cyberpunk-theme
                      apropospriate-theme
                      material-theme
                      darktooth-theme
                      gruvbox-theme
                      base16-theme
                      subatomic256-theme
                      warm-night-theme
                      color-theme ;; http://www.nongnu.org/color-theme/
                      color-theme-sanityinc-solarized
                      color-theme-sanityinc-tomorrow
                      zenburn-theme
                      soothe-theme
                      solarized-theme ;; this is the one from bbatsov
                      planet-theme
                      niflheim-theme
                      distinguished-theme
                      colorsarenice-theme
                      noctilux-theme
                      darkburn-theme
                      clues-theme
                      gruber-darker-theme
                      ample-theme
                      phoenix-dark-pink-theme
                      underwater-theme
                      purple-haze-theme
                      bubbleberry-theme
                      cherry-blossom-theme
                      ))

(dolist (p my-packages)
  (when (not (package-installed-p p))
    (package-install p)))

(require 'cl)

;; better defaults
(setq-default visible-bell nil)

(global-linum-mode 1)
(global-set-key (kbd "C-c c") 'comment-dwim)

(global-set-key (kbd "M-l") 'goto-line)

(global-set-key (kbd "C-x C-a") 'ag)

(setq x-select-enable-clipboard t)
(global-set-key (kbd "M-c") 'kill-ring-save)

(defalias 'yes-or-no-p 'y-or-n-p)

(show-paren-mode 1)

(setq-default tab-width 2)
(setq-default indent-tabs-mode nil)
(setq-default standard-indent 2)
(setq-default initial-buffer-choice t)
(setq-default initial-scratch-message "")
(setq-default show-trailing-whitespace t)

(setq-default vc-follow-symlinks t)

(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
(if (fboundp 'menu-bar-mode) (menu-bar-mode -1))
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))

(setq inhibit-startup-message t)
(setq-default make-backup-files nil)
(add-hook 'before-save-hook 'delete-trailing-whitespace)

;; Yes! Source: http://news.ycombinator.com/item?id=5197828
(setq mac-option-key-is-meta nil)
(setq mac-command-key-is-meta t)
(setq mac-command-modifier 'meta)
(setq mac-option-modifier nil)

(require 'yaml-mode)
(require 'dockerfile-mode)

(add-to-list 'auto-mode-alist '("Dockerfile\\'" . dockerfile-mode))
(add-to-list 'auto-mode-alist '("\\.yml$" . yaml-mode))
(add-to-list 'auto-mode-alist '("\\.raml$" . yaml-mode))
(add-to-list 'auto-mode-alist '("\\.md$" . markdown-mode))
(add-to-list 'auto-mode-alist '("\\.ronn" . markdwon-mode))
(add-to-list 'auto-mode-alist '("\\.pp$" . puppet-mode))
(add-to-list 'auto-mode-alist '("\\.service$" . systemd-mode))
(add-to-list 'auto-mode-alist '("Vagrantfile$" . ruby-mode))
(add-to-list 'auto-mode-alist '("\\.ru" . ruby-mode))
(add-to-list 'auto-mode-alist '("\\.gemspec" . ruby-mode))
(add-to-list 'auto-mode-alist '("Rakefile$" . ruby-mode))

(add-to-list 'magic-mode-alist '("#!/usr/bin/env bundle exec ruby" . ruby-mode))

(set-face-attribute 'default nil :height 140)
(set-face-attribute 'default nil :family "Consolas")

;; http://stackoverflow.com/questions/7616761/even-when-emacsclient-is-started-in-a-terminal-window-system-is-non-nil
(defun color-config (&optional frame)
  (select-frame frame)
  (if window-system (load-theme 'planet t)
    (load-theme 'zenburn t)))

;; for emacsclient:
(add-hook 'after-make-frame-functions 'color-config)

;; for regular emacs:
(color-config (selected-frame))

(if (equal system-type 'darwin)
    (progn
      (setq prefix "~/external_src/")
      (add-to-list 'custom-theme-load-path "~/my_src/dotfiles/")
      )
  (progn
    (setq prefix "/mnt/external/clones/")
    (add-to-list 'custom-theme-load-path "~/mblair_src/dotfiles/")
    ))

(add-to-list 'custom-theme-load-path (concat prefix "emacs-color-themes/themes"))
(add-to-list 'custom-theme-load-path (concat prefix "emacs-deep-thought-theme"))

(require 'powerline)
(powerline-default-theme)

(Autoload 'kill-ring-search "kill-ring-search"
  "Search the kill ring in the minibuffer."
  (interactive))

(global-set-key "\M-\C-y" 'kill-ring-search)

(require 'expand-region)
(global-set-key (kbd "C-=") 'er/expand-region)

;; basically all of this multi-term customization is from here:
;; http://rawsyntax.com/blog/learn-emacs-zsh-and-multi-term/

(require 'multi-term)

;; todo: fix this on linux
(setq multi-term-program "/usr/local/bin/zsh")

(add-hook 'term-mode-hook
          (lambda ()
            (setq term-buffer-maximum-size 10000)))

(add-hook 'term-mode-hook
          (lambda ()
            (add-to-list 'term-bind-key-alist '("M-[" . multi-term-prev))
            (add-to-list 'term-bind-key-alist '("M-]" . multi-term-next))))

(add-hook 'term-mode-hook
          (lambda ()
            (define-key term-raw-map (kbd "C-y") 'term-paste)))

;; TODO Find out why this is screwing up the bg color on linum-mode.
;; (require 'anzu)
;; (global-anzu-mode +1)

(setq cider-repl-popup-stacktraces t)

;; Don't `C-x o` to a Cider REPL.
;; That's what `C-c C-z` is for.
;; Source:
;; http://stackoverflow.com/questions/4941960/how-do-i-make-emacs-other-window-command-ignore-terminal-windows/4948239#4948239
(defvar avoid-window-regexp "^\*cider\-repl")
(defun my-other-window ()
  "Similar to 'other-window, only try to avoid windows whose buffers match avoid-window-regexp"
  (interactive)
  (let* ((window-list (delq (selected-window) (window-list)))
         (filtered-window-list (remove-if
                                (lambda (w)
                                  (string-match-p avoid-window-regexp (buffer-name (window-buffer w))))
                                window-list)))
    (if filtered-window-list
        (select-window (car filtered-window-list))
      (and window-list
           (select-window (car window-list))))))

(global-set-key (kbd "C-x o") 'my-other-window)

(autoload 'enable-paredit-mode "paredit" "Turn on pseudo-structural editing of Lisp code." t)
(add-hook 'cider-repl-mode-hook 'paredit-mode)
(add-hook 'clojure-mode-hook #'paredit-mode)
(add-hook 'clojure-mode-hook #'rainbow-delimiters-mode)

;; C-c C-z to access it.
(setq cider-repl-pop-to-buffer-on-connect nil)

(setq cider-popup-stacktraces nil)

(savehist-mode 1)

(global-set-key (kbd "C-x f") 'fiplr-find-file)

(require 'ido-vertical-mode)
(ido-mode 1)
(ido-vertical-mode 1)

;; http://www.emacswiki.org/emacs/TransparentEmacs
(defun toggle-transparency ()
  (interactive)
  (if (/=
       (cadr (frame-parameter nil 'alpha))
       100)
      (set-frame-parameter nil 'alpha '(100 100))
    (set-frame-parameter nil 'alpha '(85 50))))

(global-set-key (kbd "C-c t") 'toggle-transparency)

;; (defun cider-namespace-refresh ()
;;   (interactive)
;;   (cider-interactive-eval
;;    "(require 'clojure.tools.namespace.repl)
;;     (clojure.tools.namespace.repl/refresh)"))

;; (define-key clojure-mode-map (kbd "M-r") 'cider-namespace-refresh)

;; go stuff
(add-to-list 'load-path (concat prefix "go-mode.el"))
(require 'go-mode)

(add-to-list 'load-path (concat prefix "gocode/emacs"))

(require 'go-autocomplete)
(require 'auto-complete-config)
(ac-config-default)

;; thanks, dustin + bradfitz
(defun my-go-mode-hook ()
  (setq gofmt-command "goimports")
  (add-hook 'before-save-hook 'gofmt-before-save)
  (if (not (string-match "go" compile-command))
      (set (make-local-variable 'compile-command)
           "go vet && go build -v"))
  (setq tab-width 8 indent-tabs-mode 1)
  (local-set-key (kbd "M-.") 'godef-jump))

(add-hook 'go-mode-hook 'my-go-mode-hook)
(add-hook 'go-mode-hook 'go-eldoc-setup)

(require 'js2-mode)
(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
(setq-default js2-basic-offset 2)
(setq-default js2-strict-missing-semi-warning nil)

(add-hook 'before-save-hook 'py-autopep8-before-save)

;; http://www.emacswiki.org/emacs/DeletingWhitespace
(defun my-delete-leading-whitespace (start end)
  "Delete whitespace at the beginning of each line in region."
  (interactive "*r")
  (save-excursion
    (if (not (bolp)) (forward-line 1))
    (delete-whitespace-rectangle (point) end nil)))

(global-set-key (kbd "C-x C-h") 'my-delete-leading-whitespace)

(require 'ac-cider)
(add-hook 'cider-mode-hook 'ac-flyspell-workaround)
(add-hook 'cider-mode-hook 'ac-cider-setup)
(add-hook 'cider-repl-mode-hook 'ac-cider-setup)
(eval-after-load "auto-complete"
  '(add-to-list 'ac-modes 'cider-mode))

(defun set-auto-complete-as-completion-at-point-function ()
  (setq completion-at-point-functions '(auto-complete)))

(add-hook 'auto-complete-mode-hook 'set-auto-complete-as-completion-at-point-function)
(add-hook 'cider-mode-hook 'set-auto-complete-as-completion-at-point-function)

;; http://www.masteringemacs.org/article/find-files-faster-recent-files-package
(require 'recentf)

;; get rid of `find-file-read-only' and replace it with something
;; more useful.
(global-set-key (kbd "C-x C-r") 'ido-recentf-open)

;; enable recent files mode.
(recentf-mode t)

;; 50 files ought to be enough.
(setq recentf-max-saved-items 50)

(defun ido-recentf-open ()
  "Use `ido-completing-read' to \\[find-file] a recent file"
  (interactive)
  (if (find-file (ido-completing-read "Find recent file: " recentf-list))
      (message "Opening file...")
    (message "Aborting")))

(require 'magit-gh-pulls)
(add-hook 'magit-mode-hook 'turn-on-magit-gh-pulls)

(add-hook 'after-init-hook 'global-company-mode)

(global-set-key (kbd "TAB") #'company-indent-or-complete-common)
(setq company-tooltip-align-annotations t)

(global-flycheck-mode)
(setq-default flycheck-disabled-checkers '(javascript-eslint javascript-jshint javascript-gjshint))

(require 'dumb-jump)