path: root/.config/emacs/init.el

;; This config requires Emacs 24.4(+?)
;; Hey, Emacs: -*- Indent-tabs-mode: nil -*-
;; Without (advice-add) it should work in older versions of Emacs 24.
;;;; Use XDG-ish locations ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(let ((xdg-cache-home (file-name-as-directory (or (getenv "XDG_CACHE_HOME") "~/.cache")))
      (xdg-data-home  (file-name-as-directory (or (getenv "XDG_DATA_HOME") "~/.local/share"))))
  (setq
   wl-init-file                 (concat user-emacs-directory "wl.el")
   eshell-directory-name        (concat xdg-data-home "emacs/eshell/") ;; actually should be split between config and data
   ido-save-directory-list-file (concat xdg-data-home "emacs/ido.last.el")

   package-user-dir             (concat xdg-cache-home "emacs/elpa")
   el-get-dir                   (concat xdg-cache-home "emacs/el-get/")
   wl-score-files-directory     (concat xdg-cache-home "emacs/wl-score-files/")
   elmo-msgdb-directory         (concat xdg-cache-home "emacs/elmo-msgdb/")
   elmo-cache-directory         (concat xdg-cache-home "emacs/elmo-cache/")
   auto-save-list-file-prefix   (concat xdg-cache-home "emacs/auto-save-list/saves-")
   tramp-persistency-file-name  (concat xdg-cache-home "emacs/tramp-cache.el")
   ))

(setq custom-file (concat user-emacs-directory "custom.el"))
(load custom-file 'noerror)

;;;; The basics that I can't use Emacs without ;;;;;;;;;;;;;;;;;;;;;;;
(show-paren-mode 1)
(column-number-mode 1)
(line-number-mode 1)
(ido-mode 1)
(unless (daemonp) (server-mode 1))
(when (require 'whitespace nil t)
  (setq whitespace-style '(
        tab-mark
        space-mark
        newline-mark
        empty
        ))
  (global-set-key "\C-cw" 'global-whitespace-mode))
(setq minibuffer-prompt-properties '(
      read-only t
      point-entered minibuffer-avoid-prompt
      face minibuffer-prompt
      ))


;;;; Early settings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This isn't particularly important, but set it before doing a whole
;; lot (loading packages), so there isn't a weird change in text size.
(set-face-attribute 'default nil :height 80)


;;;; Package management ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; package.el
(require 'package)
(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/"))
(setq package-enable-at-startup nil)
(package-initialize)
;; use-package.el
(setq use-package-always-ensure t)
(add-to-list 'load-path (concat user-emacs-directory "use-package"))
(require 'use-package)
(require 'bind-key)

;; Minor modes
(use-package dtrt-indent ;; Detect indent style for existing files
  :config (dtrt-indent-mode 1))
(use-package page-break-lines ;; Display form-feeds pretty
  :init (advice-add 'page-break-lines-mode-maybe
                    :override #'page-break-lines-mode)
  :config (global-page-break-lines-mode 1))
(use-package smart-tabs-mode ;; Indent with tabs, align with spaces
  :config (progn
            (smart-tabs-mode 1)
            (apply 'smart-tabs-insinuate
                   (mapcar 'car smart-tabs-insinuate-alist))))
(use-package editorconfig)
;; Major modes
(use-package bison-mode
  :mode (("\\.l\\'" . bison-mode)
         ("\\.y\\'" . bison-mode)
         ("\\.jison\\'" . jison-mode)))
(use-package coffee-mode
  :mode ("\\.coffee\\'"
         "\\.iced\\'"
         "\\Cakefile\\'"
         "\\.cson\\'")
  :interpreter "coffee"
  :config (add-hook 'coffee-mode-hook
                    '(lambda ()
                       (set (make-local-variable 'tab-width) 2)
                       (set (make-local-variable 'indent-tabs-mode) nil)
                       )))
(use-package graphviz-dot-mode
  :mode ("\\.dot\\'" "\\.gv\\'")
  :config (add-hook 'graphviz-dot-mode-hook
                    '(lambda ()
                       (set (make-local-variable 'graphviz-dot-auto-indent-on-semi) nil)
                       )))
;;(use-package php-mode-improved
;;  :mode (("\\.php[s34]?\\'" . php-mode)
;;         ("\\.phtml\\'" . php-mode)
;;         ("\\.inc\\'" . php-mode))
;;  :config (add-hook 'php-mode-hook
;;                    '(lambda ()
;;                       (c-set-offset 'cpp-macro 0)
;;                       )))
(use-package cmake-mode        :mode ("CMakeLists\\.txt\\'" "\\.cmake\\'"))
(use-package glsl-mode         :mode ("\\.vert\\'" "\\.frag\\'" "\\.geom\\'" "\\.glsl\\'"))
(use-package go-mode           :mode "\\.go\\'")
(use-package haml-mode         :mode "\\.haml\\'")
(use-package less-css-mode     :mode "\\.less\\'")
(use-package markdown-mode     :mode ("\\.markdown\\'" "\\.md\\'" "\\.ronn\\'"))
(use-package nginx-mode        :mode ("nginx\\.conf\\'" "/nginx/.+\\.conf\\'"))
(use-package php-mode          :mode ("\\.php[s345t]?\\'" "/\\.php_cs\\(\\.dist\\)?\\'" "\\.phtml\\'" "/Amkfile\\'" "\\.amk\\'"))
(use-package scss-mode         :mode "\\.scss\\'")
(use-package yaml-mode         :mode "\\.e?ya?ml\\'")

;;(use-package nxhtml) ; nxhtml is invasive, only enable if actively using

(if (file-exists-p "~/Maildir")
    ;;'(apel flim semi wanderlust)
    (use-package wanderlust
      :config (progn
                (define-mail-user-agent
                  'wl-user-agent
                  'wl-user-agent-compose
                  'wl-draft-send
                  'wl-draft-kill
                  'mail-send-hook)
                (setq mail-user-agent 'wl-user-agent))))


;; Misc. crap

(when (fboundp 'tool-bar-mode) (tool-bar-mode -1))
(when (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
(setq inhibit-startup-screen t)
(setq-default truncate-lines t)

(defun align-regexp--use-spaces (orig-fun &rest args)
  "Use spaces for alignment"
  (let ((indent-tabs-mode nil))
    (apply orig-fun args)))
(advice-add 'align-regexp :around
           #'align-regexp--use-spaces)

(defun sh-smie-sh-rules--fix (args)
  "Replace :after \"then\" with :after \"if\" because Emacs 24
sh-script.el is broken."
  (if (equal args (list :after "then"))
      (list :after "if")
    args))
(advice-add 'sh-smie-sh-rules :filter-args
           #'sh-smie-sh-rules--fix)

;; Ideally, figuring this out should be done by uniquify, but I
;; haven't determined how to get uniquify to think that it manages the
;; term buffer.
(defun term-get-short-cwd ()
    ;; local base=$PWD
    ;; local suffix=''
    ;; # The regex here is a list of directory names
    ;; # that aren't really helpful, and that the
    ;; # parent directory should be included also.
    ;; if [[ $base =~ (/(src|pkg|doc|pkg-libre|src-libre|trunk|tags|branches))*$ ]]; then
    ;;         suffix=$BASH_REMATCH
    ;;         base=${base%$suffix}
    ;; fi
    ;; base=${base##*/}
    ;; echo ${base}${suffix}
    (directory-file-name default-directory))
(defun term-handle-ansi-terminal-messages--uniquify (args)
  (rename-buffer (concat
                  (replace-regexp-in-string "<.*>$" "" (buffer-name))
                  "<"
                  (term-get-short-cwd)
                  ">")
                 t))
(advice-add 'term-handle-ansi-terminal-messages :after
           #'term-handle-ansi-terminal-messages--uniquify)



;; Make the mouse work in an xterm
(when (fboundp 'xterm-mouse-mode)
  (xterm-mouse-mode 1)
  (add-hook 'after-make-frame-functions
            '(lambda (frame)
               (if xterm-mouse-mode (xterm-mouse-mode 1))
               )))

;; Make TRAMP obey ~/.ssh/config for ControlMaster.  For some reason,
;; customize doesn't correctly set this.
(setq tramp-use-ssh-controlmaster-options nil)

;; Use mailcrypt to encrypt/decrypt email
(when (require 'mailcrypt nil t)
  (mc-setversion "gpg")
  (add-hook 'wl-summary-mode-hook 'mc-install-read-mode)
  (add-hook 'wl-mail-setup-hook 'mc-install-write-mode)
  (defun mc-wl-verify-signature ()
    (interactive)
    (save-window-excursion
      (wl-summary-jump-to-current-message)
      (mc-verify)))
  (defun mc-wl-decrypt-message ()
    (interactive)
    (save-window-excursion
      (wl-summary-jump-to-current-message)
      (let ((inhibit-read-only t))
        (mc-decrypt))))
  (eval-after-load "mailcrypt"
    '(setq mc-modes-alist
           (append
            (quote
             ((wl-draft-mode (encrypt . mc-encrypt-message)
                             (sign . mc-sign-message))
              (wl-summary-mode (decrypt . mc-wl-decrypt-message)
                               (verify . mc-wl-verify-signature))))
            mc-modes-alist)))
  )

;; Indent settings
(setq-default
 indent-tabs-mode t
 tab-width 8
 c-basic-offset 8
 sh-basic-offset 8
 sh-indent-comment t
 )

;; Backup settings
(setq
 backup-by-copying	t ;; don't clobber symlinks
 backup-directory-alist	'(("." . "~/.cache/emacs/saves")) ;; don't litter my fs tree
 delete-old-versions	t
 kept-new-versions	6
 kept-old-versions	2
 version-control	t ;; use versioned backups
 )

;; Web browser settings
(setq
 browse-url-generic-program (executable-find "v-www-browser")
 browse-url-browser-function 'browse-url-generic
 )

;; Ediff settings
(setq
 ediff-window-setup-function 'ediff-setup-windows-plain
 ediff-split-window-function 'split-window-horizontally
 )

;; Automatically load smerge mode for merge files
(defun try-smerge-mode ()
  (save-excursion
    (goto-char (point-min))
    (when (re-search-forward "^<<<<<<< " nil t)
      (smerge-mode 1))))
(add-hook 'find-file-hook 'try-smerge-mode t)

;; http://www.emacswiki.org/emacs/XModMapMode
(when (not (fboundp 'xmodmap-mode))
  (define-generic-mode 'xmodmap-mode
    '(?!)
    '("add" "clear" "keycode" "keysym" "pointer" "remove")
    nil
    '("[xX]modmap\\(rc\\)?\\'")
    nil
    "Simple mode for xmodmap files."))


;; All my weird mode-specific settings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(add-hook 'text-mode-hook 'turn-on-auto-fill)

(add-hook 'lisp-mode-hook
          '(lambda ()
             (set (make-local-variable 'indent-tabs-mode) nil)
             ))

(add-hook 'emacs-lisp-mode-hook
          '(lambda ()
             (set (make-local-variable 'indent-tabs-mode) nil)
             ))

(add-hook 'term-mode-hook
          '(lambda ()
             (auto-fill-mode -1)
             (setq term-prompt-regexp "^[^#$%>\n]*[#$%>] *")
             (set (make-local-variable 'mouse-yank-at-point) t)
             (setq tab-width 8 )
             (setq truncate-lines nil)
             (set (make-local-variable 'autopair-dont-activate) t) ;; Don't let autopair break ansi-term
             ))

(add-hook 'ruby-mode-hook
          '(lambda ()
             (set (make-local-variable 'indent-tabs-mode) t)
             (set (make-local-variable 'ruby-indent-level) 4)
             (set (make-local-variable 'tab-width) 4)
             ))

(add-hook 'tex-mode-hook
          '(lambda ()
             (set (make-local-variable 'tab-always-indent) nil)
             (set (make-local-variable 'indent-tabs-mode) t)
             ))

(add-hook 'sh-mode-hook
          '(lambda ()
             (sh-electric-here-document-mode 0)
             ))

(add-to-list 'auto-mode-alist '("PKGBUILD" . sh-mode))
(add-to-list 'auto-mode-alist '("SRCBUILD" . sh-mode))
(add-to-list 'auto-mode-alist '("\\.mak\\'" . makefile-gmake-mode))
(add-to-list 'auto-mode-alist '("\\.jad\\'" . java-mode))


;; Anything that gets magically appended ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(put 'downcase-region 'disabled nil)