init.el

;; ------------------------------------
;; -*- Mode: Emacs-Lisp -*-
;; -*- lisp -*-
;; ~/.emacs.d/init.el
;; Jaseem Abid <jaseemabid@gmail.com>
;; ------------------------------------

;; --------
;; Identity
;; --------
(setq init-file-user "jaseem"
      user-full-name "Jaseem Abid"
      user-nick "jaseemabid"
      user-mail-address "jaseemabid@gmail.com")

;; --------
;; Encoding
;; --------
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(prefer-coding-system 'utf-8)

;; ---------------
;; Custom Packages
;; ---------------
(setq package-archives
      '(("org" . "http://orgmode.org/elpa/")
        ("gnu" . "http://elpa.gnu.org/packages/")
        ("melpa" . "http://melpa.org/packages/")))

;; Install all packages required
(load-file "~/.emacs.d/elpa-list.el")
(package-initialize)

;; Polyfill `package-install-selected-packages`, for Emacs < 25
(unless (fboundp 'package-install-selected-packages)
  (progn
    (require 'cl)
    (defun package-install-selected-packages ()
      (dolist (p package-selected-packages)
        (when (not (package-installed-p p))
          (package-install p))))))

;; Fetch packages the first time
(unless (file-exists-p package-user-dir)
  (package-refresh-contents))

(package-install-selected-packages)

;; use-package.el is no longer needed at runtime
(eval-and-compile
  (require 'use-package))

;; Set the paths early
(use-package exec-path-from-shell
  :config
  (setq exec-path-from-shell-check-startup-files nil)
  (exec-path-from-shell-initialize))

;; Load lisp files from site-lisp
(push (expand-file-name "site-lisp" user-emacs-directory) load-path)

;; -----------------
;; General settings
;; -----------------
(setq-default c-basic-indent 4
              c-basic-offset 4
              c-default-style nil
              case-fold-search t
              column-number-mode t
              create-lockfiles nil
              fill-adapt-mode t
              fill-column 80
              indent-tabs-mode nil
              initial-scratch-message nil
              inhibit-startup-screen t
              major-mode 'org-mode
              mouse-autoselect-window t
              next-line-add-newlines nil
              nxml-child-indent 4
              require-final-newline t
              ring-bell-function 'ignore
              sentence-end-double-space nil
              tab-width 4
              transient-mark-mode t
              vc-follow-symlinks t
              visible-bell t
              truncate-lines t)

;; Make y/n suffice for yes/no q
(fset 'yes-or-no-p 'y-or-n-p)

;; ----------------------
;; Fonts and text styling
;; ----------------------
(setq font-lock-maximum-decoration t)
;; Larger fonts for the mac

;; Font setup with Fira
(when (window-system)
  (set-frame-font "Inconsolata-14"))

;; Snippets
(load-file "~/.emacs.d/snippets.el")

;; Prevent accidentally suspending the frame
(unbind-key "C-x C-z")

;; Always split horizontally
(setq split-height-threshold most-positive-fixnum)

;; Keeping windows always balanced
;; http://blog.danielgempesaw.com/post/45400072065/keeping-my-emacs-windows-balanced
(progn
  (defadvice split-window-below (after restore-balanace-below activate)
    (balance-windows))

  (defadvice split-window-right (after restore-balance-right activate)
    (balance-windows))

  (defadvice delete-window (after restore-balance activate)
    (balance-windows)))

;; Never bother to show *compilation* window. It's annoying
(setq display-buffer-alist
      '(("\\*compilation\\*" display-buffer-no-window (nil))))


;; Mac specific stuff
(when (eq system-type 'darwin)
  ;; "Mac hook"
  (setq mac-command-modifier 'control
        mac-option-modifier 'meta
        ns-use-srgb-colorspace t
        ns-alternate-modifier 'meta
        ns-auto-hide-menu-bar nil
        ns-command-modifier 'control
        ns-control-modifier 'control
        ns-function-modifier 'hyper)

  ;; Set single keys shortcuts for most common operations
  (bind-key "H--" 'split-window-below)
  (bind-key "H-\\" 'split-window-right)
  (bind-key "H-k" 'kill-this-buffer)
  (bind-key "H-l" 'sort-lines)
  (bind-key "H-n" 'flycheck-next-error)
  (bind-key "H-o" 'find-file)
  (bind-key "H-p" 'flycheck-previous-error)
  (bind-key "H-s" 'occur)
  (bind-key "H-t" 'transpose-windows))

;; No bars and buttons on linux, show a menu bar on mac anyway
(if (eq system-type 'darwin)
    (menu-bar-mode t)
  (menu-bar-mode -1))

(when window-system
  (scroll-bar-mode -1)
  (tool-bar-mode -1)
  (tooltip-mode -1))

;; backup files
(setq backup-directory-alist '(("." . "~/.emacs.d/backups")))

;; ---------------
;; Top level hooks
;; --------------

(use-package files
  :init
  (add-hook 'find-file-hook 'j/find-file-large-hook)
  (add-hook 'write-file-hooks 'delete-trailing-whitespace)
  (remove-hook 'find-file-hook 'vc-find-file-hook)
  (defun j/find-file-large-hook ()
    "If a file is over a given size, make the buffer read only."
    (when (> (buffer-size) (* 1024 1024))
      (setq buffer-read-only t)
      (buffer-disable-undo)
      (fundamental-mode))))

;; ----------------
;; auto-mode-alists
;; ----------------
(add-to-list 'auto-mode-alist '("\\._\\'" . html-mode))
(add-to-list 'auto-mode-alist '("\\.ext\\'" . html-mode))
(add-to-list 'auto-mode-alist '("\\.js\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.less\\'" . less-css-mode))
(add-to-list 'auto-mode-alist '("\\.mako\\'" . html-mode))
(add-to-list 'auto-mode-alist '("\\.hdl\\'" . vhdl-mode))
(add-to-list 'auto-mode-alist '("\\.scss\\'" . css-mode))
(add-to-list 'auto-mode-alist '("\\.txt\\'" . org-mode))
(add-to-list 'auto-mode-alist '("mutt-.*-" . mail-mode))

;; ------------------
;; Custom keybindings
;; ------------------

;; Buffer management
;; Switch to previously open buffer
(bind-key "C-c <left>" 'mode-line-other-buffer)
(bind-key "C-c <right>" 'mode-line-other-buffer)
(bind-key "C-c b" 'bury-buffer)
(bind-key "C-c n" 'mode-line-other-buffer)
(bind-key "C-x <down>" 'windmove-down)
(bind-key "C-x <left>" 'windmove-left)
(bind-key "C-x <right>" 'windmove-right)
(bind-key "C-x <up>" 'windmove-up)
(bind-key "C-x |" 'split-window-right)
(bind-key "C-x -" 'split-window-below)

;; eval and replace
(bind-key "C-c e" 'eval-and-replace)

;; powerful counterparts ?
(bind-key "C-s" 'isearch-forward-regexp)
(bind-key "C-r" 'isearch-backward-regexp)
(bind-key "C-M-s" 'isearch-forward)
(bind-key "C-M-r" 'isearch-backward)

;; navigation bindings
(bind-key "M-p" 'backward-paragraph)
(bind-key "M-n" 'forward-paragraph)

;; sorting and aligning
(bind-key "M-s a" 'align-regexp)
(bind-key "M-s l" 'sort-lines)
(bind-key "M-s r" 'reverse-region)

;; string-replace
(bind-key "C-l" 'replace-string)

;; copy word at point
(bind-key "C-c w" 'copy-word)

;; ----------------------
;; Package customizations
;; ----------------------
(use-package abbrev
  :diminish abbrev-mode

  :config
  ;; stop asking whether to save newly added abbrev when quitting emacs
  (setq save-abbrevs nil)
  (setq-default abbrev-mode t)

  (define-abbrev-table 'global-abbrev-table
    '(
      ;; math/unicode symbols
      ("8N" "ℕ")
      ("8R" "ℝ")
      ("8Sig" "Σ")
      ("8bot" "⟂")
      ("8gam" "Γ")
      ("8in" "∈")
      ("8inf" "∞")
      ("8inr" "₹")
      ("8lam" "λ")
      ("8lar" "←")
      ("8luv" "♥")
      ("8meh" "¯\\_(ツ)_/¯")
      ("8nin" "∉")
      ("8no" "❌")
      ("8ok" "✓")
      ("8rar" "→")
      ("8rs" "₹")
      ("8sig" "σ")
      ("8smly" "☺")
      ("8star" "★")
      ("8t" "#+TITLE:")
      ("8tau" "τ")

      ;; email
      ("8me" "jaseemabid@gmail.com")
      ("8i" "Jaseem Abid")

      ;; normal english words
      ("8alt" "alternative")
      ("8char" "character")
      ("8def" "definition")
      ("8bg" "background")
      ("8kb" "keyboard")
      ("8ex" "example")
      ("8env" "environment")
      ("8var" "variable")
      ("8cp" "computer"))))

(use-package ace-jump-mode
  :bind ("C-c SPC" . ace-jump-mode))

(use-package auto-complete
  :bind ("M-/" . auto-complete)
  :diminish auto-complete-mode
  :config
  (ac-config-default)
  (add-to-list 'ac-dictionary-directories "~/.aspell.en.pws")
  (ac-flyspell-workaround)
  (add-to-list 'ac-modes 'git-commit-mode)
  (add-to-list 'ac-modes 'org-mode))

(use-package auto-highlight-symbol
  :diminish auto-highlight-symbol-mode
  :config
  (setq ahs-idle-interval 0.2)
  (add-hook 'prog-mode-hook 'auto-highlight-symbol-mode)
  (setq ahs-default-range 'ahs-range-whole-buffer))

(use-package bookmark
  :bind-keymap ("C-x m" . bookmark-map))

(use-package delsel
  :config
  ;; type over a region
  (pending-delete-mode t))

(use-package desktop
  :bind ("C-c s" . desktop-save-in-desktop-dir)
  :init
  (setq desktop-files-not-to-save "^$"
        desktop-load-locked-desktop t
        desktop-path '("~/.emacs.d/")
        desktop-save t)
  (desktop-save-mode t)
  (add-to-list 'desktop-modes-not-to-save 'dired-mode)
  (add-to-list 'desktop-modes-not-to-save 'help-mode)
  (add-to-list 'desktop-modes-not-to-save 'fundamental-mode)
  (add-to-list 'desktop-modes-not-to-save 'completion-list-mode))

(use-package fic-mode
  :config
  (setq fic-highlighted-words '("TODO" "BUG" "VERIFY" "NOTE" "XXX"))
  (add-hook 'prog-mode-hook 'fic-mode))

(use-package dired
  :bind (("C-x C-d" . dired)
         ("C-x d" . j/dired-open-here)
         :map dired-mode-map
         ("r" . j/dired-open-external))
  :config
  ;; Set the name of the host and current path/file in title bar:
  (setq frame-title-format "%b")
  (defun j/dired-open-here ()
    "Open current directory."
    (interactive)
    (dired (file-name-directory (or buffer-file-name "~/"))))
  (defun j/dired-open-external ()
    "In dired, open the file named on this line with external tool."
    (interactive)
    (let* ((file (dired-get-filename nil t)))
      (call-process "open" nil 0 nil file))))

(use-package dired-details
    :config
    (dired-details-install)
    (setq dired-details-hidden-string ""))

(use-package ediff
  :config
  (setq ediff-split-window-function 'split-window-horizontally
        ediff-window-setup-function 'ediff-setup-windows-plain))

(use-package edts
  :diminish edts-mode
  :disabled t
  :init
  (setq edts-doc-style 'buffer
        edts-inhibit-package-check t
        edts-man-root "~/.emacs.d/edts/doc/18.2.1")
  (add-hook 'after-init-hook
            (defun j/edts-setup ()
              (require 'edts-start)
              (use-package eproject-extras
                :demand t
                :diminish eproject-mode
                :bind (:map eproject-mode-map ("C-c b" . bury-buffer))))))

(use-package emacs-lisp-mode
  :bind (("M-." . find-function-at-point)
         ("C-h C-f" . find-function))
  :config
  (add-hook 'emacs-lisp-mode-hook (lambda () (setq mode-name "ξ"))))

(use-package erlang
  :disabled t
  :init
  (add-to-list 'auto-mode-alist '("\\.P\\'" . erlang-mode))
  (add-to-list 'auto-mode-alist '("\\.E\\'" . erlang-mode))
  (add-to-list 'auto-mode-alist '("\\.S\\'" . erlang-mode))
  :bind (:map erlang-mode-map ("C-c l" . magit-log-head))
  :config
  (add-hook 'erlang-mode-hook
            (lambda ()
              (setq mode-name "erl"
                    erlang-compile-extra-opts '((i . "../include"))
                    erlang-root-dir  "/usr/local/lib/erlang"))))

(use-package etags
  :config
  (setq tags-revert-without-query t))

(use-package face-remap
  :bind (("M-+" . text-scale-adjust)
         ("M--" . text-scale-adjust)
         ("M-0" . text-scale-adjust)))

(use-package files
  :bind ("<f5>" . j/revert)
  :config
  (defun j/revert ()
    (interactive)
    (revert-buffer t t)))

(use-package fill-column-indicator
  :config
  (setq fci-rule-column 81)
  (add-hook 'prog-mode-hook 'fci-mode))

(use-package flycheck
  :bind (("<f9>" . flycheck-list-errors)    ;; Magnifying glass
         ("<f4>" . flycheck-previous-error) ;; Media Prev
         ("<f6>" . flycheck-next-error))    ;; Media Next
  :diminish flycheck-mode
  :config
  (add-hook 'after-init-hook 'global-flycheck-mode)
  (setq flycheck-display-errors-function nil
        flycheck-erlang-include-path '("../include")
        flycheck-erlang-library-path '("../_build/default/lib/coracle/ebin")
        flycheck-check-syntax-automatically '(save)
        flycheck-disabled-checkers '(emacs-lisp-checkdoc)))

(use-package flyspell
  :bind (("C-c f" . flyspell-buffer)
         ("C-." . flyspell-correct-word-before-point))
  :diminish flyspell-mode
  :config
  (setq ispell-program-name "aspell")
  (add-hook 'text-mode-hook 'auto-fill-mode)
  (add-hook 'text-mode-hook 'flyspell-mode)
  (add-hook 'prog-mode-hook 'flyspell-prog-mode))

(use-package god-mode
  :bind ("<escape>" . god-local-mode)
  :config
  (defvar j/god-cursor-enabled "red")
  (defvar j/god-cursor-disabled (cdr (assoc 'cursor-color (frame-parameters))))
  (defun j/god-cursor ()
    (set-cursor-color (if (or god-local-mode buffer-read-only)
                          j/god-cursor-enabled
                        j/god-cursor-disabled)))
  (add-hook 'god-mode-enabled-hook 'j/god-cursor)
  (add-hook 'god-mode-disabled-hook 'j/god-cursor))

(use-package intero
  :config
  (add-hook 'haskell-mode-hook 'intero-mode))

(use-package hindent
  :config
  (add-hook 'haskell-mode-hook 'hindent-mode))

(use-package haskell-mode
  :config
  (setq haskell-compile-cabal-build-command "cd %s && stack build"
        haskell-compile-cabal-build-alt-command "cd %s && stack build"
        haskell-compile-command "stack build")
  (add-hook 'haskell-mode-hook 'haskell-indentation-mode)
  (add-hook 'haskell-mode-hook
            (lambda ()
              (setq haskell-indent-spaces 4
                    haskell-indentation-left-offset 4
                    haskell-indentation-starter-offset 4
                    haskell-indentation-where-post-offset 2
                    haskell-indentation-where-pre-offset 2
                    haskell-tags-on-save t)
              ;; Ignore compiled Haskell files in filename completions
              (add-to-list 'completion-ignored-extensions ".hi")))
  ;; Haskell shell stuff
  (eval-after-load "haskell-mode"
    '(progn
       (set-register ?u "undefined")
       (setq haskell-interactive-popup-errors nil)
       (bind-keys :map haskell-mode-map
                  ("C-c C-b" . haskell-interactive-switch)
                  ("C-c C-d" . nil)
                  ("C-c C-i" . haskell-process-do-info)
                  ("C-c C-l" . haskell-process-load-file)
                  ("C-c C-t" . haskell-process-do-type)
                  ("C-c C-z" . haskell-interactive-switch)
                  ("M-." . haskell-mode-jump-to-def)))))

(use-package ibuffer
  :bind ("C-x C-b" . ibuffer)
  :config
  (setq ibuffer-formats
        '((mark modified read-only " "
                (name 30 30 :left :elide) " "
                (size 9 -1 :right) " "
                (mode 16 16 :left :elide) " " filename-and-process)
          (mark " " (name 16 -1) " " filename))))

(use-package ido
  :config
  (setq ido-all-frames 'visible
        ido-case-fold t
        ido-create-new-buffer 'prompt)
  (ido-mode 1)
  (ido-everywhere 1)

  (use-package flx-ido
    :config
    (flx-ido-mode 1)
    ;; disable ido faces to see flx highlights.
    (setq ido-enable-flex-matching t)
    (setq ido-use-faces nil))

  (use-package ido-vertical-mode
    :bind (:map bookmark-map ("b" . ido-bookmark-jump))
    :config
    (ido-vertical-mode 1)
    (setq ido-vertical-define-keys 'C-n-C-p-up-and-down)
    (defun ido-bookmark-jump ()
      "*Switch to bookmark interactively using `ido'."
      (interactive)
      (bookmark-jump
       (ido-completing-read "Bookmark: " (bookmark-all-names)))))

  (use-package ido-ubiquitous
    :config
    (ido-ubiquitous-mode 1)))

(use-package jedi
  :config
  (add-hook 'python-mode-hook 'jedi:setup)
  (setq jedi:complete-on-dot t
        jedi:use-shortcuts t
        jedi:environment-root "jedi"
        python-environment-directory "~/.virtualenvs"))

(use-package js2-mode
  :bind (("C-c d" . j/js-insert-debugger)
         ("M-RET" . electric-indent-just-newline))
  :init
  (defalias 'js-mode 'js2-mode)
  :config
  (defun j/js-insert-debugger ()
    "Insert a debugger statement at point"
    (interactive)
    (insert "debugger;"))
  (add-hook 'js2-mode-hook
            (lambda () (setq mode-name "JS2")))
  (setq-default js-indent-level 4
                js2-allow-keywords-as-property-names t
                js2-auto-insert-catch-block t
                js2-concat-multiline-strings t
                js2-global-externs '("$")
                js2-highlight-level 3
                js2-include-browser-externs t
                js2-include-node-externs t))

(use-package ledger-mode
  :disabled t
  :mode "\\.ledger\\'"
  :config
  (setq ledger-post-use-completion-engine :ido
        ledger-use-iso-dates t))

(use-package magit
  :bind (("C-c i"   . magit-status)
         ("C-c C-i" . magit-status)
         ("C-c g"   . magit-status)
         :map prog-mode-map
         ("C-c l" . magit-log-head)
         :map dired-mode-map
         ("C-c l" . magit-log-head))
  :config
  (setq magit-process-connection-type nil
        magit-push-always-verify nil
        magit-revision-show-gravatars nil
        process-connection-type nil)
  (add-to-list 'desktop-modes-not-to-save 'magit-mode)
  (add-hook 'magit-log-edit-mode-hook 'flyspell-mode))

(use-package multiple-cursors
  :bind (("C-<" . mc/mark-previous-like-this)
         ("C->" . mc/mark-next-like-this)
         ("C-S-c C-S-c" . mc/edit-lines)
         ("C-c C-<" . mc/mark-all-like-this)))

(use-package newcomment
  :bind ("C-c c" . comment-or-uncomment-region))

(use-package org
  :bind (("C-c a" . org-agenda)
         ("C-c k" . org-store-link)
         ("C-c r" . org-capture)
         :map org-mode-map
         ("C-c l" . j/org-insert-link))
  :config
  (setq org-agenda-files `("~/Notes")
        org-agenda-timegrid-use-ampm t ;; 12hr format for agenda view
        org-completion-use-ido t
        org-default-notes-file "~/Notes/todo.org"
        org-directory "~/Notes"
        org-log-done 'time
        org-return-follows-link t
        org-src-fontify-natively t
        org-startup-folded nil
        org-capture-templates
        '(("t" "Add personal todo" entry (file+headline "~/Notes/todo.org" "Tasks")
           "* TODO %?\n  %i"
           :kill-buffer t
           :empty-lines 1)
          ("w" "Add a work todo" entry (file+headline "~/Notes/work.org" "Tasks")
           "* TODO %?\n  %i"
           :kill-buffer t)
          ("r" "Refile" plain (file "~/Notes/refile.org")
           "%?\n %i"
           :kill-buffer t)
          ("b" "Reading" entry (file+headline "~/Notes/reading.org" "Reading")
           "** %^{title}\n   %T\n\n%?"
           :kill-buffer t)
          ("j" "Journal" plain (file (format "%s%s.org" "~/Notes/Journal/"
                                             (format-time-string "%Y %m %d")))
           "%U\n\n%?%i"
           :kill-buffer t
           :unnarrowed t))))

(use-package paredit
  :diminish paredit-mode
  :config
  (add-hook 'scheme-mode-hook 'paredit-mode)
  (add-hook 'emacs-lisp-mode-hook 'paredit-mode))

(use-package paren
  :config (show-paren-mode t))

(use-package projectile
  :diminish projectile-mode
  :commands projectile-mode
  :bind-keymap ("C-c p" . projectile-command-map)
  :init (setq projectile-mode-line "")
  :config (projectile-mode))

(use-package python
  :mode ("\\.py\\'" . python-mode)
  :interpreter ("python" . python-mode)
  :bind (:map python-mode-map
              ("M-n" . python-nav-forward-defun)
              ("M-p" . python-nav-backward-defun))
  :config
  (setq-default python-fill-docstring-style 'pep-257-nn)
  (add-hook 'python-mode-hook (lambda () (setq mode-name "Py")))
  (set-register ?d "import ipdb; ipdb.set_trace()"))

(use-package rainbow-mode
  :config
  (add-hook 'css-mode-hook 'rainbow-mode)
  (add-hook 'html-mode-hook 'rainbow-mode))

(use-package recentf
  :bind ("C-x C-r" . recentf-open-files)
  :init
  (recentf-mode 1))

(use-package rect
  :config
  (defalias 'rectangle-insert-string 'string-insert-rectangle))

(use-package restclient
  :mode ( "\\.rest\\'" . restclient-mode))

(use-package saveplace
  :config
  (setq-default save-place t)
  (setq save-place-file "~/.emacs.d/places"))

(use-package server
  :config
  (unless (server-running-p)
    (server-start)))

(use-package sgml-mode
  :bind (("<M-left>" . sgml-skip-tag-backward)
         ("<M-right>" . sgml-skip-tag-forward))
  :config
  (add-hook 'html-mode-hook
            (lambda ()
              (set (make-local-variable 'sgml-basic-offset) 2)
              (set (make-local-variable 'tab-width) 2))))

(use-package smex
  :bind (("M-x" . smex)
         ("M-X" . smex-major-mode-commands)
         ("C-c C-c M-x" . execute-extended-command))
  :init
  (when (eq window-system 'x)
    (shell-command "xmodmap -e 'clear Lock' -e 'keycode 66 = F13'")))

(use-package subword
  :diminish superword-mode
  :config (global-superword-mode t))

(use-package tramp
  :config
  (setq tramp-auto-save-directory "~/.emacs.d/auto-save-list"
        tramp-completion-reread-directory-timeout nil
        tramp-connection-timeout 30
        tramp-default-host "localhost"
        tramp-default-method "scp"))

(use-package uniquify
  :config
  (setq uniquify-buffer-name-style 'forward
        uniquify-min-dir-content 1))

(use-package virtualenvwrapper
  :config
  (venv-initialize-interactive-shells)
  (venv-initialize-eshell))

(use-package material
  :config
  (load-theme 'material t))

(require 'dot-toggle)
(require 'dot-lambda-fontify)

;; Private setup, passwords and key, if it exists.
(load "~/.emacs.d/private.el" 'noerror)

;; Note, load ERC only after private
(load-file "~/.emacs.d/erc.el")
(load-file "~/.emacs.d/eshell/init.el")

;; Load customized config
(setq custom-file "~/.emacs.d/custom.el")
(load custom-file 'noerror)