Repository: purcell/emacs.d
Branch: master
Commit: c0a2ac6755f6
Files: 91
Total size: 134.8 KB
Directory structure:
gitextract_hfl5c9h3/
├── .agignore
├── .dir-locals.el
├── .github/
│ ├── FUNDING.yml
│ ├── dependabot.yml
│ └── workflows/
│ └── test.yml
├── .gitignore
├── LICENSE
├── README.md
├── early-init.el
├── init.el
├── lisp/
│ ├── .dir-locals.el
│ ├── init-benchmarking.el
│ ├── init-clojure-cider.el
│ ├── init-clojure.el
│ ├── init-compile.el
│ ├── init-corfu.el
│ ├── init-crontab.el
│ ├── init-css.el
│ ├── init-csv.el
│ ├── init-darcs.el
│ ├── init-dash.el
│ ├── init-dired.el
│ ├── init-direnv.el
│ ├── init-docker.el
│ ├── init-editing-utils.el
│ ├── init-eglot.el
│ ├── init-elm.el
│ ├── init-elpa.el
│ ├── init-erlang.el
│ ├── init-exec-path.el
│ ├── init-flymake.el
│ ├── init-folding.el
│ ├── init-frame-hooks.el
│ ├── init-git.el
│ ├── init-github.el
│ ├── init-grep.el
│ ├── init-gui-frames.el
│ ├── init-haml.el
│ ├── init-haskell.el
│ ├── init-hippie-expand.el
│ ├── init-html.el
│ ├── init-http.el
│ ├── init-ibuffer.el
│ ├── init-isearch.el
│ ├── init-j.el
│ ├── init-javascript.el
│ ├── init-ledger.el
│ ├── init-lisp.el
│ ├── init-locales.el
│ ├── init-lua.el
│ ├── init-markdown.el
│ ├── init-minibuffer.el
│ ├── init-misc.el
│ ├── init-mmm.el
│ ├── init-nim.el
│ ├── init-nix.el
│ ├── init-nxml.el
│ ├── init-ocaml.el
│ ├── init-org.el
│ ├── init-osx-keys.el
│ ├── init-paredit.el
│ ├── init-php.el
│ ├── init-projectile.el
│ ├── init-purescript.el
│ ├── init-python.el
│ ├── init-rails.el
│ ├── init-recentf.el
│ ├── init-ruby.el
│ ├── init-rust.el
│ ├── init-sessions.el
│ ├── init-site-lisp.el
│ ├── init-sly.el
│ ├── init-spelling.el
│ ├── init-sql.el
│ ├── init-terminals.el
│ ├── init-terraform.el
│ ├── init-textile.el
│ ├── init-themes.el
│ ├── init-toml.el
│ ├── init-treesitter.el
│ ├── init-uiua.el
│ ├── init-uniquify.el
│ ├── init-utils.el
│ ├── init-vc.el
│ ├── init-whitespace.el
│ ├── init-windows.el
│ ├── init-xterm.el
│ ├── init-yaml.el
│ └── init-zig.el
├── site-lisp/
│ └── README
└── test-startup.sh
================================================
FILE CONTENTS
================================================
================================================
FILE: .agignore
================================================
archive-contents
================================================
FILE: .dir-locals.el
================================================
;;; Directory Local Variables
;;; For more information see (info "(emacs) Directory Variables")
((emacs-lisp-mode
(indent-tabs-mode . nil)))
================================================
FILE: .github/FUNDING.yml
================================================
patreon: sanityinc
================================================
FILE: .github/dependabot.yml
================================================
version: 2
updates:
- package-ecosystem: github-actions
directory: "/"
schedule:
interval: daily
open-pull-requests-limit: 10
commit-message:
prefix: "chore"
include: "scope"
================================================
FILE: .github/workflows/test.yml
================================================
name: CI
on:
pull_request:
push:
paths-ignore:
- '**.md'
jobs:
build:
runs-on: ubuntu-latest
continue-on-error: ${{ matrix.experimental }}
strategy:
matrix:
emacs_version:
- 27.1
- 27.2
- 28.1
- 28.2
- 29.1
- 29.3
- 29.4
- 30.1
experimental: [false]
include:
- emacs_version: snapshot
experimental: true
steps:
- uses: purcell/setup-emacs@master
with:
version: ${{ matrix.emacs_version }}
- uses: actions/checkout@v6
- name: Check startup
run: ./test-startup.sh
================================================
FILE: .gitignore
================================================
/url/cache
/.emacs.desktop
/auto-save-list
/network-security.data
/.session
/session.*
/custom.el
*.elc
CVS
.svn
*~
.cvsignore
.*.lock
/tramp
/TODO
/.org-id-locations
cookies
/newsticker
\#*
/tree-sitter
/elpa
/elpa-*
site-lisp/package/
/swank
/.mc-lists.el
/var
/.sqli_history
/frame-restore-parameters
/.achievements
/.bookmarks.el
/history
/helm-adaptive-history
/thumbs/
/emms/
/.smex-items
/image-dired/
/eshell
/.cask/
/.sx/
/org-clock-save.el
/ditaa*.jar
/ido.last
/recentf
/viper
/projectile-bookmarks.eld
/anaconda-mode/
/.historian
/.uptimes.el
/rake.cache
/plantuml.jar
/magithub
.cache/
/forge-database.sqlite
/transient
/.lsp-session-v1
/smex-items
/eln-cache/
/projects
/forge-*.sqlite
/projectile.cache
================================================
FILE: LICENSE
================================================
Copyright (c) 2006-2021, Steve Purcell
All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:
1. Redistributions of source code must retain the above copyright notice, this
list of conditions and the following disclaimer.
2. Redistributions in binary form must reproduce the above copyright notice,
this list of conditions and the following disclaimer in the documentation
and/or other materials provided with the distribution.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
================================================
FILE: README.md
================================================
[](https://github.com/purcell/emacs.d/actions)
<a href="https://www.patreon.com/sanityinc"><img alt="Support me" src="https://img.shields.io/badge/Support%20Me-%F0%9F%92%97-ff69b4.svg"></a>
# A reasonable Emacs config
This is my emacs configuration tree, continually used and tweaked
since 2000, and it may be a good starting point for other Emacs
users, especially web developers. These days it's
somewhat geared towards OS X, but it is known to also work on Linux
and Windows.
Emacs itself comes with support for many programming languages. This
config adds improved defaults and extended support for the following, listed
in the approximate order of how much I use them, from most to least:
* Haskell / Purescript / Elm / OCaml
* Ruby / Ruby on Rails
* SQL
* CSS / LESS / SASS / SCSS
* Javascript / Typescript
* HTML / HAML / Markdown / Textile / ERB
* Common Lisp (with Slime)
* Python
* Rust
* Clojure (with Cider and nRepl)
* PHP
* Erlang
Included is a nice setup for in-buffer autocompletion with
[corfu](https://github.com/minad/corfu), and minibuffer completion using
[vertico](https://github.com/minad/vertico).
`flymake` (re-using backends from [flycheck](http://www.flycheck.org))
is used to immediately highlight syntax errors in Ruby, Python,
Javascript, Haskell and a number of other languages.
LSP support is provided using `eglot`.
Various popular Emacs tools are included and configured here, such as
`magit`, `docker.el`, `projectile`, `org-mode` etc., but the focus is moderate
## Supported Emacs versions
Use the latest released Emacs version available to you. The author
typically uses the latest stable version.
The config should run on Emacs 27.1 or greater and is designed to
degrade smoothly - see the CI build - but many enhancements may be
unavailable if your Emacs is too old, and in general you should try
to use the latest stable Emacs release like I do.
## Other requirements
To make the most of the programming language-specific support in this
config, further programs will likely be required, particularly those
that flycheck or flymake use to provide on-the-fly syntax checking.
## Installation
To install, clone this repo to `~/.emacs.d`, i.e. ensure that the
`init.el` contained in this repo ends up at `~/.emacs.d/init.el`:
```
git clone https://github.com/purcell/emacs.d.git ~/.emacs.d
```
Upon starting up Emacs for the first time, further third-party
packages will be automatically downloaded and installed. If you
encounter any errors at that stage, try restarting Emacs, and possibly
running `M-x package-refresh-contents` before doing so.
## Updates
Update the config with `git pull`. You'll probably also want/need to
update the third-party packages regularly too, because that's what I
do, and the config assumes it:
<kbd>M-x package-list-packages</kbd>, then <kbd>U</kbd> followed by <kbd>x</kbd>.
You should usually restart Emacs after pulling changes or updating
packages so that they can take effect. Emacs should usually restore
your working buffers when you restart due to this configuration's use
of the `desktop` and `session` packages.
## Changing themes and adding your own customization
To add your own customization, use <kbd>M-x customize</kbd>, <kbd>M-x
customize-themes</kbd> etc. and/or create a file
`~/.emacs.d/lisp/init-local.el` which looks like this:
```el
... your code here ...
(provide 'init-local)
```
If you need initialisation code which executes earlier in the startup process,
you can also create an `~/.emacs.d/lisp/init-preload-local.el` file.
If you plan to customize things more extensively, you should probably
just fork the repo and hack away at the config to make it your own!
Remember to regularly merge in changes from this repo, so that your
config remains compatible with the latest package and Emacs versions.
*Please note that I cannot provide support for customised versions of
this configuration.*
## Support / issues
If you hit any problems, please first ensure that you are using the latest version
of this code, and that you have updated your packages to the most recent available
versions (see "Updates" above). If you still experience problems, go ahead and
[file an issue on the github project](https://github.com/purcell/emacs.d).
-Steve Purcell
<hr>
[💝 Support this project and my other Open Source work](https://www.patreon.com/sanityinc)
[💼 LinkedIn profile](https://uk.linkedin.com/in/stevepurcell)
[✍ sanityinc.com](http://www.sanityinc.com/)
================================================
FILE: early-init.el
================================================
;;; early-init.el --- Emacs 27+ pre-initialisation config
;;; Commentary:
;; Emacs 27+ loads this file before (normally) calling
;; `package-initialize'. We use this file to suppress that automatic
;; behaviour so that startup is consistent across Emacs versions.
;;; Code:
(setq package-enable-at-startup nil)
;; So we can detect this having been loaded
(provide 'early-init)
;;; early-init.el ends here
================================================
FILE: init.el
================================================
;;; init.el --- Load the full configuration -*- lexical-binding: t -*-
;;; Commentary:
;; This file bootstraps the configuration, which is divided into
;; a number of other files.
;;; Code:
;; Produce backtraces when errors occur: can be helpful to diagnose startup issues
;;(setq debug-on-error t)
(let ((minver "27.1"))
(when (version< emacs-version minver)
(error "Your Emacs is too old -- this config requires v%s or higher" minver)))
(when (version< emacs-version "28.1")
(message "Your Emacs is old, and some functionality in this config will be disabled. Please upgrade if possible."))
(add-to-list 'load-path (expand-file-name "lisp" user-emacs-directory))
(require 'init-benchmarking) ;; Measure startup time
(defconst *spell-check-support-enabled* nil) ;; Enable with t if you prefer
(defconst *is-a-mac* (eq system-type 'darwin))
;; Adjust garbage collection threshold for early startup (see use of gcmh below)
(setq gc-cons-threshold (* 128 1024 1024))
;; Process performance tuning
(setq read-process-output-max (* 4 1024 1024))
(setq process-adaptive-read-buffering nil)
;; Bootstrap config
(setq custom-file (locate-user-emacs-file "custom.el"))
(require 'init-utils)
(require 'init-site-lisp) ;; Must come before elpa, as it may provide package.el
;; Calls (package-initialize)
(require 'init-elpa) ;; Machinery for installing required packages
(require 'init-exec-path) ;; Set up $PATH
;; General performance tuning
(when (require-package 'gcmh)
(setq gcmh-high-cons-threshold (* 128 1024 1024))
(add-hook 'after-init-hook (lambda ()
(gcmh-mode)
(diminish 'gcmh-mode))))
(setq jit-lock-defer-time 0)
;; Allow users to provide an optional "init-preload-local.el"
(require 'init-preload-local nil t)
;; Load configs for specific features and modes
(require-package 'diminish)
(maybe-require-package 'scratch)
(require-package 'command-log-mode)
(require 'init-frame-hooks)
(require 'init-xterm)
(require 'init-themes)
(require 'init-osx-keys)
(require 'init-gui-frames)
(require 'init-dired)
(require 'init-isearch)
(require 'init-grep)
(require 'init-uniquify)
(require 'init-ibuffer)
(require 'init-flymake)
(require 'init-eglot)
(require 'init-recentf)
(require 'init-minibuffer)
(require 'init-hippie-expand)
(require 'init-corfu)
(require 'init-windows)
(require 'init-sessions)
(require 'init-mmm)
(require 'init-editing-utils)
(require 'init-whitespace)
(require 'init-vc)
(require 'init-darcs)
(require 'init-git)
(require 'init-github)
(require 'init-projectile)
(require 'init-compile)
(require 'init-crontab)
(require 'init-textile)
(require 'init-markdown)
(require 'init-csv)
(require 'init-erlang)
(require 'init-javascript)
(require 'init-php)
(require 'init-org)
(require 'init-nxml)
(require 'init-html)
(require 'init-css)
(require 'init-haml)
(require 'init-http)
(require 'init-python)
(require 'init-haskell)
(require 'init-elm)
(require 'init-purescript)
(require 'init-ruby)
(require 'init-rails)
(require 'init-sql)
(require 'init-ocaml)
(require 'init-j)
(require 'init-nim)
(require 'init-rust)
(require 'init-toml)
(require 'init-yaml)
(require 'init-docker)
(require 'init-terraform)
(require 'init-nix)
(maybe-require-package 'nginx-mode)
(maybe-require-package 'just-mode)
(when (maybe-require-package 'just-ts-mode)
;; Undo overly-optimistic autoloading, so that things still work in
;; Emacs 29 without treesitter
(sanityinc/remove-auto-mode 'just-ts-mode))
(maybe-require-package 'justl)
(require 'init-paredit)
(require 'init-lisp)
(require 'init-sly)
(require 'init-clojure)
(require 'init-clojure-cider)
(when *spell-check-support-enabled*
(require 'init-spelling))
(require 'init-misc)
(require 'init-folding)
(require 'init-dash)
(require 'init-ledger)
(require 'init-lua)
(require 'init-uiua)
(require 'init-zig)
(require 'init-terminals)
;; Extra packages which don't require any configuration
(require-package 'sudo-edit)
(maybe-require-package 'gnuplot)
(require-package 'htmlize)
(when *is-a-mac*
(require-package 'osx-location))
(maybe-require-package 'dotenv-mode)
(maybe-require-package 'shfmt)
(when (maybe-require-package 'uptimes)
(setq-default uptimes-keep-count 200)
(add-hook 'after-init-hook (lambda () (require 'uptimes))))
(when (fboundp 'global-eldoc-mode)
(add-hook 'after-init-hook 'global-eldoc-mode))
(require 'init-direnv)
(when (and (require 'treesit nil t)
(fboundp 'treesit-available-p)
(treesit-available-p))
(require 'init-treesitter))
;; Allow access from emacsclient
(add-hook 'after-init-hook
(lambda ()
(require 'server)
(unless (server-running-p)
(server-start))))
;; Variables configured via the interactive 'customize' interface
(when (file-exists-p custom-file)
(load custom-file))
;; Locales (setting them earlier in this file doesn't work in X)
(require 'init-locales)
;; Allow users to provide an optional "init-local" containing personal settings
(require 'init-local nil t)
(provide 'init)
;; Local Variables:
;; coding: utf-8
;; no-byte-compile: t
;; End:
;;; init.el ends here
================================================
FILE: lisp/.dir-locals.el
================================================
;;; Directory Local Variables
;;; For more information see (info "(emacs) Directory Variables")
((emacs-lisp-mode
(no-byte-compile . t)))
================================================
FILE: lisp/init-benchmarking.el
================================================
;;; init-benchmarking.el --- Measure startup and require times -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(defun sanityinc/time-subtract-millis (b a)
(* 1000.0 (float-time (time-subtract b a))))
(defvar sanityinc/require-times nil
"A list of (FEATURE LOAD-START-TIME LOAD-DURATION).
LOAD-DURATION is the time taken in milliseconds to load FEATURE.")
(defun sanityinc/require-times-wrapper (orig feature &rest args)
"Note in `sanityinc/require-times' the time taken to require each feature."
(let* ((already-loaded (memq feature features))
(require-start-time (and (not already-loaded) (current-time))))
(prog1
(apply orig feature args)
(when (and (not already-loaded) (memq feature features))
(let ((time (sanityinc/time-subtract-millis (current-time) require-start-time)))
(add-to-list 'sanityinc/require-times
(list feature require-start-time time)
t))))))
(advice-add 'require :around 'sanityinc/require-times-wrapper)
(define-derived-mode sanityinc/require-times-mode tabulated-list-mode "Require-Times"
"Show times taken to `require' packages."
(setq tabulated-list-format
[("Start time (ms)" 20 sanityinc/require-times-sort-by-start-time-pred)
("Feature" 30 t)
("Time (ms)" 12 sanityinc/require-times-sort-by-load-time-pred)])
(setq tabulated-list-sort-key (cons "Start time (ms)" nil))
;; (setq tabulated-list-padding 2)
(setq tabulated-list-entries #'sanityinc/require-times-tabulated-list-entries)
(tabulated-list-init-header)
(when (fboundp 'tablist-minor-mode)
(tablist-minor-mode)))
(defun sanityinc/require-times-sort-by-start-time-pred (entry1 entry2)
(< (string-to-number (elt (nth 1 entry1) 0))
(string-to-number (elt (nth 1 entry2) 0))))
(defun sanityinc/require-times-sort-by-load-time-pred (entry1 entry2)
(> (string-to-number (elt (nth 1 entry1) 2))
(string-to-number (elt (nth 1 entry2) 2))))
(defun sanityinc/require-times-tabulated-list-entries ()
(cl-loop for (feature start-time millis) in sanityinc/require-times
with order = 0
do (cl-incf order)
collect (list order
(vector
(format "%.3f" (sanityinc/time-subtract-millis start-time before-init-time))
(symbol-name feature)
(format "%.3f" millis)))))
(defun sanityinc/require-times ()
"Show a tabular view of how long various libraries took to load."
(interactive)
(with-current-buffer (get-buffer-create "*Require Times*")
(sanityinc/require-times-mode)
(tabulated-list-revert)
(display-buffer (current-buffer))))
(defun sanityinc/show-init-time ()
(message "init completed in %.2fms"
(sanityinc/time-subtract-millis after-init-time before-init-time)))
(add-hook 'after-init-hook 'sanityinc/show-init-time)
(provide 'init-benchmarking)
;;; init-benchmarking.el ends here
================================================
FILE: lisp/init-clojure-cider.el
================================================
;;; init-clojure-cider.el --- Cider support for clojure -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require 'init-clojure)
(when (maybe-require-package 'cider)
(setq nrepl-popup-stacktraces nil)
(add-hook 'clojure-ts-mode-hook #'cider-mode)
(with-eval-after-load 'cider
(add-hook 'cider-repl-mode-hook 'subword-mode)
(add-hook 'cider-repl-mode-hook 'paredit-mode))
(require-package 'flycheck-clojure)
(with-eval-after-load 'clojure-mode
(with-eval-after-load 'cider
(with-eval-after-load 'flycheck
(flycheck-clojure-setup)))))
(provide 'init-clojure-cider)
;;; init-clojure-cider.el ends here
================================================
FILE: lisp/init-clojure.el
================================================
;;; init-clojure.el --- Clojure support -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; See also init-clojure-cider.el
(when (or (maybe-require-package 'clojure-ts-mode)
(maybe-require-package 'clojure-mode))
(require-package 'cljsbuild-mode)
(with-eval-after-load 'clojure-mode
(dolist (m '(clojure-mode-hook clojure-ts-mode-hook))
(add-hook m 'sanityinc/lisp-setup))))
(provide 'init-clojure)
;;; init-clojure.el ends here
================================================
FILE: lisp/init-compile.el
================================================
;;; init-compile.el --- Helpers for M-x compile -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(setq-default compilation-scroll-output t)
(require-package 'alert)
;; Customize `alert-default-style' to get messages after compilation
(defun sanityinc/alert-after-compilation-finish (buf result)
"Use `alert' to report compilation RESULT if BUF is hidden."
(when (buffer-live-p buf)
(unless (catch 'is-visible
(walk-windows (lambda (w)
(when (eq (window-buffer w) buf)
(throw 'is-visible t))))
nil)
(alert (concat "Compilation " result)
:buffer buf
:category 'compilation))))
(with-eval-after-load 'compile
(add-hook 'compilation-finish-functions
'sanityinc/alert-after-compilation-finish))
(defvar sanityinc/last-compilation-buffer nil
"The last buffer in which compilation took place.")
(with-eval-after-load 'compile
(defun sanityinc/save-compilation-buffer (&rest _)
"Save the compilation buffer to find it later."
(setq sanityinc/last-compilation-buffer next-error-last-buffer))
(advice-add 'compilation-start :after 'sanityinc/save-compilation-buffer)
(defun sanityinc/find-prev-compilation (orig &optional edit-command)
"Find the previous compilation buffer, if present, and recompile there."
(if (and (null edit-command)
(not (derived-mode-p 'compilation-mode))
sanityinc/last-compilation-buffer
(buffer-live-p (get-buffer sanityinc/last-compilation-buffer)))
(with-current-buffer sanityinc/last-compilation-buffer
(funcall orig edit-command))
(funcall orig edit-command)))
(advice-add 'recompile :around 'sanityinc/find-prev-compilation))
(global-set-key [f6] 'recompile)
(defun sanityinc/shell-command-in-view-mode (start end command &optional output-buffer replace &rest other-args)
"Put \"*Shell Command Output*\" buffers into view-mode."
(unless (or output-buffer replace)
(with-current-buffer "*Shell Command Output*"
(view-mode 1))))
(advice-add 'shell-command-on-region :after 'sanityinc/shell-command-in-view-mode)
(with-eval-after-load 'compile
(require 'ansi-color)
(defun sanityinc/colourise-compilation-buffer ()
(when (eq major-mode 'compilation-mode)
(ansi-color-apply-on-region compilation-filter-start (point-max))))
(add-hook 'compilation-filter-hook 'sanityinc/colourise-compilation-buffer))
(provide 'init-compile)
;;; init-compile.el ends here
================================================
FILE: lisp/init-corfu.el
================================================
;;; init-corfu.el --- Interactive completion in buffers -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; WAITING: haskell-mode sets tags-table-list globally, breaks tags-completion-at-point-function
;; TODO Default sort order should place [a-z] before punctuation
(setq tab-always-indent 'complete)
(when (maybe-require-package 'orderless)
(with-eval-after-load 'vertico
(require 'orderless)
(setq completion-styles '(orderless basic))))
(setq completion-category-defaults nil
completion-category-overrides nil)
(setq completion-cycle-threshold 4)
(when (and (version< "28.1" emacs-version) (maybe-require-package 'corfu))
(setq-default corfu-auto t)
(with-eval-after-load 'eshell
(add-hook 'eshell-mode-hook (lambda () (setq-local corfu-auto nil))))
(setq-default corfu-quit-no-match 'separator)
(add-hook 'after-init-hook 'global-corfu-mode)
(with-eval-after-load 'corfu
(corfu-popupinfo-mode))
;; Make Corfu also work in terminals, without disturbing usual behaviour in GUI
(when (maybe-require-package 'corfu-terminal)
(with-eval-after-load 'corfu
(corfu-terminal-mode)))
;; TODO: https://github.com/jdtsmith/kind-icon
)
(provide 'init-corfu)
;;; init-corfu.el ends here
================================================
FILE: lisp/init-crontab.el
================================================
;;; init-crontab.el --- Working with crontabs -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require-package 'crontab-mode)
(add-auto-mode 'crontab-mode "\\.?cron\\(tab\\)?\\'")
(provide 'init-crontab)
;;; init-crontab.el ends here
================================================
FILE: lisp/init-css.el
================================================
;;; init-css.el --- CSS/Less/SASS/SCSS support -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;;; Colourise CSS colour literals
(when (maybe-require-package 'rainbow-mode)
(dolist (hook '(css-mode-hook html-mode-hook sass-mode-hook))
(add-hook hook 'rainbow-mode)))
;;; Embedding in html
(require-package 'mmm-mode)
(with-eval-after-load 'mmm-vars
(mmm-add-group
'html-css
'((css-cdata
:submode css-mode
:face mmm-code-submode-face
:front "<style[^>]*>[ \t\n]*\\(//\\)?<!\\[CDATA\\[[ \t]*\n?"
:back "[ \t]*\\(//\\)?]]>[ \t\n]*</style>"
:insert ((?c css-tag nil @ "<style type=\"text/css\">"
@ "\n" _ "\n" @ "</style>" @)))
(css
:submode css-mode
:face mmm-code-submode-face
:front "<style[^>]*>[ \t]*\n?"
:back "[ \t]*</style>"
:insert ((?c css-tag nil @ "<style type=\"text/css\">"
@ "\n" _ "\n" @ "</style>" @)))
(css-inline
:submode css-mode
:face mmm-code-submode-face
:front "style=\""
:back "\"")))
(dolist (mode (list 'html-mode 'nxml-mode))
(mmm-add-mode-ext-class mode "\\.r?html\\(\\.erb\\)?\\'" 'html-css)))
;;; SASS and SCSS
(require-package 'sass-mode)
(unless (fboundp 'scss-mode)
;; Prefer the scss-mode built into Emacs
(require-package 'scss-mode))
(setq-default scss-compile-at-save nil)
;;; LESS
(unless (fboundp 'less-css-mode)
;; Prefer the scss-mode built into Emacs
(require-package 'less-css-mode))
;;; Use eldoc for syntax hints
(require-package 'css-eldoc)
(autoload 'turn-on-css-eldoc "css-eldoc")
(add-hook 'css-mode-hook 'turn-on-css-eldoc)
(provide 'init-css)
;;; init-css.el ends here
================================================
FILE: lisp/init-csv.el
================================================
;;; init-csv.el --- CSV files -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'csv-mode)
(add-auto-mode 'csv-mode "\\.[Cc][Ss][Vv]\\'")
(setq csv-separators '("," ";" "|" " ")))
(provide 'init-csv)
;;; init-csv.el ends here
================================================
FILE: lisp/init-darcs.el
================================================
;;; init-darcs.el --- Support for the Darcs DVCS -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require-package 'vc-darcs)
;; TODO: include this in the vc-darcs ELPA package
(add-to-list 'vc-handled-backends 'DARCS)
(autoload 'vc-darcs-find-file-hook "vc-darcs")
(add-hook 'find-file-hooks 'vc-darcs-find-file-hook)
(setq darcsum-whatsnew-switches "-l")
(provide 'init-darcs)
;;; init-darcs.el ends here
================================================
FILE: lisp/init-dash.el
================================================
;;; init-dash.el --- Integrate with the Mac app "Dash" -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; Support for the http://kapeli.com/dash documentation browser
(when *is-a-mac*
(require-package 'dash-at-point)
(global-set-key (kbd "C-c D") 'dash-at-point))
(provide 'init-dash)
;;; init-dash.el ends here
================================================
FILE: lisp/init-dired.el
================================================
;;; init-dired.el --- Dired customisations -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(setq-default dired-dwim-target t)
;; Prefer g-prefixed coreutils version of standard utilities when available
(let ((gls (executable-find "gls")))
(when gls (setq insert-directory-program gls)))
(when (maybe-require-package 'diredfl)
(with-eval-after-load 'dired
(diredfl-global-mode)
(require 'dired-x)))
;; Hook up dired-x global bindings without loading it up-front
(define-key ctl-x-map "\C-j" 'dired-jump)
(define-key ctl-x-4-map "\C-j" 'dired-jump-other-window)
(with-eval-after-load 'dired
(setq dired-recursive-deletes 'top)
(define-key dired-mode-map [mouse-2] 'dired-find-file)
(define-key dired-mode-map (kbd "C-c C-q") 'wdired-change-to-wdired-mode))
(when (maybe-require-package 'diff-hl)
(with-eval-after-load 'dired
(add-hook 'dired-mode-hook 'diff-hl-dired-mode)))
(provide 'init-dired)
;;; init-dired.el ends here
================================================
FILE: lisp/init-direnv.el
================================================
;;; init-direnv.el --- Integrate with direnv -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'envrc)
(with-eval-after-load 'envrc
(define-key envrc-mode-map (kbd "C-c e") 'envrc-command-map))
(add-hook 'after-init-hook 'envrc-global-mode))
(provide 'init-direnv)
;;; init-direnv.el ends here
================================================
FILE: lisp/init-docker.el
================================================
;;; init-docker.el --- Work with Docker and its tools -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'docker)
(sanityinc/fullframe-mode 'docker-image-mode)
(sanityinc/fullframe-mode 'docker-machine-mode)
(sanityinc/fullframe-mode 'docker-volume-mode)
(sanityinc/fullframe-mode 'docker-network-mode)
(sanityinc/fullframe-mode 'docker-container-mode))
(maybe-require-package 'dockerfile-mode)
(maybe-require-package 'docker-compose-mode)
(provide 'init-docker)
;;; init-docker.el ends here
================================================
FILE: lisp/init-editing-utils.el
================================================
;;; init-editing-utils.el --- Day-to-day editing helpers -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require-package 'unfill)
(when (fboundp 'electric-pair-mode)
(add-hook 'after-init-hook 'electric-pair-mode))
(add-hook 'after-init-hook 'electric-indent-mode)
(maybe-require-package 'list-unicode-display)
;;; Some basic preferences
(setq-default
blink-cursor-interval 0.4
bookmark-default-file (locate-user-emacs-file ".bookmarks.el")
buffers-menu-max-size 30
case-fold-search t
column-number-mode t
ediff-split-window-function 'split-window-horizontally
ediff-window-setup-function 'ediff-setup-windows-plain
indent-tabs-mode nil
create-lockfiles nil
auto-save-default nil
make-backup-files nil
mouse-yank-at-point t
save-interprogram-paste-before-kill t
scroll-preserve-screen-position 'always
set-mark-command-repeat-pop t
tooltip-delay 1.5
truncate-lines nil
truncate-partial-width-windows nil)
(add-hook 'after-init-hook 'delete-selection-mode)
(add-hook 'after-init-hook 'global-auto-revert-mode)
(setq global-auto-revert-non-file-buffers t
auto-revert-verbose nil)
(with-eval-after-load 'autorevert
(diminish 'auto-revert-mode))
(add-hook 'after-init-hook 'transient-mark-mode)
;; Huge files
(when (fboundp 'so-long-enable)
(add-hook 'after-init-hook 'so-long-enable))
(require-package 'vlf)
(defun ffap-vlf ()
"Find file at point with VLF."
(interactive)
(let ((file (ffap-file-at-point)))
(unless (file-exists-p file)
(error "File does not exist: %s" file))
(vlf file)))
;;; A simple visible bell which works in all terminal types
(require-package 'mode-line-bell)
(add-hook 'after-init-hook 'mode-line-bell-mode)
;;; Newline behaviour (see also electric-indent-mode, enabled above)
(defun sanityinc/newline-at-end-of-line ()
"Move to end of line, enter a newline, and reindent."
(interactive)
(move-end-of-line 1)
(newline-and-indent))
(global-set-key (kbd "S-<return>") 'sanityinc/newline-at-end-of-line)
(with-eval-after-load 'subword
(diminish 'subword-mode))
(when (fboundp 'display-line-numbers-mode)
(setq-default display-line-numbers-width 3)
(add-hook 'prog-mode-hook 'display-line-numbers-mode)
(add-hook 'yaml-mode-hook 'display-line-numbers-mode)
(add-hook 'yaml-ts-mode-hook 'display-line-numbers-mode))
(when (boundp 'display-fill-column-indicator)
(setq-default indicate-buffer-boundaries 'left)
(setq-default display-fill-column-indicator-character ?┊)
(add-hook 'prog-mode-hook 'display-fill-column-indicator-mode))
(when (require-package 'rainbow-delimiters)
(add-hook 'prog-mode-hook 'rainbow-delimiters-mode))
(when (maybe-require-package 'symbol-overlay)
(dolist (hook '(prog-mode-hook html-mode-hook yaml-mode-hook conf-mode-hook))
(add-hook hook 'symbol-overlay-mode))
(with-eval-after-load 'symbol-overlay
(diminish 'symbol-overlay-mode)
(define-key symbol-overlay-mode-map (kbd "M-i") 'symbol-overlay-put)
(define-key symbol-overlay-mode-map (kbd "M-I") 'symbol-overlay-remove-all)
(define-key symbol-overlay-mode-map (kbd "M-n") 'symbol-overlay-jump-next)
(define-key symbol-overlay-mode-map (kbd "M-p") 'symbol-overlay-jump-prev)))
;;; Zap *up* to char is a handy pair for zap-to-char
(global-set-key (kbd "M-Z") 'zap-up-to-char)
(require-package 'browse-kill-ring)
(setq browse-kill-ring-separator "\f")
(global-set-key (kbd "M-Y") 'browse-kill-ring)
(with-eval-after-load 'browse-kill-ring
(define-key browse-kill-ring-mode-map (kbd "C-g") 'browse-kill-ring-quit)
(define-key browse-kill-ring-mode-map (kbd "M-n") 'browse-kill-ring-forward)
(define-key browse-kill-ring-mode-map (kbd "M-p") 'browse-kill-ring-previous))
(with-eval-after-load 'page-break-lines
(add-to-list 'page-break-lines-modes 'browse-kill-ring-mode))
;; Don't disable narrowing commands
(put 'narrow-to-region 'disabled nil)
(put 'narrow-to-page 'disabled nil)
(put 'narrow-to-defun 'disabled nil)
;; Don't disable case-change functions
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
;; Show matching parens
(add-hook 'after-init-hook 'show-paren-mode)
(when (fboundp 'repeat-mode)
(add-hook 'after-init-hook 'repeat-mode))
;;; Handy key bindings
(with-eval-after-load 'help
(define-key help-map "A" 'describe-face))
(global-set-key (kbd "C-.") 'set-mark-command)
(global-set-key (kbd "C-x C-.") 'pop-global-mark)
(when (maybe-require-package 'avy)
(global-set-key (kbd "C-;") 'avy-goto-char-timer))
(require-package 'multiple-cursors)
;; multiple-cursors
(global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
(global-set-key (kbd "C->") 'mc/mark-next-like-this)
(global-set-key (kbd "C-+") 'mc/mark-next-like-this)
(global-set-key (kbd "C-c C-<") 'mc/mark-all-like-this)
;; Train myself to use M-f and M-b instead
(global-unset-key [M-left])
(global-unset-key [M-right])
(defun kill-back-to-indentation ()
"Kill from point back to the first non-whitespace character on the line."
(interactive)
(let ((prev-pos (point)))
(back-to-indentation)
(kill-region (point) prev-pos)))
(global-set-key (kbd "C-M-<backspace>") 'kill-back-to-indentation)
;;; Page break lines
(when (maybe-require-package 'page-break-lines)
(add-hook 'after-init-hook 'global-page-break-lines-mode)
(with-eval-after-load 'page-break-lines
(diminish 'page-break-lines-mode)))
;; Shift lines up and down with M-up and M-down. When paredit is enabled,
;; it will use those keybindings. For this reason, you might prefer to
;; use M-S-up and M-S-down, which will work even in lisp modes.
(require-package 'move-dup)
(global-set-key [M-S-up] 'move-dup-move-lines-up)
(global-set-key [M-S-down] 'move-dup-move-lines-down)
(global-set-key (kbd "C-c d") 'move-dup-duplicate-down)
(global-set-key (kbd "C-c u") 'move-dup-duplicate-up)
;;; Fix backward-up-list to understand quotes, see http://bit.ly/h7mdIL
(defun sanityinc/backward-up-sexp (arg)
"Jump up to the start of the ARG'th enclosing sexp."
(interactive "p")
(let ((ppss (syntax-ppss)))
(cond ((elt ppss 3)
(goto-char (elt ppss 8))
(sanityinc/backward-up-sexp (1- arg)))
((backward-up-list arg)))))
(global-set-key [remap backward-up-list] 'sanityinc/backward-up-sexp) ; C-M-u, C-M-up
;;; Cut/copy the current line if no region is active
(require-package 'whole-line-or-region)
(add-hook 'after-init-hook 'whole-line-or-region-global-mode)
(with-eval-after-load 'whole-line-or-region
(diminish 'whole-line-or-region-local-mode))
;; M-^ is inconvenient, so also bind M-j
(global-set-key (kbd "M-j") 'join-line)
;; Random line sorting
(defun sanityinc/sort-lines-random (beg end)
"Sort lines in region from BEG to END randomly."
(interactive "r")
(save-excursion
(save-restriction
(narrow-to-region beg end)
(goto-char (point-min))
(let ;; To make `end-of-line' and etc. to ignore fields.
((inhibit-field-text-motion t))
(sort-subr nil 'forward-line 'end-of-line nil nil
(lambda (s1 s2) (eq (random 2) 0)))))))
(require-package 'highlight-escape-sequences)
(add-hook 'after-init-hook 'hes-mode)
(require-package 'which-key)
(add-hook 'after-init-hook 'which-key-mode)
(setq-default which-key-idle-delay 1.5)
(with-eval-after-load 'which-key
(diminish 'which-key-mode))
(defun sanityinc/disable-features-during-macro-call (orig &rest args)
"When running a macro, disable features that might be expensive.
ORIG is the advised function, which is called with its ARGS."
(let (post-command-hook
font-lock-mode
(tab-always-indent (or (eq 'complete tab-always-indent) tab-always-indent)))
(apply orig args)))
(advice-add 'kmacro-call-macro :around 'sanityinc/disable-features-during-macro-call)
(provide 'init-editing-utils)
;;; init-editing-utils.el ends here
================================================
FILE: lisp/init-eglot.el
================================================
;;; init-eglot.el --- LSP support via eglot -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'eglot)
(setq-default eglot-extend-to-xref t)
(setq eglot-code-action-indications '(eldoc-hint mode-line))
(maybe-require-package 'consult-eglot))
(provide 'init-eglot)
;;; init-eglot.el ends here
================================================
FILE: lisp/init-elm.el
================================================
;;; init-elm.el --- Support for the Elm language -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'elm-mode)
(with-eval-after-load 'elm-mode
(diminish 'elm-indent-mode)
(when (executable-find "elm-format")
(setq-default elm-format-on-save t)))
(maybe-require-package 'elm-test-runner))
(provide 'init-elm)
;;; init-elm.el ends here
================================================
FILE: lisp/init-elpa.el
================================================
;;; init-elpa.el --- Settings and helpers for package.el -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require 'package)
(require 'cl-lib)
;;; Install into separate package dirs for each Emacs version, to prevent bytecode incompatibility
(setq package-user-dir
(expand-file-name (format "elpa-%s.%s" emacs-major-version emacs-minor-version)
user-emacs-directory))
;;; Standard package repositories
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(add-to-list 'package-unsigned-archives "melpa")
;; Official MELPA Mirror, in case necessary.
;;(add-to-list 'package-archives (cons "melpa-mirror" (concat proto "://www.mirrorservice.org/sites/melpa.org/packages/")) t)
;; Allow built-in packages to be upgraded
(setq package-install-upgrade-built-in t)
;; Work-around for https://debbugs.gnu.org/cgi/bugreport.cgi?bug=34341
(when (and (version< emacs-version "26.3") (boundp 'libgnutls-version) (>= libgnutls-version 30604))
(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3"))
;;; On-demand installation of packages
(defun require-package (package &optional min-version no-refresh)
"Install given PACKAGE, optionally requiring MIN-VERSION.
If NO-REFRESH is non-nil, the available package lists will not be
re-downloaded in order to locate PACKAGE."
(when (stringp min-version)
(setq min-version (version-to-list min-version)))
(or (package-installed-p package min-version)
(let* ((known (cdr (assoc package package-archive-contents)))
(best (car (sort known (lambda (a b)
(version-list-<= (package-desc-version b)
(package-desc-version a)))))))
(if (and best (version-list-<= min-version (package-desc-version best)))
(package-install best)
(if no-refresh
(error "No version of %s >= %S is available" package min-version)
(package-refresh-contents)
(require-package package min-version t)))
(package-installed-p package min-version))))
(defun maybe-require-package (package &optional min-version no-refresh)
"Try to install PACKAGE, and return non-nil if successful.
In the event of failure, return nil and print a warning message.
Optionally require MIN-VERSION. If NO-REFRESH is non-nil, the
available package lists will not be re-downloaded in order to
locate PACKAGE."
(condition-case err
(require-package package min-version no-refresh)
(error
(message "Couldn't install optional package `%s': %S" package err)
nil)))
;;; Fire up package.el
(setq package-enable-at-startup nil)
(setq package-native-compile t)
(package-initialize)
;; package.el updates the saved version of package-selected-packages correctly only
;; after custom-file has been loaded, which is a bug. We work around this by adding
;; the required packages to package-selected-packages after startup is complete.
(defvar sanityinc/required-packages nil)
(defun sanityinc/note-selected-package (oldfun package &rest args)
"If OLDFUN reports PACKAGE was successfully installed, note that fact.
The package name is noted by adding it to
`sanityinc/required-packages'. This function is used as an
advice for `require-package', to which ARGS are passed."
(let ((available (apply oldfun package args)))
(prog1
available
(when available
(add-to-list 'sanityinc/required-packages package)))))
(advice-add 'require-package :around 'sanityinc/note-selected-package)
;; Work around an issue in Emacs 29 where seq gets implicitly
;; reinstalled via the rg -> transient dependency chain, but fails to
;; reload cleanly due to not finding seq-25.el, breaking first-time
;; start-up
;; See https://debbugs.gnu.org/cgi/bugreport.cgi?bug=67025
(when (string= "29.1" emacs-version)
(defun sanityinc/reload-previously-loaded-with-load-path-updated (orig pkg-desc)
(let ((load-path (cons (package-desc-dir pkg-desc) load-path)))
(funcall orig pkg-desc)))
(advice-add 'package--reload-previously-loaded :around
'sanityinc/reload-previously-loaded-with-load-path-updated))
(when (fboundp 'package--save-selected-packages)
(require-package 'seq)
(add-hook 'after-init-hook
(lambda ()
(package--save-selected-packages
(seq-uniq (append sanityinc/required-packages package-selected-packages))))))
(let ((package-check-signature nil))
(require-package 'gnu-elpa-keyring-update))
(defun sanityinc/set-tabulated-list-column-width (col-name width)
"Set any column with name COL-NAME to the given WIDTH."
(when (> width (length col-name))
(cl-loop for column across tabulated-list-format
when (string= col-name (car column))
do (setf (elt column 1) width))))
(defun sanityinc/maybe-widen-package-menu-columns ()
"Widen some columns of the package menu table to avoid truncation."
(when (boundp 'tabulated-list-format)
(sanityinc/set-tabulated-list-column-width "Version" 13)
(let ((longest-archive-name (apply 'max (mapcar 'length (mapcar 'car package-archives)))))
(sanityinc/set-tabulated-list-column-width "Archive" longest-archive-name))))
(add-hook 'package-menu-mode-hook 'sanityinc/maybe-widen-package-menu-columns)
(provide 'init-elpa)
;;; init-elpa.el ends here
================================================
FILE: lisp/init-erlang.el
================================================
;;; init-erlang.el --- Support for the Erlang language -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'erlang)
(require 'erlang-start))
(provide 'init-erlang)
;;; init-erlang.el ends here
================================================
FILE: lisp/init-exec-path.el
================================================
;;; init-exec-path.el --- Set up exec-path to help Emacs find programs -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require-package 'exec-path-from-shell)
(with-eval-after-load 'exec-path-from-shell
(dolist (var '("SSH_AUTH_SOCK" "SSH_AGENT_PID" "GPG_AGENT_INFO" "LANG" "LC_CTYPE" "NIX_SSL_CERT_FILE" "NIX_PATH"))
(add-to-list 'exec-path-from-shell-variables var)))
(when (or (memq window-system '(mac ns x pgtk))
(unless (memq system-type '(ms-dos windows-nt))
(daemonp)))
(exec-path-from-shell-initialize))
(provide 'init-exec-path)
;;; init-exec-path.el ends here
================================================
FILE: lisp/init-flymake.el
================================================
;;; init-flymake.el --- Configure Flymake global behaviour -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(maybe-require-package 'flymake "1.2.1")
;; Use flycheck checkers with flymake, to extend its coverage
(when (maybe-require-package 'flymake-flycheck)
;; Disable flycheck checkers for which we have flymake equivalents
(with-eval-after-load 'flycheck
(setq-default
flycheck-disabled-checkers
(append (default-value 'flycheck-disabled-checkers)
'(emacs-lisp emacs-lisp-checkdoc emacs-lisp-package sh-shellcheck))))
(add-hook 'flymake-mode-hook 'flymake-flycheck-auto)
(add-hook 'prog-mode-hook 'flymake-mode)
(add-hook 'text-mode-hook 'flymake-mode))
(with-eval-after-load 'flymake
;; Provide some flycheck-like bindings in flymake mode to ease transition
(define-key flymake-mode-map (kbd "C-c ! l") 'flymake-show-buffer-diagnostics)
(define-key flymake-mode-map (kbd "C-c ! n") 'flymake-goto-next-error)
(define-key flymake-mode-map (kbd "C-c ! p") 'flymake-goto-prev-error)
(define-key flymake-mode-map (kbd "C-c ! c") 'flymake-start))
(unless (version< emacs-version "28.1")
(setq eldoc-documentation-function 'eldoc-documentation-compose)
(add-hook 'flymake-mode-hook
(lambda ()
(add-hook 'eldoc-documentation-functions 'flymake-eldoc-function nil t))))
(provide 'init-flymake)
;;; init-flymake.el ends here
================================================
FILE: lisp/init-folding.el
================================================
;;; init-folding.el --- Support code and region folding -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'origami)
(with-eval-after-load 'origami
(define-key origami-mode-map (kbd "C-c f") 'origami-recursively-toggle-node)
(define-key origami-mode-map (kbd "C-c F") 'origami-toggle-all-nodes)))
(provide 'init-folding)
;;; init-folding.el ends here
================================================
FILE: lisp/init-frame-hooks.el
================================================
;;; init-frame-hooks.el --- Provide specific hooks for GUI/TTY frame creation -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(defvar after-make-console-frame-hooks '()
"Hooks to run after creating a new TTY frame")
(defvar after-make-window-system-frame-hooks '()
"Hooks to run after creating a new window-system frame")
(defun run-after-make-frame-hooks (frame)
"Run configured hooks in response to the newly-created FRAME.
Selectively runs either `after-make-console-frame-hooks' or
`after-make-window-system-frame-hooks'"
(with-selected-frame frame
(run-hooks (if window-system
'after-make-window-system-frame-hooks
'after-make-console-frame-hooks))))
(add-hook 'after-make-frame-functions 'run-after-make-frame-hooks)
(defconst sanityinc/initial-frame (selected-frame)
"The frame (if any) active during Emacs initialization.")
(add-hook 'after-init-hook
(lambda () (when sanityinc/initial-frame
(run-after-make-frame-hooks sanityinc/initial-frame))))
(provide 'init-frame-hooks)
;;; init-frame-hooks.el ends here
================================================
FILE: lisp/init-git.el
================================================
;;; init-git.el --- Git SCM support -*- lexical-binding: t -*-
;;; Commentary:
;; See also init-github.el.
;;; Code:
;; TODO: link commits from vc-log to magit-show-commit
;; TODO: smerge-mode
(require-package 'git-modes)
(when (maybe-require-package 'git-timemachine)
(global-set-key (kbd "C-x v t") 'git-timemachine-toggle))
(require-package 'git-link)
(when (maybe-require-package 'magit)
(setq-default magit-diff-refine-hunk 'all)
(setq-default magit-diff-visit-prefer-worktree t)
(sanityinc/fullframe-mode 'magit-status-mode)
;; Hint: customize `magit-repository-directories' so that you can use C-u M-F12 to
;; quickly open magit on any one of your projects.
(global-set-key [(meta f12)] 'magit-status)
(global-set-key (kbd "C-x g") 'magit-status)
(global-set-key (kbd "C-x M-g") 'magit-dispatch)
(defun sanityinc/magit-or-vc-log-file (&optional prompt)
(interactive "P")
(if (and (buffer-file-name)
(eq 'Git (vc-backend (buffer-file-name))))
(if prompt
(magit-log-buffer-file-popup)
(magit-log-buffer-file t))
(vc-print-log)))
(with-eval-after-load 'vc
(define-key vc-prefix-map (kbd "l") 'sanityinc/magit-or-vc-log-file)))
(with-eval-after-load 'magit
(define-key magit-status-mode-map (kbd "C-M-<up>") 'magit-section-up))
(maybe-require-package 'magit-todos)
(add-hook 'git-commit-mode-hook 'goto-address-mode)
;; Convenient binding for vc-git-grep
(with-eval-after-load 'vc
(define-key vc-prefix-map (kbd "f") 'vc-git-grep))
;;; git-svn support
;; (when (maybe-require-package 'magit-svn)
;; (require-package 'magit-svn)
;; (autoload 'magit-svn-enabled "magit-svn")
;; (defun sanityinc/maybe-enable-magit-svn-mode ()
;; (when (magit-svn-enabled)
;; (magit-svn-mode)))
;; (add-hook 'magit-status-mode-hook #'sanityinc/maybe-enable-magit-svn-mode))
(with-eval-after-load 'compile
(dolist (defn (list '(git-svn-updated "^\t[A-Z]\t\\(.*\\)$" 1 nil nil 0 1)
'(git-svn-needs-update "^\\(.*\\): needs update$" 1 nil nil 2 1)))
(add-to-list 'compilation-error-regexp-alist-alist defn)
(add-to-list 'compilation-error-regexp-alist (car defn))))
(defvar git-svn--available-commands nil "Cached list of git svn subcommands")
(defun git-svn--available-commands ()
(or git-svn--available-commands
(setq git-svn--available-commands
(sanityinc/string-all-matches
"^ \\([a-z\\-]+\\) +"
(shell-command-to-string "git svn help") 1))))
(autoload 'vc-git-root "vc-git")
(defun git-svn (dir command)
"Run a git svn subcommand in DIR."
(interactive (list (read-directory-name "Directory: ")
(completing-read "git-svn command: " (git-svn--available-commands) nil t nil nil (git-svn--available-commands))))
(let* ((default-directory (vc-git-root dir))
(compilation-buffer-name-function (lambda (major-mode-name) "*git-svn*")))
(compile (concat "git svn " command))))
(provide 'init-git)
;;; init-git.el ends here
================================================
FILE: lisp/init-github.el
================================================
;;; init-github.el --- Github integration -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require 'init-git)
(maybe-require-package 'yagist)
(require-package 'bug-reference-github)
(add-hook 'prog-mode-hook 'bug-reference-prog-mode)
(maybe-require-package 'github-clone)
(maybe-require-package 'forge)
(maybe-require-package 'github-review)
(when (maybe-require-package 'flymake-actionlint)
(add-hook 'yaml-mode-hook 'flymake-actionlint-action-load-when-actions-file))
(provide 'init-github)
;;; init-github.el ends here
================================================
FILE: lisp/init-grep.el
================================================
;;; init-grep.el --- Settings for grep and grep-like tools -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(setq-default grep-highlight-matches t
grep-scroll-output t)
(when *is-a-mac*
(setq-default locate-command "mdfind"))
(require-package 'wgrep)
(with-eval-after-load 'grep
(dolist (key (list (kbd "C-c C-q") (kbd "w")))
(define-key grep-mode-map key 'wgrep-change-to-wgrep-mode)))
(when (and (executable-find "rg")
(maybe-require-package 'rg))
(global-set-key (kbd "M-?") 'rg-project))
(provide 'init-grep)
;;; init-grep.el ends here
================================================
FILE: lisp/init-gui-frames.el
================================================
;;; init-gui-frames.el --- Behaviour specific to non-TTY frames -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; Stop C-z from minimizing windows under OS X
(defun sanityinc/maybe-suspend-frame ()
(interactive)
(unless (and *is-a-mac* window-system)
(suspend-frame)))
(global-set-key (kbd "C-z") 'sanityinc/maybe-suspend-frame)
;; Suppress GUI features
(setq use-file-dialog nil)
(setq use-dialog-box nil)
(setq inhibit-startup-screen t)
;; Window size and features
(setq-default
window-resize-pixelwise t
frame-resize-pixelwise t)
(when (fboundp 'tool-bar-mode)
(tool-bar-mode -1))
(when (fboundp 'set-scroll-bar-mode)
(set-scroll-bar-mode nil))
(menu-bar-mode -1)
(let ((no-border '(internal-border-width . 0)))
(add-to-list 'default-frame-alist no-border)
(add-to-list 'initial-frame-alist no-border))
(defun sanityinc/adjust-opacity (frame incr)
"Adjust the background opacity of FRAME by increment INCR."
(unless (display-graphic-p frame)
(error "Cannot adjust opacity of this frame"))
(let* ((oldalpha (or (frame-parameter frame 'alpha) 100))
;; The 'alpha frame param became a pair at some point in
;; emacs 24.x, e.g. (100 100)
(oldalpha (if (listp oldalpha) (car oldalpha) oldalpha))
(newalpha (+ incr oldalpha)))
(when (and (<= frame-alpha-lower-limit newalpha) (>= 100 newalpha))
(modify-frame-parameters frame (list (cons 'alpha newalpha))))))
(when (and *is-a-mac* (fboundp 'toggle-frame-fullscreen))
;; Command-Option-f to toggle fullscreen mode
;; Hint: Customize `ns-use-native-fullscreen'
(global-set-key (kbd "M-ƒ") 'toggle-frame-fullscreen))
;; TODO: use seethru package instead?
(global-set-key (kbd "M-C-8") (lambda () (interactive) (sanityinc/adjust-opacity nil -2)))
(global-set-key (kbd "M-C-9") (lambda () (interactive) (sanityinc/adjust-opacity nil 2)))
(global-set-key (kbd "M-C-7") (lambda () (interactive) (modify-frame-parameters nil `((alpha . 100)))))
(when *is-a-mac*
(when (maybe-require-package 'ns-auto-titlebar)
(ns-auto-titlebar-mode)))
(setq frame-title-format
'((:eval (if (buffer-file-name)
(abbreviate-file-name (buffer-file-name))
"%b"))))
;; Non-zero values for `line-spacing' can mess up ansi-term and co,
;; so we zero it explicitly in those cases.
(add-hook 'term-mode-hook
(lambda ()
(setq line-spacing 0)))
;; Change global font size easily
(require-package 'default-text-scale)
(add-hook 'after-init-hook 'default-text-scale-mode)
(require-package 'disable-mouse)
(when (fboundp 'pixel-scroll-precision-mode)
(pixel-scroll-precision-mode))
(provide 'init-gui-frames)
;;; init-gui-frames.el ends here
================================================
FILE: lisp/init-haml.el
================================================
;;; init-haml.el --- Haml template support -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require-package 'haml-mode)
(with-eval-after-load 'haml-mode
(define-key haml-mode-map (kbd "C-o") 'open-line))
(provide 'init-haml)
;;; init-haml.el ends here
================================================
FILE: lisp/init-haskell.el
================================================
;;; init-haskell.el --- Support the Haskell language -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'haskell-mode)
(add-hook 'haskell-mode-hook 'subword-mode)
(add-hook 'haskell-cabal-mode 'subword-mode)
(add-hook 'haskell-mode-hook 'interactive-haskell-mode)
(add-auto-mode 'haskell-mode "\\.ghci\\'")
;; Indentation
(add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
;; Source code helpers
(add-hook 'haskell-mode-hook 'haskell-auto-insert-module-template)
(when (maybe-require-package 'reformatter)
(reformatter-define hindent
:program "hindent"
:lighter " Hin")
(defalias 'hindent-mode 'hindent-on-save-mode)
(reformatter-define ormolu
:program "ormolu"
:lighter " Orm"))
(with-eval-after-load 'haskell-mode
(define-key haskell-mode-map (kbd "C-c h") 'hoogle)
(define-key haskell-mode-map (kbd "C-o") 'open-line))
(with-eval-after-load 'page-break-lines
(add-to-list 'page-break-lines-modes 'haskell-mode)))
(maybe-require-package 'dhall-mode)
(provide 'init-haskell)
;;; init-haskell.el ends here
================================================
FILE: lisp/init-hippie-expand.el
================================================
;;; init-hippie-expand.el --- Settings for hippie-expand -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(global-set-key (kbd "M-/") 'hippie-expand)
(setq hippie-expand-try-functions-list
'(try-complete-file-name-partially
try-complete-file-name
try-expand-dabbrev
try-expand-dabbrev-all-buffers
try-expand-dabbrev-from-kill))
(provide 'init-hippie-expand)
;;; init-hippie-expand.el ends here
================================================
FILE: lisp/init-html.el
================================================
;;; init-html.el --- Editing HTML -*- lexical-binding: t -*-
;;; Commentary:
;; ERB is configured separately in init-ruby
;;; Code:
(require-package 'tagedit)
(with-eval-after-load 'sgml-mode
(tagedit-add-paredit-like-keybindings)
(define-key tagedit-mode-map (kbd "M-?") nil)
(define-key tagedit-mode-map (kbd "M-s") nil)
(add-hook 'sgml-mode-hook (lambda () (tagedit-mode 1))))
(add-auto-mode 'html-mode "\\.\\(jsp\\|tmpl\\)\\'")
(provide 'init-html)
;;; init-html.el ends here
================================================
FILE: lisp/init-http.el
================================================
;;; init-http.el --- Work with HTTP APIs -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(maybe-require-package 'httprepl)
(with-eval-after-load 'httprepl
(push '("image" . image) httprepl-content-type-alist)
(push '(image . ((lambda (b) (with-current-buffer b
(image-mode)
b))))
httprepl-content-type-middleware-alist))
(when (maybe-require-package 'restclient)
(add-auto-mode 'restclient-mode "\\.rest\\'")
(defun sanityinc/restclient ()
"Work with `rest' in the *restclient* buffer."
(interactive)
(with-current-buffer (get-buffer-create "*restclient*")
(restclient-mode)
(pop-to-buffer (current-buffer)))))
(provide 'init-http)
;;; init-http.el ends here
================================================
FILE: lisp/init-ibuffer.el
================================================
;;; init-ibuffer.el --- ibuffer settings -*- lexical-binding: t -*-
;;; Commentary:
;; TODO: enhance ibuffer-fontification-alist
;; See http://www.reddit.com/r/emacs/comments/21fjpn/fontifying_buffer_list_for_emacs_243/
;;; Code:
(require-package 'ibuffer-vc)
(defun ibuffer-set-up-preferred-filters ()
(ibuffer-vc-set-filter-groups-by-vc-root)
(unless (eq ibuffer-sorting-mode 'filename/process)
(ibuffer-do-sort-by-filename/process)))
(add-hook 'ibuffer-hook 'ibuffer-set-up-preferred-filters)
(setq-default ibuffer-show-empty-filter-groups nil)
(sanityinc/fullframe-mode 'ibuffer-mode)
(with-eval-after-load 'ibuffer
;; Use human readable Size column instead of original one
(define-ibuffer-column size-h
(:name "Size" :inline t)
(file-size-human-readable (buffer-size))))
;; Modify the default ibuffer-formats (toggle with `)
(setq ibuffer-formats
'((mark modified read-only vc-status-mini " "
(name 22 22 :left :elide)
" "
(size-h 9 -1 :right)
" "
(mode 12 12 :left :elide)
" "
vc-relative-file)
(mark modified read-only vc-status-mini " "
(name 22 22 :left :elide)
" "
(size-h 9 -1 :right)
" "
(mode 14 14 :left :elide)
" "
(vc-status 12 12 :left)
" "
vc-relative-file)))
(setq ibuffer-filter-group-name-face 'font-lock-doc-face)
(global-set-key (kbd "C-x C-b") 'ibuffer)
(provide 'init-ibuffer)
;;; init-ibuffer.el ends here
================================================
FILE: lisp/init-isearch.el
================================================
;;; init-isearch.el --- isearch settings -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; Show number of matches while searching
(when (maybe-require-package 'anzu)
(add-hook 'after-init-hook 'global-anzu-mode)
(setq anzu-mode-lighter "")
(global-set-key [remap query-replace-regexp] 'anzu-query-replace-regexp)
(global-set-key [remap query-replace] 'anzu-query-replace))
(with-eval-after-load 'isearch
;; DEL during isearch should edit the search string, not jump back to the previous result
(define-key isearch-mode-map [remap isearch-delete-char] 'isearch-del-char)
(defun sanityinc/isearch-occur ()
"Invoke `consult-line' from isearch."
(interactive)
(let ((query (if isearch-regexp
isearch-string
(regexp-quote isearch-string))))
(isearch-update-ring isearch-string isearch-regexp)
(let (search-nonincremental-instead)
(ignore-errors (isearch-done t t)))
(consult-line query)))
(define-key isearch-mode-map (kbd "C-o") 'sanityinc/isearch-occur)
(define-key isearch-mode-map (kbd "C-c C-o") 'sanityinc/isearch-occur))
;; Search back/forth for the symbol at point
;; See http://www.emacswiki.org/emacs/SearchAtPoint
(defun isearch-yank-symbol ()
"*Put symbol at current point into search string."
(interactive)
(let ((sym (thing-at-point 'symbol)))
(if sym
(progn
(setq isearch-regexp t
isearch-string (concat "\\_<" (regexp-quote sym) "\\_>")
isearch-message (mapconcat 'isearch-text-char-description isearch-string "")
isearch-yank-flag t))
(ding)))
(isearch-search-and-update))
(define-key isearch-mode-map "\C-\M-w" 'isearch-yank-symbol)
(defun sanityinc/isearch-exit-other-end ()
"Exit isearch, but at the other end of the search string.
This is useful when followed by an immediate kill."
(interactive)
(isearch-exit)
(goto-char isearch-other-end))
(define-key isearch-mode-map [(control return)] 'sanityinc/isearch-exit-other-end)
(provide 'init-isearch)
;;; init-isearch.el ends here
================================================
FILE: lisp/init-j.el
================================================
;;; init-j.el --- Basic support for programming in J -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require-package 'j-mode)
(setq-default j-console-cmd "jconsole")
(add-hook 'inferior-j-mode-hook (lambda () (electric-pair-mode -1)))
(provide 'init-j)
;;; init-j.el ends here
================================================
FILE: lisp/init-javascript.el
================================================
;;; init-javascript.el --- Support for Javascript and derivatives -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(maybe-require-package 'json-mode)
(maybe-require-package 'js2-mode)
(maybe-require-package 'typescript-mode)
(maybe-require-package 'prettier-js)
;;; Basic js-mode setup
(add-to-list 'auto-mode-alist '("\\.\\(js\\|es6\\)\\(\\.erb\\)?\\'" . js-mode))
(with-eval-after-load 'js
(sanityinc/major-mode-lighter 'js-mode "JS")
(sanityinc/major-mode-lighter 'js-jsx-mode "JSX"))
(setq-default js-indent-level 2)
;; js2-mode
;; Change some defaults: customize them to override
(setq-default js2-bounce-indent-p nil)
(with-eval-after-load 'js2-mode
;; Disable js2 mode's syntax error highlighting by default...
(setq-default js2-mode-show-parse-errors nil
js2-mode-show-strict-warnings nil)
;; ... but enable it if flycheck can't handle javascript
(autoload 'flycheck-get-checker-for-buffer "flycheck")
(defun sanityinc/enable-js2-checks-if-flycheck-inactive ()
(unless (flycheck-get-checker-for-buffer)
(setq-local js2-mode-show-parse-errors t)
(setq-local js2-mode-show-strict-warnings t)
(when (derived-mode-p 'js-mode)
(js2-minor-mode 1))))
(add-hook 'js-mode-hook 'sanityinc/enable-js2-checks-if-flycheck-inactive)
(add-hook 'js2-mode-hook 'sanityinc/enable-js2-checks-if-flycheck-inactive)
(js2-imenu-extras-setup))
(add-to-list 'interpreter-mode-alist (cons "node" 'js2-mode))
(with-eval-after-load 'js2-mode
(sanityinc/major-mode-lighter 'js2-mode "JS2")
(sanityinc/major-mode-lighter 'js2-jsx-mode "JSX2"))
(require 'derived)
(when (executable-find "rg")
(maybe-require-package 'xref-js2)
(setq-default xref-js2-search-program 'rg)
(defun sanityinc/enable-xref-js2 ()
(add-hook 'xref-backend-functions #'xref-js2-xref-backend nil t))
(let ((base-mode (if (fboundp 'js-base-mode) 'js-base-mode 'js-mode)))
(with-eval-after-load 'js
(add-hook (derived-mode-hook-name base-mode) 'sanityinc/enable-xref-js2)
(define-key js-mode-map (kbd "M-.") nil)
(when (boundp 'js-ts-mode-map)
(define-key js-ts-mode-map (kbd "M-.") nil))))
(with-eval-after-load 'js2-mode
(define-key js2-mode-map (kbd "M-.") nil)))
;; Run and interact with an inferior JS via js-comint.el
(when (maybe-require-package 'js-comint)
(setq js-comint-program-command "node")
(defvar inferior-js-minor-mode-map (make-sparse-keymap))
(define-key inferior-js-minor-mode-map "\C-x\C-e" 'js-send-last-sexp)
(define-key inferior-js-minor-mode-map "\C-cb" 'js-send-buffer)
(define-minor-mode inferior-js-keys-mode
"Bindings for communicating with an inferior js interpreter."
:init-value nil :lighter " InfJS" :keymap inferior-js-minor-mode-map)
(dolist (hook '(js2-mode-hook js-mode-hook))
(add-hook hook 'inferior-js-keys-mode)))
(provide 'init-javascript)
;;; init-javascript.el ends here
================================================
FILE: lisp/init-ledger.el
================================================
;;; init-ledger.el --- Support for the ledger CLI accounting tool -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'ledger-mode)
(when (maybe-require-package 'flycheck-ledger)
(with-eval-after-load 'flycheck
(with-eval-after-load 'ledger-mode
(require 'flycheck-ledger))))
(with-eval-after-load 'ledger-mode
(define-key ledger-mode-map (kbd "RET") 'newline)
(define-key ledger-mode-map (kbd "C-o") 'open-line))
(setq ledger-highlight-xact-under-point nil
ledger-use-iso-dates nil
ledger-mode-should-check-version nil)
(with-eval-after-load 'ledger-mode
(when (memq window-system '(mac ns))
(exec-path-from-shell-copy-env "LEDGER_FILE")))
(add-hook 'ledger-mode-hook 'goto-address-prog-mode))
(provide 'init-ledger)
;;; init-ledger.el ends here
================================================
FILE: lisp/init-lisp.el
================================================
;;; init-lisp.el --- Emacs lisp settings, and common config for other lisps -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(setq-default debugger-bury-or-kill 'kill)
(require-package 'elisp-slime-nav)
(dolist (hook '(emacs-lisp-mode-hook ielm-mode-hook))
(add-hook hook 'turn-on-elisp-slime-nav-mode))
(add-hook 'emacs-lisp-mode-hook (lambda () (setq mode-name "ELisp")))
(setq-default initial-scratch-message
(concat ";; Happy hacking, " user-login-name " - Emacs ♥ you!\n\n"))
(defun sanityinc/headerise-elisp ()
"Add minimal header and footer to an elisp buffer in order to placate flycheck."
(interactive)
(let ((fname (if (buffer-file-name)
(file-name-nondirectory (buffer-file-name))
(error "This buffer is not visiting a file"))))
(save-excursion
(goto-char (point-min))
(insert ";;; " fname " --- Insert description here -*- lexical-binding: t -*-\n"
";;; Commentary:\n"
";;; Code:\n\n")
(goto-char (point-max))
(insert ";;; " fname " ends here\n"))))
;; Make C-x C-e run 'eval-region if the region is active
(defun sanityinc/eval-last-sexp-or-region (prefix)
"Eval region from BEG to END if active, otherwise the last sexp."
(interactive "P")
(if (and (mark) (use-region-p))
(eval-region (min (point) (mark)) (max (point) (mark)))
(pp-eval-last-sexp prefix)))
(global-set-key [remap eval-expression] 'pp-eval-expression)
(with-eval-after-load 'lisp-mode
(define-key emacs-lisp-mode-map (kbd "C-x C-e") 'sanityinc/eval-last-sexp-or-region)
(define-key emacs-lisp-mode-map (kbd "C-c C-e") 'pp-eval-expression))
(when (maybe-require-package 'ipretty)
(add-hook 'after-init-hook 'ipretty-mode))
(defun sanityinc/make-read-only (_expression out-buffer-name &rest _)
"Enable `view-mode' in the output buffer - if any - so it can be closed with `\"q\"."
(when (get-buffer out-buffer-name)
(with-current-buffer out-buffer-name
(view-mode 1))))
(advice-add 'pp-display-expression :after 'sanityinc/make-read-only)
(defun sanityinc/load-this-file ()
"Load the current file or buffer.
The current directory is temporarily added to `load-path'. When
there is no current file, eval the current buffer."
(interactive)
(let ((load-path (cons default-directory load-path))
(file (buffer-file-name)))
(if file
(progn
(save-some-buffers nil (apply-partially 'derived-mode-p 'emacs-lisp-mode))
(load-file (buffer-file-name))
(message "Loaded %s" file))
(eval-buffer)
(message "Evaluated %s" (current-buffer)))))
(with-eval-after-load 'lisp-mode
(define-key emacs-lisp-mode-map (kbd "C-c C-l") 'sanityinc/load-this-file))
(defun sanityinc/maybe-set-bundled-elisp-readonly ()
"If this elisp appears to be part of Emacs, then disallow editing."
(when (and (buffer-file-name)
(string-match-p "\\.el\\.gz\\'" (buffer-file-name)))
(setq buffer-read-only t)
(view-mode 1)))
(add-hook 'emacs-lisp-mode-hook 'sanityinc/maybe-set-bundled-elisp-readonly)
;; Use C-c C-z to toggle between elisp files and an ielm session
;; I might generalise this to ruby etc., or even just adopt the repl-toggle package.
(defvar-local sanityinc/repl-original-buffer nil
"Buffer from which we jumped to this REPL.")
(defvar sanityinc/repl-switch-function 'switch-to-buffer-other-window)
(defun sanityinc/switch-to-ielm ()
(interactive)
(let ((orig-buffer (current-buffer)))
(if (get-buffer "*ielm*")
(funcall sanityinc/repl-switch-function "*ielm*")
(ielm))
(setq sanityinc/repl-original-buffer orig-buffer)))
(defun sanityinc/repl-switch-back ()
"Switch back to the buffer from which we reached this REPL."
(interactive)
(if sanityinc/repl-original-buffer
(funcall sanityinc/repl-switch-function sanityinc/repl-original-buffer)
(error "No original buffer")))
(with-eval-after-load 'elisp-mode
(define-key emacs-lisp-mode-map (kbd "C-c C-z") 'sanityinc/switch-to-ielm))
(with-eval-after-load 'ielm
(define-key ielm-map (kbd "C-c C-z") 'sanityinc/repl-switch-back))
;; Hippie-expand
(defun set-up-hippie-expand-for-elisp ()
"Locally set `hippie-expand' completion functions for use with Emacs Lisp."
(make-local-variable 'hippie-expand-try-functions-list)
(add-to-list 'hippie-expand-try-functions-list 'try-complete-lisp-symbol t)
(add-to-list 'hippie-expand-try-functions-list 'try-complete-lisp-symbol-partially t))
;; Automatic byte compilation
(when (maybe-require-package 'auto-compile)
(setq auto-compile-delete-stray-dest nil)
(add-hook 'after-init-hook 'auto-compile-on-save-mode)
(add-hook 'after-init-hook 'auto-compile-on-load-mode))
(defun sanityinc/trust-current-file ()
"Quickly mark current elisp file as trusted content."
(interactive)
(if-let* ((file (and (derived-mode-p 'emacs-lisp-mode)
(buffer-file-name))))
(progn (push file trusted-content)
(when (bound-and-true-p flymake-mode)
(flymake-mode nil)
(flymake-mode)))
(user-error "Can't find or trust this buffer's file")))
;; Load .el if newer than corresponding .elc
(setq load-prefer-newer t)
(require-package 'immortal-scratch)
(add-hook 'after-init-hook 'immortal-scratch-mode)
;;; Support byte-compilation in a sub-process, as
;;; required by highlight-cl
(defun sanityinc/byte-compile-file-batch (filename)
"Byte-compile FILENAME in batch mode, ie. a clean sub-process."
(interactive "fFile to byte-compile in batch mode: ")
(let ((emacs (car command-line-args)))
(compile
(concat
emacs " "
(mapconcat
'shell-quote-argument
(list "-Q" "-batch" "-f" "batch-byte-compile" filename)
" ")))))
;; Enable desired features for all lisp modes
(defun sanityinc/enable-check-parens-on-save ()
"Run `check-parens' when the current buffer is saved."
(add-hook 'after-save-hook #'check-parens nil t))
(defvar sanityinc/lispy-modes-hook
'(enable-paredit-mode
sanityinc/enable-check-parens-on-save)
"Hook run in all Lisp modes.")
(when (maybe-require-package 'aggressive-indent)
(add-to-list 'sanityinc/lispy-modes-hook 'aggressive-indent-mode))
(defun sanityinc/lisp-setup ()
"Enable features useful in any Lisp mode."
(run-hooks 'sanityinc/lispy-modes-hook))
(require 'derived)
(dolist (mode '(emacs-lisp-mode ielm-mode lisp-mode inferior-lisp-mode lisp-interaction-mode))
(add-hook (derived-mode-hook-name mode) 'sanityinc/lisp-setup))
(when (boundp 'eval-expression-minibuffer-setup-hook)
(add-hook 'eval-expression-minibuffer-setup-hook #'eldoc-mode))
(add-to-list 'auto-mode-alist '("\\.emacs-project\\'" . emacs-lisp-mode))
(add-to-list 'auto-mode-alist '("archive-contents\\'" . emacs-lisp-mode))
;; Delete .elc files when reverting the .el from VC or magit
;; When .el files are open, we can intercept when they are modified
;; by VC or magit in order to remove .elc files that are likely to
;; be out of sync.
;; This is handy while actively working on elisp files, though
;; obviously it doesn't ensure that unopened files will also have
;; their .elc counterparts removed - VC hooks would be necessary for
;; that.
(defvar sanityinc/vc-reverting nil
"Whether or not VC or Magit is currently reverting buffers.")
(defun sanityinc/maybe-remove-elc (&rest _)
"If reverting from VC, delete any .elc file that will now be out of sync."
(when sanityinc/vc-reverting
(when (and (eq 'emacs-lisp-mode major-mode)
buffer-file-name
(string= "el" (file-name-extension buffer-file-name)))
(let ((elc (concat buffer-file-name "c")))
(when (file-exists-p elc)
(message "Removing out-of-sync elc file %s" (file-name-nondirectory elc))
(delete-file elc))))))
(advice-add 'revert-buffer :after 'sanityinc/maybe-remove-elc)
(defun sanityinc/reverting (orig &rest args)
(let ((sanityinc/vc-reverting t))
(apply orig args)))
(advice-add 'magit-revert-buffers :around 'sanityinc/reverting)
(advice-add 'vc-revert-buffer-internal :around 'sanityinc/reverting)
(require-package 'macrostep)
(with-eval-after-load 'lisp-mode
(define-key emacs-lisp-mode-map (kbd "C-c x") 'macrostep-expand))
;; A quick way to jump to the definition of a function given its key binding
(global-set-key (kbd "C-h K") 'find-function-on-key)
;; Extras for theme editing
(when (maybe-require-package 'rainbow-mode)
(defun sanityinc/enable-rainbow-mode-if-theme ()
(when (and (buffer-file-name) (string-match-p "\\(color-theme-\\|-theme\\.el\\)" (buffer-file-name)))
(rainbow-mode)))
(add-hook 'emacs-lisp-mode-hook 'sanityinc/enable-rainbow-mode-if-theme)
(add-hook 'help-mode-hook 'rainbow-mode)
(with-eval-after-load 'rainbow-mode
(diminish 'rainbow-mode)))
(when (maybe-require-package 'highlight-quoted)
(add-hook 'emacs-lisp-mode-hook 'highlight-quoted-mode))
(when (maybe-require-package 'package-lint-flymake)
(add-hook 'emacs-lisp-mode-hook #'package-lint-flymake-setup))
;; ERT
(with-eval-after-load 'ert
(define-key ert-results-mode-map (kbd "g") 'ert-results-rerun-all-tests))
(maybe-require-package 'cl-libify)
(maybe-require-package 'flycheck-relint)
(maybe-require-package 'cask-mode)
(provide 'init-lisp)
;;; init-lisp.el ends here
================================================
FILE: lisp/init-locales.el
================================================
;;; init-locales.el --- Configure default locale -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(defun sanityinc/locale-var-encoding (v)
"Return the encoding portion of the locale string V, or nil if missing."
(when v
(save-match-data
(let ((case-fold-search t))
(when (string-match "\\.\\([^.]*\\)\\'" v)
(intern (downcase (match-string 1 v))))))))
(dolist (varname '("LC_ALL" "LANG" "LC_CTYPE"))
(let ((encoding (sanityinc/locale-var-encoding (getenv varname))))
(unless (memq encoding '(nil utf8 utf-8))
(message "Warning: non-UTF8 encoding in environment variable %s may cause interop problems with this Emacs configuration." varname))))
(when (fboundp 'set-charset-priority)
(set-charset-priority 'unicode))
(prefer-coding-system 'utf-8)
(setq locale-coding-system 'utf-8)
(unless (eq system-type 'windows-nt)
(set-selection-coding-system 'utf-8))
(provide 'init-locales)
;;; init-locales.el ends here
================================================
FILE: lisp/init-lua.el
================================================
;;; init-lua.el --- Support for Lua programming -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require-package 'lua-mode)
(setq-default lua-indent-level 2)
(reformatter-define lua-format
:program "lua-format"
:args '("--indent-width=2" "--no-use-tab")
:lighter "LuaFmt ")
(provide 'init-lua)
;;; init-lua.el ends here
================================================
FILE: lisp/init-markdown.el
================================================
;;; init-markdown.el --- Markdown support -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'markdown-mode)
(add-auto-mode 'markdown-mode "\\.md\\.html\\'")
(with-eval-after-load 'whitespace-cleanup-mode
(add-to-list 'whitespace-cleanup-mode-ignore-modes 'markdown-mode)))
(provide 'init-markdown)
;;; init-markdown.el ends here
================================================
FILE: lisp/init-minibuffer.el
================================================
;;; init-minibuffer.el --- Config for minibuffer completion -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'vertico)
(add-hook 'after-init-hook 'vertico-mode)
(when (maybe-require-package 'embark)
(with-eval-after-load 'vertico
(define-key vertico-map (kbd "C-c C-o") 'embark-export)
(define-key vertico-map (kbd "C-c C-c") 'embark-act)))
;; https://github.com/purcell/whole-line-or-region/issues/30#issuecomment-3388095018
(with-eval-after-load 'embark
(push 'embark--mark-target
(alist-get 'whole-line-or-region-delete-region
embark-around-action-hooks)))
(when (maybe-require-package 'consult)
(defmacro sanityinc/no-consult-preview (&rest cmds)
`(with-eval-after-load 'consult
(consult-customize ,@cmds :preview-key "M-P")))
(sanityinc/no-consult-preview
consult-ripgrep
consult-git-grep consult-grep
consult-bookmark consult-recent-file consult-xref
consult-source-recent-file consult-source-project-recent-file consult-source-bookmark)
(defun sanityinc/consult-ripgrep-at-point (&optional dir initial)
(interactive (list current-prefix-arg
(if (use-region-p)
(buffer-substring-no-properties
(region-beginning) (region-end))
(if-let* ((s (symbol-at-point)))
(symbol-name s)))))
(consult-ripgrep dir initial))
(sanityinc/no-consult-preview sanityinc/consult-ripgrep-at-point)
(when (executable-find "rg")
(global-set-key (kbd "M-?") 'sanityinc/consult-ripgrep-at-point))
(global-set-key [remap switch-to-buffer] 'consult-buffer)
(global-set-key [remap switch-to-buffer-other-window] 'consult-buffer-other-window)
(global-set-key [remap switch-to-buffer-other-frame] 'consult-buffer-other-frame)
(global-set-key [remap goto-line] 'consult-goto-line)
(when (maybe-require-package 'embark-consult)
(require 'embark-consult))))
(when (maybe-require-package 'marginalia)
(add-hook 'after-init-hook 'marginalia-mode))
(provide 'init-minibuffer)
;;; init-minibuffer.el ends here
================================================
FILE: lisp/init-misc.el
================================================
;;; init-misc.el --- Miscellaneous config -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; Misc config - yet to be placed in separate files
(add-auto-mode 'tcl-mode "^Portfile\\'")
(if (boundp 'use-short-answers)
(setq use-short-answers t)
(fset 'yes-or-no-p 'y-or-n-p))
(add-hook 'prog-mode-hook 'goto-address-prog-mode)
(add-hook 'conf-mode-hook 'goto-address-prog-mode)
(setq goto-address-mail-face 'link)
(add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p)
(add-hook 'after-save-hook 'sanityinc/set-mode-for-new-scripts)
(defun sanityinc/set-mode-for-new-scripts ()
"Invoke `normal-mode' if this file is a script and in `fundamental-mode'."
(and
(eq major-mode 'fundamental-mode)
(>= (buffer-size) 2)
(save-restriction
(widen)
(string= "#!" (buffer-substring (point-min) (+ 2 (point-min)))))
(normal-mode)))
(when (maybe-require-package 'info-colors)
(with-eval-after-load 'info
(add-hook 'Info-selection-hook 'info-colors-fontify-node)))
;; Handle the prompt pattern for the 1password command-line interface
(with-eval-after-load 'comint
(setq comint-password-prompt-regexp
(concat
comint-password-prompt-regexp
"\\|^Please enter your password for user .*?:\\s *\\'")))
(when (maybe-require-package 'regex-tool)
(setq-default regex-tool-backend 'perl))
(with-eval-after-load 're-builder
;; Support a slightly more idiomatic quit binding in re-builder
(define-key reb-mode-map (kbd "C-c C-k") 'reb-quit))
(add-auto-mode 'conf-mode "^Procfile\\'")
(provide 'init-misc)
;;; init-misc.el ends here
================================================
FILE: lisp/init-mmm.el
================================================
;;; init-mmm.el --- Multiple Major Modes support -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require-package 'mmm-mode)
(require 'mmm-auto)
(setq mmm-global-mode 'buffers-with-submode-classes)
(setq mmm-submode-decoration-level 2)
(provide 'init-mmm)
;;; init-mmm.el ends here
================================================
FILE: lisp/init-nim.el
================================================
;;; init-nim.el --- Nim programming support -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'nim-mode)
(when (maybe-require-package 'flycheck-nim)
(with-eval-after-load 'nim-mode
(with-eval-after-load 'flycheck
(require 'flycheck-nim)))))
(provide 'init-nim)
;;; init-nim.el ends here
================================================
FILE: lisp/init-nix.el
================================================
;;; init-nix.el --- Support for the Nix package manager -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(if (maybe-require-package 'nix-ts-mode)
;; If the TS mode is installed, then the non-TS mode is not, so
;; nobody will have added an auto-mode-alist entry
(add-to-list 'auto-mode-alist '("\\.nix\\'" . nix-ts-mode))
(maybe-require-package 'nix-mode))
(with-eval-after-load 'eglot
;; Prefer nixd to nil, and enable in nix-ts-mode too
(add-to-list 'eglot-server-programs
`((nix-mode nix-ts-mode) . ,(eglot-alternatives '("nixd" "nil")))))
(maybe-require-package 'nixpkgs-fmt)
(maybe-require-package 'nixfmt)
(provide 'init-nix)
;;; init-nix.el ends here
================================================
FILE: lisp/init-nxml.el
================================================
;;; init-nxml.el --- Support for editing XML with NXML -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(add-auto-mode
'nxml-mode
(concat "\\."
(regexp-opt
'("xml" "xsd" "sch" "rng" "xslt" "svg" "rss"
"gpx" "tcx" "plist"))
"\\'"))
(setq magic-mode-alist (cons '("<\\?xml " . nxml-mode) magic-mode-alist))
(fset 'xml-mode 'nxml-mode)
(setq nxml-slash-auto-complete-flag t)
;; See: http://sinewalker.wordpress.com/2008/06/26/pretty-printing-xml-with-emacs-nxml-mode/
(defun sanityinc/pp-xml-region (beg end)
"Pretty format XML markup in region. The function inserts
linebreaks to separate tags that have nothing but whitespace
between them. It then indents the markup by using nxml's
indentation rules."
(interactive "r")
(unless (use-region-p)
(setq beg (point-min)
end (point-max)))
;; Use markers because our changes will move END
(setq beg (set-marker (make-marker) beg)
end (set-marker (make-marker) end))
(save-excursion
(goto-char beg)
(while (search-forward-regexp "\>[ \\t]*\<" end t)
(backward-char) (insert "\n"))
(nxml-mode)
(indent-region beg end)))
;; Integration with tidy for html + xml
(defun sanityinc/tidy-buffer-xml (beg end)
"Run \"tidy -xml\" on the region from BEG to END, or whole buffer."
(interactive "r")
(unless (use-region-p)
(setq beg (point-min)
end (point-max)))
(shell-command-on-region beg end "tidy -xml -q -i" (current-buffer) t "*tidy-errors*" t))
(provide 'init-nxml)
;;; init-nxml.el ends here
================================================
FILE: lisp/init-ocaml.el
================================================
;;; init-ocaml.el --- Support the OCaml language -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'tuareg)
(with-eval-after-load 'tuareg
(defvar-local tuareg-previous-tuareg-buffer nil
"Buffer from which we jumped to the REPL.")
(defun sanityinc/tuareg-repl-switch ()
(interactive)
(let ((last-tuareg-buf (when (derived-mode-p 'tuareg-mode)
(current-buffer))))
(tuareg-run-ocaml)
(pop-to-buffer tuareg-interactive-buffer-name)
(when last-tuareg-buf
(setq-local tuareg-previous-tuareg-buffer last-tuareg-buf))))
(defun sanityinc/tuareg-repl-switch-back ()
(interactive)
(when tuareg-previous-tuareg-buffer
(pop-to-buffer tuareg-previous-tuareg-buffer)))
(define-key tuareg-mode-map (kbd "C-c C-z") 'sanityinc/tuareg-repl-switch)
(define-key tuareg-interactive-mode-map (kbd "C-c C-z") 'sanityinc/tuareg-repl-switch-back)))
(when (and (fboundp 'treesit-available-p) (treesit-available-p))
(require-package 'ocaml-ts-mode)
(with-eval-after-load 'eglot
(add-to-list 'eglot-server-programs '(((ocaml-ts-mode :language-id "ocaml")) "ocamllsp"))))
(when (maybe-require-package 'dune)
(maybe-require-package 'dune-format))
;; Add my own lightweight ocp-indent reformatter, instead of the clunky upstream package
(when (maybe-require-package 'reformatter)
(defcustom ocp-indent-args nil
"Arguments for \"ocp-indent\" invocation.")
(reformatter-define ocp-indent
:program "ocp-indent"
:args ocp-indent-args
:lighter " OCP"))
(provide 'init-ocaml)
;;; init-ocaml.el ends here
================================================
FILE: lisp/init-org.el
================================================
;;; init-org.el --- Org-mode config -*- lexical-binding: t -*-
;;; Commentary:
;; Among settings for many aspects of `org-mode', this code includes
;; an opinionated setup for the Getting Things Done (GTD) system based
;; around the Org Agenda. I have an "inbox.org" file with a header
;; including
;; #+CATEGORY: Inbox
;; #+FILETAGS: INBOX
;; and then set this file as `org-default-notes-file'. Captured org
;; items will then go into this file with the file-level tag, and can
;; be refiled to other locations as necessary.
;; Those other locations are generally other org files, which should
;; be added to `org-agenda-files-list' (along with "inbox.org" org).
;; With that done, there's then an agenda view, accessible via the
;; `org-agenda' command, which gives a convenient overview.
;; `org-todo-keywords' is customised here to provide corresponding
;; TODO states, which should make sense to GTD adherents.
;;; Code:
(when *is-a-mac*
(maybe-require-package 'grab-mac-link))
(maybe-require-package 'org-cliplink)
(define-key global-map (kbd "C-c l") 'org-store-link)
(define-key global-map (kbd "C-c a") 'org-agenda)
(defvar sanityinc/org-global-prefix-map (make-sparse-keymap)
"A keymap for handy global access to org helpers, particularly clocking.")
(define-key sanityinc/org-global-prefix-map (kbd "j") 'org-clock-goto)
(define-key sanityinc/org-global-prefix-map (kbd "l") 'org-clock-in-last)
(define-key sanityinc/org-global-prefix-map (kbd "i") 'org-clock-in)
(define-key sanityinc/org-global-prefix-map (kbd "o") 'org-clock-out)
(define-key global-map (kbd "C-c o") sanityinc/org-global-prefix-map)
;; Various preferences
(setq org-log-done t
org-edit-timestamp-down-means-later t
org-hide-emphasis-markers t
org-catch-invisible-edits 'show
org-export-coding-system 'utf-8
org-fast-tag-selection-single-key 'expert
org-html-validation-link nil
org-export-kill-product-buffer-when-displayed t
org-tags-column 80)
;; Lots of stuff from http://doc.norang.ca/org-mode.html
;; Re-align tags when window shape changes
(with-eval-after-load 'org-agenda
(add-hook 'org-agenda-mode-hook
(lambda () (add-hook 'window-configuration-change-hook 'org-agenda-align-tags nil t))))
(maybe-require-package 'writeroom-mode)
(define-minor-mode prose-mode
"Set up a buffer for prose editing.
This enables or modifies a number of settings so that the
experience of editing prose is a little more like that of a
typical word processor."
:init-value nil :lighter " Prose" :keymap nil
(if prose-mode
(progn
(when (fboundp 'writeroom-mode)
(writeroom-mode 1))
(setq truncate-lines nil)
(setq word-wrap t)
(setq cursor-type 'bar)
(when (eq major-mode 'org)
(kill-local-variable 'buffer-face-mode-face))
(buffer-face-mode 1)
;;(delete-selection-mode 1)
(setq-local blink-cursor-interval 0.6)
(setq-local show-trailing-whitespace nil)
(setq-local line-spacing 0.2)
(setq-local electric-pair-mode nil)
(ignore-errors (flyspell-mode 1))
(visual-line-mode 1))
(kill-local-variable 'truncate-lines)
(kill-local-variable 'word-wrap)
(kill-local-variable 'cursor-type)
(kill-local-variable 'blink-cursor-interval)
(kill-local-variable 'show-trailing-whitespace)
(kill-local-variable 'line-spacing)
(kill-local-variable 'electric-pair-mode)
(buffer-face-mode -1)
;; (delete-selection-mode -1)
(flyspell-mode -1)
(visual-line-mode -1)
(when (fboundp 'writeroom-mode)
(writeroom-mode 0))))
;;(add-hook 'org-mode-hook 'buffer-face-mode)
(setq org-support-shift-select t)
;;; Capturing
(global-set-key (kbd "C-c c") 'org-capture)
(setq org-capture-templates
`(("t" "todo" entry (file "") ; "" => `org-default-notes-file'
"* NEXT %?\n%U\n" :clock-resume t)
("n" "note" entry (file "")
"* %? :NOTE:\n%U\n%a\n" :clock-resume t)
))
;;; Refiling
(setq org-refile-use-cache nil)
;; Targets include this file and any file contributing to the agenda - up to 5 levels deep
(setq org-refile-targets '((nil :maxlevel . 5) (org-agenda-files :maxlevel . 5)))
(with-eval-after-load 'org-agenda
(add-to-list 'org-agenda-after-show-hook 'org-show-entry))
(advice-add 'org-refile :after (lambda (&rest _) (org-save-all-org-buffers)))
;; Exclude DONE state tasks from refile targets
(defun sanityinc/verify-refile-target ()
"Exclude todo keywords with a done state from refile targets."
(not (member (nth 2 (org-heading-components)) org-done-keywords)))
(setq org-refile-target-verify-function 'sanityinc/verify-refile-target)
(defun sanityinc/org-refile-anywhere (&optional goto default-buffer rfloc msg)
"A version of `org-refile' which allows refiling to any subtree."
(interactive "P")
(let ((org-refile-target-verify-function))
(org-refile goto default-buffer rfloc msg)))
(defun sanityinc/org-agenda-refile-anywhere (&optional goto rfloc no-update)
"A version of `org-agenda-refile' which allows refiling to any subtree."
(interactive "P")
(let ((org-refile-target-verify-function))
(org-agenda-refile goto rfloc no-update)))
;; Targets start with the file name - allows creating level 1 tasks
;;(setq org-refile-use-outline-path (quote file))
(setq org-refile-use-outline-path t)
(setq org-outline-path-complete-in-steps nil)
;; Allow refile to create parent tasks with confirmation
(setq org-refile-allow-creating-parent-nodes 'confirm)
;;; To-do settings
(setq org-todo-keywords
(quote ((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d!/!)")
(sequence "PROJECT(p)" "|" "DONE(d!/!)" "CANCELLED(c@/!)")
(sequence "WAITING(w@/!)" "DELEGATED(e!)" "HOLD(h)" "|" "CANCELLED(c@/!)")))
org-todo-repeat-to-state "NEXT")
(setq org-todo-keyword-faces
(quote (("NEXT" :inherit warning)
("PROJECT" :inherit font-lock-string-face))))
;;; Agenda views
(setq-default org-agenda-clockreport-parameter-plist '(:link t :maxlevel 3))
(setq org-stuck-projects
'("-INBOX/PROJECT" ("NEXT")))
(let ((active-project-match '(car org-stuck-projects)))
(setq org-agenda-compact-blocks t
org-agenda-sticky t
org-agenda-start-on-weekday nil
org-agenda-span 'day
org-agenda-include-diary nil
org-agenda-sorting-strategy
'((agenda habit-down time-up user-defined-up effort-up category-keep)
(todo category-up effort-up)
(tags category-up effort-up)
(search category-up))
org-agenda-window-setup 'current-window
org-agenda-custom-commands
`(("N" "Notes" tags "NOTE"
((org-agenda-overriding-header "Notes")
(org-tags-match-list-sublevels t)))
("g" "GTD"
((agenda "" nil)
(tags "INBOX"
((org-agenda-overriding-header "Inbox")
(org-tags-match-list-sublevels nil)))
(stuck ""
((org-agenda-overriding-header "Stuck Projects")
(org-agenda-tags-todo-honor-ignore-options t)
(org-tags-match-list-sublevels t)
(org-agenda-todo-ignore-scheduled 'future)))
(tags-todo "-INBOX"
((org-agenda-overriding-header "Next Actions")
(org-agenda-tags-todo-honor-ignore-options t)
(org-agenda-todo-ignore-scheduled 'future)
(org-agenda-skip-function
'(lambda ()
(or (org-agenda-skip-subtree-if 'todo '("HOLD" "WAITING"))
(org-agenda-skip-entry-if 'nottodo '("NEXT")))))
(org-tags-match-list-sublevels t)
(org-agenda-sorting-strategy
'(todo-state-down effort-up category-keep))))
(tags-todo ,active-project-match
((org-agenda-overriding-header "Projects")
(org-tags-match-list-sublevels t)
(org-agenda-sorting-strategy
'(category-keep))))
(tags-todo "-INBOX/-NEXT"
((org-agenda-overriding-header "Orphaned Tasks")
(org-agenda-tags-todo-honor-ignore-options t)
(org-agenda-todo-ignore-scheduled 'future)
(org-agenda-skip-function
'(lambda ()
(or (org-agenda-skip-subtree-if 'todo '("PROJECT" "HOLD" "WAITING" "DELEGATED"))
(org-agenda-skip-subtree-if 'nottododo '("TODO")))))
(org-tags-match-list-sublevels t)
(org-agenda-sorting-strategy
'(category-keep))))
(tags-todo "/WAITING"
((org-agenda-overriding-header "Waiting")
(org-agenda-tags-todo-honor-ignore-options t)
(org-agenda-todo-ignore-scheduled 'future)
(org-agenda-sorting-strategy
'(category-keep))))
(tags-todo "/DELEGATED"
((org-agenda-overriding-header "Delegated")
(org-agenda-tags-todo-honor-ignore-options t)
(org-agenda-todo-ignore-scheduled 'future)
(org-agenda-sorting-strategy
'(category-keep))))
(tags-todo "-INBOX"
((org-agenda-overriding-header "On Hold")
(org-agenda-skip-function
'(lambda ()
(or (org-agenda-skip-subtree-if 'todo '("WAITING"))
(org-agenda-skip-entry-if 'nottodo '("HOLD")))))
(org-tags-match-list-sublevels nil)
(org-agenda-sorting-strategy
'(category-keep))))
;; (tags-todo "-NEXT"
;; ((org-agenda-overriding-header "All other TODOs")
;; (org-match-list-sublevels t)))
)))))
(add-hook 'org-agenda-mode-hook 'hl-line-mode)
;;; Org clock
;; Save the running clock and all clock history when exiting Emacs, load it on startup
(with-eval-after-load 'org
(org-clock-persistence-insinuate))
(setq org-clock-persist t)
(setq org-clock-in-resume t)
;; Save clock data and notes in the LOGBOOK drawer
(setq org-clock-into-drawer t)
;; Save state changes in the LOGBOOK drawer
(setq org-log-into-drawer t)
;; Removes clocked tasks with 0:00 duration
(setq org-clock-out-remove-zero-time-clocks t)
;; Show clock sums as hours and minutes, not "n days" etc.
(setq org-time-clocksum-format
'(:hours "%d" :require-hours t :minutes ":%02d" :require-minutes t))
;;; Show the clocked-in task - if any - in the header line
(defun sanityinc/show-org-clock-in-header-line ()
(setq-default header-line-format '((" " org-mode-line-string " "))))
(defun sanityinc/hide-org-clock-from-header-line ()
(setq-default header-line-format nil))
(add-hook 'org-clock-in-hook 'sanityinc/show-org-clock-in-header-line)
(add-hook 'org-clock-out-hook 'sanityinc/hide-org-clock-from-header-line)
(add-hook 'org-clock-cancel-hook 'sanityinc/hide-org-clock-from-header-line)
(with-eval-after-load 'org-clock
(define-key org-clock-mode-line-map [header-line mouse-2] 'org-clock-goto)
(define-key org-clock-mode-line-map [header-line mouse-1] 'org-clock-menu))
(when (and *is-a-mac* (file-directory-p "/Applications/org-clock-statusbar.app"))
(add-hook 'org-clock-in-hook
(lambda () (call-process "/usr/bin/osascript" nil 0 nil "-e"
(concat "tell application \"org-clock-statusbar\" to clock in \"" org-clock-current-task "\""))))
(add-hook 'org-clock-out-hook
(lambda () (call-process "/usr/bin/osascript" nil 0 nil "-e"
"tell application \"org-clock-statusbar\" to clock out"))))
;; TODO: warn about inconsistent items, e.g. TODO inside non-PROJECT
;; TODO: nested projects!
;;; Archiving
(setq org-archive-mark-done nil)
(setq org-archive-location "%s_archive::* Archive")
(require-package 'org-pomodoro)
(setq org-pomodoro-keep-killed-pomodoro-time t)
(with-eval-after-load 'org-agenda
(define-key org-agenda-mode-map (kbd "P") 'org-pomodoro))
;; ;; Show iCal calendars in the org agenda
;; (when (and *is-a-mac* (require 'org-mac-iCal nil t))
;; (setq org-agenda-include-diary t
;; org-agenda-custom-commands
;; '(("I" "Import diary from iCal" agenda ""
;; ((org-agenda-mode-hook #'org-mac-iCal)))))
;; (add-hook 'org-agenda-cleanup-fancy-diary-hook
;; (lambda ()
;; (goto-char (point-min))
;; (save-excursion
;; (while (re-search-forward "^[a-z]" nil t)
;; (goto-char (match-beginning 0))
;; (insert "0:00-24:00 ")))
;; (while (re-search-forward "^ [a-z]" nil t)
;; (goto-char (match-beginning 0))
;; (save-excursion
;; (re-search-backward "^[0-9]+:[0-9]+-[0-9]+:[0-9]+ " nil t))
;; (insert (match-string 0))))))
(with-eval-after-load 'org
(define-key org-mode-map (kbd "C-M-<up>") 'org-up-element)
(when *is-a-mac*
(define-key org-mode-map (kbd "M-h") nil)
(define-key org-mode-map (kbd "C-c g") 'grab-mac-link)))
(with-eval-after-load 'org
(org-babel-do-load-languages
'org-babel-load-languages
(seq-filter
(lambda (pair)
(locate-library (concat "ob-" (symbol-name (car pair)))))
'((R . t)
(ditaa . t)
(dot . t)
(emacs-lisp . t)
(gnuplot . t)
(haskell . nil)
(latex . t)
(ledger . t)
(ocaml . nil)
(octave . t)
(plantuml . t)
(python . t)
(ruby . t)
(screen . nil)
(sh . t) ;; obsolete
(shell . t)
(sql . t)
(sqlite . t)))))
(provide 'init-org)
;;; init-org.el ends here
================================================
FILE: lisp/init-osx-keys.el
================================================
;;; init-osx-keys.el --- Configure keys specific to MacOS -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when *is-a-mac*
(setq mac-command-modifier 'meta)
(setq mac-option-modifier 'none)
;; Make mouse wheel / trackpad scrolling less jerky
(setq mouse-wheel-scroll-amount '(1
((shift) . 5)
((control))))
(dolist (multiple '("" "double-" "triple-"))
(dolist (direction '("right" "left"))
(global-set-key (read-kbd-macro (concat "<" multiple "wheel-" direction ">")) 'ignore)))
(global-set-key (kbd "M-`") 'ns-next-frame)
(global-set-key (kbd "M-h") 'ns-do-hide-emacs)
(global-set-key (kbd "M-˙") 'ns-do-hide-others)
(with-eval-after-load 'nxml-mode
(define-key nxml-mode-map (kbd "M-h") nil))
(global-set-key (kbd "M-ˍ") 'ns-do-hide-others) ;; what describe-key reports for cmd-option-h
)
(provide 'init-osx-keys)
;;; init-osx-keys.el ends here
================================================
FILE: lisp/init-paredit.el
================================================
;;; init-paredit.el --- Configure paredit structured editing -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require-package 'paredit)
(defun sanityinc/maybe-map-paredit-newline ()
(unless (or (derived-mode-p 'inferior-emacs-lisp-mode 'cider-repl-mode)
(minibufferp))
(local-set-key (kbd "RET") 'paredit-newline)))
(add-hook 'paredit-mode-hook 'sanityinc/maybe-map-paredit-newline)
(with-eval-after-load 'paredit
(diminish 'paredit-mode " Par")
;; Suppress certain paredit keybindings to avoid clashes, including
;; my global binding of M-?
(dolist (binding '("RET" "C-<left>" "C-<right>" "C-M-<left>" "C-M-<right>" "M-s" "M-?"))
(define-key paredit-mode-map (read-kbd-macro binding) nil))
(define-key paredit-mode-map (kbd "M-<up>") 'paredit-splice-sexp-killing-backward))
;; Use paredit in the minibuffer
;; TODO: break out into separate package
;; http://emacsredux.com/blog/2013/04/18/evaluate-emacs-lisp-in-the-minibuffer/
(add-hook 'minibuffer-setup-hook 'sanityinc/conditionally-enable-paredit-mode)
(defvar paredit-minibuffer-commands '(eval-expression
pp-eval-expression
eval-expression-with-eldoc
ibuffer-do-eval
ibuffer-do-view-and-eval)
"Interactive commands for which paredit should be enabled in the minibuffer.")
(defun sanityinc/conditionally-enable-paredit-mode ()
"Enable paredit during lisp-related minibuffer commands."
(when (memq this-command paredit-minibuffer-commands)
(enable-paredit-mode)))
(add-hook 'sanityinc/lispy-modes-hook 'enable-paredit-mode)
(when (maybe-require-package 'puni)
;;(add-hook 'prog-mode-hook 'puni-mode)
(add-hook 'sanityinc/lispy-modes-hook (lambda () (puni-mode -1)))
(with-eval-after-load 'puni
(define-key puni-mode-map (kbd "M-(") 'puni-wrap-round)
(define-key puni-mode-map (kbd "C-(") 'puni-slurp-backward)
(define-key puni-mode-map (kbd "C-)") 'puni-slurp-forward)
(define-key puni-mode-map (kbd "C-}") 'puni-barf-forward)
(define-key puni-mode-map (kbd "C-{") 'puni-barf-backward)
(define-key puni-mode-map (kbd "M-<up>") 'puni-splice-killing-backward)
(define-key puni-mode-map (kbd "C-w") nil)))
(provide 'init-paredit)
;;; init-paredit.el ends here
================================================
FILE: lisp/init-php.el
================================================
;;; init-php.el --- Support for working with PHP -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'php-mode)
(maybe-require-package 'smarty-mode))
(provide 'init-php)
;;; init-php.el ends here
================================================
FILE: lisp/init-projectile.el
================================================
;;; init-projectile.el --- Use Projectile for navigation within projects -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'projectile)
(add-hook 'after-init-hook 'projectile-mode)
;; Shorter modeline
(setq-default projectile-mode-line-prefix " Proj")
(when (executable-find "rg")
(setq-default projectile-generic-command "rg --files --hidden -0"))
(with-eval-after-load 'projectile
(define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map))
(maybe-require-package 'ibuffer-projectile))
(provide 'init-projectile)
;;; init-projectile.el ends here
================================================
FILE: lisp/init-purescript.el
================================================
;;; init-purescript.el --- Support the Purescript language -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'purescript-mode)
(add-hook 'purescript-mode-hook 'turn-on-purescript-indentation)
(add-hook 'purescript-mode-hook
(lambda ()
(add-hook 'before-save-hook 'purescript-sort-imports nil t)))
(add-hook 'purescript-mode-hook (apply-partially 'prettify-symbols-mode -1))
(with-eval-after-load 'purescript-mode
(define-key purescript-mode-map (kbd "C-o") 'open-line))
(when (maybe-require-package 'reformatter)
(reformatter-define purty
:program "purty" :lighter " purty"))
(when (maybe-require-package 'psci)
(add-hook 'purescript-mode-hook 'inferior-psci-mode))
(when (maybe-require-package 'add-node-modules-path)
(with-eval-after-load 'purescript-mode
(add-hook 'purescript-mode-hook 'add-node-modules-path))
(with-eval-after-load 'psci
(advice-add 'psci :around (lambda (oldfun &rest args)
(let ((psci/purs-path (or (executable-find "purs")
psci/purs-path)))
(apply oldfun args)))))))
(provide 'init-purescript)
;;; init-purescript.el ends here
================================================
FILE: lisp/init-python.el
================================================
;;; init-python.el --- Python editing -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; I use nix + direnv instead of virtualenv/pyenv/pyvenv, and it is an
;; approach which extends to other languages too. I recorded a
;; screencast about this: https://www.youtube.com/watch?v=TbIHRHy7_JM
(setq auto-mode-alist
(append '(("SConstruct\\'" . python-mode)
("SConscript\\'" . python-mode))
auto-mode-alist))
(setq python-shell-interpreter "python3")
(require-package 'pip-requirements)
(when (maybe-require-package 'flymake-ruff)
(defun sanityinc/flymake-ruff-maybe-enable ()
(when (executable-find "ruff")
(flymake-ruff-load)))
(add-hook 'python-mode-hook 'sanityinc/flymake-ruff-maybe-enable))
(with-eval-after-load 'eglot
;; This addition of "ty" has been upstreamed as of Dec 2025, but not
;; yet released in ELPA versions of eglot.
(push `((python-mode python-ts-mode)
. ,(eglot-alternatives
'(("ty" "server")
"pylsp"
"pyls"
("basedpyright-langserver" "--stdio")
("pyright-langserver" "--stdio")
("pyrefly" "lsp")
"jedi-language-server" ("ruff" "server") "ruff-lsp")))
eglot-server-programs))
(maybe-require-package 'ruff-format)
(when (maybe-require-package 'toml-mode)
(add-to-list 'auto-mode-alist '("\\(poetry\\|uv\\)\\.lock\\'" . toml-mode)))
(when (maybe-require-package 'reformatter)
(reformatter-define black :program "black" :args '("-")))
(with-eval-after-load 'project
(add-to-list 'project-vc-extra-root-markers "pyproject.toml"))
(with-eval-after-load 'projectile
(add-to-list 'projectile-project-root-files "pyproject.toml"))
(provide 'init-python)
;;; init-python.el ends here
================================================
FILE: lisp/init-rails.el
================================================
;;; init-rails.el --- Ruby on Rails support -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'projectile-rails)
(add-hook 'projectile-mode-hook
(lambda () (projectile-rails-global-mode projectile-mode))))
(provide 'init-rails)
;;; init-rails.el ends here
================================================
FILE: lisp/init-recentf.el
================================================
;;; init-recentf.el --- Settings for tracking recent files -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(add-hook 'after-init-hook 'recentf-mode)
(setq-default
recentf-max-saved-items 1000
recentf-exclude `("/tmp/" "/ssh:" ,(concat package-user-dir "/.*-autoloads\\.el\\'")))
(provide 'init-recentf)
;;; init-recentf.el ends here
================================================
FILE: lisp/init-ruby.el
================================================
;;; init-ruby.el --- Support for the Ruby language -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;;; Basic ruby setup
(require-package 'ruby-hash-syntax)
(add-auto-mode 'ruby-mode
"\\.rxml\\'"
"\\.rjs\\'" "\\.irbrc\\'" "\\.pryrc\\'" "\\.builder\\'"
"\\.gemspec\\'" "Kirkfile\\'")
(add-auto-mode 'conf-mode "Gemfile\\.lock\\'")
(setq-default
ruby-use-encoding-map nil
ruby-insert-encoding-magic-comment nil)
(add-hook 'ruby-mode-hook 'subword-mode)
(with-eval-after-load 'page-break-lines
(add-to-list 'page-break-lines-modes 'ruby-mode))
(require-package 'rspec-mode)
(define-derived-mode brewfile-mode ruby-mode "Brewfile"
"A major mode for Brewfiles, used by homebrew-bundle on MacOS.")
(add-auto-mode 'brewfile-mode "Brewfile\\'")
;;; Inferior ruby
(require-package 'inf-ruby)
(with-eval-after-load 'inf-ruby
(defun sanityinc/ruby-load-file (&optional choose-file)
(interactive "P")
(if (or choose-file (not buffer-file-name))
(call-interactively 'ruby-load-file)
(save-some-buffers)
(ruby-load-file buffer-file-name)))
(define-key inf-ruby-minor-mode-map [remap ruby-load-file] 'sanityinc/ruby-load-file))
;;; Ruby compilation
(require-package 'ruby-compilation)
(with-eval-after-load 'ruby-mode
(define-key ruby-mode-map [S-f7] 'ruby-compilation-this-buffer)
(define-key ruby-mode-map [f7] 'ruby-compilation-this-test))
(with-eval-after-load 'ruby-compilation
(defalias 'rake 'ruby-compilation-rake))
;;; Robe
(when (maybe-require-package 'robe)
(with-eval-after-load 'ruby-mode
(add-hook 'ruby-mode-hook 'robe-mode)))
;;; ri support
(require-package 'yari)
(defalias 'ri 'yari)
(when (maybe-require-package 'yard-mode)
(add-hook 'ruby-mode-hook 'yard-mode)
(with-eval-after-load 'yard-mode
(diminish 'yard-mode)))
;;; ERB
(require-package 'mmm-mode)
(require 'derived)
(defun sanityinc/set-up-mode-for-erb (mode)
(add-hook (derived-mode-hook-name mode) (lambda () (require 'mmm-erb)))
(mmm-add-mode-ext-class mode "\\.erb\\'" 'erb))
(dolist (mode '(html-mode html-erb-mode nxml-mode))
(sanityinc/set-up-mode-for-erb mode)
(mmm-add-mode-ext-class mode "\\.r?html\\(\\.erb\\)?\\'" 'html-js)
(mmm-add-mode-ext-class mode "\\.r?html\\(\\.erb\\)?\\'" 'html-css))
(mapc 'sanityinc/set-up-mode-for-erb
'(coffee-mode js-mode js2-mode js3-mode markdown-mode textile-mode))
(mmm-add-mode-ext-class 'html-erb-mode "\\.jst\\.ejs\\'" 'ejs)
(add-auto-mode 'html-erb-mode "\\.rhtml\\'" "\\.html\\.erb\\'")
(add-to-list 'auto-mode-alist '("\\.jst\\.ejs\\'" . html-erb-mode))
(mmm-add-mode-ext-class 'yaml-mode "\\.yaml\\(\\.erb\\)?\\'" 'erb)
(sanityinc/set-up-mode-for-erb 'yaml-mode)
(dolist (mode (list 'js-mode 'js2-mode 'js3-mode))
(mmm-add-mode-ext-class mode "\\.js\\.erb\\'" 'erb))
;; Ruby - my convention for heredocs containing SQL
;; (require-package 'mmm-mode)
;; (eval-after-load 'mmm-mode
;; '(progn
;; (mmm-add-classes
;; '((ruby-heredoc-sql
;; :submode sql-mode
;; :front "<<-?[\'\"]?\\(end_sql\\)[\'\"]?"
;; :save-matches 1
;; :front-offset (end-of-line 1)
;; :back "^[ \t]*~1$"
;; :delimiter-mode nil)))
;; (mmm-add-mode-ext-class 'ruby-mode "\\.rb\\'" 'ruby-heredoc-sql)))
;; (add-to-list 'mmm-set-file-name-for-modes 'ruby-mode)
(provide 'init-ruby)
;;; init-ruby.el ends here
================================================
FILE: lisp/init-rust.el
================================================
;;; init-rust.el --- Support for the Rust language -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'rust-mode)
(when (maybe-require-package 'flycheck-rust)
(with-eval-after-load 'rust-mode
(add-hook 'flycheck-mode-hook #'flycheck-rust-setup))))
(provide 'init-rust)
;;; init-rust.el ends here
================================================
FILE: lisp/init-sessions.el
================================================
;;; init-sessions.el --- Save and restore editor sessions between restarts -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; save a list of open files in ~/.emacs.d/.emacs.desktop
(setq desktop-path (list user-emacs-directory)
desktop-auto-save-timeout 600)
(desktop-save-mode 1)
(defun sanityinc/desktop-time-restore (orig &rest args)
(let ((start-time (current-time)))
(prog1
(apply orig args)
(message "Desktop restored in %.2fms"
(sanityinc/time-subtract-millis (current-time)
start-time)))))
(advice-add 'desktop-read :around 'sanityinc/desktop-time-restore)
(defun sanityinc/desktop-time-buffer-create (orig ver filename &rest args)
(let ((start-time (current-time)))
(prog1
(apply orig ver filename args)
(message "Desktop: %.2fms to restore %s"
(sanityinc/time-subtract-millis (current-time)
start-time)
(when filename
(abbreviate-file-name filename))))))
(advice-add 'desktop-create-buffer :around 'sanityinc/desktop-time-buffer-create)
;; Restore histories and registers after saving
(setq-default history-length 1000)
(add-hook 'after-init-hook 'savehist-mode)
(require-package 'session)
(setq session-save-file (locate-user-emacs-file ".session"))
(setq session-name-disable-regexp "\\(?:\\`'/tmp\\|\\.git/[A-Z_]+\\'\\)")
(setq session-save-file-coding-system 'utf-8)
(add-hook 'after-init-hook 'session-initialize)
;; save a bunch of variables to the desktop file
;; for lists specify the len of the maximal saved data also
(setq desktop-globals-to-save
'((comint-input-ring . 50)
(compile-history . 30)
desktop-missing-file-warning
(dired-regexp-history . 20)
(extended-command-history . 30)
(face-name-history . 20)
(file-name-history . 100)
(grep-find-history . 30)
(grep-history . 30)
(ivy-history . 100)
(magit-revision-history . 50)
(minibuffer-history . 50)
(org-clock-history . 50)
(org-refile-history . 50)
(org-tags-history . 50)
(query-replace-history . 60)
(read-expression-history . 60)
(regexp-history . 60)
(regexp-search-ring . 20)
register-alist
(search-ring . 20)
(shell-command-history . 50)
tags-file-name
tags-table-list))
(provide 'init-sessions)
;;; init-sessions.el ends here
================================================
FILE: lisp/init-site-lisp.el
================================================
;;; init-site-lisp.el --- Support elisp manually installed in the site-lisp dir -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;;; Set load path
(require 'cl-lib)
(defun sanityinc/add-subdirs-to-load-path (parent-dir)
"Add every non-hidden subdir of PARENT-DIR to `load-path'."
(let ((default-directory parent-dir))
(setq load-path
(append
(cl-remove-if-not
#'file-directory-p
(directory-files (expand-file-name parent-dir) t "^[^\\.]"))
load-path))))
;; Add both site-lisp and its immediate subdirs to `load-path'
(let ((site-lisp-dir (expand-file-name "site-lisp/" user-emacs-directory)))
(push site-lisp-dir load-path)
(sanityinc/add-subdirs-to-load-path site-lisp-dir))
;;; Utilities for grabbing upstream libs
(defun site-lisp-dir-for (name)
(expand-file-name (format "site-lisp/%s" name) user-emacs-directory))
(defun site-lisp-library-el-path (name)
(expand-file-name (format "%s.el" name) (site-lisp-dir-for name)))
(defun download-site-lisp-module (name url)
(let ((dir (site-lisp-dir-for name)))
(message "Downloading %s from %s" name url)
(unless (file-directory-p dir)
(make-directory dir t))
(add-to-list 'load-path dir)
(let ((el-file (site-lisp-library-el-path name)))
(url-copy-file url el-file t nil)
el-file)))
(defun ensure-lib-from-url (name url)
(unless (site-lisp-library-loadable-p name)
(byte-compile-file (download-site-lisp-module name url))))
(defun site-lisp-library-loadable-p (name)
"Return whether or not the library `name' can be loaded from a
source file under ~/.emacs.d/site-lisp/name/"
(let ((f (locate-library (symbol-name name))))
(and f (string-prefix-p (file-name-as-directory (site-lisp-dir-for name)) f))))
(provide 'init-site-lisp)
;;; init-site-lisp.el ends here
================================================
FILE: lisp/init-sly.el
================================================
;;; init-sly.el --- Sly support for Common Lisp -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require-package 'sly)
(require-package 'sly-asdf)
(require-package 'sly-macrostep)
(require-package 'sly-repl-ansi-color)
;;; Lisp buffers
(with-eval-after-load 'sly
(setq sly-protocol-version 'ignore)
(setq sly-net-coding-system 'utf-8-unix)
(let ((features '(sly-fancy)))
;; (when (require 'sly-company nil t)
;; (push 'sly-company features))
(sly-setup features)))
;;; REPL
(with-eval-after-load 'sly-repl
;; Stop SLY's REPL from grabbing DEL, which is annoying when backspacing over a '('
(with-eval-after-load 'paredit
(define-key sly-repl-mode-map (read-kbd-macro paredit-backward-delete-key) nil))
;; Bind TAB to `indent-for-tab-command', as in regular Sly buffers.
(define-key sly-repl-mode-map (kbd "TAB") 'indent-for-tab-command)
(add-hook 'sly-repl-mode-hook 'sanityinc/lisp-setup))
(provide 'init-sly)
;;; init-sly.el ends here
================================================
FILE: lisp/init-spelling.el
================================================
;;; init-spelling.el --- Spell check settings -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require 'ispell)
(when (executable-find ispell-program-name)
;; Add spell-checking in comments for all programming language modes
(add-hook 'prog-mode-hook 'flyspell-prog-mode)
(with-eval-after-load 'flyspell
(define-key flyspell-mode-map (kbd "C-;") nil)
(add-to-list 'flyspell-prog-text-faces 'nxml-text-face)))
(provide 'init-spelling)
;;; init-spelling.el ends here
================================================
FILE: lisp/init-sql.el
================================================
;;; init-sql.el --- Support for SQL -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(with-eval-after-load 'sql
;; sql-mode pretty much requires your psql to be uncustomised from stock settings
(add-to-list 'sql-postgres-options "--no-psqlrc"))
(defun sanityinc/pop-to-sqli-buffer ()
"Switch to the corresponding sqli buffer."
(interactive)
(if (and sql-buffer (buffer-live-p sql-buffer))
(progn
(pop-to-buffer sql-buffer)
(goto-char (point-max)))
(sql-set-sqli-buffer)
(when sql-buffer
(sanityinc/pop-to-sqli-buffer))))
(with-eval-after-load 'sql
(define-key sql-mode-map (kbd "C-c C-z") 'sanityinc/pop-to-sqli-buffer)
(when (package-installed-p 'dash-at-point)
(defun sanityinc/maybe-set-dash-db-docset (&rest _)
(when (eq sql-product 'postgres)
(setq-local dash-at-point-docset "psql")))
(add-hook 'sql-mode-hook 'sanityinc/maybe-set-dash-db-docset)
(add-hook 'sql-interactive-mode-hook 'sanityinc/maybe-set-dash-db-docset)
(advice-add 'sql-set-product :after 'sanityinc/maybe-set-dash-db-docset)))
(setq-default sql-input-ring-file-name
(locate-user-emacs-file ".sqli_history"))
;; See my answer to https://emacs.stackexchange.com/questions/657/why-do-sql-mode-and-sql-interactive-mode-not-highlight-strings-the-same-way/673
(defun sanityinc/font-lock-everything-in-sql-interactive-mode ()
(unless (eq 'oracle sql-product)
(sql-product-font-lock nil nil)))
(add-hook 'sql-interactive-mode-hook 'sanityinc/font-lock-everything-in-sql-interactive-mode)
(require-package 'sqlformat)
(with-eval-after-load 'sql
(define-key sql-mode-map (kbd "C-c C-f") 'sqlformat))
;; Package ideas:
;; - PEV
(defun sanityinc/sql-explain-region-as-json (beg end &optional copy)
"Explain the SQL between BEG and END in detailed JSON format.
This is suitable for pasting into tools such as
https://explain.dalibo.com/.
When the prefix argument COPY is non-nil, do not display the
resulting JSON, but instead copy it to the kill ring.
If the region is not active, uses the current paragraph, as per
`sql-send-paragraph'.
Connection information is taken from the special sql-* variables
set in the current buffer, so you will usually want to start a
SQLi session first, or otherwise set `sql-database' etc.
This command currently blocks the UI, sorry."
(interactive "rP")
(unless (eq sql-product 'postgres)
(user-error "This command is for PostgreSQL only"))
(unless (use-region-p)
(setq beg (save-excursion (backward-paragraph) (point))
end (save-excursion (forward-paragraph) (point))))
(let ((query (buffer-substring-no-properties beg end)))
(with-current-buffer (if (sql-buffer-live-p sql-buffer)
sql-buffer
(current-buffer))
(let* ((process-environment
(append (list (concat "PGDATABASE=" sql-database)
(concat "PGHOST=" sql-server)
(concat "PGUSER=" sql-user))
process-environment))
(args (list "--no-psqlrc"
"-qAt"
"-w" ; Never prompt for password
"-E"
"-c" (concat "EXPLAIN (ANALYZE, COSTS, VERBOSE, BUFFERS, FORMAT JSON) " query ";")
))
(err-file (make-temp-file "sql-explain-json")))
(with-current-buffer (get-buffer-create "*sql-explain-json*")
(setq buffer-read-only nil)
(delete-region (point-min) (point-max))
(let ((retcode (apply 'call-process sql-postgres-program nil (list (current-buffer) err-file) nil args)))
(if (zerop retcode)
(progn
(json-mode)
(read-only-mode 1)
(if copy
(progn
(kill-ring-save (buffer-substring-no-properties (point-min) (point-max)))
(message "EXPLAIN output copied to kill-ring."))
(display-buffer (current-buffer))))
(with-current-buffer (get-buffer-create "*sql-explain-errors*")
(let ((inhibit-read-only t))
(insert-file-contents err-file nil nil nil t))
(display-buffer (current-buffer))
(user-error "EXPLAIN failed")))))))))
(with-eval-after-load 'page-break-lines
(add-to-list 'page-break-lines-modes 'sql-mode))
(provide 'init-sql)
;;; init-sql.el ends here
================================================
FILE: lisp/init-terminals.el
================================================
;;; init-terminals.el --- Terminal emulators -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'eat)
(defun sanityinc/on-eat-exit (process)
(when (zerop (process-exit-status process))
(kill-buffer)
(unless (eq (selected-window) (next-window))
(delete-window))))
(add-hook 'eat-exit-hook 'sanityinc/on-eat-exit)
(with-eval-after-load 'eat
(custom-set-variables
`(eat-semi-char-non-bound-keys
(quote ,(cons [?\e ?w] (cl-remove [?\e ?w] eat-semi-char-non-bound-keys :test 'equal))))))
(defcustom sanityinc/eat-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "t") 'eat-other-window)
map)
"Prefix map for commands that create and manipulate eat buffers.")
(fset 'sanityinc/eat-map sanityinc/eat-map)
(setq-default eat-term-scrollback-size (* 2 1024 1024))
(defun sanityinc/eat-term-get-suitable-term-name (&optional display)
"Version of `eat-term-get-suitable-term-name' which uses better-known TERM values."
(let ((colors (display-color-cells display)))
(cond ((> colors 8) "xterm-256color")
((> colors 1) "xterm-color")
(t "xterm"))))
(setq eat-term-name 'sanityinc/eat-term-get-suitable-term-name)
(global-set-key (kbd "C-c t") 'sanityinc/eat-map))
(provide 'init-terminals)
;;; init-terminals.el ends here
================================================
FILE: lisp/init-terraform.el
================================================
;;; init-terraform.el --- Work with Terraform configurations -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;;; Terraform
(when (maybe-require-package 'terraform-mode)
;; TODO: find/write a replacement for company-terraform
(with-eval-after-load 'terraform-mode
;; I find formatters based on "reformatter" to be more reliable
;; so I redefine `terraform-format-on-save-mode' here.
(when (maybe-require-package 'reformatter)
(reformatter-define terraform-format
:program "terraform" :args '("fmt" "-")))))
(provide 'init-terraform)
;;; init-terraform.el ends here
================================================
FILE: lisp/init-textile.el
================================================
;;; init-textile.el --- Edit Textile markup -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require-package 'textile-mode)
(setq auto-mode-alist
(cons '("\\.textile\\'" . textile-mode) auto-mode-alist))
(provide 'init-textile)
;;; init-textile.el ends here
================================================
FILE: lisp/init-themes.el
================================================
;;; init-themes.el --- Defaults for themes -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require-package 'color-theme-sanityinc-solarized)
(require-package 'color-theme-sanityinc-tomorrow)
;; Don't prompt to confirm theme safety. This avoids problems with
;; first-time startup on Emacs > 26.3.
(setq custom-safe-themes t)
;; If you don't customize it, this is the theme you get.
(setq-default custom-enabled-themes '(sanityinc-tomorrow-bright))
;; Ensure that themes will be applied even if they have not been customized
(defun reapply-themes ()
"Forcibly load the themes listed in `custom-enabled-themes'."
(dolist (theme custom-enabled-themes)
(unless (custom-theme-p theme)
(load-theme theme)))
(custom-set-variables `(custom-enabled-themes (quote ,custom-enabled-themes))))
(add-hook 'after-init-hook 'reapply-themes)
;; Toggle between light and dark
(defun light ()
"Activate a light color theme."
(interactive)
(setq custom-enabled-themes '(sanityinc-tomorrow-day))
(reapply-themes))
(defun dark ()
"Activate a dark color theme."
(interactive)
(setq custom-enabled-themes '(sanityinc-tomorrow-bright))
(reapply-themes))
(when (maybe-require-package 'dimmer)
(setq-default dimmer-fraction 0.15)
(add-hook 'after-init-hook 'dimmer-mode)
(with-eval-after-load 'dimmer
;; TODO: file upstream as a PR
(advice-add 'frame-set-background-mode :after (lambda (&rest args) (dimmer-process-all))))
(with-eval-after-load 'dimmer
;; Don't dim in terminal windows. Even with 256 colours it can
;; lead to poor contrast. Better would be to vary dimmer-fraction
;; according to frame type.
(defun sanityinc/display-non-graphic-p ()
(not (display-graphic-p)))
(add-to-list 'dimmer-exclusion-predicates 'sanityinc/display-non-graphic-p)))
(provide 'init-themes)
;;; init-themes.el ends here
================================================
FILE: lisp/init-toml.el
================================================
;;; init-toml.el --- Support TOML files -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(maybe-require-package 'toml-mode)
(provide 'init-toml)
;;; init-toml.el ends here
================================================
FILE: lisp/init-treesitter.el
================================================
;;; init-treesitter.el --- Enable Treesitter-based major modes -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; You can download per-architecture pre-compiled release from
;; https://github.com/emacs-tree-sitter/tree-sitter-langs Rename
;; contained grammars to add prefix "libtree-sitter-", place in
;; ~/.emacs.d/tree-sitter.
;;
;; Nix users can pre-install all grammars alongside their Emacs, see
;; https://github.com/nix-community/emacs-overlay/issues/341
;;
;; Note that grammar files from different sources can be differently
;; named and configured, so there could be different results. Some
;; common remappings are included below.
;;; Enable built-in and pre-installed TS modes if the grammars are available
(defun sanityinc/auto-configure-treesitter ()
"Find and configure installed grammars, remap to matching -ts-modes if present.
Return a list of languages seen along the way."
(let ((grammar-name-to-emacs-lang '(("c-sharp" . "csharp")
("cpp" . "c++")
("gomod" . "go-mod")
("javascript" . "js")))
seen-grammars)
(dolist (dir (cons (expand-file-name "tree-sitter" user-emacs-directory)
treesit-extra-load-path))
(when (file-directory-p dir)
(dolist (file (directory-files dir))
(let ((fname (file-name-sans-extension (file-name-nondirectory file))))
(when (string-match "libtree-sitter-\\(.*\\)" fname)
(let* ((file-lang (match-string 1 fname))
(emacs-lang (or (cdr (assoc-string file-lang grammar-name-to-emacs-lang)) file-lang)))
;; Override library if its filename doesn't match the Emacs name
(unless (or (memq (intern emacs-lang) seen-grammars)
(string-equal file-lang emacs-lang))
(let ((libname (concat "tree_sitter_" (replace-regexp-in-string "-" "_" file-lang))))
(add-to-list 'treesit-load-name-override-list
(list (intern emacs-lang) fname libname))))
;; If there's a corresponding -ts mode, remap the standard mode to it
(let ((ts-mode-name (intern (concat emacs-lang "-ts-mode")))
(regular-mode-name (intern (concat emacs-lang "-mode"))))
(when (fboundp ts-mode-name)
(message "init-treesitter: using %s in place of %s" ts-mode-name regular-mode-name)
(add-to-list 'major-mode-remap-alist
(cons regular-mode-name ts-mode-name))))
;; Remember we saw this language so we don't squash its config when we
;; find another lib later in the treesit load path
(push (intern emacs-lang) seen-grammars)))))))
seen-grammars))
(sanityinc/auto-configure-treesitter)
;;; Support remapping of additional libraries
(defun sanityinc/remap-ts-mode (non-ts-mode ts-mode grammar)
"Explicitly remap NON-TS-MODE to TS-MODE if GRAMMAR is available."
(when (and (fboundp 'treesit-ready-p)
(treesit-ready-p grammar t)
(fboundp ts-mode))
(add-to-list 'major-mode-remap-alist (cons non-ts-mode ts-mode))))
;; When there's js-ts-mode, we also prefer it to js2-mode
(sanityinc/remap-ts-mode 'js2-mode 'js-ts-mode 'javascript)
(sanityinc/remap-ts-mode 'clojurescript-mode 'clojurescript-ts-mode 'clojure)
;; Default
(setq treesit-font-lock-level 4)
(provide 'init-treesitter)
;;; init-treesitter.el ends here
================================================
FILE: lisp/init-uiua.el
================================================
;;; init-uiua.el --- Support for the Uiua programming language -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(or (maybe-require-package 'uiua-ts-mode)
(maybe-require-package 'uiua-mode))
(with-eval-after-load 'eglot
(add-to-list 'eglot-server-programs '((uiua-mode uiua-ts-mode) . ("uiua" "lsp"))))
(maybe-require-package 'nixpkgs-fmt)
(provide 'init-uiua)
;;; init-uiua.el ends here
================================================
FILE: lisp/init-uniquify.el
================================================
;;; init-uniquify.el --- Configure uniquification of buffer names -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; Nicer naming of buffers for files with identical names
(require 'uniquify)
(setq uniquify-buffer-name-style 'reverse)
(setq uniquify-separator " • ")
(setq uniquify-after-kill-buffer-p t)
(setq uniquify-ignore-buffers-re "^\\*")
(provide 'init-uniquify)
;;; init-uniquify.el ends here
================================================
FILE: lisp/init-utils.el
================================================
;;; init-utils.el --- Elisp helper functions and commands -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(defun sanityinc/display-buffer-full-frame (buffer alist)
"If it's not visible, display buffer full-frame, saving the prior window config.
The saved config will be restored when the window is quit later.
BUFFER and ALIST are as for `display-buffer-full-frame'."
(let ((initial-window-configuration (current-window-configuration)))
(or (display-buffer-reuse-window buffer alist)
(let ((full-window (display-buffer-full-frame buffer alist)))
(prog1
full-window
(set-window-parameter full-window 'sanityinc/previous-config initial-window-configuration))))))
(defun sanityinc/maybe-restore-window-configuration (orig &optional kill window)
(let* ((window (or window (selected-window)))
(to-restore (window-parameter window 'sanityinc/previous-config)))
(set-window-parameter window 'sanityinc/previous-config nil)
(funcall orig kill window)
(when to-restore
(set-window-configuration to-restore))))
(advice-add 'quit-window :around 'sanityinc/maybe-restore-window-configuration)
(defmacro sanityinc/fullframe-mode (mode)
"Configure buffers that open in MODE to display in full-frame."
`(add-to-list 'display-buffer-alist
(cons (cons 'major-mode ,mode)
(list 'sanityinc/display-buffer-full-frame))))
(sanityinc/fullframe-mode 'package-menu-mode)
;; Handier way to add modes to auto-mode-alist
(defun add-auto-mode (mode &rest patterns)
"Add entries to `auto-mode-alist' to use `MODE' for all given file `PATTERNS'."
(dolist (pattern patterns)
(add-to-list 'auto-mode-alist (cons pattern mode))))
(defun sanityinc/remove-auto-mode (mode)
"Remove entries from `auto-mode-alist' that are for `MODE'."
(setq auto-mode-alist (seq-remove (lambda (x) (eq mode (cdr x))) auto-mode-alist)))
;; Like diminish, but for major modes
(defun sanityinc/set-major-mode-name (name)
"Override the major mode NAME in this buffer."
(setq-local mode-name name))
(defun sanityinc/major-mode-lighter (mode name)
(add-hook (derived-mode-hook-name mode)
(apply-partially 'sanityinc/set-major-mode-name name)))
;; String utilities missing from core emacs
(defun sanityinc/string-all-matches (regex str &optional group)
"Find all matches for `REGEX' within `STR', returning the full match string or group `GROUP'."
(let ((result nil)
(pos 0)
(group (or group 0)))
(while (string-match regex str pos)
(push (match-string group str) result)
(setq pos (match-end group)))
result))
;; Delete the current file
(defun delete-this-file ()
"Delete the current file, and kill the buffer."
(interactive)
(unless (buffer-file-name)
(error "No file is currently being edited"))
(when (yes-or-no-p (format "Really delete '%s'?"
(file-name-nondirectory buffer-file-name)))
(delete-file (buffer-file-name))
(kill-this-buffer)))
;; Rename the current file
(if (fboundp 'rename-visited-file)
(defalias 'rename-this-file-and-buffer 'rename-visited-file)
(defun rename-this-file-and-buffer (new-name)
"Renames both current buffer and file it's visiting to NEW-NAME."
(interactive "sNew name: ")
(let ((name (buffer-name))
(filename (buffer-file-name)))
(unless filename
(error "Buffer '%s' is not visiting a file!" name))
(progn
(when (file-exists-p filename)
(rename-file filename new-name 1))
(set-visited-file-name new-name)
(rename-buffer new-name)))))
;; Browse current HTML file
(defun browse-current-file ()
"Open the current file as a URL using `browse-url'."
(interactive)
(let ((file-name (buffer-file-name)))
(if (and (fboundp 'tramp-tramp-file-p)
(tramp-tramp-file-p file-name))
(error "Cannot open tramp file")
(browse-url (concat "file://" file-name)))))
(provide 'init-utils)
;;; init-utils.el ends here
================================================
FILE: lisp/init-vc.el
================================================
;;; init-vc.el --- Version control support -*- lexical-binding: t -*-
;;; Commentary:
;; Most version control packages are configured separately: see
;; init-git.el, for example.
;;; Code:
(when (maybe-require-package 'diff-hl)
(add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh)
(add-hook 'after-init-hook 'global-diff-hl-mode)
(with-eval-after-load 'diff-hl
(define-key diff-hl-mode-map (kbd "<left-fringe> <mouse-1>") 'diff-hl-diff-goto-hunk)
(define-key diff-hl-mode-map (kbd "M-C-]") 'diff-hl-next-hunk)
(define-key diff-hl-mode-map (kbd "M-C-[") 'diff-hl-previous-hunk)))
(provide 'init-vc)
;;; init-vc.el ends here
================================================
FILE: lisp/init-whitespace.el
================================================
;;; init-whitespace.el --- Special handling for whitespace -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(setq-default show-trailing-whitespace nil)
;;; Whitespace
(defun sanityinc/show-trailing-whitespace ()
"Enable display of trailing whitespace in this buffer."
(setq-local show-trailing-whitespace t))
(dolist (hook '(prog-mode-hook text-mode-hook conf-mode-hook))
(add-hook hook 'sanityinc/show-trailing-whitespace))
(require-package 'whitespace-cleanup-mode)
(add-hook 'after-init-hook 'global-whitespace-cleanup-mode)
(with-eval-after-load 'whitespace-cleanup-mode
(diminish 'whitespace-cleanup-mode))
(global-set-key [remap just-one-space] 'cycle-spacing)
(provide 'init-whitespace)
;;; init-whitespace.el ends here
================================================
FILE: lisp/init-windows.el
================================================
;;; init-windows.el --- Working with windows within frames -*- lexical-binding: t -*-
;;; Commentary:
;; This is not about the "Windows" OS, but rather Emacs's "windows"
;; concept: these are the panels within an Emacs frame which contain
;; buffers.
;;; Code:
;; Navigate window layouts with "C-c <left>" and "C-c <right>"
(add-hook 'after-init-hook 'winner-mode)
;; Make "C-x o" prompt for a target window when there are more than 2
(require-package 'switch-window)
(setq-default switch-window-shortcut-style 'qwerty)
(setq-default switch-window-timeout nil)
(global-set-key (kbd "C-x o") 'switch-window)
;; When splitting window, show (other-buffer) in the new window
(defun split-window-func-with-other-buffer (split-function)
(lambda (&optional arg)
"Split this window and switch to the new window unless ARG is provided."
(interactive "P")
(funcall split-function)
(let ((target-window (next-window)))
(set-window-buffer target-window (other-buffer))
(unless arg
(select-window target-window)))))
(global-set-key (kbd "C-x 2") (split-window-func-with-other-buffer 'split-window-vertically))
(global-set-key (kbd "C-x 3") (split-window-func-with-other-buffer 'split-window-horizontally))
(defun sanityinc/toggle-delete-other-windows ()
"Delete other windows in frame if any, or restore previous window config."
(interactive)
(if (and winner-mode
(equal (selected-window) (next-window)))
(winner-undo)
(delete-other-windows)))
(global-set-key (kbd "C-x 1") 'sanityinc/toggle-delete-other-windows)
;; Rearrange split windows
(defun split-window-horizontally-instead ()
"Kill any other windows and re-split such that the current window is on the top half of the frame."
(interactive)
(let ((other-buffer (and (next-window) (window-buffer (next-window)))))
(delete-other-windows)
(split-window-horizontally)
(when other-buffer
(set-window-buffer (next-window) other-buffer))))
(defun split-window-vertically-instead ()
"Kill any other windows and re-split such that the current window is on the left half of the frame."
(interactive)
(let ((other-buffer (and (next-window) (window-buffer (next-window)))))
(delete-other-windows)
(split-window-vertically)
(when other-buffer
(set-window-buffer (next-window) other-buffer))))
(global-set-key (kbd "C-x |") 'split-window-horizontally-instead)
(global-set-key (kbd "C-x _") 'split-window-vertically-instead)
;; Borrowed from http://postmomentum.ch/blog/201304/blog-on-emacs
(defun sanityinc/split-window()
"Split the window to see the most recent buffer in the other window.
Call a second time to restore the original window configuration."
(interactive)
(if (eq last-command 'sanityinc/split-window)
(progn
(jump-to-register :sanityinc/split-window)
(setq this-command 'sanityinc/unsplit-window))
(window-configuration-to-register :sanityinc/split-window)
(switch-to-buffer-other-window nil)))
(global-set-key (kbd "<f7>") 'sanityinc/split-window)
(defun sanityinc/toggle-current-window-dedication ()
"Toggle whether the current window is dedicated to its current buffer."
(interactive)
(let* ((window (selected-window))
(was-dedicated (window-dedicated-p window)))
(set-window-dedicated-p window (not was-dedicated))
(message "Window %sdedicated to %s"
(if was-dedicated "no longer " "")
(buffer-name))))
(global-set-key (kbd "C-c <down>") 'sanityinc/toggle-current-window-dedication)
(unless (memq window-system '(nt w32))
(require-package 'windswap)
(add-hook 'after-init-hook (apply-partially 'windmove-default-keybindings 'control))
(add-hook 'after-init-hook (apply-partially 'windswap-default-keybindings 'shift 'control)))
(provide 'init-windows)
;;; init-windows.el ends here
================================================
FILE: lisp/init-xterm.el
================================================
;;; init-xterm.el --- Integrate with terminals such as xterm -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require 'init-frame-hooks)
(global-set-key [mouse-4] (lambda () (interactive) (scroll-down 1)))
(global-set-key [mouse-5] (lambda () (interactive) (scroll-up 1)))
(autoload 'mwheel-install "mwheel")
(defun sanityinc/console-frame-setup ()
(xterm-mouse-mode 1) ; Mouse in a terminal (Use shift to paste with middle button)
(mwheel-install))
(add-hook 'after-make-console-frame-hooks 'sanityinc/console-frame-setup)
(provide 'init-xterm)
;;; init-xterm.el ends here
================================================
FILE: lisp/init-yaml.el
================================================
;;; init-yaml.el --- Support Yaml files -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(when (maybe-require-package 'yaml-mode)
(add-auto-mode 'yaml-mode "\\.yml\\.erb\\'")
(add-hook 'yaml-mode-hook 'goto-address-prog-mode))
(provide 'init-yaml)
;;; init-yaml.el ends here
================================================
FILE: lisp/init-zig.el
================================================
;;; init-zig.el --- Support for the Zig language -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(if (and (maybe-require-package 'zig-ts-mode)
(fboundp 'treesit-ready-p) (treesit-ready-p 'zig))
(progn
(add-to-list 'auto-mode-alist '("\\.\\(zig\\|zon\\)\\'" . zig-ts-mode))
(with-eval-after-load 'eglot
(add-to-list 'eglot-server-programs '(zig-ts-mode . ("zls")))))
(require-package 'zig-mode))
(provide 'init-zig)
;;; init-zig.el ends here
================================================
FILE: site-lisp/README
================================================
This is a place for 3rd party code which isn't available in MELPA or
other package repositories. This directory and its immediate subdirectories
will be added to load-path at start-up time.
================================================
FILE: test-startup.sh
================================================
#!/bin/sh -e
echo "Attempting startup..."
${EMACS:=emacs} -nw --batch \
--eval '(progn
(defvar url-show-status)
(let ((debug-on-error t)
(url-show-status nil)
(user-emacs-directory default-directory)
(user-init-file (expand-file-name "init.el"))
(load-path (delq default-directory load-path)))
(setq package-check-signature nil)
(load-file user-init-file)
(run-hooks (quote after-init-hook))))'
echo "Startup successful"
gitextract_hfl5c9h3/ ├── .agignore ├── .dir-locals.el ├── .github/ │ ├── FUNDING.yml │ ├── dependabot.yml │ └── workflows/ │ └── test.yml ├── .gitignore ├── LICENSE ├── README.md ├── early-init.el ├── init.el ├── lisp/ │ ├── .dir-locals.el │ ├── init-benchmarking.el │ ├── init-clojure-cider.el │ ├── init-clojure.el │ ├── init-compile.el │ ├── init-corfu.el │ ├── init-crontab.el │ ├── init-css.el │ ├── init-csv.el │ ├── init-darcs.el │ ├── init-dash.el │ ├── init-dired.el │ ├── init-direnv.el │ ├── init-docker.el │ ├── init-editing-utils.el │ ├── init-eglot.el │ ├── init-elm.el │ ├── init-elpa.el │ ├── init-erlang.el │ ├── init-exec-path.el │ ├── init-flymake.el │ ├── init-folding.el │ ├── init-frame-hooks.el │ ├── init-git.el │ ├── init-github.el │ ├── init-grep.el │ ├── init-gui-frames.el │ ├── init-haml.el │ ├── init-haskell.el │ ├── init-hippie-expand.el │ ├── init-html.el │ ├── init-http.el │ ├── init-ibuffer.el │ ├── init-isearch.el │ ├── init-j.el │ ├── init-javascript.el │ ├── init-ledger.el │ ├── init-lisp.el │ ├── init-locales.el │ ├── init-lua.el │ ├── init-markdown.el │ ├── init-minibuffer.el │ ├── init-misc.el │ ├── init-mmm.el │ ├── init-nim.el │ ├── init-nix.el │ ├── init-nxml.el │ ├── init-ocaml.el │ ├── init-org.el │ ├── init-osx-keys.el │ ├── init-paredit.el │ ├── init-php.el │ ├── init-projectile.el │ ├── init-purescript.el │ ├── init-python.el │ ├── init-rails.el │ ├── init-recentf.el │ ├── init-ruby.el │ ├── init-rust.el │ ├── init-sessions.el │ ├── init-site-lisp.el │ ├── init-sly.el │ ├── init-spelling.el │ ├── init-sql.el │ ├── init-terminals.el │ ├── init-terraform.el │ ├── init-textile.el │ ├── init-themes.el │ ├── init-toml.el │ ├── init-treesitter.el │ ├── init-uiua.el │ ├── init-uniquify.el │ ├── init-utils.el │ ├── init-vc.el │ ├── init-whitespace.el │ ├── init-windows.el │ ├── init-xterm.el │ ├── init-yaml.el │ └── init-zig.el ├── site-lisp/ │ └── README └── test-startup.sh
Condensed preview — 91 files, each showing path, character count, and a content snippet. Download the .json file or copy for the full structured content (148K chars).
[
{
"path": ".agignore",
"chars": 16,
"preview": "archive-contents"
},
{
"path": ".dir-locals.el",
"chars": 144,
"preview": ";;; Directory Local Variables\n;;; For more information see (info \"(emacs) Directory Variables\")\n\n((emacs-lisp-mode\n (in"
},
{
"path": ".github/FUNDING.yml",
"chars": 19,
"preview": "patreon: sanityinc\n"
},
{
"path": ".github/dependabot.yml",
"chars": 195,
"preview": "version: 2\nupdates:\n- package-ecosystem: github-actions\n directory: \"/\"\n schedule:\n interval: daily\n open-pull-req"
},
{
"path": ".github/workflows/test.yml",
"chars": 659,
"preview": "name: CI\n\non:\n pull_request:\n push:\n paths-ignore:\n - '**.md'\n\njobs:\n build:\n runs-on: ubuntu-latest\n con"
},
{
"path": ".gitignore",
"chars": 718,
"preview": "/url/cache\n/.emacs.desktop\n/auto-save-list\n/network-security.data\n/.session\n/session.*\n/custom.el\n*.elc\nCVS\n.svn\n*~\n.cvs"
},
{
"path": "LICENSE",
"chars": 1304,
"preview": "Copyright (c) 2006-2021, Steve Purcell\nAll rights reserved.\n\nRedistribution and use in source and binary forms, with or "
},
{
"path": "README.md",
"chars": 4558,
"preview": "[](https://github.com/purcell/emacs.d/actions)"
},
{
"path": "early-init.el",
"chars": 412,
"preview": ";;; early-init.el --- Emacs 27+ pre-initialisation config\n\n;;; Commentary:\n\n;; Emacs 27+ loads this file before (normall"
},
{
"path": "init.el",
"chars": 5195,
"preview": ";;; init.el --- Load the full configuration -*- lexical-binding: t -*-\n;;; Commentary:\n\n;; This file bootstraps the conf"
},
{
"path": "lisp/.dir-locals.el",
"chars": 141,
"preview": ";;; Directory Local Variables\n;;; For more information see (info \"(emacs) Directory Variables\")\n\n((emacs-lisp-mode\n (no"
},
{
"path": "lisp/init-benchmarking.el",
"chars": 3004,
"preview": ";;; init-benchmarking.el --- Measure startup and require times -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(de"
},
{
"path": "lisp/init-clojure-cider.el",
"chars": 646,
"preview": ";;; init-clojure-cider.el --- Cider support for clojure -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(require '"
},
{
"path": "lisp/init-clojure.el",
"chars": 462,
"preview": ";;; init-clojure.el --- Clojure support -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n;; See also init-clojure-c"
},
{
"path": "lisp/init-compile.el",
"chars": 2554,
"preview": ";;; init-compile.el --- Helpers for M-x compile -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(setq-default comp"
},
{
"path": "lisp/init-corfu.el",
"chars": 1244,
"preview": ";;; init-corfu.el --- Interactive completion in buffers -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n;; WAITING"
},
{
"path": "lisp/init-crontab.el",
"chars": 241,
"preview": ";;; init-crontab.el --- Working with crontabs -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(require-package 'cr"
},
{
"path": "lisp/init-css.el",
"chars": 1701,
"preview": ";;; init-css.el --- CSS/Less/SASS/SCSS support -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n;;; Colourise CSS c"
},
{
"path": "lisp/init-csv.el",
"chars": 265,
"preview": ";;; init-csv.el --- CSV files -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when (maybe-require-package 'csv-mo"
},
{
"path": "lisp/init-darcs.el",
"chars": 416,
"preview": ";;; init-darcs.el --- Support for the Darcs DVCS -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(require-package "
},
{
"path": "lisp/init-dash.el",
"chars": 324,
"preview": ";;; init-dash.el --- Integrate with the Mac app \"Dash\" -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n;; Support "
},
{
"path": "lisp/init-dired.el",
"chars": 959,
"preview": ";;; init-dired.el --- Dired customisations -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(setq-default dired-dwi"
},
{
"path": "lisp/init-direnv.el",
"chars": 337,
"preview": ";;; init-direnv.el --- Integrate with direnv -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when (maybe-require-"
},
{
"path": "lisp/init-docker.el",
"chars": 536,
"preview": ";;; init-docker.el --- Work with Docker and its tools -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when (maybe"
},
{
"path": "lisp/init-editing-utils.el",
"chars": 7904,
"preview": ";;; init-editing-utils.el --- Day-to-day editing helpers -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(require-"
},
{
"path": "lisp/init-eglot.el",
"chars": 345,
"preview": ";;; init-eglot.el --- LSP support via eglot -*- lexical-binding: t; -*-\n\n;;; Commentary:\n\n;;; Code:\n\n(when (may"
},
{
"path": "lisp/init-elm.el",
"chars": 385,
"preview": ";;; init-elm.el --- Support for the Elm language -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when (maybe-requ"
},
{
"path": "lisp/init-elpa.el",
"chars": 5410,
"preview": ";;; init-elpa.el --- Settings and helpers for package.el -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(require "
},
{
"path": "lisp/init-erlang.el",
"chars": 228,
"preview": ";;; init-erlang.el --- Support for the Erlang language -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when (mayb"
},
{
"path": "lisp/init-exec-path.el",
"chars": 612,
"preview": ";;; init-exec-path.el --- Set up exec-path to help Emacs find programs -*- lexical-binding: t -*-\n;;; Commentary:\n;;; C"
},
{
"path": "lisp/init-flymake.el",
"chars": 1407,
"preview": ";;; init-flymake.el --- Configure Flymake global behaviour -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(maybe-"
},
{
"path": "lisp/init-folding.el",
"chars": 395,
"preview": ";;; init-folding.el --- Support code and region folding -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when (may"
},
{
"path": "lisp/init-frame-hooks.el",
"chars": 1108,
"preview": ";;; init-frame-hooks.el --- Provide specific hooks for GUI/TTY frame creation -*- lexical-binding: t -*-\n;;; Commentary:"
},
{
"path": "lisp/init-git.el",
"chars": 3050,
"preview": ";;; init-git.el --- Git SCM support -*- lexical-binding: t -*-\n;;; Commentary:\n\n;; See also init-github.el.\n\n;;; Code:\n\n"
},
{
"path": "lisp/init-github.el",
"chars": 534,
"preview": ";;; init-github.el --- Github integration -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(require 'init-git)\n\n(ma"
},
{
"path": "lisp/init-grep.el",
"chars": 586,
"preview": ";;; init-grep.el --- Settings for grep and grep-like tools -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(setq-d"
},
{
"path": "lisp/init-gui-frames.el",
"chars": 2748,
"preview": ";;; init-gui-frames.el --- Behaviour specific to non-TTY frames -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n\f\n"
},
{
"path": "lisp/init-haml.el",
"chars": 262,
"preview": ";;; init-haml.el --- Haml template support -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(require-package 'haml-"
},
{
"path": "lisp/init-haskell.el",
"chars": 1136,
"preview": ";;; init-haskell.el --- Support the Haskell language -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when (maybe-"
},
{
"path": "lisp/init-hippie-expand.el",
"chars": 439,
"preview": ";;; init-hippie-expand.el --- Settings for hippie-expand -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(global-s"
},
{
"path": "lisp/init-html.el",
"chars": 494,
"preview": ";;; init-html.el --- Editing HTML -*- lexical-binding: t -*-\n;;; Commentary:\n\n;; ERB is configured separately in init-ru"
},
{
"path": "lisp/init-http.el",
"chars": 776,
"preview": ";;; init-http.el --- Work with HTTP APIs -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(maybe-require-package 'h"
},
{
"path": "lisp/init-ibuffer.el",
"chars": 1606,
"preview": ";;; init-ibuffer.el --- ibuffer settings -*- lexical-binding: t -*-\n;;; Commentary:\n\n;; TODO: enhance ibuffer-fontificat"
},
{
"path": "lisp/init-isearch.el",
"chars": 2102,
"preview": ";;; init-isearch.el --- isearch settings -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n;; Show number of matches"
},
{
"path": "lisp/init-j.el",
"chars": 287,
"preview": ";;; init-j.el --- Basic support for programming in J -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(require-pack"
},
{
"path": "lisp/init-javascript.el",
"chars": 2939,
"preview": ";;; init-javascript.el --- Support for Javascript and derivatives -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n"
},
{
"path": "lisp/init-ledger.el",
"chars": 845,
"preview": ";;; init-ledger.el --- Support for the ledger CLI accounting tool -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n"
},
{
"path": "lisp/init-lisp.el",
"chars": 9424,
"preview": ";;; init-lisp.el --- Emacs lisp settings, and common config for other lisps -*- lexical-binding: t -*-\n;;; Commentary:\n;"
},
{
"path": "lisp/init-locales.el",
"chars": 965,
"preview": ";;; init-locales.el --- Configure default locale -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(defun sanityinc/"
},
{
"path": "lisp/init-lua.el",
"chars": 336,
"preview": ";;; init-lua.el --- Support for Lua programming -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(require-package '"
},
{
"path": "lisp/init-markdown.el",
"chars": 372,
"preview": ";;; init-markdown.el --- Markdown support -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when (maybe-require-pac"
},
{
"path": "lisp/init-minibuffer.el",
"chars": 2233,
"preview": ";;; init-minibuffer.el --- Config for minibuffer completion -*- lexical-binding: t; -*-\n;;; Commentary:\n;;; Code:\n"
},
{
"path": "lisp/init-misc.el",
"chars": 1625,
"preview": ";;; init-misc.el --- Miscellaneous config -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n\f\n;; Misc config - yet t"
},
{
"path": "lisp/init-mmm.el",
"chars": 290,
"preview": ";;; init-mmm.el --- Multiple Major Modes support -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(require-package "
},
{
"path": "lisp/init-nim.el",
"chars": 342,
"preview": ";;; init-nim.el --- Nim programming support -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when (maybe-require-p"
},
{
"path": "lisp/init-nix.el",
"chars": 698,
"preview": ";;; init-nix.el --- Support for the Nix package manager -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(if (maybe"
},
{
"path": "lisp/init-nxml.el",
"chars": 1565,
"preview": ";;; init-nxml.el --- Support for editing XML with NXML -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(add-auto-m"
},
{
"path": "lisp/init-ocaml.el",
"chars": 1663,
"preview": ";;; init-ocaml.el --- Support the OCaml language -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when (maybe-requ"
},
{
"path": "lisp/init-org.el",
"chars": 14259,
"preview": ";;; init-org.el --- Org-mode config -*- lexical-binding: t -*-\n;;; Commentary:\n\n;; Among settings for many aspects of `o"
},
{
"path": "lisp/init-osx-keys.el",
"chars": 962,
"preview": ";;; init-osx-keys.el --- Configure keys specific to MacOS -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when *i"
},
{
"path": "lisp/init-paredit.el",
"chars": 2362,
"preview": ";;; init-paredit.el --- Configure paredit structured editing -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(requ"
},
{
"path": "lisp/init-php.el",
"chars": 230,
"preview": ";;; init-php.el --- Support for working with PHP -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when (maybe-requ"
},
{
"path": "lisp/init-projectile.el",
"chars": 619,
"preview": ";;; init-projectile.el --- Use Projectile for navigation within projects -*- lexical-binding: t -*-\n;;; Commentary:\n;;; "
},
{
"path": "lisp/init-purescript.el",
"chars": 1300,
"preview": ";;; init-purescript.el --- Support the Purescript language -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when ("
},
{
"path": "lisp/init-python.el",
"chars": 1803,
"preview": ";;; init-python.el --- Python editing -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n;; I use nix + direnv instea"
},
{
"path": "lisp/init-rails.el",
"chars": 305,
"preview": ";;; init-rails.el --- Ruby on Rails support -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when (maybe-require-p"
},
{
"path": "lisp/init-recentf.el",
"chars": 343,
"preview": ";;; init-recentf.el --- Settings for tracking recent files -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(add-ho"
},
{
"path": "lisp/init-ruby.el",
"chars": 3438,
"preview": ";;; init-ruby.el --- Support for the Ruby language -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n;;; Basic ruby "
},
{
"path": "lisp/init-rust.el",
"chars": 341,
"preview": ";;; init-rust.el --- Support for the Rust language -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when (maybe-re"
},
{
"path": "lisp/init-sessions.el",
"chars": 2655,
"preview": ";;; init-sessions.el --- Save and restore editor sessions between restarts -*- lexical-binding: t -*-\n;;; Commentary:\n;;"
},
{
"path": "lisp/init-site-lisp.el",
"chars": 1848,
"preview": ";;; init-site-lisp.el --- Support elisp manually installed in the site-lisp dir -*- lexical-binding: t -*-\n;;; Commentar"
},
{
"path": "lisp/init-sly.el",
"chars": 989,
"preview": ";;; init-sly.el --- Sly support for Common Lisp -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(require-package '"
},
{
"path": "lisp/init-spelling.el",
"chars": 488,
"preview": ";;; init-spelling.el --- Spell check settings -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(require 'ispell)\n\n("
},
{
"path": "lisp/init-sql.el",
"chars": 4553,
"preview": ";;; init-sql.el --- Support for SQL -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(with-eval-after-load 'sql\n ;"
},
{
"path": "lisp/init-terminals.el",
"chars": 1385,
"preview": ";;; init-terminals.el --- Terminal emulators -*- lexical-binding: t; -*-\n\n;;; Commentary:\n\n;;; Code:\n\n(when (ma"
},
{
"path": "lisp/init-terraform.el",
"chars": 602,
"preview": ";;; init-terraform.el --- Work with Terraform configurations -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n;;; T"
},
{
"path": "lisp/init-textile.el",
"chars": 273,
"preview": ";;; init-textile.el --- Edit Textile markup -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(require-package 'text"
},
{
"path": "lisp/init-themes.el",
"chars": 1878,
"preview": ";;; init-themes.el --- Defaults for themes -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(require-package 'color"
},
{
"path": "lisp/init-toml.el",
"chars": 179,
"preview": ";;; init-toml.el --- Support TOML files -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(maybe-require-package 'to"
},
{
"path": "lisp/init-treesitter.el",
"chars": 3615,
"preview": ";;; init-treesitter.el --- Enable Treesitter-based major modes -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n;; "
},
{
"path": "lisp/init-uiua.el",
"chars": 401,
"preview": ";;; init-uiua.el --- Support for the Uiua programming language -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(or"
},
{
"path": "lisp/init-uniquify.el",
"chars": 411,
"preview": ";;; init-uniquify.el --- Configure uniquification of buffer names -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n"
},
{
"path": "lisp/init-utils.el",
"chars": 4071,
"preview": ";;; init-utils.el --- Elisp helper functions and commands -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(defun s"
},
{
"path": "lisp/init-vc.el",
"chars": 657,
"preview": ";;; init-vc.el --- Version control support -*- lexical-binding: t -*-\n;;; Commentary:\n\n;; Most version control packages "
},
{
"path": "lisp/init-whitespace.el",
"chars": 750,
"preview": ";;; init-whitespace.el --- Special handling for whitespace -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(setq-d"
},
{
"path": "lisp/init-windows.el",
"chars": 3876,
"preview": ";;; init-windows.el --- Working with windows within frames -*- lexical-binding: t -*-\n;;; Commentary:\n\n;; This is not ab"
},
{
"path": "lisp/init-xterm.el",
"chars": 591,
"preview": ";;; init-xterm.el --- Integrate with terminals such as xterm -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(requ"
},
{
"path": "lisp/init-yaml.el",
"chars": 286,
"preview": ";;; init-yaml.el --- Support Yaml files -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(when (maybe-require-packa"
},
{
"path": "lisp/init-zig.el",
"chars": 484,
"preview": ";;; init-zig.el --- Support for the Zig language -*- lexical-binding: t -*-\n;;; Commentary:\n;;; Code:\n\n(if (and (maybe-r"
},
{
"path": "site-lisp/README",
"chars": 190,
"preview": "This is a place for 3rd party code which isn't available in MELPA or\nother package repositories. This directory and its "
},
{
"path": "test-startup.sh",
"chars": 686,
"preview": "#!/bin/sh -e\necho \"Attempting startup...\"\n${EMACS:=emacs} -nw --batch \\\n --eval '(progn\n "
}
]
About this extraction
This page contains the full source code of the purcell/emacs.d GitHub repository, extracted and formatted as plain text for AI agents and large language models (LLMs). The extraction includes 91 files (134.8 KB), approximately 38.3k tokens. Use this with OpenClaw, Claude, ChatGPT, Cursor, Windsurf, or any other AI tool that accepts text input. You can copy the full output to your clipboard or download it as a .txt file.
Extracted by GitExtract — free GitHub repo to text converter for AI. Built by Nikandr Surkov.