init.el

(require 'package)

(add-to-list 'package-archives
             '("melpa" . "http://melpa.org/packages/") t)

(add-to-list 'package-archives
             '("marmalade" . "http://marmalade-repo.org/packages/"))

(package-initialize)

(when (not package-archive-contents)
  (message ";; Refreshing the package archives")
  (package-refresh-contents))

(when (not (package-installed-p 'use-package))
  (message ";; Installing use package")
  (package-install 'use-package))

(prefer-coding-system 'utf-8)
(show-paren-mode t)
(windmove-default-keybindings)
(auto-fill-mode -1)
(global-prettify-symbols-mode +1)

(setq echo-keystrokes 0.01)

(setq-default

 inhibit-splash-screen t
 indent-tabs-mode nil
 ring-bell-function 'ignore
 whitespace-line-column 250
 ispell-program-name "aspell"

 gc-cons-threshold 100000000)

(put 'downcase-region 'disabled nil)

(global-font-lock-mode 1)

(global-auto-revert-mode t)
(global-hl-line-mode 1)
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(global-linum-mode t)
(x-focus-frame nil)

(add-hook 'before-save-hook 'delete-trailing-whitespace)
(add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)

(global-set-key (kbd "C-x C-b") 'ibuffer)

(add-to-list 'load-path "~/.emacs.d/lisp/")

(require 'ido)

(setq ido-enable-prefix nil
      ido-enable-flex-matching t
      ido-create-new-buffer 'always
      ido-use-filename-at-point 'guess
      ido-max-prospects 10
      ido-default-file-method 'selected-window
      ido-auto-merge-work-directories-length -1)

(ido-mode +1)

;; ----- Third Party Packages -----
(require 'use-package)

(use-package magit
  :bind ("C-c g" . magit-status)
  :ensure t)

(defun clojure-hook ()
  (require 'clojure-mode)
  (define-clojure-indent
    (defroutes 'defun)
    (defroutes 'defun)
    (async     'defun)
    (for-all   'defun)
    (fact      'defun)
    (facts     'defun)
    (against-background 'defun)
    (render    'defun)
    (query     'defun)
    (ident     'defun)
    (params    'defun)
    (future-fact 'defun)
    (future-facts 'defun)
    (endpoint 'defun)
    (on-status 'defun)
    (method 'defun)
    (on-request 'defun)
    (GET 2)
    (POST 2)
    (PUT 2)
    (DELETE 2)
    (HEAD 2)
    (ANY 2)
    (context 2)
    (context 'defun)))

(use-package clojure-mode
  :ensure t
  :init
  (clojure-hook)
  (add-hook 'clojure-mode-hook 'clojure-hook)
  (add-hook 'clojure-mode-hook 'eldoc-mode)
  (add-hook 'clojure-mode-hook 'flyspell-prog-mode)
  (add-hook 'clojure-mode-hook 'enable-paredit-mode))

(use-package cider
  :ensure t
  :init
  (setq cider-test-show-report-on-success t)
  (add-hook 'cider-repl-mode-hook #'eldoc-mode)
  (add-hook 'cider-repl-mode-hook #'paredit-mode))

(use-package paredit
  :ensure t
  :init
  (add-hook 'emacs-lisp-mode-hook 'enable-paredit-mode))

(use-package restclient
  :ensure t)

(use-package plantuml-mode
  :ensure t)

(use-package markdown-mode
  :ensure t)

(use-package ag
  :ensure t
  :init
  (setq ag-highlight-search t
        ag-reuse-window 't))

(use-package ample-theme
  :init (progn (load-theme 'ample t t)
               (load-theme 'ample-flat t t)
               (enable-theme 'ample))
  :ensure t)

(use-package company
  :ensure t
  :init (global-company-mode)
  :bind ("<C-tab>" . company-complete))

(use-package ob-http
  :ensure t)

(add-to-list 'org-src-lang-modes '("plantuml" . plantuml))

(add-hook 'org-mode-hook 'flyspell-mode)

(defun safe-display-inline-images ()
  (condition-case nil
      (org-display-inline-images)
    (error nil)))

(add-hook 'org-babel-after-execute-hook 'safe-display-inline-images 'append)

(setq plantuml-jar-path "/usr/local/Cellar/plantuml/1.2018.2/libexec/plantuml.jar")
(setq org-plantuml-jar-path "/usr/local/Cellar/plantuml/1.2018.2/libexec/plantuml.jar")

(org-babel-do-load-languages
 'org-babel-load-languages
 '((sql . t)
   (sh . t)
   (http . t)
   (plantuml . t)
   (clojure . t)))

(setq org-confirm-babel-evaluate nil)

(set-default-font "Source Code Pro")
(set-face-attribute 'default nil :height 200)