init.el

(setq mac-option-key-is-meta t
      mac-command-key-is-meta nil
      mac-option-modifier 'meta)

(require 'package)
(setq package-enable-at-startup nil)
(setq package-archives '(("melpa"        . "https://melpa.org/packages/")
                         ("gnu"          . "https://elpa.gnu.org/packages/")))
(package-initialize)

(setq byte-compile-warnings nil
      gnutls-min-prime-bits 4096)

(defvar refreshed-package-list nil
  "This will be t if the package list has been refreshed.")

(defun ensure-refreshed ()
  "Ensure the package list has been refreshed this startup."
  (unless refreshed-package-list
    (package-refresh-contents)
    (setq refreshed-package-list t)))

(defun package-ensure-installed (package)
  "Install a missing PACKAGE if it isn't already."
  (unless (package-installed-p package)
    (package-install package)))

(advice-add 'package-install
            :before
            (lambda (&rest args)
              (ensure-refreshed)))

(package-ensure-installed 'use-package)
(eval-when-compile
  (defvar use-package-verbose t)
  (require 'use-package))

(package-ensure-installed 'req-package)
(eval-when-compile
  (require 'req-package))

(let ((autosave-dir "~/.autosaves"))
  (unless (file-exists-p (expand-file-name autosave-dir))
    (make-directory (expand-file-name autosave-dir)))
  (setq auto-save-file-name-transforms
    `((".*" ,autosave-dir t))))

(setq auto-save-default t)

(setq auto-save-timeout 20
      auto-save-interval 200)

(let ((backup-dir "~/.backups"))
  (unless (file-exists-p (expand-file-name backup-dir))
    (make-directory (expand-file-name backup-dir)))
  (setq backup-directory-alist `(("." . ,backup-dir))))

(setq backup-by-copying t)

(setq delete-old-versions t
  kept-new-versions 6
  kept-old-versions 2
  version-control t)

(req-package badger-theme
  :config (load-theme 'badger t))

(req-package menu-bar
  :config
  (menu-bar-mode -1))

(req-package tool-bar
  :config
  (tool-bar-mode -1))

(req-package scroll-bar
  :config
  (scroll-bar-mode -1))

(setq-default cursor-type 'box)
(blink-cursor-mode 1)

(req-package simple
  :config
  (column-number-mode 1))

(setq-default indent-tabs-mode nil)

(req-package whitespace
  :diminish global-whitespace-mode
  :init
  (setq whitespace-style
        '(face tabs newline trailing tab-mark space-before-tab space-after-tab))
  (global-whitespace-mode 1))

(global-prettify-symbols-mode 1)

(electric-pair-mode 1)

(req-package rainbow-delimiters
  :commands rainbow-delimiters-mode
  :init
  (custom-set-variables '(rainbow-delimiters-max-face-count 8))
  (add-hook-exec 'emacs-lisp-mode (lambda () (rainbow-delimiters-mode 1))))

(req-package timeclock
  :config (progn (display-time-mode 1)))

(req-package smart-mode-line
  :config
  (progn (setq sml/shorten-modes t)
         (setq sml/shorten-directory t)
         (setq sml/name-width 20)
         (setq sml/mode-width 'full)
         (setq sml/hidden-modes nil)
         (setq sml/theme nil)
         (add-to-list 'sml/hidden-modes " Anzu")
         (add-to-list 'sml/hidden-modes " AC")
         (add-to-list 'sml/hidden-modes " FlyC")
         (add-to-list 'sml/hidden-modes " yas")
         (add-to-list 'sml/hidden-modes " pair")
         (add-to-list 'sml/hidden-modes " FIC")
         (add-to-list 'sml/hidden-modes " Abbrev")
         (add-to-list 'sml/hidden-modes " ARev")
         (add-to-list 'sml/hidden-modes " SliNav")
         (add-to-list 'sml/hidden-modes " ElDoc")
         (add-to-list 'sml/hidden-modes " company")
         (add-to-list 'sml/hidden-modes " overseer")
         (add-to-list 'sml/hidden-modes " Guide")
         (sml/setup)))

(req-package anzu
  :require
  smart-mode-line
  :config
  (global-anzu-mode 1))

(req-package helm
  :bind (("M-x" . helm-M-x)
         ("C-x C-f" . helm-find-files)
         ("C-x b" . helm-buffers-list)
         ("C-c y" . helm-show-kill-ring)
         ("C-x C-r" . helm-recentf)
         ("C-x r l" . helm-bookmarks))
  :config (require 'helm-config))

(req-package ace-jump-helm-line
  :commands ace-jump-helm-line
  :require helm
  :init (define-key helm-map (kbd "C-;") 'ace-jump-helm-line))

(req-package helm-descbinds
  :commands helm-descbinds
  :bind (("C-h b" . helm-descbinds))
  :require helm)

(req-package helm-make
  :commands helm-make
  :bind (("M-p m" . helm-make-projectile))
  :require makefile-runner)

(req-package jedi
  :init
  (progn
    (add-hook 'python-mode-hook 'jedi:setup)
    (setq jedi:complete-on-dot t)))

(req-package json-mode)

(req-package web-mode
  :init (add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode)
                     (setq web-mode-engines-alist
                           '(("django"    . "\\.html\\'")))))

(req-package-finish)