Sean Cribbs' Emacs 25 Configuration
Table of Contents
Introduction
Inspired by Aaron Bedra's emacs configuration, I have converted mine to an org-mode file as well. This should improve load speed over my bespoke number-oriented-multi-file config, as well as improve documentation of my settings. You might notice a few things lifted directly from Aaron's config.
Startup
I want to do a few things early in the startup process, like cleanup some of Emacs' less savory defaults, so these come first. I'm also trying to wean myself off of emacs-starter-kit, so things that it does early in the startup process that I want to co-opt will go in this section.
Environment
There are plenty of things installed outside of the default PATH.
This allows me to establish additional PATH information. At the
moment, the only things that added are /usr/local/bin for homebrew
on OS X.
Sadly, there's no built-in variable pointing to the user's home
directory, so I pull that out based on the environment variable
HOME, or failing that, the parent directory of the Emacs
configuration.
I also keep some non-ELPA things in my emacs directory.
(setenv "PATH" (concat "/usr/local/sbin:/usr/local/bin:/opt/local/bin:/usr/bin:/bin" (getenv "PATH"))) (defconst user-home-directory (or (getenv "HOME") (expand-file-name ".." user-emacs-directory)) "The user's home directory.") (add-to-list 'load-path (expand-file-name "site-lisp" user-emacs-directory))
Common Lisp for Emacs
Emacs lisp is really only a subset of common lisp, and I need to have some of the additional functionality to make the configuration and its dependencies work properly, which we get by requiring Common Lisp for Emacs.
(require 'cl)
Key Bindings
Miscellaneous keybindings that don't belong anywhere else. I use
Option as super and Command as meta on OS/X.
(setq mac-option-modifier 'super) (setq mac-command-modifier 'meta) (global-set-key (kbd "C-S-k") 'delete-region) (global-set-key (kbd "C-s") 'isearch-forward-regexp) (global-set-key (kbd "C-r") 'isearch-backward-regexp) (global-set-key (kbd "M-%") 'query-replace-regexp) (global-set-key (kbd "C-M-s") 'isearch-forward) (global-set-key (kbd "C-M-r") 'isearch-backward) (global-set-key (kbd "C-M-%") 'query-replace) (setq imenu-auto-rescan t) (global-set-key (kbd "C-x TAB") 'imenu) (put 'upcase-region 'disabled nil)
Yes and No
Nobody likes to have to type out the full yes or no when Emacs asks. Which it does often. Make it one character.
(defalias 'yes-or-no-p 'y-or-n-p)
Backup Files
I hate backup files just as much as the next person. This is why we have version control systems, people.
(setq make-backup-files nil) (setq backup-directory-alist `((".*" . ,temporary-file-directory))) (setq auto-save-file-name-transforms `((".*" ,temporary-file-directory t)))
Marking text
There are some behaviors in Emacs that aren't intuitive related to
marking text. Specifically, typing or yanking into the selected
region should replace it (delete-selection-mode), and when the
buffer is changed, the region is de-selected
(transient-mark-mode).
(delete-selection-mode t) (transient-mark-mode t)
Trailing newline
Don't you just hate the diffs on github that say "No newline at end of file"? Me too! This solves that.
(setq require-final-newline t)
Server
I use emacsclient obsessively, especially via my shell alias e,
which is mapped to emacsclient -n. In order for this to work, you
have to start the "server".
(require 'server) (server-start)
Packages
Since Emacs 24, Emacs includes the Emacs Lisp Package Archive (ELPA) by default. This provides a nice way to install additional packages. Since the default package archive doesn't include everything necessary, the melpa repository is also added.
(require 'package) (package-initialize) (add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/") t) (setq package-archive-enable-alist '( ("melpa" magit graphviz-dot-mode lua-mode elixir-mode elixir-yasnippets flymake-elixir helm helm-ls-git powerline spaceline groovy-mode prettier-js ) ) )
Define packages
This is the list of packages used in this configuration. I start with major modes and enhancements first, add flymake, and then utilities and themes.
(defvar seancribbs/packages '( clojure-mode elixir-mode elixir-yasnippets graphviz-dot-mode haskell-mode inf-ruby js2-mode lua-mode markdown-mode mmm-mode php-mode protobuf-mode python-mode rspec-mode ruby-end scala-mode wc-mode web-mode yaml-mode flymake flymake-easy flymake-elixir flymake-lua flymake-ruby flymake-haskell-multi prettier-js org-present alchemist ag company dash-at-point expand-region helm helm-ls-git highlight hlinum magit minimap neotree paredit spaceline htmlize ir-black-theme solarized-theme twilight-theme underwater-theme ) )
Install default packages
When Emacs boots, check to make sure all of the packages defined
in seancribbs/packages are installed. If not, have ELPA take
care of it.
(let ((refreshed nil)) (when (not package-archive-contents) (package-refresh-contents) (setq refreshed t)) (dolist (p seancribbs/packages) (when (and (not (package-installed-p p)) (assoc pkg package-archive-contents)) (unless refreshed (package-refresh-contents) (setq refreshed t)) (package-install p))))
Visual tweaks
Window chrome
Most people don't use menu-bar-mode, but some things provided by
my add-ons don't have key combos bound to the menu items they
create, so I enable it. Unfortunately it doesn't help things in
console mode, so I only enable it in graphical modes.
The default frame title leaves a bit to be desired, so both Aaron's and ESK's config include the next tweak.
I don't want to see the splash screen, so that's disabled. I don't
set visible-bell because it causes display glitches on my Mac.
(when window-system (menu-bar-mode 1) (setq frame-title-format '(buffer-file-name "%f" ("%b")))) (tool-bar-mode -1) (scroll-bar-mode -1) (setq inhibit-splash-screen t inhibit-startup-message t initial-scratch-message nil)
Font
I've used DejaVu Sans Mono for years. Thanks, Aaron, for making this easier for me to set! It's also nice to be able to quickly tweak the text size.
(when window-system (when (functionp 'set-fontset-font) (set-fontset-font "fontset-default" 'unicode (font-spec :family "DejaVu Sans Mono" :width 'normal :size 12.4 :weight 'normal)))) (global-set-key (kbd "C-+") 'text-scale-increase) (global-set-key (kbd "C--") 'text-scale-decrease)
Theme
I use the solarized-light theme most of the time, so I figure it
should startup in that theme.
(load-theme 'solarized-light t)
Window Resizing
Following this are some experimental keys that I've been trying so I can easily grow or shrink a window split. I'm not particularly happy with them yet.
(global-set-key (kbd "s-<right>") 'enlarge-window-horizontally) (global-set-key (kbd "s-<left>") 'shrink-window-horizontally) (global-set-key (kbd "s-<up>") 'enlarge-window) (global-set-key (kbd "s-<down>") 'shrink-window)
Buffer management
Switching buffers should be easy and fast, and killing them too. And sometimes, you just have to declare buffer-bankruptcy.
(global-set-key (kbd "M-]") 'next-buffer) (global-set-key (kbd "M-[") 'previous-buffer) (defun kill-current-buffer () "Kills the current buffer" (interactive) (kill-buffer (buffer-name))) (global-set-key (kbd "C-x C-k") 'kill-current-buffer) (defun nuke-all-buffers () "Kill all buffers, leaving *scratch* only" (interactive) (mapcar (lambda (x) (kill-buffer x)) (buffer-list)) (delete-other-windows)) (global-set-key (kbd "C-x C-S-k") 'nuke-all-buffers) (global-set-key (kbd "C-c r") 'revert-buffer)
Whitespace
I like to see where the unnecessary whitespace is in all programming modes, and have a quick key to clean it up. There shall be no tabs in my files, only spaces. I'd also like to quickly reindent an entire buffer according to the modes' electric indentation. The last three functions were copied from ESK.
(require 'whitespace) (unless (member 'whitespace-mode prog-mode-hook) (add-hook 'prog-mode-hook 'whitespace-mode)) (global-set-key (kbd "C-c w") 'whitespace-cleanup) (set-default 'indicate-empty-lines t) (set-default 'indent-tabs-mode nil) (setq whitespace-style '(face trailing lines-tail tabs) whitespace-line-column 80) (defun seancribbs/untabify-buffer () (interactive) (untabify (point-min) (point-max))) (defun seancribbs/indent-buffer () (interactive) (indent-region (point-min) (point-max))) (defun seancribbs/cleanup-buffer () "Perform a bunch of operations on the whitespace content of a buffer." (interactive) (seancribbs/indent-buffer) (seancribbs/untabify-buffer) (delete-trailing-whitespace)) (global-set-key (kbd "C-c n") 'seancribbs/cleanup-buffer)
Modeline
The Emacs modeline contains helpful status information. I turn on column and line numbers globally.
I recently discovered spaceline/powerline thanks to all the folks who are crazy on Spacemacs. I've adjusted it for my own setup here.
;; Default modeline stuff (line-number-mode 1) (column-number-mode 1) ;; Configure spaceline (require 'spaceline-config) (spaceline-emacs-theme) (spaceline-helm-mode) (setq powerline-default-separator 'rounded) (setq powerline-height 17) (spaceline-compile)
Highlights
I took these customizations from ESK. First, it's always nice to quickly see what line you're on, and then when you put in watchwords, those should show up highlighted. I'd also like to see matching parens so I can be sure my code is structured correctly.
(defun seancribbs/turn-on-hl-line-mode () (when (> (display-color-cells) 8) (hl-line-mode t))) (defun seancribbs/add-watchwords () (font-lock-add-keywords nil '(("\\<\\(FIX\\(ME\\)?\\|TODO\\|HACK\\|REFACTOR\\|NOCOMMIT\\)" 1 font-lock-warning-face t)))) (add-hook 'prog-mode-hook 'seancribbs/turn-on-hl-line-mode) (add-hook 'prog-mode-hook 'seancribbs/add-watchwords) (show-paren-mode t)
Major modes
Programming Modes
These customizations I like to use in all "programming modes",
i.e. modes derived from prog-mode. The main change here is that
I find comment-dwim to not "do what I mean" in most cases, so I use
this function that used to be part of ESK or some dependency of
it. Instead of inserting a comment at the end-of-line, it will
toggle commenting out the current line. Unfortunately the key I'm
used to is usually occupied by dabbrev-expand, so I assign that
to something else.
(defun comment-or-uncomment-region-or-line () "Comments or uncomments the region or the current line if there's no active region." (interactive) (let (beg end) (if (region-active-p) (setq beg (region-beginning) end (region-end)) (setq beg (line-beginning-position) end (line-end-position))) (comment-or-uncomment-region beg end))) (global-set-key (kbd "M-/") 'comment-or-uncomment-region-or-line) (global-set-key (kbd "M-\\") 'dabbrev-expand)
Flymake
Flymake is super-useful for finding dumb errors in my source files by running compilation in the background. This adds a key to easily jump to the next error in the current buffer.
(defun seancribbs/flymake-keys () "Adds keys for navigating between errors found by Flymake." (local-set-key (kbd "C-c C-n") 'flymake-goto-next-error) (local-set-key (kbd "C-c C-p") 'flymake-goto-prev-error)) (add-hook 'flymake-mode-hook 'seancribbs/flymake-keys)
Erlang
I write a lot of Erlang. Unlike most people, I don't like the all
the quirks that come with edts and other "Emacs IDE for Erlang"
packages, so I load the mode from the latest OTP I have installed.
I also add Quviq QuickCheck and Wrangler.
Find Erlang Mode
There's a few curiosities here. I use multiple Erlang versions
and found kerl too hacky to maintain, so I wrote a few short
shell functions to build, install, and switch between versions of
OTP I have in $HOME/erlang. This means I need to pull
erlang-mode from the latest "tools" application in OTP.
(defconst seancribbs/erlang/root "/usr/local/Cellar/erlang" "The root directory where various versions of Erlang are installed") (defvar seancribbs/erlang/latest "19.2" "The latest version of Erlang installed.") (defvar seancribbs/erlang/latest/tools-version "2.9" "The version of the 'tools' application in the latest Erlang.") (defun seancribbs/erlang/latest/root () "Computes the root directory of the latest Erlang installed." (expand-file-name seancribbs/erlang/latest seancribbs/erlang/root)) (defun seancribbs/erlang/latest/bin () "Computes the latest Erlang's executable directory" (expand-file-name "bin" (seancribbs/erlang/latest/root))) (defun seancribbs/erlang/latest/lib () "Computes the latest Erlang's library directory" (expand-file-name "erlang" (expand-file-name "lib" (seancribbs/erlang/latest/root)))) (defun seancribbs/erlang/latest/emacs () "Computes the location of the OTP emacs mode." (cl-reduce 'expand-file-name (list "emacs" (format "tools-%s" seancribbs/erlang/latest/tools-version) "lib" (seancribbs/erlang/latest/lib)) :from-end t))
Load Erlang Mode
Now that we have that boilerplate out of the way, we can add the mode. First we add the tools/emacs directory to the load path, set the Erlang root, add its binaries to the executable path and require the mode.
Somehow Erlang mode is not derived from prog-mode, so my usual
additions don't apply, so I need to add them to make it
consistent.
(add-to-list 'load-path (seancribbs/erlang/latest/emacs)) (add-to-list 'exec-path (seancribbs/erlang/latest/bin)) (setq erlang-root-dir (seancribbs/erlang/latest/lib)) (require 'erlang-start) (add-hook 'erlang-mode-hook 'seancribbs/add-watchwords) (add-hook 'erlang-mode-hook 'seancribbs/turn-on-hl-line-mode) (add-hook 'erlang-mode-hook 'whitespace-mode)
Additional Files
The OTP emacs mode doesn't come with some of my commonly used files that are Erlang code or terms.
(add-to-list 'auto-mode-alist '("rebar.config" . erlang-mode)) ;; rebar (add-to-list 'auto-mode-alist '("rebar.config.script" . erlang-mode)) ;; rebar (add-to-list 'auto-mode-alist '("app.config" . erlang-mode)) ;; embedded node/riak ;;(add-to-list 'auto-mode-alist '(".riak_test.config" . erlang-mode)) (add-to-list 'auto-mode-alist '("\\.erlang$" . erlang-mode)) ;; User customizations file
Flymake
Flymake is my savior for erlang-mode and requires only a little
bit of configuration. For rebar3-based projects, we need to look
in the _build/* directories for dependencies, not just in
deps/ (not working yet).
(require 'erlang-flymake) (setq erlang-flymake-command (expand-file-name "erlc" (seancribbs/erlang/latest/bin))) (defun rebar3/erlang-flymake-get-include-dirs () (append (erlang-flymake-get-include-dirs) (file-expand-wildcards (concat (erlang-flymake-get-app-dir) "_build/*/lib"))) ) (setq erlang-flymake-get-include-dirs-function 'rebar3/erlang-flymake-get-include-dirs) (defun rebar3/erlang-flymake-get-code-path-dirs () (append (erlang-flymake-get-code-path-dirs) (file-expand-wildcards (concat (erlang-flymake-get-app-dir) "_build/*/lib/*/ebin")))) (setq erlang-flymake-get-code-path-dirs-function 'rebar3/erlang-flymake-get-code-path-dirs)
Erlang QuickCheck (Quviq)
QuickCheck is the best testing tool, and comes with a bunch of helpful templates and shortcut keys for building out property-based tests.
(defvar seancribbs/erlang/eqc-version "1.37.1" "The latest version of EQC I have installed.") (defun seancribbs/erlang/eqc/root () "Computes the location of the latest EQC app." (cl-reduce 'expand-file-name (list (format "eqc-%s" seancribbs/erlang/eqc-version) seancribbs/erlang/eqc-version "eqc" seancribbs/erlang/root) :from-end t)) (add-to-list 'load-path (expand-file-name "emacs" (seancribbs/erlang/eqc/root))) (autoload 'eqc-erlang-mode-hook "eqc-ext" "EQC Mode" t) (add-hook 'erlang-mode-hook 'eqc-erlang-mode-hook) (setq eqc-max-menu-length 30) (setq eqc-root-dir (seancribbs/erlang/eqc/root))
Wrangler
Wrangler is an Erlang refactoring tool that I use less often than other things, but can be super helpful in renaming functions, modules, and extracting common functionality.
(add-to-list 'load-path (expand-file-name "dev/wrangler/elisp" user-home-directory)) (require 'vc) (require 'wrangler) (setq wrangler-search-paths '()) (defconst seancribbs/erlang/project-subdirs '("src" "test" "deps" "apps")) (defun seancribbs/erlang/expand-project-path (project-root subdir) "Expands a subdirectory" (let ((full-path (expand-file-name subdir project-root))) (when (file-exists-p full-path) (list full-path)))) (defconst seancribbs/erlang/project-root-files-regexp (regexp-opt '(".git" "rebar.config"))) (defun seancribbs/erlang/project-root-filter (name) (when (not (file-regular-p name)) (and (not (string-match-p "/\\(deps\\|apps\\)" name)) (directory-files name nil seancribbs/erlang/project-root-files-regexp) ))) (defun seancribbs/erlang/project-root () "Finds the root of a project, based on presence of Git or rebar artifacts." (locate-dominating-file buffer-file-name 'seancribbs/erlang/project-root-filter)) (defun seancribbs/erlang/wrangler-set-paths () "Sets the wrangler search paths based on the location of the current file." (interactive) (let* ((project-root (expand-file-name (seancribbs/erlang/project-root))) (subdir-finder (lambda (subdir) (seancribbs/erlang/expand-project-path project-root subdir)))) (setq wrangler-search-paths (apply 'append (mapcar subdir-finder seancribbs/erlang/project-subdirs))) (minibuffer-message "Set wrangler paths to %S" wrangler-search-paths))) (eval-after-load "erlang" '(define-key erlang-mode-map (kbd "C-c C-w !") 'seancribbs/erlang/wrangler-set-paths))
Customizations
Erlang binaries are a pain to type, so I add a function and keybinding that inserts one for me. I'm still getting this one in my fingers.
(defun erlang-insert-binary () "Inserts a binary string into an Erlang buffer and places the point between the quotes." (interactive) (insert "<<\"\">>") (backward-char 3) ) (eval-after-load "erlang" '(define-key erlang-mode-map (kbd "C-c b") 'erlang-insert-binary))
Elixir
I'm using more and more Elixir lately, perhaps more than Erlang. I've added alchemist mode to the "mix".
Alchemist's default project indicator doesn't handle umbrella
applications very well (stops at the first mix.exs), so I advise
it to use .git as an indicator instead.
(require 'elixir-mode) (add-to-list 'elixir-mode-hook 'alchemist-mode) (add-to-list 'elixir-mode-hook 'company-mode) ;;(add-to-list 'elixir-mode-hook 'ruby-end-mode) (setq alchemist-mix-command "/usr/local/bin/mix") (setq alchemist-iex-program-name "/usr/local/bin/iex") (setq alchemist-compile-command "/usr/local/bin/elixirc") (setq alchemist-key-command-prefix (kbd "C-c a")) (defadvice alchemist-project-root (around seancribbs/alchemist-project-root activate) (let ((alchemist-project-mix-project-indicator ".git")) ad-do-it)) (defun seancribbs/activate-alchemist-root-advice () "Activates advice to override alchemist's root-finding logic" (ad-activate 'alchemist-project-root)) (add-to-list 'elixir-mode-hook 'seancribbs/activate-alchemist-root-advice)
Lua
Lua is a pretty interesting embeddable scripting language. I'm
currently using it inside nginx and luajit from the shell.
For some reason lua-mode defaults to 3-space indent, but all my
coworkers use 4.
(require 'lua-mode) (setq lua-default-application "luajit") (setq lua-indent-level 4)
Scala
Scala is used by one of the major projects I am working on.
(add-to-list 'auto-mode-alist '(".scala$" . scala-mode)) (add-to-list 'auto-mode-alist '(".sbt$" . scala-mode))
Python
Python's PEP8 tool is really picky about line-length, so this
changes fill-paragraph to flow to narrower widths. I also hate
the default of 8-space indentation. 4 is more humane.
(add-hook 'python-mode-hook
(lambda () (set (make-local-variable 'fill-column) 75)
(set (make-local-variable 'tab-width) 4)))
Ruby
The default auto-mode list for Ruby is insufficient. I also want to edit ERB files using MMM's ERB mode. One also shouldn't edit Rubinius compiler output.
(require 'ruby-mode) (require 'mmm-erb) (add-to-list 'auto-mode-alist '("Guardfile$" . ruby-mode)) (add-to-list 'auto-mode-alist '("Assetfile$" . ruby-mode)) (add-to-list 'auto-mode-alist '(".html.erb" . html-erb-mode)) (add-to-list 'completion-ignored-extensions ".rbc") (add-to-list 'completion-ignored-extensions ".rbo")
Haskell
I'm learning Haskell. haskell-mode makes you choose an
indentation strategy, so I'm using haskell-indentation-mode right
now.
(add-hook 'haskell-mode-hook 'haskell-indentation-mode)
JavaScript
We should edit JSON files in JavaScript mode.
(require 'prettier-js) (setq prettier-js-args '("--print-width" "100" "--no-bracket-spacing" "--tab-width" "2" "--single-quote")) (add-hook 'js2-mode-hook 'prettier-js-mode) (setq js2-indent-level 2) (add-to-list 'auto-mode-alist '("\\.json$" . web-mode)) (add-to-list 'auto-mode-alist '("\\.js$" . web-mode)) (require 'web-mode) (setq web-mode-code-indent-offset 2 web-mode-css-indent-offset 2 web-mode-markup-indent-offset 2) (setq web-mode-engines-alist '(("handlebars" . "\\.vue$"))) (add-to-list 'auto-mode-alist '("\\.vue$" . web-mode))
Emacs Lisp
ElDoc and paredit make editing Emacs Lisp a lot easier.
(add-hook 'emacs-lisp-mode-hook 'eldoc-mode) (add-hook 'emacs-lisp-mode-hook 'paredit-mode) (define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol) (define-key lisp-mode-shared-map (kbd "RET") 'reindent-then-newline-and-indent) (define-key emacs-lisp-mode-map (kbd "C-c v") 'eval-buffer)
Clojure
I'm starting to use a little Clojure with riemann, but paredit is off by default.
(add-hook 'clojure-mode-hook (lambda () (paredit-mode t)))
Org
I co-opted a lot of these org-mode customizations from Aaron.
org-present is for doing presentations direct from org-mode. I
added hide-mode-line so that you don't get the modeline noise
while presenting. It is not available as a package but you can
download it: http://webonastick.com/emacs-lisp/hide-mode-line.el
It can be a pain to add verbatim/source blocks to org-mode files,
so I made a quicky key combo for it.
(require 'ob) (org-babel-do-load-languages 'org-babel-load-languages '((sh . t) (dot . t) (ruby . t) (js . t) (C . t))) (add-to-list 'org-src-lang-modes (quote ("dot". graphviz-dot))) (setq org-src-fontify-natively t) (require 'org-present) (require 'hide-mode-line) (define-key org-present-mode-keymap (kbd "q") 'org-present-quit) (defun seancribbs/org-present-hook () "Entry hook for org-present mode" (window-configuration-to-register :org-present-register) (delete-other-windows) (org-present-big) (org-display-inline-images) (hide-mode-line-in (current-buffer))) (add-hook 'org-present-mode-hook 'seancribbs/org-present-hook) (defun seancribbs/org-present-quit-hook () "Entry hook for org-present mode" (org-present-small) (org-remove-inline-images) (show-mode-line-in (current-buffer)) (redraw-display) (when (get-register :org-present-register) (jump-to-register :org-present-register))) (add-hook 'org-present-mode-quit-hook 'seancribbs/org-present-quit-hook) (defun org-insert-src-block () "Inserts a source/verbatim block, placing the point at the end of the opening of the block." (interactive) (insert "\n") (insert "#+begin_src \n") (insert "\n") (insert "#+end_src\n") (forward-line -3) (end-of-line)) (define-key org-mode-map (kbd "C-c C-n b") 'org-insert-src-block) (setq org-agenda-files (list "~/todo.org") org-log-done t) (global-set-key (kbd "C-c C-c a") 'org-agenda)
Markdown
Most of my Markdown editing uses Github-flavored, so I use
gfm-mode instead of the regular markdown-mode.
(add-to-list 'auto-mode-alist '(".md$" . gfm-mode))
Text
I like my text modes to auto-wrap paragraphs.
I did a project for a little while where I tried to write 750
words a day, to improve my writing skills. I didn't get very far,
but I added wc-mode and a quick keychord to launch it.
(add-hook 'text-mode-hook 'turn-on-auto-fill) (require 'wc-mode) (defun open-daily-writing () "Open today's writing file" (interactive) (let ((filename (format-time-string "%Y-%m-%d.txt"))) (find-file (concat user-home-directory "/notes/writing/" filename)) (with-current-buffer filename (wc-mode t) (wc-set-word-goal 750)) ) (delete-other-windows)) (global-set-key (kbd "C-x C-S-W") 'open-daily-writing)
Graphviz
Graphviz dot is great for quickly specifying graphs.
;; NB: (require 'graphviz-dot-mode) doesn't work because the file ;; doesn't have a (provide), but it does have an autoload. (setq graphviz-dot-dot-program "/usr/local/bin/dot" graphviz-dot-indent-width 4)
LaTeX
I use LaTeX for papers and sometimes presentations in Beamer.
Fontifying sub/superscripts can be incredibly annoying, especially
when your file contains source code that might have underscores, so
I turn off tex-fontify-script.
(require 'tex-mode) (defvar texlive-bin "/usr/local/texlive/2014/bin/x86_64-darwin" "The location of the TeXlive distribution binaries.") (setq latex-run-command (concat (expand-file-name "pdflatex" texlive-bin) " -shell-escape") tex-bibtex-command (expand-file-name "bibtex" texlive-bin) tex-fontify-script nil)
Utilities
Uniquify
uniquify is a built-in library that renames buffers according to
relative paths instead of adding numbers to the names like
foo.txt<2>.
(require 'uniquify) (setq uniquify-buffer-name-style 'forward)
Helm
Helm is an awesome heads-up display for picking files and
things. I'm trying to replace ido-ubiquitous with this.
(require 'helm-config) (global-set-key (kbd "M-x") 'helm-M-x) (global-set-key (kbd "C-x r b") 'helm-filtered-bookmarks) (global-set-key (kbd "C-x C-f") 'helm-find-files) (helm-mode 1)
Ido
Ido mode provides a nice way to navigate the filesystem. These tweaks come from ESK.
;;(ido-mode t) ;;(ido-ubiquitous-mode) ;;(setq ido-enable-prefix nil ;; ido-enable-flex-matching t ;; ido-auto-merge-work-directories-length nil ;; ido-create-new-buffer 'always ;; ido-use-filename-at-point 'guess ;; ido-use-virtual-buffers t ;; ido-handle-duplicate-virtual-buffers 2 ;; ido-max-prospects 10) ;;(global-set-key (kbd "C-x M-f") 'ido-find-file-other-window)
ffap
Find file at point is useful for jumping between files based on the word pointed at, e.g. Erlang modules in the current directory.
;;(require 'ffap)
Smex
smex is a necessity. It provides history and searching on top of M-x.
;;(setq smex-save-file (expand-file-name ".smex-items" user-emacs-directory)) ;;(smex-initialize) ;;(global-set-key (kbd "M-x") 'smex) ;;(global-set-key (kbd "M-X") 'smex-major-mode-commands)
Magit
Magit is the best VCS tool I've ever used. It makes all sorts of things in git easier.
I add an advice around launching Magit that saves and restores the previous window configuration when exiting. This lets you "fullscreen" changes and other VCS windows, then quickly return to your previously opened buffers and windows.
I also set the diff switches to use unified diffs, which ESK also does.
(setq magit-last-seen-setup-instructions "1.4.0") (require 'magit) ;; TODO is this needed if we have the PATH set correctly? (setq magit-git-executable "/usr/local/bin/git") (global-set-key (kbd "C-c g") 'magit-status) (defadvice magit-status (around magit-fullscreen activate) (window-configuration-to-register :magit-fullscreen) ad-do-it (delete-other-windows)) (defun magit-quit-session () "Restores the previous window configuration and kills the magit buffer" (interactive) (kill-buffer) (when (get-register :magit-fullscreen) (jump-to-register :magit-fullscreen))) (define-key magit-status-mode-map (kbd "q") 'magit-quit-session) (setq diff-switches "-u")
Ag
ag (aka the_silver_searcher) is a great command-line tool for
finding things in programming source files.
(require 'ag) (global-set-key (kbd "C-x C-g") 'ag-project) ;; Bind C-x C-g to ag-project
Dash
Dash is a Mac OS/X documentation browser and has a nice way to launch it from Emacs.
(require 'dash-at-point) (global-set-key (kbd "C-c d") 'dash-at-point)
Neotree
Neotree is the only "project browser sidebar" thing I've ever been able to tolerate. It does a pretty good job if you turn off the icons and base its colors on the theme.
(setq neo-theme 'ascii) (custom-set-faces '(neo-banner-face ((t . (:inherit shadow))) t) '(neo-header-face ((t . (:inherit shadow))) t) '(neo-root-dir-face ((t . (:inherit link-visited :underline nil))) t) '(neo-dir-link-face ((t . (:inherit dired-directory))) t) '(neo-file-link-face ((t . (:inherit default))) t) '(neo-button-face ((t . (:inherit dired-directory))) t) '(neo-expand-btn-face ((t . (:inherit button))) t))