Switch branches/tags
Nothing to show
Find file
2771941 Nov 18, 2016
2663 lines (2250 sloc) 90.6 KB
;;; init.el --- Emacs configuration of Sebastian Wiesner -*- lexical-binding: t; -*-
;; Copyright (c) 2012-2016 Sebastian Wiesner <>
;; Author: Sebastian Wiesner <>
;; URL:
;; Keywords: convenience
;; This file is not part of GNU Emacs.
;; This program is free software; you can redistribute it and/or modify it under
;; the terms of the GNU General Public License as published by the Free Software
;; Foundation; either version 3 of the License, or (at your option) any later
;; version.
;; This program is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
;; details.
;; You should have received a copy of the GNU General Public License along with
;; GNU Emacs; see the file COPYING. If not, write to the Free Software
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
;; USA.
;;; Commentary:
;; Emacs configuration of Sebastian Wiesner, functional programmer and Flycheck
;; maintainer.
;;; Code:
;; Increase GC threshold to make init.el load faster
(defvar lunaryorn-default-gc-cons-threshold gc-cons-threshold)
(setq gc-cons-threshold 100000000)
;;; Debugging
(setq message-log-max 10000)
;;; Package management
;; Please don't load outdated byte code
(setq load-prefer-newer t)
(require 'package)
(setq package-enable-at-startup nil)
(setq package-archives
;; Package archives, the usual suspects
'(("GNU ELPA" . "")
("MELPA Stable" . "")
("MELPA" . ""))
;; Prefer MELPA Stable over GNU over MELPA. IOW prefer MELPA's stable
;; packages over everything and only fall back to GNU or MELPA if
;; necessary.
'(("MELPA Stable" . 10)
("GNU ELPA" . 5)
("MELPA" . 0))
;; Pin a couple of packages to MELPA
'(;; I maintain these and know what changes
("flycheck" . "MELPA")
;; Last release was a long time ago for these
("ivy" . "MELPA")
("ivy-hydra" . "MELPA")
("counsel" . "MELPA")
("swiper" . "MELPA")))
;; Bootstrap `use-package'
(unless (package-installed-p 'use-package)
(package-install 'use-package))
;;; Requires
(require 'use-package)
(require 'subr-x)
(require 'time-date)
;;; Initialization
(when (version< emacs-version "25")
(warn "This configuration needs Emacs trunk, but this is %s!" emacs-version))
;; And disable the site default settings
(setq inhibit-default-init t)
(defun lunaryorn-snapshot-version-p (version)
"Whether VERSION is an Emacs snapshot version."
(pcase-let ((`(,_ ,_ ,build) (version-to-list version)))
;; Snapshots with build numbers > 90 are pretests which come from proper
;; release tarballs and don't need to be rebuild weekly
(and (>= build 50) (<= build 90))))
(when (lunaryorn-snapshot-version-p emacs-version)
;; When on a snapshot version, warn if the build is older than a week to
;; ensure that we stay up to date.
2 nil
(lambda ()
(let ((time-since-build (time-subtract (current-time) emacs-build-time)))
(when (> (time-to-number-of-days time-since-build) 7)
(lwarn 'emacs :warning "Your Emacs build is more than a week old!"))))))
(defun lunaryorn-check-version-of-emacs-executable ()
"Check the `emacs' executable in $PATH.
Warn if the executable is missing, or has the wrong version,
which happens with Emacs for Mac OS X if you forget to install
the command line runner."
(if-let ((executable (executable-find "emacs")))
(let ((version (car (process-lines executable "--version"))))
(unless (string-match-p (concat "GNU Emacs "
(regexp-quote emacs-version))
(lwarn 'emacs :warning
"Running Emacs %s but the Emacs executable at %s is %s"
emacs-version executable version)))
(lwarn 'emacs :warning "No Emacs executable in $PATH!")))
(run-with-idle-timer 1 nil #'lunaryorn-check-version-of-emacs-executable)
(add-hook 'after-init-hook (lambda () (message "Time to load init file: %s"
;;; Customization
(use-package validate ; Validate options
:ensure t)
(defconst lunaryorn-custom-file (locate-user-emacs-file "custom.el")
"File used to store settings from Customization UI.")
(use-package cus-edit
:defer t
custom-file lunaryorn-custom-file
custom-buffer-done-kill nil ; kill when existing
custom-buffer-verbose-help nil ; Remove redundant help text
;; Show me the real variable name
custom-unlispify-tag-names nil
custom-unlispify-menu-entries nil)
:init (load lunaryorn-custom-file 'no-error 'no-message))
;;; Environment fixup
(use-package exec-path-from-shell
:ensure t
:if (and (eq system-type 'darwin) (display-graphic-p))
(when (string-match-p "/zsh$" (getenv "SHELL"))
;; Use a non-interactive login shell. A login shell, because my
;; environment variables are mostly set in `.zprofile'.
(validate-setq exec-path-from-shell-arguments '("-l")))
(validate-setq exec-path-from-shell-variables
'("PYTHONPATH" ; Python modules
"JAVA_OPTS" ; Options for java processes
"SBT_OPTS" ; Options for SBT
"RUST_SRC_PATH" ; Rust sources, for racer
"CARGO_HOME" ; Cargo home, for racer
"EMAIL" ; My personal email
"PATH" ; Executables
"INFOPATH" ; Info directories
"MANPATH" ; Man pages
;; Initialize Emacs' environment from the shell
;; Tell Emacs about my email address
(validate-setq user-mail-address (getenv "EMAIL"))
;; Re-initialize the `Info-directory-list' from $INFOPATH. Since package.el
;; already initializes info, we need to explicitly add the $INFOPATH
;; directories to `Info-directory-list'. We reverse the list of info paths
;; to prepend them in proper order subsequently
(with-eval-after-load 'info
(dolist (dir (nreverse (parse-colon-path (getenv "INFOPATH"))))
(when dir
(add-to-list 'Info-directory-list dir))))))
;;; OS X support
(when (eq system-type 'darwin)
mac-option-modifier 'meta ; Option is simply the natural Meta
mac-command-modifier 'meta ; But command is a lot easier to hit
mac-right-command-modifier 'left
;; FIXME: Temporarily bind right alt to control until karabiner works again
;; on macOS sierra and gives me by beloved return/control key combination
;; back
mac-right-option-modifier 'control ; Keep right option for accented input
;; Just in case we ever need these keys
mac-function-modifier 'hyper))
(use-package ns-win ; OS X window support
:defer t
:if (eq system-type 'darwin)
;; Don't pop up new frames from the workspace
ns-pop-up-frames nil))
(use-package lunaryorn-osx ; Personal OS X tools
:if (eq system-type 'darwin)
:load-path "lisp/"
:defer t)
(use-package osx-trash ; Trash support for OS X
:if (eq system-type 'darwin)
:ensure t
:init (osx-trash-setup))
;;; Fonts
(set-face-attribute 'default nil
:family "Source Code Pro" :height 120)
(set-face-attribute 'variable-pitch nil
:family "Fira Sans" :height 130 :weight 'regular)
(use-package face-remap ; Face remapping
:bind (("C-c w z" . text-scale-adjust)))
;;; User interface
;; Get rid of tool bar, menu bar and scroll bars. On OS X we preserve the menu
;; bar, since the top menu bar is always visible anyway, and we'd just empty it
;; which is rather pointless.
(when (fboundp 'tool-bar-mode)
(tool-bar-mode -1))
(when (and (not (eq system-type 'darwin)) (fboundp 'menu-bar-mode))
(menu-bar-mode -1))
(when (fboundp 'scroll-bar-mode)
(scroll-bar-mode -1))
;; No blinking and beeping, no startup screen, no scratch message and short
;; Yes/No questions.
(blink-cursor-mode -1)
(validate-setq ring-bell-function #'ignore
inhibit-startup-screen t
initial-scratch-message "Hello there!\n")
(fset 'yes-or-no-p #'y-or-n-p)
;; Opt out from the startup message in the echo area by simply disabling this
;; ridiculously bizarre thing entirely.
(fset 'display-startup-echo-area-message #'ignore)
;; Insert my logo into scratch <3
(add-hook 'after-init-hook
(lambda ()
(with-current-buffer "*scratch*"
(goto-char (point-min))
(insert-image (create-image (locate-user-emacs-file "logo.png"))
(insert "\n"))))
(use-package solarized ; My colour theme
:ensure solarized-theme
;; Disable variable pitch fonts in Solarized theme
solarized-use-variable-pitch nil
;; Prefer italics over bold
solarized-use-less-bold t
solarized-use-more-italic t
solarized-distinct-doc-face t ; Emphasize docstrings
;; I find different font sizes irritating.
solarized-height-minus-1 1.0
solarized-height-plus-1 1.0
solarized-height-plus-2 1.0
solarized-height-plus-3 1.0
solarized-height-plus-4 1.0)
(load-theme 'solarized-light 'no-confirm))
(bind-key "C-c t V" #'variable-pitch-mode)
(use-package page-break-lines ; Turn page breaks into lines
:ensure t
:init (global-page-break-lines-mode)
:diminish page-break-lines-mode)
(use-package beacon ; Highlight cursor position in buffer
:disabled t
:ensure t
:init (beacon-mode 1)
:diminish beacon-mode)
(use-package stripe-buffer ; Add stripes to a buffer
:ensure t
:init (add-hook 'dired-mode-hook #'stripe-buffer-mode))
;;; Keys and key bindings
;; Our key bindings are solely in the user space C-c <letter>. The list of
;; which-key prefixes documents the meaning of specific key prefixes, such as
;; C-c f for file commands. C-c m is special in that it always holds commands
;; that are only for the current major mode. The mode-specific which-key
;; prefixes document the individual bindings for major modes under C-c m.
;; We may also bind F5 to F9. Since we can't document these in code, the
;; following list shows their abstract meanings:
;; * F5: Compile
;; * F6: n/a
;; * F7: n/a
;; * F8: n/a
;; * F9: n/a
;; All of these keys have default global bindings, but major and minor modes may
;; override them if there's a better command for the specific purpose available.
;; Note that the notation for the function keys is <f5>, i.e. the lowercase name
;; surrounded by angle brackets.
(use-package which-key ; Show help popups for prefix keys
:ensure t
:init (which-key-mode)
which-key-idle-delay 0.4
which-key-sort-order 'which-key-prefix-then-key-order
;; Let's go unicode :)
'(("<\\([[:alnum:]-]+\\)>" . "\\1")
("up" . "")
("right" . "")
("down" . "")
("left" . "")
("DEL" . "")
("deletechar" . "")
("RET" . ""))
'(("Prefix Command" . "prefix")
;; Lambdas
("\\`\\?\\?\\'" . "λ")
;; Prettify hydra entry points
("/body\\'" . "|=")
;; Drop/shorten package prefixes
("\\`lunaryorn-" . "")
("projectile-" . "proj-")
("magit-" . "ma-")))
;; Prefixes for global prefixes and minor modes
"C-c @" "outline"
"C-c !" "flycheck"
"C-c 8" "typo"
"C-c 8 -" "typo/dashes"
"C-c 8 <" "typo/left-brackets"
"C-c 8 >" "typo/right-brackets"
;; Prefixes for my personal bindings
"C-c a" "applications"
"C-c b" "buffers"
"C-c c" "compile-and-comments"
"C-c e" "errors"
"C-c f" "files"
"C-c f v" "variables"
"C-c g" "git"
"C-c g g" "github/gist"
"C-c h" "help"
"C-c i" "insert"
"C-c i l" "licenses"
"C-c j" "jump"
"C-c l" "language/spelling"
"C-c m" "major mode"
"C-c o" "cursors"
"C-c o i" "cursors/insert"
"C-c p" "projects"
"C-c p s" "projects/search"
"C-c p x" "projects/execute"
"C-c p 4" "projects/other-window"
"C-c s" "search"
"C-c t" "toggle"
"C-c w" "windows/frames"
"C-c x" "text")
;; Prefixes for major modes
(which-key-add-major-mode-key-based-replacements 'markdown-mode
"C-c TAB" "markdown/images"
"C-c C-a" "markdown/links"
"C-c C-c" "markdown/process"
"C-c C-s" "markdown/style"
"C-c C-t" "markdown/header"
"C-c C-x" "markdown/structure"
"C-c m" "markdown/personal")
(which-key-add-major-mode-key-based-replacements 'emacs-lisp-mode
"C-c m" "elisp/personal"
"C-c m e" "eval")
(which-key-add-major-mode-key-based-replacements 'js2-mode
"C-c m" "js/personal"
"C-c m r" "refactor")
(which-key-add-major-mode-key-based-replacements 'scala-mode
"C-c C-b" "ensime/build"
"C-c C-d" "ensime/debug"
"C-c C-r" "ensime/refactor"
"C-c C-v" "ensime/misc"
"C-c m" "scala/personal"
"C-c m b" "scala/build")
(which-key-add-major-mode-key-based-replacements 'haskell-mode
"C-c m" "haskell/personal"
"C-c m i" "haskell/imports")
(which-key-add-major-mode-key-based-replacements 'rust-mode
"C-c C-c" "rust/cargo")
(which-key-add-major-mode-key-based-replacements 'web-mode
"C-c C-a" "web/attributes"
"C-c C-b" "web/blocks"
"C-c C-d" "web/dom"
"C-c C-e" "web/element"
"C-c C-t" "web/tags")
:diminish which-key-mode)
(use-package hydra ; Bindings that stick
:ensure t)
;; Package manager and init file
(use-package paradox ; Better package menu
:ensure t
:bind (("C-c a p" . paradox-list-packages)
("C-c a P" . paradox-upgrade-packages))
paradox-execute-asynchronously nil ; No async update, please
paradox-spinner-type 'moon ; Fancy spinner
;; Show all possible counts
paradox-display-download-count t
paradox-display-star-count t
;; Don't star automatically
paradox-automatically-star nil
;; Hide download button, and wiki packages
paradox-use-homepage-buttons nil ; Can type v instead
paradox-hide-wiki-packages t))
(use-package bug-hunter ; Search init file for bugs
:ensure t)
;;; The mode line
(use-package anzu ; Position/matches count for isearch
:ensure t
:defer 1
(([remap query-replace] . anzu-query-replace)
([remap query-replace-regexp] . anzu-query-replace-regexp)
:map isearch-mode-map
([remap isearch-query-replace] . anzu-isearch-query-replace)
([remap isearch-query-replace-regexp] . anzu-isearch-query-replace-regexp))
(setq anzu-cons-mode-line-p nil)
:diminish anzu-mode)
(use-package which-func ; Current function name
:defer 1
which-func-unknown "" ; The default is really boring…
`((:propertize ("" which-func-current)
local-map ,which-func-keymap
face which-func
mouse-face mode-line-highlight
help-echo "mouse-1: go to beginning\n\
mouse-2: toggle rest visibility\n\
mouse-3: go to end"))))
(use-package spaceline-config ; A beautiful mode line
:ensure spaceline
;; Left side of the mode line (all the important stuff)
'(((buffer-modified buffer-size input-method) :face highlight-face)
'(buffer-id remote-host buffer-encoding-abbrev)
((point-position line-column buffer-position selection-info)
:separator " | ")
(flycheck-error flycheck-warning flycheck-info)
(python-pyvenv :fallback python-pyenv)
((which-function projectile-root) :separator " @ ")
((minor-modes :separator spaceline-minor-modes-separator) :when active))
;; Right segment (the unimportant stuff)
'((version-control :when active)))
(setq-default mode-line-format '("%e" (:eval (spaceline-ml-lunaryorn)))))
(use-package powerline ; The work-horse of Spaceline
:ensure t
:after spaceline-config
:config (validate-setq
powerline-height (truncate (* 1.0 (frame-char-height)))
powerline-default-separator 'utf-8))
;;; Minibuffer
history-length 1000 ; Store more history
use-dialog-box nil ; Never use dialogs for minibuffer input
(use-package savehist ; Save minibuffer history
:init (savehist-mode t)
:config (validate-setq savehist-save-minibuffer-history t
savehist-autosave-interval 180))
(use-package ivy ; Minibuffer completion
:ensure t
:init (ivy-mode 1)
:bind (("C-c b r" . ivy-resume))
;; Include recentf and bookmarks to switch buffer, and tune the count format.
(validate-setq ivy-use-virtual-buffers t
ivy-count-format "(%d/%d) ")
:diminish ivy-mode)
(use-package ivy-hydra ; Hydra bindings for ivy buffer
:ensure t
:after ivy
:bind (:map ivy-minibuffer-map
("C-o" . hydra-ivy/body)))
(use-package counsel ; Ivy-powered commands
:ensure t
:init (counsel-mode)
:bind (([remap execute-extended-command] . counsel-M-x)
([remap find-file] . counsel-find-file)
([remap describe-function] . counsel-describe-function)
([remap describe-variable] . counsel-describe-variable)
([remap info-lookup-symbol] . counsel-info-lookup-symbol)
([remap completion-at-point] . counsel-company)
("C-c f L" . counsel-load-library)
("C-c f r" . counsel-recentf)
("C-c i 8" . counsel-unicode-char)
("C-c s a" . counsel-ag)
("C-c j t" . counsel-imenu)
("C-c g L" . counsel-git-log)))
;;; Buffer, Windows and Frames
frame-resize-pixelwise t ; Resize by pixels
'(:eval (if (buffer-file-name)
(abbreviate-file-name (buffer-file-name)) "%b"))
;; Size new windows proportionally wrt other windows
window-combination-resize t)
(setq-default line-spacing 0.2) ; A bit more spacing between lines
(defun lunaryorn-display-buffer-fullframe (buffer alist)
"Display BUFFER in fullscreen.
ALIST is a `display-buffer' ALIST.
Return the new window for BUFFER."
(let ((window (display-buffer-pop-up-window buffer alist)))
(when window
(delete-other-windows window))
;; Configure `display-buffer' behaviour for some special buffers.
;; Put REPLs and error lists into the bottom side window
(,(rx bos
(or "*Help" ; Help buffers
"*Warnings*" ; Emacs warnings
"*Compile-Log*" ; Emacs byte compiler log
"*compilation" ; Compilation buffers
"*Flycheck errors*" ; Flycheck error list
"*shell" ; Shell window
"*sbt" ; SBT REPL and compilation buffer
"*ensime-update*" ; Server update from Ensime
"*Cargo" ; Cargo process buffers
(and (1+ nonl) " output*") ; AUCTeX command output
(side . bottom)
(reusable-frames . visible)
(window-height . 0.33))
;; Let `display-buffer' reuse visible frames for all buffers. This must
;; be the last entry in `display-buffer-alist', because it overrides any
;; later entry with more specific actions.
("." nil (reusable-frames . visible))))
(use-package frame ; Frames
:bind (("C-c w F" . toggle-frame-fullscreen))
:init (progn
;; Kill `suspend-frame'
(global-set-key (kbd "C-z") nil)
(global-set-key (kbd "C-x C-z") nil))
:config (add-to-list 'initial-frame-alist '(fullscreen . maximized)))
(use-package focus-autosave-mode ; Save buffers when focus is lost
:ensure t
:init (focus-autosave-mode)
:diminish focus-autosave-mode)
(use-package lunaryorn-buffers ; Personal buffer tools
:load-path "lisp/"
:defer t ; Prevent a mysterious recursive load error
:bind (("C-c b k" . lunaryorn-kill-this-buffer))
(add-hook 'kill-buffer-query-functions
(use-package uniquify ; Make buffer names unique
:config (validate-setq uniquify-buffer-name-style 'forward))
(use-package ibuffer ; Better buffer list
:bind (([remap list-buffers] . ibuffer))
;; Show VC Status in ibuffer
'((mark modified read-only vc-status-mini " "
(name 18 18 :left :elide)
" "
(size 9 -1 :right)
" "
(mode 16 16 :left :elide)
" "
(vc-status 16 16 :left)
" "
(mark modified read-only " "
(name 18 18 :left :elide)
" "
(size 9 -1 :right)
" "
(mode 16 16 :left :elide)
" " filename-and-process)
(mark " " (name 16 -1) " " filename))))
(use-package ibuffer-vc ; Group buffers by VC project and status
:ensure t
:defer t
:init (add-hook 'ibuffer-hook
(lambda ()
(unless (eq ibuffer-sorting-mode 'alphabetic)
(use-package ibuffer-projectile ; Group buffers by Projectile project
:ensure t
:disabled t
:defer t
:init (add-hook 'ibuffer-hook #'ibuffer-projectile-set-filter-groups))
;; Standard window commands
(bind-key "C-c w =" #'balance-windows)
(bind-key "C-c w k" #'delete-window)
(bind-key "C-c w /" #'split-window-right)
(bind-key "C-c w -" #'split-window-below)
(bind-key "C-c w m" #'delete-other-windows)
(use-package lunaryorn-window ; Personal window utilities
:load-path "lisp/"
:defer t
:bind (("C-c w q" . lunaryorn-quit-all-side-windows)
("C-c w d" . lunaryorn-toggle-current-window-dedication)
("C-c w b" . lunaryorn-switch-to-minibuffer-window)))
(use-package windmove ; Move between windows with Shift+Arrow
:bind (("C-c w <left>" . windmove-left)
("C-c w <right>" . windmove-right)
("C-c w <up>" . windmove-up)
("C-c w <down>" . windmove-down)))
(use-package winner ; Undo and redo window configurations
:init (winner-mode))
(use-package ace-window ; Fast window switching
:ensure t
:bind (("C-x o" . ace-window)
("C-c w w" . ace-window)))
(use-package golden-ratio ; Automatically resize windows
:ensure t
(defun lunaryorn-toggle-golden-ratio ()
(if (bound-and-true-p golden-ratio-mode)
(golden-ratio-mode -1)
:bind (("C-c t g" . lunaryorn-toggle-golden-ratio))
golden-ratio-extra-commands '(windmove-up
;; Exclude a couple of special modes from golden ratio, namely
;; Flycheck's error list, calc
golden-ratio-exclude-modes '(flycheck-error-list-mode
`(,(rx bos "*which-key*" eos)
,(rx bos "*NeoTree*" eos)))
:diminish (golden-ratio-mode . ""))
(use-package ediff-wind ; Ediff window management
:defer t
;; Prevent Ediff from spamming the frame
(validate-setq ediff-window-setup-function #'ediff-setup-windows-plain
ediff-split-window-function #'split-window-horizontally))
(use-package desktop ; Save buffers, windows and frames
:disabled t
:init (desktop-save-mode)
;; Save desktops a minute after Emacs was idle.
(validate-setq desktop-auto-save-timeout 60)
;; Don't save Magit and Git related buffers
(dolist (mode '(magit-mode magit-log-mode))
(add-to-list 'desktop-modes-not-to-save mode))
(add-to-list 'desktop-files-not-to-save (rx bos "COMMIT_EDITMSG")))
(use-package writeroom-mode ; Distraction-free editing
:ensure t
:bind (("C-c t R" . writeroom-mode)))
(use-package popup ; Popup menus
;; We don't ensure this package, because we definitely don't want to have this
;; mess, but unfortunately it's a dependency of Ensime :(
:ensure nil
:defer t
;; Bring Popup bindings in line with Company bindings, by getting rid of C-n/p
;; for navigation and introducing M-n/p
(define-key popup-menu-keymap "\C-n" nil)
(define-key popup-menu-keymap [down] nil)
(define-key popup-menu-keymap "\C-p" nil)
(define-key popup-menu-keymap [up] nil)
(define-key popup-menu-keymap (kbd "M-n") #'popup-next)
(define-key popup-menu-keymap (kbd "M-p") #'popup-previous))
;;; File handling
;; Keep backup and auto save files out of the way
backup-directory-alist `((".*" . ,(locate-user-emacs-file ".backup")))
auto-save-file-name-transforms `((".*" ,temporary-file-directory t)))
;; Delete files to trash
(validate-setq delete-by-moving-to-trash t)
(use-package files ; Core commands for files
:bind (("C-c f z" . revert-buffer)
("C-c f /" . revert-buffer))
;; Use GNU ls for Emacs
(when-let (gnu-ls (and (eq system-type 'darwin) (executable-find "gls")))
(validate-setq insert-directory-program gnu-ls)))
(use-package ffap ; Find files at point
:defer t
;; Please stop pinging random hosts! See
:config (setq ffap-machine-p-known 'reject))
(use-package server ; The server of `emacsclient'
:if (not noninteractive)
:defer t
:init (server-mode)
:diminish (server-buffer-clients . ""))
(use-package dired ; Edit directories
:defer t
dired-auto-revert-buffer t ; Revert on re-visiting
;; Better dired flags: `-l' is mandatory, `-a' shows all files, `-h' uses
;; human-readable sizes, and `-F' appends file-type classifiers to file names
;; (for better highlighting)
dired-listing-switches "-alhF"
dired-ls-F-marks-symlinks t ; -F marks links with @
;; Inhibit prompts for simple recursive operations
dired-recursive-copies 'always
;; Auto-copy to other Dired split window
dired-dwim-target t)
(when (or (memq system-type '(gnu gnu/linux))
(string= (file-name-nondirectory insert-directory-program) "gls"))
;; If we are on a GNU system or have GNU ls, add some more `ls' switches:
;; `--group-directories-first' lists directories before files, and `-v'
;; sorts numbers in file names naturally, i.e. "image1" goes before
;; "image02"
(concat dired-listing-switches " --group-directories-first -v"))))
(use-package dired-x ; Additional tools for Dired
:defer t
:bind (("C-c f j" . dired-jump)
("C-x C-j" . dired-jump))
(add-hook 'dired-mode-hook #'dired-omit-mode)
:after dired
(validate-setq dired-omit-verbose nil) ; Shut up, dired
(when (eq system-type 'darwin)
;; OS X bsdtar is mostly compatible with GNU Tar
(validate-setq dired-guess-shell-gnutar "tar"))
;; Diminish dired-omit-mode. We need this hack, because Dired Omit Mode has
;; a very peculiar way of registering its lighter explicitly in
;; `dired-omit-startup'. We can't just use `:diminish' because the lighter
;; isn't there yet after dired-omit-mode is loaded.
(add-function :after (symbol-function 'dired-omit-startup)
(lambda () (diminish 'dired-omit-mode ""))
'((name . dired-omit-mode-diminish))))
(use-package neotree
:ensure t
:bind (("C-c f t" . neotree-toggle))
:config (validate-setq neo-window-width 32
neo-create-file-auto-open t
neo-banner-message nil
neo-show-updir-line nil
neo-mode-line-type 'neotree
neo-smart-open t
neo-dont-be-alone t
neo-persist-show nil
neo-show-hidden-files t
neo-auto-indent-point t))
(use-package ignoramus ; Ignore uninteresting files everywhere
:ensure t
;; Ignore some additional directories and file extensions
(dolist (name '("company-statistics-cache.el"
".ensime_cache" ".ensime"
;; Ignore some additional directories
(add-to-list 'ignoramus-file-basename-exact-names name))
(dolist (ext '(".fls" ".out" ; LaTeX
(add-to-list 'ignoramus-file-endings ext))
(use-package hardhat ; Protect user-writable files
:ensure t
:init (global-hardhat-mode)
:config (validate-setq hardhat-mode-lighter ""))
(use-package bookmark ; Bookmarks for Emacs buffers
:bind (("C-c f b" . list-bookmarks))
;; Save bookmarks immediately after a bookmark was added
:config (validate-setq bookmark-save-flag 1))
(use-package recentf ; Save recently visited files
:init (recentf-mode)
recentf-max-saved-items 200
recentf-max-menu-items 15
;; Cleanup recent files only when Emacs is idle, but not when the mode
;; is enabled, because that unnecessarily slows down Emacs. My Emacs
;; idles often enough to have the recent files list clean up regularly
recentf-auto-cleanup 300
recentf-exclude (list "/\\.git/.*\\'" ; Git contents
"/elpa/.*\\'" ; Package files
"/itsalltext/" ; It's all text temp files
;; And all other kinds of boring files
(use-package saveplace ; Save point position in files
:init (save-place-mode 1))
(validate-setq view-read-only t) ; View read-only files
(use-package autorevert ; Auto-revert buffers of changed files
:init (global-auto-revert-mode)
(validate-setq auto-revert-verbose nil ; Shut up, please!
;; Revert Dired buffers, too
global-auto-revert-non-file-buffers t)
(when (eq system-type 'darwin)
;; File notifications aren't supported on OS X
(validate-setq auto-revert-use-notify nil))
:diminish (auto-revert-mode . ""))
(use-package image-file ; Visit images as images
:init (auto-image-file-mode))
(use-package launch ; Open files in external programs
:ensure t
:defer t)
(use-package sudo-edit ; Edit files as root, through Tramp
:ensure t
:defer t
:bind (("C-c f s" . sudo-edit)))
(use-package reveal-in-osx-finder ; Reveal current buffer in finder
:ensure t
;; Bind analogous to `dired-jump' at C-c f j
:bind (("C-c f J" . reveal-in-osx-finder)))
(use-package lunaryorn-files ; Personal file tools
:load-path "lisp/"
:commands (lunaryorn-recompile-packages)
:bind (("C-c f D" . lunaryorn-delete-file-and-buffer)
("C-c f i" . lunaryorn-open-in-intellij)
("C-c f o" . lunaryorn-launch-dwim)
("C-c f R" . lunaryorn-rename-file-and-buffer)
("C-c f w" . lunaryorn-copy-filename-as-kill)
("C-c f u" . lunaryorn-find-user-init-file-other-window)
("C-c f ." . lunaryorn-browse-feature-url)))
;; Additional bindings for built-ins
(bind-key "C-c f v d" #'add-dir-local-variable)
(bind-key "C-c f v l" #'add-file-local-variable)
(bind-key "C-c f v p" #'add-file-local-variable-prop-line)
;;; Navigation and scrolling
scroll-conservatively 1000 ; Never recenter the screen while scrolling
scroll-error-top-bottom t ; Move to beg/end of buffer before
; signalling an error
;; These settings make trackpad scrolling on OS X much more predictable
;; and smooth
mouse-wheel-progressive-speed nil
mouse-wheel-scroll-amount '(1))
(use-package page ; Page navigation
:bind (("C-x ]" . lunaryorn-pages/forward-page)
("C-x [" . lunaryorn-pages/backward-page))
(defhydra lunaryorn-pages ()
("[" backward-page "backward")
("]" forward-page "forward")))
(use-package ivy-pages ; Jump to pages with ivy
:ensure t
:defer t
:bind (("C-c j p" . ivy-pages)))
(use-package avy-jump ; Jump to characters in buffers
:ensure avy
:defer t
:bind (("C-c j w" . avy-goto-word-1)
("C-c j l" . avy-goto-line)
("C-c j b" . avy-pop-mark)
("C-c j j" . avy-goto-char-2)))
(use-package ace-link ; Fast link jumping
:ensure t
:defer t
:bind (:map Info-mode-map ("C-c m l" . ace-link-info)
:map help-mode-map ("C-c m l" . ace-link-help)))
(use-package outline ; Navigate outlines in buffers
:defer t
:init (dolist (hook '(text-mode-hook prog-mode-hook))
(add-hook hook #'outline-minor-mode))
:diminish outline-minor-mode)
(use-package nlinum ; Line numbers in display margin
:ensure t
:bind (("C-c t l" . nlinum-mode)))
;;; Search
(use-package "isearch" ; Search buffers
;; Defer because `isearch' is not a feature and we don't want to `require' it
:defer t
;; `:diminish' doesn't work for isearch, because it uses eval-after-load on
;; the feature name, but isearch.el does not provide any feature. For the
;; same reason we have to use `:init', but isearch is always loaded anyways.
(diminish 'isearch-mode)
;; Please, isearch, let me scroll during search
isearch-allow-scroll t
;; Fold unicode characters to ASCII while searching
search-default-mode #'char-fold-to-regexp))
(use-package swiper ; isearch with overview
:ensure t
:defer t
:bind (([remap isearch-forward] . swiper)))
(use-package visual-regexp ; Regexp replace with in-buffer display
:ensure t
:bind (("C-c s r" . vr/query-replace)
("C-c s R" . vr/replace)))
(use-package grep ; Control grep from Emacs
:defer t
(when-let (gnu-find (and (eq system-type 'darwin)
(executable-find "gfind")))
(validate-setq find-program gnu-find))
(when-let (gnu-xargs (and (eq system-type 'darwin)
(executable-find "gxargs")))
(validate-setq xargs-program gnu-xargs)))
(use-package locate ; Search files on the system
:defer t
;; Use mdfind as locate substitute on OS X, to utilize the Spotlight database
(when-let (mdfind (and (eq system-type 'darwin) (executable-find "mdfind")))
(validate-setq locate-command mdfind)))
;;; Rings and registers
kill-ring-max 200 ; More killed items
kill-do-not-save-duplicates t ; No duplicates in kill ring
;; Save the contents of the clipboard to kill ring before killing
save-interprogram-paste-before-kill t)
(use-package easy-kill ; Easy killing and marking on C-w
:ensure t
:bind (([remap kill-ring-save] . easy-kill)
([remap mark-sexp] . easy-mark)))
;;; Basic editing
;; Disable tabs, but given them proper width
(setq-default indent-tabs-mode nil
tab-width 8)
;; Make Tab complete if the line is indented
(validate-setq tab-always-indent 'complete)
;; Indicate empty lines at the end of a buffer in the fringe, but require a
;; final new line
(validate-setq indicate-empty-lines t
require-final-newline t)
;; Configure a reasonable fill column, indicate it in the buffer and enable
;; automatic filling
(setq-default fill-column 80)
(add-hook 'text-mode-hook #'auto-fill-mode)
(diminish 'auto-fill-function "")
(bind-key "C-c x i" #'indent-region)
(use-package simple
:defer t
:bind (("M-g n" . lunaryorn-errors/next-error)
("M-g p" . lunaryorn-errors/previous-error))
(defhydra lunaryorn-errors ()
("n" next-error "next")
("p" previous-error "previous")
("f" first-error "first")))
(use-package lunaryorn-simple ; Personal editing helpers
:load-path "lisp/"
:bind (([remap kill-whole-line] . lunaryorn-smart-kill-whole-line)
([remap move-beginning-of-line] . lunaryorn-back-to-indentation-or-beginning-of-line)
("C-<backspace>" . lunaryorn-smart-backward-kill-line)
("C-S-j" . lunaryorn-smart-open-line)
("C-<return>" . lunaryorn-smart-open-line)
;; Additional utilities
("C-c i d" . lunaryorn-insert-current-date)
("C-c i l a" . lunaryorn-insert-apache2)
("C-c i l g" . lunaryorn-insert-gpl3)
("C-c i l m" . lunaryorn-insert-mit/x11))
:commands (lunaryorn-auto-fill-comments-mode)
;; Auto-fill comments in programming modes
:init (add-hook 'prog-mode-hook #'lunaryorn-auto-fill-comments-mode))
(use-package delsel ; Delete the selection instead of insert
:defer t
:init (delete-selection-mode))
(use-package newcomment ; Built-in comment features
:bind (("C-c c d" . comment-dwim)
("C-c c l" . comment-line)
("C-c c r" . comment-region)))
(use-package whitespace-cleanup-mode ; Cleanup whitespace in buffers
:ensure t
:bind (("C-c t c" . whitespace-cleanup-mode)
("C-c x w" . whitespace-cleanup))
:init (dolist (hook '(prog-mode-hook text-mode-hook conf-mode-hook))
(add-hook hook #'whitespace-cleanup-mode))
:diminish (whitespace-cleanup-mode . ""))
(use-package subword ; Subword/superword editing
:defer t
:diminish subword-mode)
(use-package adaptive-wrap ; Choose wrap prefix automatically
:ensure t
:defer t
:init (add-hook 'visual-line-mode-hook #'adaptive-wrap-prefix-mode))
(use-package visual-fill-column ; Fill column wrapping for Visual Line
; Mode
:ensure t
:defer t
:bind (("C-c t v" . visual-fill-column-mode))
;; Turn on whenever visual line mode is on, and in all text or prog mode
;; buffers to get centered text
(dolist (hook '(visual-line-mode-hook
(add-hook hook #'visual-fill-column-mode))
;; Center text by default, and move the fringes close to the text.
(setq-default visual-fill-column-center-text t
visual-fill-column-fringes-outside-margins nil)
;; Split windows vertically despite large margins, because Emacs otherwise
;; refuses to vertically split windows with large margins
(validate-setq split-window-preferred-function
(use-package zop-to-char ; Better zapping
:ensure t
:bind (("M-z" . zop-to-char)
("M-Z" . zop-up-to-char)))
(use-package align ; Align text in buffers
:bind (("C-c x a a" . align)
("C-c x a c" . align-current)))
(use-package lunaryorn-align
:load-path "lisp/"
:bind (("C-c x a r" . lunaryorn-align-repeat)
("C-c x a m" . lunaryorn-align-repeat-math-oper)
("C-c x a ." . lunaryorn-align-repeat-decimal)
("C-c x a ," . lunaryorn-align-repeat-comma)
("C-c x a ;" . lunaryorn-align-repeat-semicolon)
("C-c x a :" . lunaryorn-align-repeat-colon)
("C-c x a =" . lunaryorn-align-repeat-equal)
("C-c x a &" . lunaryorn-align-repeat-ampersand)
("C-c x a |" . lunaryorn-align-repeat-bar)
("C-c x a (" . lunaryorn-align-repeat-left-paren)
("C-c x a )" . lunaryorn-align-repeat-right-paren)))
(use-package multiple-cursors ; Edit text with multiple cursors
:ensure t
:bind (("C-c o <SPC>" . mc/vertical-align-with-space)
("C-c o a" . mc/vertical-align)
("C-c o e" . mc/mark-more-like-this-extended)
("C-c o h" . mc/mark-all-like-this-dwim)
("C-c o i n" . mc/insert-numbers)
("C-c o i l" . mc/insert-letters)
("C-c o l" . mc/edit-lines)
("C-c o n" . mc/mark-next-like-this)
("C-c o p" . mc/mark-previous-like-this)
("C-c o r" . vr/mc-mark)
("C-c o C-a" . mc/edit-beginnings-of-lines)
("C-c o C-e" . mc/edit-ends-of-lines)
("C-c o C-s" . mc/mark-all-in-region))
;; Simplify the MC mode line indicator
'(:propertize (:eval (concat " " (number-to-string (mc/num-cursors))))
face font-lock-warning-face)))
(use-package expand-region ; Expand region by semantic units
:ensure t
:bind (("C-c v" . er/expand-region)))
(use-package undo-tree ; Branching undo
:ensure t
:init (global-undo-tree-mode)
:diminish undo-tree-mode)
;; Give us narrowing back!
(put 'narrow-to-region 'disabled nil)
(put 'narrow-to-page 'disabled nil)
(put 'narrow-to-defun 'disabled nil)
;; Same for region casing
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
;; Additional keybindings
(bind-key [remap just-one-space] #'cycle-spacing)
;;; Internationalisation
(prefer-coding-system 'utf-8)
(use-package mule-cmds ; Input methods
:defer t
:bind (("C-c t i" . toggle-input-method))
(validate-setq default-input-method "german-postfix"))
;;; Paired delimiters
(use-package smartparens ; Parenthesis editing and balancing
:ensure t
:bind (("C-c k" . lunaryorn-smartparens/body)
:map smartparens-strict-mode-map
;; A fill paragraph in strict mode
("M-q" . sp-indent-defun))
;; Hydra for Smartparens
(defhydra lunaryorn-smartparens (:hint nil)
Sexps (quit with _q_)
^Nav^ ^Barf/Slurp^ ^Depth^
_f_: forward _→_: slurp forward _R_: splice
_b_: backward _←_: barf forward _r_: raise
_u_: backward ↑ _C-<right>_: slurp backward _↑_: raise backward
_d_: forward ↓ _C-<left>_: barf backward _↓_: raise forward
_p_: backward ↓
_n_: forward ↑
^Kill^ ^Misc^ ^Wrap^
_w_: copy _j_: join _(_: wrap with ( )
_k_: kill _s_: split _{_: wrap with { }
^^ _t_: transpose _'_: wrap with ' '
^^ _c_: convolute _\"_: wrap with \" \"
^^ _i_: indent defun"
("q" nil)
;; Wrapping
("(" (lambda (_) (interactive "P") (sp-wrap-with-pair "(")))
("{" (lambda (_) (interactive "P") (sp-wrap-with-pair "{")))
("'" (lambda (_) (interactive "P") (sp-wrap-with-pair "'")))
("\"" (lambda (_) (interactive "P") (sp-wrap-with-pair "\"")))
;; Navigation
("f" sp-forward-sexp )
("b" sp-backward-sexp)
("u" sp-backward-up-sexp)
("d" sp-down-sexp)
("p" sp-backward-down-sexp)
("n" sp-up-sexp)
;; Kill/copy
("w" sp-copy-sexp)
("k" sp-kill-sexp)
;; Misc
("t" sp-transpose-sexp)
("j" sp-join-sexp)
("s" sp-split-sexp)
("c" sp-convolute-sexp)
("i" sp-indent-defun)
;; Depth changing
("R" sp-splice-sexp)
("r" sp-splice-sexp-killing-around)
("<up>" sp-splice-sexp-killing-backward)
("<down>" sp-splice-sexp-killing-forward)
;; Barfing/slurping
("<right>" sp-forward-slurp-sexp)
("<left>" sp-forward-barf-sexp)
("C-<left>" sp-backward-barf-sexp)
("C-<right>" sp-backward-slurp-sexp))
(dolist (hook '(inferior-emacs-lisp-mode-hook
(add-hook hook #'smartparens-strict-mode))
(require 'smartparens-config)
(validate-setq sp-autoskip-closing-pair 'always
;; Don't kill entire symbol on C-k
sp-hybrid-kill-entire-symbol nil)
:diminish (smartparens-mode . ""))
(use-package lunaryorn-smartparens ; Personal Smartparens extensions
:disabled t
:load-path "lisp/"
:after smartparens
:config (lunaryorn-smartparens-bind-keys))
(use-package embrace ; Wrap semantic units with pairs
:ensure t
:bind (("C-c y" . lunaryorn-embrace/body)
("C-c x e" . lunaryorn-embrace/body))
(defhydra lunaryorn-embrace (:hint nil)
Add (_a_), change (_c_) or delete (_d_) a pair. Quit with _q_.
("a" embrace-add)
("c" embrace-change)
("d" embrace-delete)
("q" nil)))
;;; Highlights and fontification
(defun lunaryorn-whitespace-style-no-long-lines ()
"Configure `whitespace-mode' for Org.
Disable the highlighting of overlong lines."
(setq-local whitespace-style (-difference whitespace-style
'(lines lines-tail))))
(defun lunaryorn-whitespace-mode-local ()
"Enable `whitespace-mode' after local variables where set up."
(add-hook 'hack-local-variables-hook #'whitespace-mode nil 'local))
(use-package whitespace ; Highlight bad whitespace
:bind (("C-c t w" . whitespace-mode))
(dolist (hook '(prog-mode-hook text-mode-hook conf-mode-hook))
(add-hook hook #'lunaryorn-whitespace-mode-local))
;; Highlight tabs, empty lines at beg/end, trailing whitespaces and overlong
;; portions of lines via faces. Also indicate tabs via characters
whitespace-style '(face indentation space-after-tab space-before-tab
tab-mark empty trailing lines-tail)
whitespace-line-column nil) ; Use `fill-column' for overlong lines
:diminish (whitespace-mode . ""))
(use-package hl-line ; Highlight the current line
:init (global-hl-line-mode 1))
(use-package rainbow-delimiters ; Highlight delimiters by depth
:ensure t
:defer t
(dolist (hook '(text-mode-hook prog-mode-hook))
(add-hook hook #'rainbow-delimiters-mode)))
(use-package hi-lock ; Custom regexp highlights
:init (global-hi-lock-mode))
(use-package highlight-numbers ; Fontify number literals
:ensure t
:defer t
:init (add-hook 'prog-mode-hook #'highlight-numbers-mode))
(use-package rainbow-mode ; Fontify color values in code
:ensure t
:bind (("C-c t r" . rainbow-mode))
:config (add-hook 'css-mode-hook #'rainbow-mode))
(use-package highlight-symbol ; Highlighting and commands for symbols
:ensure t
:defer t
(("C-c s %" . highlight-symbol-query-replace)
("C-c s n" . highlight-symbol-next-in-defun)
("C-c s p" . highlight-symbol-prev-in-defun)
("C-c s o" . highlight-symbol-occur))
;; Navigate occurrences of the symbol under point with M-n and M-p, and
;; highlight symbol occurrences
(dolist (fn '(highlight-symbol-nav-mode highlight-symbol-mode))
(add-hook 'prog-mode-hook fn))
highlight-symbol-idle-delay 0.4 ; Highlight almost immediately
highlight-symbol-on-navigation-p t) ; Highlight immediately after
; navigation
:diminish highlight-symbol-mode)
(use-package hl-todo ; Highlight TODOs in buffers
:ensure t
:defer t
:init (global-hl-todo-mode))
;;; Skeletons, completion and expansion
;; In `completion-at-point', do not pop up silly completion buffers for less
;; than five candidates. Cycle instead.
(validate-setq completion-cycle-threshold 5)
(use-package hippie-exp ; Powerful expansion and completion
:bind (([remap dabbrev-expand] . hippie-expand))
(validate-setq hippie-expand-try-functions-list
(use-package lunaryorn-hippie-exp ; Custom expansion functions
:load-path "lisp/"
:after hippie-exp
:commands (lunaryorn-try-complete-lisp-symbol-without-namespace))
(use-package yasnippet ; Snippets
:ensure t
:defer t
:diminish (yas-minor-mode . ""))
(use-package company ; Graphical (auto-)completion
:ensure t
:defer 1
company-tooltip-align-annotations t
company-tooltip-flip-when-above t
;; Easy navigation to candidates with M-<n>
company-show-numbers t)
:diminish company-mode)
(use-package company-quickhelp ; Show help in tooltip
:ensure t
:after company
:config (company-quickhelp-mode))
(use-package company-statistics ; Sort company candidates by statistics
:ensure t
:after company
:config (company-statistics-mode))
(use-package company-math ; Completion for Math symbols
:ensure t
:after company
;; Add backends for math characters
(add-to-list 'company-backends 'company-math-symbols-unicode)
(add-to-list 'company-backends 'company-math-symbols-latex))
(use-package company-emoji ; Emojis completion like Github/Slack
:ensure t
:after company
(add-to-list 'company-backends 'company-emoji)
(defun lunaryorn-company-emoji-no-unicode ()
"Turn off unicode emoji for this buffer."
(setq-local company-emoji-insert-unicode nil))
(add-hook 'gfm-mode-hook #'lunaryorn-company-emoji-no-unicode))
(use-package auto-insert ; Automatic insertion into new files
:defer t
:bind (("C-c i a" . auto-insert)))
(use-package copyright ; Deal with copyright notices
:defer t
:bind (("C-c i c" . copyright-update))
;; Update copyright when visiting files
(defun lunaryorn-copyright-update ()
(unless buffer-read-only
(copyright-update nil 'interactive)
(unless copyright-update
;; Fix years when the copyright information was updated
(add-hook 'find-file-hook #'lunaryorn-copyright-update)
;; Use ranges to denote consecutive years
(validate-setq copyright-year-ranges t
;; Limit copyright changes to my own copyright
copyright-names-regexp (regexp-quote user-full-name)))
;;; Spelling and syntax checking
(use-package ispell ; Spell checking
:defer t
ispell-program-name (if (eq system-type 'darwin)
(executable-find "aspell")
(executable-find "hunspell"))
ispell-dictionary "en_GB" ; Default dictionnary
ispell-silently-savep t ; Don't ask when saving the private dict
;; Increase the height of the choices window to take our header line
;; into account.
ispell-choices-win-default-height 5)
(unless ispell-program-name
(warn "No spell checker available. Install Hunspell or ASpell for OS X.")))
(use-package flyspell ; On-the-fly spell checking
:bind (("C-c t s" . flyspell-mode)
("C-c l b" . flyspell-buffer))
(dolist (hook '(text-mode-hook message-mode-hook))
(add-hook hook 'turn-on-flyspell))
(add-hook 'prog-mode-hook 'flyspell-prog-mode)
flyspell-use-meta-tab nil
;; Make Flyspell less chatty
flyspell-issue-welcome-flag nil
flyspell-issue-message-flag nil)
;; Free C-M-i for completion
(define-key flyspell-mode-map "\M-\t" nil)
;; Undefine mouse buttons which get in the way
(define-key flyspell-mouse-map [down-mouse-2] nil)
(define-key flyspell-mouse-map [mouse-2] nil)
:diminish (flyspell-mode . ""))
(use-package auto-dictionary ; Automatically infer dictionary
:ensure t
;; Always change dictionary through adict, because it triggers hooks that let
;; us automatically update the "language" for other modes (e.g. Typo Mode) as
;; well
:bind (("C-c l l" . adict-change-dictionary)
("C-c l g" . adict-guess-dictionary))
(add-hook 'flyspell-mode-hook #'auto-dictionary-mode))
(use-package flycheck ; On-the-fly syntax checking
:ensure t
:defer 1
:bind (("C-c e" . lunaryorn-flycheck-errors/body)
("C-c t f" . flycheck-mode))
(defhydra lunaryorn-flycheck-errors ()
"Flycheck errors."
("n" flycheck-next-error "next")
("p" flycheck-previous-error "previous")
("f" flycheck-first-error "first")
("l" flycheck-list-errors "list")
("w" flycheck-copy-errors-as-kill "copy message"))
(validate-setq flycheck-standard-error-navigation nil
flycheck-scalastylerc "scalastyle_config.xml")
:diminish (flycheck-mode . ""))
(use-package lunaryorn-flycheck ; Personal Flycheck extensions
:load-path "lisp/"
:commands (lunaryorn-flycheck-find-config-file-in-sbt-project
;; Don't highlight undesired errors from html tidy
(add-hook 'flycheck-process-error-functions
(add-hook 'flycheck-locate-config-file-functions
(dolist (hook-fn '(lunaryorn-use-js-executables-from-node-modules
(add-hook 'flycheck-mode-hook hook-fn)))
(use-package flycheck-pos-tip ; Show Flycheck errors in tooltip
:ensure t
:disabled t
:after flycheck
:config (flycheck-pos-tip-mode))
(use-package flycheck-title ; Show Flycheck errors in frame title
:ensure t
:after flycheck
:config (flycheck-title-mode))
;;; Text editing
(use-package table ; Edit tables in text files
:defer t
(add-hook 'text-mode-hook #'table-recognize))
(use-package tildify ; Insert non-breaking spaces on the fly
:defer t
:bind (("C-c x t" . tildify-region)
("C-c t ~" . tildify-mode))
;; Use the right space for LaTeX
(add-hook 'latex-mode-hook
(lambda () (setq-local tildify-space-string "~"))))
(use-package typo ; Automatically use typographic quotes
:ensure t
:bind (("C-c t t" . typo-mode)
("C-c l L" . typo-change-language))
(add-hook 'text-mode-hook #'typo-mode)
;; TODO: Automatically set from ispell dictionary in
;; `adict-change-dictionary-hook', to update the typo language whenever the
;; spelling language changed
(setq-default typo-language "English")
:diminish (typo-mode . ""))
;;; LaTeX with AUCTeX
(use-package tex-site ; AUCTeX initialization
:ensure auctex)
(use-package tex ; TeX editing/processing
:ensure auctex
:defer t
TeX-parse-self t ; Parse documents to provide completion
; for packages, etc.
TeX-auto-save t ; Automatically save style information
TeX-electric-sub-and-superscript t ; Automatically insert braces after
; sub- and superscripts in math mode
TeX-electric-math '("\\(" . "\\)")
;; Don't insert magic quotes right away.
TeX-quote-after-quote t
;; Don't ask for confirmation when cleaning
TeX-clean-confirm nil
;; Provide forward and inverse search with SyncTeX
TeX-source-correlate-mode t
TeX-source-correlate-method 'synctex)
(setq-default TeX-master nil ; Ask for the master file
TeX-engine 'luatex ; Use a modern engine
;; Redundant in 11.88, but keep for older AUCTeX
TeX-PDF-mode t)
;; Move to chktex
(setcar (cdr (assoc "Check" TeX-command-list)) "chktex -v6 %s"))
(use-package tex-buf ; TeX buffer management
:ensure auctex
:defer t
;; Don't ask for confirmation when saving before processing
:config (validate-setq TeX-save-query nil))
(use-package tex-style ; TeX style
:ensure auctex
:defer t
;; Enable support for csquotes
(validate-setq LaTeX-csquotes-close-quote "}"
LaTeX-csquotes-open-quote "\\enquote{"))
(use-package tex-fold ; TeX folding
:ensure auctex
:defer t
:init (add-hook 'TeX-mode-hook #'TeX-fold-mode))
(use-package tex-mode ; TeX mode
:ensure auctex
:defer t
(font-lock-add-keywords 'latex-mode
`((,(rx "\\"
"fx" (1+ (or (syntax word) (syntax symbol)))
. font-lock-warning-face))))
(use-package latex ; LaTeX editing
:ensure auctex
:defer t
;; Teach TeX folding about KOMA script sections
TeX-outline-extra `((,(rx (0+ space) "\\section*{") 2)
(,(rx (0+ space) "\\subsection*{") 3)
(,(rx (0+ space) "\\subsubsection*{") 4)
(,(rx (0+ space) "\\minisec{") 5))
;; No language-specific hyphens please
LaTeX-babel-hyphen "")
(add-hook 'LaTeX-mode-hook #'LaTeX-math-mode)) ; Easy math input
(use-package auctex-latexmk ; latexmk command for AUCTeX
:ensure t
:defer t
:after latex
:config (auctex-latexmk-setup))
(use-package auctex-skim ; Skim as viewer for AUCTeX
:load-path "lisp/"
:commands (auctex-skim-select)
:after tex
:config (auctex-skim-select))
(use-package bibtex ; BibTeX editing
:defer t
;; Run prog mode hooks for bibtex
(add-hook 'bibtex-mode-hook (lambda () (run-hooks 'prog-mode-hook)))
;; Use a modern BibTeX dialect
(bibtex-set-dialect 'biblatex))
(defun lunaryorn-reftex-find-ams-environment-caption (environment)
"Find the caption of an AMS ENVIRONMENT."
(let ((re (rx-to-string `(and "\\begin{" ,environment "}"))))
;; Go to the beginning of the label first
(re-search-backward re)
(goto-char (match-end 0)))
(if (not (looking-at (rx (zero-or-more space) "[")))
(error "Environment %s has no title" environment)
(let ((beg (match-end 0)))
;; Move point onto the title start bracket and move over to the end,
;; skipping any other brackets in between, and eventually extract the text
;; between the brackets
(goto-char (1- beg))
(buffer-substring-no-properties beg (1- (point))))))
(use-package reftex ; TeX/BibTeX cross-reference management
:defer t
:init (add-hook 'LaTeX-mode-hook #'reftex-mode)
;; Plug into AUCTeX
reftex-plug-into-AUCTeX t
;; Automatically derive labels, and prompt for confirmation
reftex-insert-label-flags '(t t)
;; Additional label definitions for RefTeX.
("definition" ?d "def:" "~\\ref{%s}"
("definition" "def.") -3)
("theorem" ?h "thm:" "~\\ref{%s}"
("theorem" "th.") -3)
("example" ?x "ex:" "~\\ref{%s}"
("example" "ex") -3)
;; Algorithms package
("algorithm" ?a "alg:" "~\\ref{%s}"
"\\\\caption[[{]" ("algorithm" "alg") -3)))
;; Provide basic RefTeX support for biblatex
(unless (assq 'biblatex reftex-cite-format-builtin)
(add-to-list 'reftex-cite-format-builtin
'(biblatex "The biblatex package"
((?\C-m . "\\cite[]{%l}")
(?t . "\\textcite{%l}")
(?a . "\\autocite[]{%l}")
(?p . "\\parencite{%l}")
(?f . "\\footcite[][]{%l}")
(?F . "\\fullcite[]{%l}")
(?x . "[]{%l}")
(?X . "{%l}"))))
(validate-setq reftex-cite-format 'biblatex))
:diminish reftex-mode)
;;; Markup languages
(use-package rst ; ReStructuredText
:defer t
;; Indent with 3 spaces after all kinds of literal blocks
(validate-setq rst-indent-literal-minimized 3
rst-indent-literal-normal 3)
(bind-key "C-=" nil rst-mode-map)
;; For similarity with AUCTeX
(bind-key "C-c C-j" #'rst-insert-list rst-mode-map)
;; …and with Markdown Mode
(bind-key "M-RET" #'rst-insert-list rst-mode-map))
(use-package markdown-mode ; Markdown
:ensure t
;; Just no, dear Markdown Mode. Don't force that bastard Github dialect upon
;; me!
:mode ("\\.md\\'" . markdown-mode)
;; Process Markdown with Pandoc, using a custom stylesheet for nice output
(let ((stylesheet (expand-file-name
(locate-user-emacs-file "etc/pandoc.css"))))
(validate-setq markdown-command
(mapconcat #'shell-quote-argument
`("pandoc" "--toc" "--section-divs"
"--css" ,(concat "file://" stylesheet)
"--standalone" "-f" "markdown" "-t" "html5")
" ")))
;; No filling in GFM, because line breaks are significant.
(add-hook 'gfm-mode-hook #'turn-off-auto-fill)
;; Use visual lines instead
(add-hook 'gfm-mode-hook #'visual-line-mode)
(add-hook 'gfm-mode-hook #'lunaryorn-whitespace-style-no-long-lines)
(bind-key "C-c C-s C" #'markdown-insert-gfm-code-block markdown-mode-map)
(bind-key "C-c C-s P" #'markdown-insert-gfm-code-block markdown-mode-map)
;; Fight my habit of constantly pressing M-q. We should not fill in GFM
;; Mode.
(bind-key "M-q" #'ignore gfm-mode-map))
(use-package lunaryorn-markdown ; Personal Markdown extensions
:load-path "lisp/"
:after markdown-mode
:defer t
:bind (:map markdown-mode-map
("C-c m h" . lunaryorn-markdown-post-header)
("C-c m p" . lunaryorn-markdown-publish-jekyll-draft)))
(use-package yaml-mode ; YAML
:ensure t
:defer t
(add-hook 'yaml-mode-hook (lambda () (run-hooks 'prog-mode-hook))))
(use-package json-mode ; JSON files
:ensure t
:defer t
(add-hook 'json-mode-hook
;; Fix JSON mode indentation
(lambda () (setq-local js-indent-level 4))))
(use-package lunaryorn-json ; Personal JSON tools
:load-path "lisp/"
:bind (:map json-mode-map
("C-c m r" . lunaryorn-json-chef-role)))
(use-package json-reformat ; Reformat JSON
:ensure t
:defer t
:bind (("C-c x j" . json-reformat-region)))
(use-package graphviz-dot-mode ; Graphviz
:ensure t
:defer t
(validate-setq graphviz-dot-indent-width 4))
;;; Programming utilities
(use-package prog-mode ; Prog Mode
:bind (("C-c t p" . prettify-symbols-mode)))
(use-package compile ; Compile from Emacs
:bind (("C-c c C" . recompile))
compilation-ask-about-save nil
;; Kill old compilation processes before starting new ones,
compilation-always-kill t
;; Automatically scroll
compilation-scroll-output 'first-error
;; Skip over warnings and info messages in compilation
compilation-skip-threshold 2
;; Don't freeze when process reads from stdin
compilation-disable-input t
;; Show three lines of context around the current message
compilation-context-lines 3)
(require 'ansi-color)
(defun lunaryorn-colorize-compilation-buffer ()
"Colorize a compilation mode buffer.
Taken from"
(let ((inhibit-read-only t))
(ansi-color-apply-on-region compilation-filter-start (point-max))))
(add-hook 'compilation-filter-hook #'lunaryorn-colorize-compilation-buffer))
(use-package elide-head ; Elide lengthy GPL headers
:bind (("C-c t e" . elide-head))
:init (add-hook 'prog-mode-hook #'elide-head))
(use-package eldoc ; Documentation in minibuffer
:defer t
;; Enable Eldoc for `eval-expression', too
:init (add-hook 'eval-expression-minibuffer-setup-hook #'eldoc-mode)
(setq-default eldoc-documentation-function #'describe-char-eldoc)
:diminish (eldoc-mode . ""))
(use-package etags ; Tag navigation
:defer t
;; Do not query before reverting TAGS tables
(validate-setq tags-revert-without-query t))
(use-package restclient ; ReST REPL for Emacs
:ensure t
:defer t)
(use-package company-restclient ; Company support for restclient
:ensure t
:after company
:config (add-to-list 'company-backends 'company-restclient))
;;; Emacs Lisp
(bind-key "C-c t d" #'toggle-debug-on-error)
(use-package flycheck-cask ; Setup Flycheck by Cask projects
:ensure t
:defer t
:init (add-hook 'flycheck-mode-hook #'flycheck-cask-setup))
(use-package flycheck-package ; Check package conventions with Flycheck
:ensure t
:after flycheck
:config (flycheck-package-setup))
(use-package pcre2el ; Convert regexps to RX and back
:disabled t
:ensure t
:init (rxt-global-mode))
(use-package ielm ; Emacs Lisp REPL
:bind (("C-c a '" . ielm)))
(use-package elisp-mode ; Emacs Lisp editing
:defer t
:interpreter ("emacs" . emacs-lisp-mode)
:bind (:map emacs-lisp-mode-map
("C-c m e r" . eval-region)
("C-c m e b" . eval-buffer)
("C-c m e e" . eval-last-sexp)
("C-c m e f" . eval-defun)))
(use-package lunaryorn-elisp ; Personal tools for Emacs Lisp
:load-path "lisp/"
:commands (lunaryorn-add-use-package-to-imenu)
:bind (:map emacs-lisp-mode-map ("C-c m f" . lunaryorn-elisp-find-cask-file))
(add-hook 'emacs-lisp-mode-hook #'lunaryorn-add-use-package-to-imenu))
(use-package el-search ; pcase-based search for elisp
:ensure t
:bind (:map emacs-lisp-mode-map
("C-c m s" . el-search-pattern)
("C-c m r" . el-search-query-replace)))
(use-package cask-mode ; A major mode for Cask files
:ensure t
:defer t)
(use-package macrostep ; Interactively expand macros in code
:ensure t
:bind (:map emacs-lisp-mode-map ("C-c m x" . macrostep-expand)
:map lisp-interaction-mode-map ("C-c m x" . macrostep-expand)))
(use-package ert ; Unit test framework
;; Load after Emacs Lisp Mode to support writing ERT tests
:after elisp-mode)
(use-package buttercup ; BDD test framework for Emacs
:ensure t
:after elisp-mode)
;;; Scala
(use-package scala-mode ; Scala editing
:ensure t
:defer t
(validate-setq scala-indent:default-run-on-strategy
(defun lunaryorn-newline-and-indent-with-asterisk ()
(define-key scala-mode-map (kbd "RET")
(use-package sbt-mode ; Scala build tool
:ensure t
:defer t
:bind (:map scala-mode-map
("C-c m b c" . sbt-command)
("C-c m b r" . sbt-run-previous-command))
;; Do not pop up SBT buffers automatically
(validate-setq sbt:display-command-buffer nil)
(defun lunaryorn-scala-pop-to-sbt (new-frame)
"Open SBT REPL for this project, optionally in a NEW-FRAME.
Select the SBT REPL for the current project in a new window. If
the REPL is not yet running, start it. With prefix arg, select
the REPL in a new frame instead."
(interactive "P")
;; Start SBT when no running, taken from `sbt:command'
(when (not (comint-check-proc (sbt:buffer-name)))
(let ((display-buffer-overriding-action
(if new-frame '(display-buffer-pop-up-frame) nil)))
(pop-to-buffer (sbt:buffer-name))))
(with-eval-after-load 'scala-mode
(bind-key "C-c m s" #'lunaryorn-scala-pop-to-sbt scala-mode-map))
;; Disable Smartparens Mode in SBT buffers, because it frequently
;; hangs while trying to find matching delimiters
(add-hook 'sbt-mode-hook
(lambda ()
(when (fboundp 'smartparens-mode)
(smartparens-mode -1)))))
(use-package ensime ; Scala interaction mode
:ensure t
:after scala-mode
:bind (:map ensime-mode-map
("C-c m E" . ensime-reload)
;; Free M-n and M-p again
("M-n" . nil)
("M-p" . nil)
("<f5>" . ensime-sbt-do-compile)
:map scala-mode-map ("C-c m e" . ensime))
;; ;; Enable Ensime for all Scala buffers.
(add-hook 'scala-mode-hook #'ensime-mode)
;; Compile on save. My projects are small enough :)
(validate-setq ensime-sbt-perform-on-save "test:compile"))
(use-package ensime-expand-region ; Integrate Ensime into expand-region
:ensure ensime
:after ensime)
(use-package play-routes-mode ; Mode for Play 2 routes files
:ensure t
:defer t)
(use-package flycheck-ensime ; Ensime-based checker for Flycheck
:disabled t
:load-path "lisp/"
:defer t)
;;; Haskell
(use-package haskell-mode ; Haskell major mode
:ensure t
:defer t
:bind (:map haskell-mode-map
("M-." . haskell-mode-jump-to-def-or-tag)
("C-c m i j" . haskell-navigate-imports)
("C-c m i s" . haskell-sort-imports)
("C-c m i a" . haskell-align-imports)
;; Recommended Haskell Mode bindings, see
(validate-setq haskell-tags-on-save t ; Regenerate TAGS on save
haskell-process-log t ; Show log for GHCI process
;; Remove unused imports and auto-import modules
haskell-process-suggest-remove-import-lines t
haskell-process-auto-import-loaded-modules t)
(add-hook 'haskell-mode-hook #'haskell-decl-scan-mode) ; IMenu support
(add-hook 'haskell-mode-hook #'interactive-haskell-mode))
(use-package haskell ; Interactive Haskell
:ensure haskell-mode
:defer t
:bind (:map haskell-mode-map
("C-c C-l" . haskell-process-load-file)
("C-`" . haskell-interactive-bring)
("C-c C-t" . haskell-process-do-type)
("C-c C-i" . haskell-process-do-info)
("C-c C-c" . haskell-process-cabal-build)
("C-c C-k" . haskell-interactive-mode-clear)
("C-c c" . haskell-process-cabal)
:map interactive-haskell-mode-map
("C-c m t" . haskell-mode-show-type-at))
:init (add-hook 'haskell-mode-hook 'interactive-haskell-mode))
(use-package haskell-compile ; Haskell compilation
:ensure haskell-mode
:defer t
:bind (:map haskell-mode-map
("C-c m c" . haskell-compile)
("<f5>" . haskell-compile))
;; Build with Stack
(validate-setq haskell-compile-cabal-build-command "stack build"))
(use-package cabal-mode ; Cabal files
:ensure haskell-mode
:defer t
:bind (:map haskell-cabal-mode-map
("C-`" . haskell-interactive-bring)
("C-c C-k" . haskell-interactive-mode-clear)
("C-c C-c" . haskell-process-cabal-build)
("C-c c" . haskell-process-cabal)))
(use-package hindent ; Haskell indentation
:ensure t
:defer t
(add-hook 'haskell-mode-hook #'hindent-mode)
(validate-setq hindent-style "gibiansky"))
;;; Purescript
(use-package purescript-mode ; Purescript editing
:ensure t
:defer t)
(use-package psc-ide ; IDE features for Purescript
:ensure t
:defer t
(add-hook 'purescript-mode-hook #'psc-ide-mode)
(add-hook 'purescript-mode-hook #'turn-on-purescript-indentation))
;;; Python
(use-package python ; Python editing
:defer t
;; PEP 8 compliant filling rules, 79 chars maximum
(add-hook 'python-mode-hook (lambda () (validate-setq fill-column 79)))
(add-hook 'python-mode-hook #'subword-mode)
(let ((ipython (executable-find "ipython")))
(if ipython
(validate-setq python-shell-interpreter ipython)
(warn "IPython is missing, falling back to default python"))))
(use-package lunaryorn-virtualenv ; Personal virtualenv tools
:load-path "lisp/"
:commands (lunaryorn-virtualenv-init-from-workon-home)
:init (add-hook 'python-mode-hook #'lunaryorn-virtualenv-init-from-workon-home))
(use-package flycheck-virtualenv ; Setup Flycheck by virtualenv
:load-path "lisp/"
:after python
:commands (flycheck-virtualenv-setup)
:config (add-hook 'python-mode-hook #'flycheck-virtualenv-setup))
(use-package anaconda-mode ; Powerful Python backend for Emacs
:ensure t
:defer t
:init (add-hook 'python-mode-hook #'anaconda-mode))
(use-package company-anaconda ; Python backend for Company
:ensure t
:after company
:config (add-to-list 'company-backends 'company-anaconda))
(use-package pip-requirements ; requirements.txt files
:ensure t
:defer t)
;;; Rust
(use-package rust-mode ; Rust major mode
:ensure t
:defer t)
(use-package flycheck-rust ; Flycheck setup for Rust
:ensure t
:defer t
:after rust-mode
:config (add-hook 'flycheck-mode-hook #'flycheck-rust-setup))
(use-package racer ; Completion and navigation for Rust
:ensure t
:defer t
:init (add-hook 'rust-mode-hook #'racer-mode)
(validate-setq racer-rust-src-path (getenv "RUST_SRC_PATH"))
:diminish (racer-mode . ""))
(use-package cargo ; Control Cargo
:ensure t
:bind (:map rust-mode-map ("<f5>" . cargo-process-build))
:init (add-hook 'rust-mode-hook #'cargo-minor-mode)
:diminish cargo-minor-mode)
(use-package toml-mode ; Toml for Cargo files
:ensure t
:defer t)
;;; HTML & Javascript
(use-package web-mode
:ensure t
:defer t
:mode (("\\.html\\'" . web-mode)))
(use-package css-mode ; CSS
:defer t
:config (validate-setq css-indent-offset 2))
(use-package js2-mode ; Powerful Javascript mode
:ensure t
:defer t
:mode (("\\.js\\'" . js2-mode))
;; Disable parser errors and strict warnings. We have Flycheck 8)
(validate-setq js2-mode-show-parse-errors nil
js2-mode-show-strict-warnings nil
js2-highlight-level 3 ; Try to highlight most ECMA built-ins
(use-package rjsx-mode ; JSX mode
:ensure t
:defer t
:mode (("\\.jsx\\'" . rjsx-mode)))
(use-package js2-refactor ; Refactor Javascript
:ensure t
:defer t
(add-hook 'js2-mode-hook 'js2-refactor-mode)
(js2r-add-keybindings-with-prefix "C-c m r"))
(use-package tern ; Javascript IDE backend
:disabled t
:ensure t
:defer t
:init (add-hook 'js2-mode-hook #'tern-mode)
;; Don't generate port files
(add-to-list 'tern-command "--no-port-file" 'append))
(use-package company-tern ; Auto-completion for javascript
:ensure t
:after company
:config (add-to-list 'company-backends 'company-tern))
;;; Misc programming languages
(use-package sh-script ; Shell scripts
:defer t
:mode ("\\.zsh\\'" . sh-mode)
;; Use two spaces in shell scripts.
sh-indentation 2 ; The basic indentation
sh-basic-offset 2 ; The offset for nested indentation
(use-package nxml-mode ; XML editing
:defer t
;; Complete closing tags, and insert XML declarations into empty files
:config (validate-setq nxml-slash-auto-complete-flag t
nxml-auto-insert-xml-declaration-flag t))
(use-package html5-schema ; HTML5 schemata for NXML
:ensure t
:defer t)
(use-package thrift ; Thrift interface files
:ensure t
:defer t
:init (put 'thrift-indent-level 'safe-local-variable #'integerp)
:config (add-hook 'thrift-mode-hook (lambda () (run-hooks 'prog-mode-hook))))
(use-package homebrew-mode ; Homebrew Formulae
:ensure t
:defer t)
;;; Databases
(use-package sql ; SQL editing and REPL
:bind (("C-c a s" . sql-connect)
:map sql-mode-map
("C-c m p" . sql-set-product)))
(use-package sqlup-mode ; Upcase SQL keywords
:ensure t
:bind (:map sql-mode-map
("C-c m u" . sqlup-capitalize-keywords-in-region))
:config (add-hook 'sql-mode-hook #'sqlup-mode))
;;; Version control
(use-package vc-hooks ; Simple version control
:defer t
;; Always follow symlinks to files in VCS repos
(validate-setq vc-follow-symlinks t))
(use-package what-the-commit ; Insert random commit messages
:ensure t
:bind (("C-c i w" . what-the-commit-insert)
("C-c g w" . what-the-commit)))
(use-package diff-hl ; Highlight hunks in fringe
:ensure t
:defer t
;; Highlight changes to the current file in the fringe
;; Highlight changed files in the fringe of Dired
(add-hook 'dired-mode-hook 'diff-hl-dired-mode)
;; Fall back to the display margin, if the fringe is unavailable
(unless (display-graphic-p)
;; Refresh diff-hl after Magit operations
(add-hook 'magit-post-refresh-hook #'diff-hl-magit-post-refresh))
(use-package magit ; The one and only Git frontend
:ensure t
:bind (("C-c g c" . magit-clone)
("C-c g s" . magit-status)
("C-c g b" . magit-blame)
("C-c g l" . magit-log-buffer-file)
("C-c g p" . magit-pull))
;; Shut up, Magit
magit-completing-read-function #'ivy-completing-read
magit-save-repository-buffers 'dontask
magit-refs-show-commit-count 'all
;; Use separate buffers for one-file logs so that we don't need to reset
;; the filter everytime for full log view
magit-log-buffer-file-locked t
;; This is creepy, Magit
magit-revision-show-gravatars nil
;; Show status buffer in fullscreen
magit-display-buffer-function #'magit-display-buffer-fullframe-status-v1
;; Set Magit's repo dirs for `magit-status' from Projectile's known
;; projects. Initialize the `magit-repository-directories'
;; immediately after Projectile was loaded, and update it every time
;; we switched projects, because the new project might have been
;; unknown before
(defun lunaryorn-magit-set-repo-dirs-from-projectile ()
"Set `magit-repo-dirs' from known Projectile projects."
(let ((project-dirs (bound-and-true-p projectile-known-projects)))
;; Remove trailing slashes from project directories, because
;; Magit adds trailing slashes again, which breaks the
;; presentation in the Magit prompt.
(validate-setq magit-repository-directories
(mapcar #'directory-file-name project-dirs))))
(with-eval-after-load 'projectile
(add-hook 'projectile-switch-project-hook
(use-package projectile-git-autofetch ; Auto-fetch Github repos
:ensure t
:after magit
;; Fetch all open projects every ten minutes
(validate-setq projectile-git-autofetch-projects 'open
projectile-git-autofetch-interval 600)
:diminish (projectile-git-autofetch-mode . ""))
(use-package git-commit ; Git commit message mode
:ensure t
:defer t
;; Oh, really? Come on… I know what I'm doing…
(remove-hook 'git-commit-finish-query-functions
(use-package gitconfig-mode ; Git configuration mode
:ensure t
:defer t)
(use-package gitignore-mode ; .gitignore mode
:ensure t
:defer t)
(use-package gitattributes-mode ; Git attributes mode
:ensure t
:defer t)
(use-package git-timemachine ; Go back in Git time
:ensure t
:bind (("C-c g t" . git-timemachine)))
;;; Github integration
(use-package gh ; Github API library
:defer t
;; Change the default profile. The profile itself is set up via customize,
;; and includes auth data, to prevent it from storing tokens in Git config
:config (validate-setq gh-profile-default-profile "lunaryorn"))
(use-package magit-gh-pulls ; Show Github PRs in Magit
:disabled t
:ensure t
:defer t
:init (add-hook 'magit-mode-hook #'turn-on-magit-gh-pulls))
(use-package github-clone ; Clone and fork from Github
:ensure t
:bind ("C-c g g c" . github-clone))
(use-package magithub ; GitHub integration for Magit
:disabled t
:ensure t
:after magit)
(use-package gist ; Create and list Gists
:ensure t
:bind (("C-c g g l" . gist-list)
("C-c g g b" . gist-region-or-buffer)))
;;; Project management with Projectile
(use-package projectile ; Project management for Emacs
:ensure t
:defer 1
;; Remove dead projects when Emacs is idle
(run-with-idle-timer 10 nil #'projectile-cleanup-known-projects)
(validate-setq projectile-completion-system 'ivy
projectile-find-dir-includes-top-level t)
(defun lunaryorn-neotree-project-root (&optional directory)
"Open a NeoTree browser for a project DIRECTORY."
(let ((default-directory (or directory default-directory)))
(if (and (fboundp 'neo-global--window-exists-p)
(neotree-find (projectile-project-root)))))
:diminish projectile-mode)
(use-package counsel-projectile ; Counsel interface to projectile
:ensure t
:after projectile
;;; Processes and commands
(use-package proced ; Edit system processes
;; Proced isn't available on OS X
:if (not (eq system-type 'darwin))
:bind ("C-x p" . proced))
;;; Date and time
(use-package calendar ; Built-in calendar
:bind ("C-c a c" . calendar)
;; In Europe we start on Monday
(validate-setq calendar-week-start-day 1))
(use-package time ; Show current time
:bind (("C-c a C" . display-time-world))
(validate-setq display-time-world-time-format "%H:%M %Z, %d. %b"
display-time-world-list '(("Europe/Berlin" "Berlin")
("Europe/London" "London")
("Europe/Istanbul" "Istanbul")
("America/Winnipeg" "Winnipeg (CA)")
("America/New_York" "New York (USA)")
("Asia/Tokyo" "Tokyo (JP)"))))
;;; Terminal emulation and shells
(use-package shell ; Dump shell in Emacs
:bind ("C-c a t" . shell))
(use-package term ; Terminal emulator in Emacs
:bind ("C-c a T" . ansi-term))
;;; Documents
(use-package doc-view
:defer t
;; Render PDFs at 300dpi
(validate-setq doc-view-resolution 300)
(defconst lunaryorn-doc-view-mutool-program "mutool")
(defun lunaryorn-doc-view-pdf->png-converter-mutool (pdf png page callback)
"Convert a PDF file to PNG at PAGE.
After conversion invoke CALLBACK. See `doc-view-start-process'
for more information about CALLBACK."
"pdf->png" lunaryorn-doc-view-mutool-program
,(concat "-o" png)
,(format "-r%d" (round doc-view-resolution))
,@(if page `(,(format "%d" page))))
;; If `mutool' exists use our own converter function to call "mutool draw".
;; Otherwise check whether docview found mudraw and warn if it didn't
(if (executable-find lunaryorn-doc-view-mutool-program)
(setq doc-view-pdf->png-converter-function
;; Warn if Doc View falls back to Ghostscript for rendering
(unless (eq doc-view-pdf->png-converter-function
(warn "Doc View is not using mupdf!"))))
;;; Net & Web
(use-package browse-url ; Browse URLs
:bind (("C-c a u" . browse-url)))
(use-package bug-reference ; Turn bug refs into browsable buttons
:defer t
(add-hook 'prog-mode-hook #'bug-reference-prog-mode)
(add-hook 'text-mode-hook #'bug-reference-mode))
(use-package goto-addr ; Make links clickable
:defer t
:bind (("C-c t a" . goto-address-mode)
("C-c t A" . goto-address-prog-mode))
(add-hook 'prog-mode-hook #'goto-address-prog-mode)
(add-hook 'text-mode-hook #'goto-address-mode))
(use-package eww ; Emacs' built-in web browser
:bind (("C-c a w b" . eww-list-bookmarks)
("C-c a w w" . eww)
("C-c a w u" . eww-browse-url)))
(use-package sx ; StackExchange client for Emacs
:ensure t
:bind (("C-c a S a" . sx-ask)
("C-c a S s" . sx-tab-all-questions)
("C-c a S q" . sx-tab-all-questions)
("C-c a S f" . sx-tab-all-questions)
("C-c a S n" . sx-tab-newest)))
(use-package sx-compose ; Write questions/answers for Stack Exchange
:ensure sx
:defer t
;; Don't fill in SX questions/answers, and use visual lines instead. Plays
;; more nicely with the website.
(add-hook 'sx-compose-mode-hook #'turn-off-auto-fill)
(add-hook 'sx-compose-mode-hook #'visual-line-mode)
(add-hook 'sx-compose-mode-hook
;; Clean up whitespace before sending questions
(add-hook 'sx-compose-before-send-hook
(lambda () (whitespace-cleanup) t))
(bind-key "M-q" #'ignore sx-compose-mode-map))
(use-package sx-question-mode ; Show Stack
:ensure sx
:defer t
;; Display questions in the same window
:config (validate-setq sx-question-mode-display-buffer-function
;;; Online Help
(use-package find-func ; Find function/variable definitions
:bind (("C-c h F" . find-function)
("C-c h 4 F" . find-function-other-window)
("C-c h K" . find-function-on-key)
("C-c h V" . find-variable)
("C-c h 4 V" . find-variable-other-window)))
(use-package lunaryorn-help ; Personal extensions to help
:load-path "lisp/"
:defer t
:bind (("C-c h ." . lunaryorn-describe-symbol-at-point)))
(use-package man ; Manpage viewer
:defer t
:bind ("C-c h m" . man))
(use-package info ; Info manual viewer
:defer t
;; Fix the stupid `Info-quoted' face. Courier is an abysmal face, so go back
;; to the default face.
(set-face-attribute 'Info-quoted nil :family 'unspecified
:inherit font-lock-type-face))
(use-package niceify-info ; Prettify Info rendering
:disabled t
:ensure t
;; Adds emphasis to text between * and _, tries to fontify Emacs Lisp code,
;; tries to cross-reference symbol names in backticks, tries to fontify
;; headers, etc.q
:init (add-hook 'Info-selection-hook #'niceify-info))
(use-package ansible-doc ; Documentation lookup for Ansible
:ensure t
:defer t
:init (add-hook 'yaml-mode-hook #'ansible-doc-mode)
:diminish (ansible-doc-mode . ""))
(use-package dash-at-point ; Jump to Dash docset at point
:ensure t
:defer t
:bind (("C-c h d" . dash-at-point)
("C-c h D" . dash-at-point-with-docset)))
(bind-key "C-c h b" #'describe-personal-keybindings)
;; Restore the default GC threshold
(setq gc-cons-threshold lunaryorn-default-gc-cons-threshold)
;; Clear the variable again
(makunbound 'lunaryorn-default-gc-cons-threshold)
;; Local Variables:
;; coding: utf-8
;; indent-tabs-mode: nil
;; End:
;;; init.el ends here