dotfiles/.emacs.d/emacs.org

Emacs Configuration

• Startup
  • Disable the emacs startup screen.
• Global key bindings
• Look and Feel
• Package Configuration
  • Autocomplete
  • Helm
  • Expand Region
  • Flycheck
  • Git-Gutter
  • Magit
  • Org
    • Modules
    • Tasks
      • Keep logs in their own drawer
      • Log completion
      • Habits
    • Refiling
    • Babel
      • Syntax highlighting
      • Language evaluation
  • Powerline
  • Projectile
  • Ack-and-a-half
  • Web Mode
  • BBDB
  • Gnus
    • Avoid rich-text messages
    • Summary view formatting
    • Inline images
• Programming
  • Libraries
    • Dash
  • Lisps
  • Erlang
  • PHP
  • Ruby
  • Yaml
• Other functionality
  • Disable tab indenting by default
  • Rename file and buffer
  • Eval and Replace
  • Smarter navigation to the beginning of a line
  • Edit file with sudo
  • Backups
  • History
  • Copy filename to clipboard
• Custom settings
• Auto-loading elisp files
• Configuration file layout

Startup

Disable the emacs startup screen.

  (setq inhibit-startup-screen +1)

Global key bindings

  (global-set-key (kbd "C-,") 'kill-whole-line)

Look and Feel

  (use-package solarized-theme
    :ensure t
    :init (load-theme 'solarized-dark 't))

Package Configuration

Autocomplete

  (use-package auto-complete
    :ensure t
    :defer t
    :init
    (progn (require 'auto-complete-config)
           (ac-config-default)
           (global-auto-complete-mode t)))

Helm

  (use-package helm
    :ensure t
    :diminish helm-mode
    :bind (("M-x" . helm-M-x)
           ("M-y" . helm-show-kill-ring)
           ("C-x b" . helm-mini)
           ("C-x C-b" . helm-buffers-list)
           ("C-x C-f" . helm-find-files)
           ("C-x C-r" . helm-recentf))
    :init (progn
            (require 'helm-config)
            (helm-mode 1)
            (add-hook 'eshell-mode-hook
                      (lambda ()
                        (define-key eshell-mode-map (kbd "TAB") 'helm-esh-pcomplete)
                        (define-key eshell-mode-map (kbd "C-c C-l") 'helm-eshell-history)))))

Expand Region

  (use-package expand-region
    :ensure t
    :bind ("C-=" . er/expand-region))

Flycheck

  (use-package flycheck
    :ensure t
    :defer t
    :init
    (add-hook 'after-init-hook #'global-flycheck-mode))

Git-Gutter

  (use-package git-gutter
    :ensure t
    :defer t
    :idle (global-git-gutter-mode t)
    :config
    (progn
      (defadvice ediff-make-temp-file (before make-temp-file-suspend-ll
                                              activate compile preactivate)
        "Disable git-gutter when running ediff"
        (global-git-gutter-mode 0))
      
      (add-hook 'ediff-cleanup-hook
                '(lambda ()
                   (global-git-gutter-mode t)))))

Magit

  (use-package magit
    :ensure t
    :commands (magit-init
               magit-status
               magit-diff
               magit-commit)
    :config
    (progn
      (defadvice magit-status (around magit-fullscreen activate)
        (window-configuration-to-register :magit-fullscreen)
        ad-do-it
        (delete-other-windows))
      
      (defadvice magit-quit-window (around magit-restore-screen activate)
        ad-do-it
        (jump-to-register :magit-fullscreen))))

  (use-package magit-blame
    :ensure magit
    :commands (magit-blame-mode))

Org

Modules

org-habit

  (let ((modules (mapcar (lambda (m) (intern (car m)))
                         '<<org-module-table()>>)))
    (mapcar (lambda (m) (add-to-list 'org-modules m))
            modules))
  (org-load-modules-maybe t)

Tasks

Keep logs in their own drawer

  (setq org-log-into-drawer t)

Log completion

  (setq org-log-done 'time)

Habits

Shift the consistency graph over a bit to make room for task names.

  (setq org-habit-graph-column 70)
  (setq org-habit-show-habits-only-for-today nil)

Refiling

  (setq org-refile-targets '((org-agenda-files . (:maxlevel . 6))))

Babel

Syntax highlighting

  (setq-default org-src-fontify-natively t)

Language evaluation

Org-babel evaluation will be turned on for the following languages. Setting Confirm Evaluation to No disables the security prompt for that language.

Language	Alias	Confirm Evaluation?	Description
emacs-lisp		Yes	Emacs Lisp
graphviz-dot	dot	No	Directed and undirected graphs
ditaa		No	Ascii diagrams
plantuml		No	Flow charts
mscgen		No	Message sequence charts
haskell		Yes	A pure, functional language
python		Yes	A dynamic, all-purpose language
ruby		Yes	A dynamic, all-purpose language
sh		Yes	Shell scripts

  (defvar my/org-babel-evaluated-languages ())
  (defvar my/org-src-lang-modes ())
  (defvar my/org-babel-no-confirm-languages ())

  (defun my/org-confirm-babel-evaluate (lang body)
    (not (member (intern lang) my/org-babel-no-confirm-languages)))

  (let ((language-table (cddr '<<org-babel-languages()>>)))
    (mapcar (lambda (lang-pair)
              (let* ((alias (if (not (string= (cadr lang-pair) "")) (cadr lang-pair)))
                     (lang (intern (car lang-pair)))
                     (lang-or-alias (if alias (intern alias) lang))
                     (confirm (not (string= (cl-caddr lang-pair) "No"))))
                (if alias
                    (add-to-list 'my/org-src-lang-modes (cons alias lang)))
                (if (not confirm)
                    (add-to-list 'my/org-babel-no-confirm-languages lang-or-alias))
                (add-to-list 'my/org-babel-evaluated-languages lang-or-alias)
                lang-or-alias))
            language-table))

  (mapcar (lambda (alias)
            (add-to-list 'org-src-lang-modes alias))
          my/org-src-lang-modes)

  (org-babel-do-load-languages
   'org-babel-load-languages
   (mapcar (lambda (lang)
             (cons lang t))
           my/org-babel-evaluated-languages))

  (setq org-confirm-babel-evaluate 'my/org-confirm-babel-evaluate)

Powerline

  (use-package powerline
    :ensure t
    :init (powerline-default-theme))

Projectile

       (use-package projectile
         :ensure t
         :defer t
         :idle (projectile-global-mode)
         :config (progn (require 'helm-projectile)
                        (helm-projectile-on)))

Ack-and-a-half

  (use-package ack-and-a-half
    :ensure t)

Web Mode

  (use-package web-mode
    :ensure t
    :mode ("\\.html$" . web-mode)
    :config (add-hook 'web-mode-hook (lambda ()
                                       (setq web-mode-markup-indent-offset 4)
                                       (setq web-mode-css-indent-offset 4)
                                       (setq web-mode-code-indent-offset 4))))

BBDB

  (use-package bbdb
    :ensure t
    :defer t
    :idle (require 'bbdb)
    :config (progn (load "bbdb-com" t)
                   (bbdb-initialize 'gnus 'message)
                   (bbdb-insinuate-message)
                   (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)))

Gnus

  (use-package gnus
    :commands gnus
    :init (progn (defun my/configure-gnus ()
                     <<gnus>>
                     )
                   (setq gnus-before-startup-hook 'my/configure-gnus)))

Avoid rich-text messages

  (setq mm-discouraged-alternatives '("text/html" "text/richtext"))

Summary view formatting

Taken from http://groups.google.com/group/gnu.emacs.gnus/browse_thread/thread/a673a74356e7141f

  (when window-system
    (setq gnus-sum-thread-tree-indent "  ")
    (setq gnus-sum-thread-tree-root "") ;; "● ")
    (setq gnus-sum-thread-tree-false-root "") ;; "◯ ")
    (setq gnus-sum-thread-tree-single-indent "") ;; "◎ ")
    (setq gnus-sum-thread-tree-vertical        "│")
    (setq gnus-sum-thread-tree-leaf-with-other "├─► ")
    (setq gnus-sum-thread-tree-single-leaf     "╰─► "))
  (setq gnus-summary-line-format
        (concat
         "%0{%U%R%z%}"
         "%3{│%}" "%1{%d%}" "%3{│%}" ;; date
         "  "
         "%4{%-20,20f%}"               ;; name
         "  "
         "%3{│%}"
         " "
         "%1{%B%}"
         "%s\n"))
  (setq gnus-summary-display-arrow t)

Inline images

  (add-to-list 'mm-attachment-override-types "image/.*")
  (setq mm-inline-large-images t)

Programming

Libraries

Dash

A modern list api for Emacs. No 'cl required.

  (use-package dash
    :ensure t
    :config (dash-enable-font-lock))

Lisps

Mode	Description	Package
lisp	Common Lisp
emacs-lisp	Emacs Lisp
scheme	Scheme
lfe	Lisp-Flavored Erlang	lfe-mode
clojure	Clojure

  (let ((packages (-remove 'null
                           (mapcar 'last (cddr '<<lisps()>>)))))
    `(progn ,@packages))

(progn
  ("")
  ("")
  ("")
  ("lfe-mode")
  (""))

  ;; SLIME
  (if (file-exists-p "~/quicklisp/slime-helper.el")
      (load (expand-file-name "~/quicklisp/slime-helper.el")))

  (setq inferior-lisp-program "clisp")

  (use-package paredit
    :ensure t)

  (use-package rainbow-identifiers
    :ensure t)

  (use-package rainbow-delimiters
    :ensure t)

  (mapc (lambda (lisp)
          (let ((mode-hook (intern (concat lisp "-mode-hook"))))
            (message (format "Installing LISP mode hook for %S" mode-hook))
            (add-hook mode-hook (lambda ()
                                  (show-paren-mode t)
                                  (electric-indent-mode t)
                                  (paredit-mode t)
                                  (rainbow-delimiters-mode t)
                                  (rainbow-identifiers-mode t)))))
        (mapcar 'car (cddr '<<lisps()>>)))

Erlang

  (use-package erlang
    :ensure t
    :config (add-hook 'erlang-mode-hook
                      (lambda ()
                        (setq inferior-erlang-machine-options '("-sname" "emacs"
                                                                "-hidden")))))

PHP

       (use-package web-mode
         :ensure t
         :mode "\\.html?$")

       (use-package php-mode
         :ensure t
         :mode (("\\.php$" . php-mode)
                ("\\.inc$" . php-mode))
         :config (add-hook 'php-mode-hook (lambda ()
                                            "Customize PHP indentation"
                                            (c-set-offset 'arglist-cont-nonempty 'c-lineup-arglist)
                                            (c-set-offset 'substatement-open 0)
                                            (c-set-offset 'case-label '+))))

Ruby

  (use-package rvm
    :ensure t
    :idle (rvm-use-default))

Yaml

  (use-package yaml-mode
    :ensure t
    :mode "\.yml$")

Other functionality

Disable tab indenting by default

  (setq-default indent-tabs-mode nil)

Rename file and buffer

Taken from Emacs Redux

  ;; emacsredux.com
  (defun rename-file-and-buffer ()
    "Rename the current buffer and file it is visiting."
    (interactive)
    (let ((filename (buffer-file-name)))
(if (not (and filename (file-exists-p filename)))
   (message "Buffer is not visiting a file!")
 (let ((new-name (read-file-name "New name: " filename)))
   (cond
    ((vc-backend filename) (vc-rename-file filename new-name))
    (t
     (rename-file filename new-name t)
     (rename-buffer new-name)
     (set-visited-file-name new-name)
     (set-buffer-modified-p nil)))))))

Eval and Replace

Taken from Emacs Redux

  (defun eval-and-replace ()
    "Replace the preceding sexp with its value."
    (interactive)
    (backward-kill-sexp)
    (condition-case nil
        (prin1 (eval (read (current-kill 0)))
               (current-buffer))
      (error (message "Invalid expression")
             (insert (current-kill 0)))))

  (global-set-key (kbd "C-)") 'eval-and-replace)

Smarter navigation to the beginning of a line

Taken from Emacs Redux

  (defun smarter-move-beginning-of-line (arg)
    "Move point back to indentation of beginning of line.

  Move point to the first non-whitespace character on this line.
  If point is already there, move to the beginning of the line.
  Effectively toggle between the first non-whitespace character and
  the beginning of the line.

  If ARG is not nil or 1, move forward ARG - 1 lines first.  If
  point reaches the beginning or end of the buffer, stop there."
    (interactive "^p")
    (setq arg (or arg 1))

    ;; Move lines first
    (when (/= arg 1)
(let ((line-move-visual nil))
 (forward-line (1- arg))))

    (let ((orig-point (point)))
(back-to-indentation)
(when (= orig-point (point))
 (move-beginning-of-line 1))))

  ;; remap C-a to `smarter-move-beginning-of-line'
  (global-set-key [remap move-beginning-of-line]
    'smarter-move-beginning-of-line)

Edit file with sudo

Taken from EmacsWiki

  (require 'dired)
  (defun sudo-edit-current-file ()
    (interactive)
    (let ((my-file-name) ; fill this with the file to open
          (position))    ; if the file is already open save position
      (if (equal major-mode 'dired-mode) ; test if we are in dired-mode 
          (progn
            (setq my-file-name (dired-get-file-for-visit))
            (find-alternate-file (prepare-tramp-sudo-string my-file-name)))
        (setq my-file-name (buffer-file-name); hopefully anything else is an already opened file
              position (point))
        (find-alternate-file (prepare-tramp-sudo-string my-file-name))
        (goto-char position))))


  (defun prepare-tramp-sudo-string (tempfile)
    (if (file-remote-p tempfile)
        (let ((vec (tramp-dissect-file-name tempfile)))

          (tramp-make-tramp-file-name
           "sudo"
           (tramp-file-name-user nil)
           (tramp-file-name-host vec)
           (tramp-file-name-localname vec)
           (format "ssh:%s@%s|"
                   (tramp-file-name-user vec)
                   (tramp-file-name-host vec))))
      (concat "/sudo:root@localhost:" tempfile)))

  (define-key dired-mode-map [s-return] 'sudo-edit-current-file)

Backups

Borrowed from Sacha Chua https://github.com/sachac/.emacs.d/

This is one of the things people usually want to change right away. By default, Emacs saves backup files in the current directory. These are the files ending in ~ that are cluttering up your directory lists. The following code stashes them all in ~/.emacs.d/backups, where I can find them with C-x C-f (find-file) if I really need to.

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

Disk space is cheap. Save lots.

  (setq delete-old-versions -1)
  (setq version-control t)
  (setq vc-make-backup-files t)
  (setq auto-save-file-name-transforms '((".*" "~/.emacs.d/auto-save-list/" t)))

History

From http://www.wisdomandwonder.com/wordpress/wp-content/uploads/2014/03/C3F.html

  (setq savehist-file "~/.emacs.d/savehist")
  (savehist-mode 1)
  (setq history-length t)
  (setq history-delete-duplicates t)
  (setq savehist-save-minibuffer-history 1)
  (setq savehist-additional-variables
        '(kill-ring
          search-ring
          regexp-search-ring))

Copy filename to clipboard

http://emacsredux.com/blog/2013/03/27/copy-filename-to-the-clipboard/ https://github.com/bbatsov/prelude

  (defun prelude-copy-file-name-to-clipboard ()
    "Copy the current buffer file name to the clipboard."
    (interactive)
    (let ((filename (if (equal major-mode 'dired-mode)
                        default-directory
                      (buffer-file-name))))
      (when filename
        (kill-new filename)
        (message "Copied buffer file name '%s' to the clipboard." filename))))

Custom settings

Store options set via customize-* in a separate file (Emacs stores them in init.el by default).

  (setq custom-file "~/.emacs.d/custom.el")
  (if (file-exists-p custom-file)
      (load custom-file))

Auto-loading elisp files

Any elisp files dropped into ~/.emacs.local.d/ will be automatically loaded.

I usually use this is a testing ground for new configuration before adding it here, and also for any personal / sensitive configuration.

  (defun my/load-elisp-directory (path)
    (let ((file-pattern "\\.elc?$"))
      (when (file-directory-p path)
        (mapcar (lambda (lisp-file)
                  (load-file lisp-file))
                (directory-files (expand-file-name path) t file-pattern)))))

  (my/load-elisp-directory "~/.emacs.local.d")

Configuration file layout

Here I define the emacs.el file that gets generated by the code in this org file.

  ;;;; Do not modify this file by hand.  It was automatically generated
  ;;;; from `emacs.org` in the same directory. See that file for more
  ;;;; information.
  ;;;;

  <<startup>>
  <<look-and-feel>>
  <<autocomplete>>
  <<packages>>
  <<programming>>
  <<other>>
  <<auto-load>>
  <<custom-settings>>