1
dot-emacs/init.el

1735 lines
67 KiB
EmacsLisp

;;; init.el --- Emacs configuration file -*- lexical-binding: t; -*-
;;
;; Author: Jessie Hildebrandt <jessieh.net>
;; Homepage: https://gitlab.com/jessieh/dot-emacs
;; Package-Requires: ((emacs "29.1"))
;;
;; This file is not part of GNU Emacs.
;;; Commentary:
;;
;; jessieh's (Mostly) Portable Emacs Config
;;
;; This configuration file was designed to work with Emacs 29.1, and will not
;; work with earlier versions. You should probably have native-comp enabled.
;;
;; This file will automatically generate an early-init.el file upon first run,
;; or if early-init.el is missing.
;;
;; All configuration efforts here are organized around the use of wrapped
;; `use-package' macros. The keyword order for any config entry should be:
;; - preface
;; - if/when/unless
;; - demand
;; - after
;; - requires
;; - defines/functions
;; - init/config
;; - custom/custom-faces
;; - commands
;; - hook/interpreter/mode
;; - bind/bind*/bind-keymap/bind-keymap*
;;
;; Custom functions and variables should generally be prefixed with "user/".
;; This prefix is purposely nonidiomatic so as to avoid collisions with any
;; package prefixes, inbuilt or otherwise.
;;; License:
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
;; Floor, Boston, MA 02110-1301, USA.
;;; Code:
;; -------------------------------------------------------------------------- ;;
;;
;; Startup
;;
;; -------------------------------------------------------------------------- ;;
(defconst user/init-file (locate-user-emacs-file "init.el") "Location of user init file.")
(defconst user/early-init-file (locate-user-emacs-file "early-init.el") "Location of user early-init file.")
;; ---------------------------------- ;;
;; early-init.el file creation
;; ---------------------------------- ;;
(defvar user/early-init-forms
`(";;; early-init.el --- Early initialization -*- lexical-binding: t; -*-"
";; This file is not part of GNU Emacs."
";;; Commentary:"
";; This file has been automatically generated by init.el."
";; More relevant commentary is likely in init.el."
";;; Code:"
(defconst user/default-gc-cons-threshold gc-cons-threshold)
(defconst user/default-gc-cons-percentage gc-cons-percentage)
(defun user/defer-garbage-collection ()
"Defer garbage collection by maximizing the collection threshold."
(setq gc-cons-threshold most-positive-fixnum
gc-cons-percentage 1.0))
(defun user/restore-garbage-collection ()
"Restore the garbage collection threshold parameters to their default values."
(setq gc-cons-threshold user/default-gc-cons-threshold
gc-cons-percentage user/default-gc-cons-percentage))
";; Defer garbage collection until after initialization"
(user/defer-garbage-collection)
(add-hook 'emacs-startup-hook #'user/restore-garbage-collection)
";; Clear `file-name-handler-alist' until after initialization"
(let ((user/file-name-handler-alist file-name-handler-alist))
(setq file-name-handler-alist nil)
(add-hook 'emacs-startup-hook (lambda () (setq file-name-handler-alist user/file-name-handler-alist))))
";; Configure GUI components before initial frame creation"
(setq font-use-system-font t
pgtk-wait-for-event-timeout 0
frame-inhibit-implied-resize t
default-frame-alist '((width . 100)
(height . 40)
(menu-bar-lines . 0)
(tool-bar-lines . 0)
(vertical-scroll-bars . nil)
(background-color . "gray15")
(foreground-color . "gray85")))
";; Prevent system-provided configuration files from loading"
(setq site-run-file nil
inhibit-default-init t)
";; package.el initialization is handled manually in init.el"
(setq package-enable-at-startup nil)
";;; init.el ends here")
"List of forms that are written to the user early-init file.")
(defun user/write-forms-to-file (forms file)
"Format and pretty-print list FORMS to FILE."
(with-temp-file file
(mapcar (lambda (form)
(insert (if (stringp form)
(prin1-to-string form :no-escape)
(pp-to-string form))
"\n"))
forms)))
;; Create (and load) early-init file if it does not yet exist, or if this file
;; is currently being recompiled. We recreate early-init.el during compilation
;; in case `user/early-init-forms' has been changed
(unless (file-exists-p user/early-init-file)
(user/write-forms-to-file user/early-init-forms user/early-init-file)
(load user/early-init-file nil nil :no-suffix))
;; Make sure that the user init files are byte-compiled.
(when (file-newer-than-file-p user/early-init-file (concat user/early-init-file "c"))
(byte-compile-file user/early-init-file))
(when (file-newer-than-file-p user/init-file (concat user/init-file "c"))
(byte-compile-file user/init-file))
;; ---------------------------------- ;;
;; Package manager initialization
;; ---------------------------------- ;;
;; To be evaluated at both compile time and run time
(eval-and-compile
(setq package-user-dir (locate-user-emacs-file "packages/")
package-native-compile t
package-check-signature nil
use-package-hook-name-suffix nil
use-package-always-demand (daemonp)
native-comp-compiler-options "-march=native -flto"))
;; To be evaluated only at compile time
(eval-when-compile
;; Initialize package.el
(require 'package)
(require 'use-package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(unless (bound-and-true-p package--initialized)
(package-initialize))
(package-refresh-contents)
;; After initialization, build quickstart file containing package autoload defs
;; and compile it alongside any other uncompiled Elisp files in installed packages
(add-hook 'emacs-startup-hook (lambda ()
(let ((byte-compile-warnings nil))
(byte-recompile-directory package-user-dir 0)
(package-quickstart-refresh)))))
;; Load "package-quickstart.el" file containing package autoload defs with a
;; call to `package-activate-all'. This is must be done to load any installed
;; packages during initialization outside of compile time because we won't have
;; called `package-initialize'. We also require `bind-key' here, which the
;; compiled `use-package' macros still rely on for handling keybinds
(unless (bound-and-true-p package--initialized)
(package-activate-all)
(require 'bind-key))
;; -------------------------------------------------------------------------- ;;
;;
;; User commands
;;
;; -------------------------------------------------------------------------- ;;
(defun user/open-init-file ()
"Open the user init file in a new buffer."
(interactive)
(find-file user/init-file))
(defun user/byte-compile-init-files ()
"Byte-compile the user init and early-init files."
(interactive)
(message "Byte-compiling init and early-init file...")
(byte-compile-file user/init-file)
(byte-compile-file user/early-init-file))
(defun user/refresh-packages ()
"Refresh packages that have been configured for use in the user init file.
This is accomplished by deleting `package-user-dir' and recompiling the user
init file, which initializes the package manager during compile time."
(interactive)
(when (yes-or-no-p "Redownload and refresh packages? ")
(message "Refreshing packages...")
(delete-directory package-user-dir :recursive)
(user/byte-compile-init-files)))
;; -------------------------------------------------------------------------- ;;
;;
;; Internal/built-in packages
;;
;; -------------------------------------------------------------------------- ;;
(defmacro editor-feature (name docstring &rest args)
"Apply NAME and ARGS to `use-package' with `:ensure' defaulted to nil.
DOCSTRING is an optional form that is discarded upon expansion."
(declare (doc-string 2)
(indent defun))
(ignore docstring)
`(use-package ,name :ensure nil ,@args))
;; ---------------------------------- ;;
;; emacs
;; ---------------------------------- ;;
(editor-feature emacs
"Provides an extensible, customizable, self-documenting real-time display editor."
:preface
(defconst user/load-directory (locate-user-emacs-file "load/") "Location of extra user Lisp files.")
(defun user/indent-buffer ()
"Call `indent-region' on the contents of the active buffer."
(interactive)
(indent-region (point-min) (point-max)))
(defun user/select-minibuffer-window ()
"Select the minibuffer window if it is active."
(interactive)
(when (active-minibuffer-window)
(select-window (active-minibuffer-window))))
(defun user/scratch-buffer ()
"Open the scratch buffer, (re)creating it if not present."
(interactive)
(pop-to-buffer (get-scratch-buffer-create)))
(defun user/ensure-region-active (func &rest args)
"Apply ARGS to FUNC only if `region-active-p' is non-nil."
(when (region-active-p)
(apply func args)))
:init
;; Add user dir to `load-path'
(add-to-list 'load-path user/load-directory)
;; Use default system monospace and proportional fonts
(set-face-font 'fixed-pitch (font-get-system-font))
(set-face-font 'variable-pitch (font-get-system-normal-font))
:config
;; Override echo area greeting function
(defun display-startup-echo-area-message () (message ""))
:custom
;; Default working directory
(default-directory (if (eq system-type 'windows-nt)
(setq default-directory (getenv "USERPROFILE"))
(setq default-directory "~/")))
;; General configuration
(frame-title-format '("%b — Emacs") "Set frame title to buffer name")
(truncate-lines t "Truncate lines instead of wrapping")
(kill-whole-line t "Include newline character when killing a line")
(context-menu-mode t "Enable global context menu support")
(message-truncate-lines t "Truncate messages in the echo area")
(cursor-in-non-selected-windows nil "Hide cursor in inactive windows")
(ring-bell-function 'ignore "Disable terminal bell")
(line-spacing 0.20 "Add 20% extra space between lines")
(fill-column 80 "Set default line-wrap column to column 80")
(help-window-select t "Focus help windows after summoning them")
(max-mini-window-height 10 "Limit minibuffer height to 10 lines")
(tab-always-indent 'complete "Allow Tab key to indent current line or complete a symbol")
(enable-recursive-minibuffers t "Allow minibuffer commands to be called in the minibuffer")
(disabled-command-function nil "Enable invocation of all disabled interactive commands")
(use-system-tooltips t "Enable use of system tooltips in favor of Emacs tooltips")
;; Startup
(initial-scratch-message "" "Leave scratch buffer empty on startup")
(initial-major-mode 'fundamental-mode "Set initial mode to fundamental-mode on startup")
(inhibit-startup-screen t "Do not create or show the initial splash screen")
(inhibit-default-init t "Do not attempt to load any OS-provided init files")
;; Default style rules
(sentence-end-double-space nil "Do not use double spacing between sentences in paragraphs")
(require-final-newline t "Require a terminating newline at the end of every file")
(indent-tabs-mode nil "Use spaces for indentation")
(tab-width 4 "Use 4 spaces for indentation")
;; Scrolling
(mouse-wheel-progressive-speed nil "Disable mouse wheel acceleration during scrolling")
(scroll-preserve-screen-position 'always "Prevent the cursor from moving during scrolling")
(scroll-conservatively 101 "Scroll only one line at a time when cursor leaves view")
(scroll-margin 5 "Maintain margin of 5 lines around cursor during scrolling")
;; Performance tweaks
(redisplay-skip-fontification-on-input t "Improve redisplay performance while scrolling")
(fast-but-imprecise-scrolling t "Improve redisplay performance while scrolling")
(jit-lock-defer-time 0 "Defer fontification while input is pending")
(auto-window-vscroll nil "Prevent calcuation of arbitrary line heights while scrolling")
(auto-mode-case-fold nil "Disable case-insensitive second pass over `auto-mode-alist'")
;; Bidirectional text
(bidi-inhibit-bpa t "Disable parentheses matching for bidirectional text")
(bidi-display-reordering 'left-to-right "Force global left-to-right text direction")
(bidi-paragraph-direction 'left-to-right "Disable paragraph directionality detection")
;; Elisp compilation warnings
(native-comp-async-report-warnings-errors nil "Don't report errors from async native compilation")
(byte-compile-warnings '(not lexical
free-vars
noruntime
unresolved
docstrings))
;; Filter out buffer-incompatible interactive commands by default
(read-extended-command-predicate #'command-completion-default-include-p)
:bind
;; General binds
("C-z" . undo)
("C-x C-z" . nil)
("C-c \\" . user/indent-buffer)
;; Cursor navigation
("M-n" . scroll-up-line)
("M-p" . scroll-down-line)
("C-M-n" . forward-paragraph)
("C-M-p" . backward-paragraph)
:bind*
;; General binds
("C-c DEL" . fixup-whitespace)
("C-c d" . delete-pair)
("C-c ." . emoji-search)
("C-c i" . overwrite-mode)
("C-c v" . visual-line-mode)
("C-c r" . revert-buffer-quick)
("C-c f" . display-fill-column-indicator-mode)
("C-c o" . user/select-minibuffer-window)
("C-c s" . user/scratch-buffer)
("C-c m" . (lambda () (interactive) (message "%s is in %s" (buffer-name) major-mode)))
;; Window navigation
("C-c C-i" . windmove-up)
("C-c C-k" . windmove-down)
("C-c C-j" . windmove-left)
("C-c C-l" . windmove-right)
:hook
;; Defer garbage collection while the minibuffer is active
;; (Many interactive commands are memory-intensive and trigger many GC cycles)
(minibuffer-setup-hook . user/defer-garbage-collection)
(minibuffer-exit-hook . (lambda () (run-at-time 1 nil #'user/restore-garbage-collection))))
;; ---------------------------------- ;;
;; autorevert
;; ---------------------------------- ;;
(editor-feature autorevert
"Displays on-disk changes to files in unmodified buffers automatically."
:config
(global-auto-revert-mode))
;; ---------------------------------- ;;
;; c-ts-mode
;; ---------------------------------- ;;
(editor-feature c-ts-mode
"Major mode(s) for C and C++, using the Tree-sitter parsing library."
:preface
(defun user/c-ts-indent-style()
"Provide custom `c-ts-mode' indentation style."
`(;; Align function arguments to the start of the first one, offset if standalone
((match nil "argument_list" nil 1 1) parent-bol c-ts-mode-indent-offset)
((parent-is "argument_list") (nth-sibling 1) 0)
;; Ditto for parameters
((match nil "parameter_list" nil 1 1) parent-bol c-ts-mode-indent-offset)
((parent-is "parameter_list") (nth-sibling 1) 0)
;; Indent inside case blocks
((parent-is "case_statement") standalone-parent c-ts-mode-indent-offset)
;; Do not indent preprocessor statements or within namespaces
((node-is "preproc") column-0 0)
((n-p-gp nil nil "namespace_definition") grand-parent 0)
;; Append to BSD style
,@(alist-get 'bsd (c-ts-mode--indent-styles 'cpp))))
:custom
(c-ts-mode-indent-offset 2 "Use 2 spaces for indenting C and C++ code")
(c-ts-mode-indent-style #'user/c-ts-indent-style "Use custom indentation rules for C and C++")
:mode
("\\.cppm\\'" . c++-ts-mode))
;; ---------------------------------- ;;
;; compile
;; ---------------------------------- ;;
(editor-feature compile
"Provides shortcuts for running and parsing compiler output."
:hook
(compilation-filter-hook . ansi-color-compilation-filter))
;; ---------------------------------- ;;
;; display-line-numbers
;; ---------------------------------- ;;
(editor-feature display-line-numbers
"Displays the absolute number of each line in a buffer."
:custom
(display-line-numbers-grow-only t "Do not decrease the width of the line number column after it has grown")
(display-line-numbers-width-start 100 "Count number of lines (+100) in buffer for initial line number width")
:hook
(prog-mode-hook . (lambda ()
(unless (derived-mode-p 'lisp-interaction-mode)
(display-line-numbers-mode))))
:bind
("C-c n" . display-line-numbers-mode))
;; ---------------------------------- ;;
;; eglot
;; ---------------------------------- ;;
(editor-feature eglot
"Integrates LSP client features into Emacs."
:preface
(defun user/set-up-eglot ()
"Set up buffer-local variables for current eglot session."
(setq eldoc-documentation-functions '(flymake-eldoc-function
eglot-signature-eldoc-function
eglot-hover-eldoc-function))
(eglot-inlay-hints-mode -1))
:config
;; Remove the mode-line segment that Eglot adds
(setq mode-line-misc-info (assoc-delete-all 'eglot--managed-mode mode-line-misc-info))
:hook
(c-ts-base-mode-hook . eglot-ensure)
(js-ts-mode-hook . eglot-ensure)
(rust-ts-mode-hook . eglot-ensure)
(typescript-mode-hook . eglot-ensure)
(gdscript-mode-hook . eglot-ensure)
(eglot-managed-mode-hook . user/set-up-eglot)
:bind
(:map eglot-mode-map
("C-c \\" . eglot-format-buffer)
("C-c q" . eglot-code-action-quickfix)
("C-c C-q" . eglot-code-actions)))
;; ---------------------------------- ;;
;; elec-pair
;; ---------------------------------- ;;
(editor-feature elec-pair
"Enables automatic pairing of most paired delimiters."
:hook
(prog-mode-hook . electric-pair-local-mode))
;; ---------------------------------- ;;
;; eshell
;; ---------------------------------- ;;
(editor-feature eshell
"Provides a shell-like interpreter that can process shell or Lisp commands."
:preface
(defun user/open-eshell (&optional force-new-session)
"Focus the last active `eshell' session, or start a new one if none available.
When FORCE-NEW-SESSION is non-nil, a new session will be started even if there
is already an active session to bring into focus."
(interactive)
(let ((eshell-buffer (cl-find-if (lambda (buffer)
(eq (buffer-local-value 'major-mode buffer)
'eshell-mode))
(buffer-list))))
(if eshell-buffer
(if force-new-session
(let ((current-buffer-directory default-directory))
(pop-to-buffer eshell-buffer)
(let ((default-directory current-buffer-directory))
(eshell :new-session)))
(pop-to-buffer eshell-buffer))
(eshell))))
(defun user/auto-toggle-eshell-buffer-tabs ()
"Enable `tab-line-mode' in all `eshell-mode' buffers if multiple are open.
Also automatically disables `tab-line-mode' if all but one `eshell-mode' buffer
have been closed."
(let ((eshell-buffers (cl-remove-if-not (lambda (buffer)
(eq (buffer-local-value 'major-mode buffer)
'eshell-mode))
(buffer-list))))
(mapc (lambda (buffer)
(with-current-buffer buffer
(tab-line-mode (and (length< eshell-buffers 2) -1))))
eshell-buffers)))
(defun user/prettify-eshell-pwd (path)
"Return PATH formatted and with all but the last directory name abbreviated."
(let* ((components (split-string (abbreviate-file-name path) "/"))
(str ""))
(while (cdr components)
(setq str (concat str
(cond ((= 0 (length (car components)))
"/")
((= 1 (length (car components)))
(concat (car components) "/"))
(t
(if (string= "." (string (elt (car components) 0)))
(concat (substring (car components) 0 2) "/")
(string (elt (car components) 0) ?/)))))
components (cdr components)))
(concat (propertize str 'face 'font-lock-comment-face)
(propertize (cl-reduce (lambda (a b) (concat a "/" b))
components)
'face 'font-lock-doc-face))))
:custom
(eshell-prompt-regexp "^[^#❱\n]* [#❱] ")
(eshell-visual-commands '("fish" "bash"
"ssh" "mosh"
"fzf" "top" "htop" "less"))
(eshell-destroy-buffer-when-process-dies t "Destroys child buffers after their process returns")
(eshell-error-if-no-glob t "Produces an error if a glob pattern fails to match, like zsh")
(eshell-hist-ignoredups t "Treat multiple repeating history entries as a single entry")
(eshell-banner-message '(if (executable-find "fortune")
(shell-command-to-string "fortune -s computers")
"Hello, commander."))
(eshell-prompt-function (lambda () (concat "\n" (user/prettify-eshell-pwd (eshell/pwd))
(if (= (user-uid) 0) " # " ""))))
:hook
(eshell-post-command-hook . (lambda () (rename-buffer (concat eshell-buffer-name " "
(user/prettify-eshell-pwd (eshell/pwd)))
:unique)))
(eshell-mode-hook . (lambda () (setq-local global-hl-line-mode nil
tab-line-tabs-function #'tab-line-tabs-mode-buffers)))
(buffer-list-update-hook . user/auto-toggle-eshell-buffer-tabs)
:bind*
("C-c RET" . user/open-eshell)
("C-c C-<return>" . (lambda () (interactive) (user/open-eshell :force-new-session))))
;; `eshell-mode-map' is not available until the `esh-mode' module is loaded, so
;; the local keymap bindings are set up here
(editor-feature esh-mode
"Handles input from the user and provides `eshell-mode' for eshell."
:bind
(:map eshell-mode-map
("C-<return>" . eshell-copy-old-input)
("C-c j" . tab-line-switch-to-prev-tab)
("C-c l" . tab-line-switch-to-next-tab)))
;; `eshell-command-aliases-list' is not available until the `em-alias' module is loaded,
;; so the alias additions are set up here
(editor-feature em-alias
"Handles creation and management of command aliases for eshell."
:config
(eval-after-load 'em-alias (lambda () (add-to-list 'eshell-command-aliases-list '("lsl" "ls -lh $1")))))
;; ---------------------------------- ;;
;; files
;; ---------------------------------- ;;
(editor-feature files
"Defines most of Emacs' file-handling functionality."
:preface
(defconst user/custom-file (locate-user-emacs-file "custom.el") "Location of user customizations file.")
(defconst user/backup-directory (locate-user-emacs-file "backups/") "Location of user backup directory.")
(defconst user/auto-save-directory (locate-user-emacs-file "auto-saves/") "Location of user auto save directory.")
(defconst user/lock-file-directory (locate-user-emacs-file "lock-files/") "Location of user lock file directory.")
(make-directory user/backup-directory :parents)
(make-directory user/auto-save-directory :parents)
(make-directory user/lock-file-directory :parents)
:custom
(version-control t "Use version numbers on backup files")
(kept-new-versions 5 "Keep 5 recent backup files")
(kept-old-versions 3 "Keep 3 old backup files")
(delete-old-versions t "Clean up old backup files")
(backup-by-copying t "Use copying unconditionally when creating backups")
(custom-file user/custom-file "Store customization info in a separate file")
(backup-directory-alist `((".*" . ,user/backup-directory)) "Set backup directory location")
(auto-save-file-name-transforms `((".*" ,user/auto-save-directory t)) "Set auto save directory location")
(lock-file-name-transforms `((".*" ,user/lock-file-directory t)) "Set lock file directory location")
:hook
(before-save-hook . delete-trailing-whitespace))
;; ---------------------------------- ;;
;; flymake
;; ---------------------------------- ;;
(editor-feature flymake
"Provides universal on-the-fly syntax checking."
:config
(advice-add 'flymake-show-buffer-diagnostics :after (lambda () (pop-to-buffer (flymake--diagnostics-buffer-name))))
:hook
(prog-mode-hook . flymake-mode)
:bind
(:map flymake-mode-map
("C-c C-e" . flymake-show-buffer-diagnostics)))
;; ---------------------------------- ;;
;; frame
;; ---------------------------------- ;;
(editor-feature frame
"Graphical frame configuration."
:preface
(defvar user/initial-frame-created nil "Whether or not the first frame has been initialized by the server.")
(defvar user/after-daemon-make-initial-frame-hook nil "Run when the first frame is produced by the server in daemon mode.")
(defun user/set-up-frame (frame)
"Set up newly-created frame FRAME."
(when (and (daemonp)
(display-graphic-p frame)
(not user/initial-frame-created))
(with-selected-frame frame
(run-hooks 'user/after-daemon-make-initial-frame-hook)
(setq user/initial-frame-created t))))
:config
(mapc #'user/set-up-frame (frame-list))
:hook
(after-make-frame-functions . user/set-up-frame))
;; ---------------------------------- ;;
;; hl-line
;; ---------------------------------- ;;
(editor-feature hl-line
"Highlights the current line in a buffer."
:config
(global-hl-line-mode))
;; ---------------------------------- ;;
;; ispell
;; ---------------------------------- ;;
(editor-feature ispell
"Checks for spelling errors and suggests corrections from a dictionary."
:bind
("C-c ' '" . ispell)
("C-c ' w" . ispell-word)
("C-c ' r" . ispell-region)
("C-c ' b" . ispell-buffer)
("C-c ' ;" . ispell-comment-or-string-at-point)
("C-c ' C-;" . ispell-comments-and-strings))
;; ---------------------------------- ;;
;; paren
;; ---------------------------------- ;;
(editor-feature paren
"Highlights matching delimiter pairs under the cursor."
:custom
(show-paren-delay 0.0 "Highlight matching delimiters instantly")
(show-paren-context-when-offscreen t "Show context of matching off-screen delimiters")
:hook
(text-mode-hook . show-paren-mode)
(prog-mode-hook . show-paren-mode))
;; ---------------------------------- ;;
;; pixel-scroll
;; ---------------------------------- ;;
(editor-feature pixel-scroll
"Enables pixel-level animation of scrolling events."
:when
(or (daemonp)
(display-graphic-p))
:custom
(pixel-scroll-precision-interpolate-page t "Enable pixel-level scrolling for page-wise scroll events")
(pixel-scroll-precision-large-scroll-height 40.0 "Animate any scroll moving the view more than 40 pixels")
:hook
(server-after-make-frame-hook . pixel-scroll-precision-mode)
(emacs-startup-hook . pixel-scroll-precision-mode)
:bind
(:map pixel-scroll-precision-mode-map
("M-v" . pixel-scroll-interpolate-up)
("C-v" . pixel-scroll-interpolate-down)))
;; ---------------------------------- ;;
;; project
;; ---------------------------------- ;;
(editor-feature project
"Provides functionality for dealing with projects."
:preface
(defun user/index-projects (dir)
"Recursively scan for and index any project roots within DIR."
(interactive
(list (read-directory-name "Look for projects in: ")))
(when-let (project-roots (directory-files-recursively dir "\\.git$" #'project--find-in-directory t))
(message "%d directories indexed as projects."
(seq-reduce '+ (mapcar #'project-remember-projects-under project-roots) 0))))
:bind
(:map project-prefix-map
("e" . flymake-show-project-diagnostics)
("RET" . project-eshell)))
;; ---------------------------------- ;;
;; rust-ts-mode
;; ---------------------------------- ;;
(editor-feature rust-ts-mode
"Major mode for Rust, using the Tree-sitter parsing library."
:preface
(defconst user/rust-cargo-directory (expand-file-name "~/.cargo/bin") "Location of installed Rust binaries.")
:config
;; Ensure Emacs knows where to look for Rust tooling
(when (file-directory-p user/rust-cargo-directory)
(add-to-list 'exec-path user/rust-cargo-directory))
:hook
;; Ignore disruptive delimiter auto-matching feature of rust-analyzer LS
(eglot-managed-mode-hook . (lambda ()
(setq-local eglot-ignored-server-capabilities '(:documentOnTypeFormattingProvider))))
:mode
("\\.rs\\'" . rust-ts-mode))
;; ---------------------------------- ;;
;; savehist
;; ---------------------------------- ;;
(editor-feature savehist
"Persists minibuffer history between sessions."
:config
;; Save last 30 items from the kill ring between sessions
(add-to-list 'savehist-additional-variables '(kill-ring . 30))
(savehist-mode)
:hook
;; Remove text properties from `kill-ring' before saving it
(kill-emacs-hook . (lambda () (setq kill-ring (mapcar 'substring-no-properties kill-ring)))))
;; ---------------------------------- ;;
;; save-place
;; ---------------------------------- ;;
(editor-feature saveplace
"Saves the last editing location for files between sessions."
:config
(save-place-mode))
;; ---------------------------------- ;;
;; server
;; ---------------------------------- ;;
(editor-feature server
"Allows Emacs to operate as a server for other Emacs processes."
:config
;; When running in a server/client configuration, we don't want the
;; foreground/background colors in `default-frame-alist' to overwrite the
;; colors set by the active theme every time we open a new client frame
(when (daemonp)
(assoc-delete-all 'foreground-color default-frame-alist)
(assoc-delete-all 'background-color default-frame-alist))
:custom
(server-client-instructions nil "Suppress help messages from the server for new frames"))
;; ---------------------------------- ;;
;; so-long
;; ---------------------------------- ;;
(editor-feature so-long
"Deactivates certain editor features when opening files with very long lines."
:config
(global-so-long-mode))
;; ---------------------------------- ;;
;; subword
;; ---------------------------------- ;;
(editor-feature subword
"Enables detection of subwords as words in camel case or pascal case names."
:config
(global-subword-mode))
;; ---------------------------------- ;;
;; tab-bar
;; ---------------------------------- ;;
(editor-feature tab-bar
"Provides a frame-wide tab bar that allows for tabbed workspace switching."
:custom
(tab-bar-format '(tab-bar-format-tabs tab-bar-separator))
(tab-bar-close-button-show nil "Disable close button on tabs"))
;; ---------------------------------- ;;
;; tab-line
;; ---------------------------------- ;;
(editor-feature tab-line
"Provides a buffer-local tab line that facilitates quick buffer switching."
:custom
(tab-line-close-button-show nil "Disable close button on tabs")
(tab-line-new-button-show nil "Disable tab creation button")
(tab-line-left-button nil "Disable the left scroll button")
(tab-line-right-button nil "Disable the right scroll button")
(tab-line-switch-cycling t "Enable wrap-around tab cycling"))
;; ---------------------------------- ;;
;; treesit
;; ---------------------------------- ;;
(editor-feature treesit
"Integrates the Tree-sitter parsing library into Emacs."
:config
(add-to-list 'treesit-language-source-alist '(cpp "https://github.com/alfaix/tree-sitter-cpp" "alfaix/cpp-20-modules")))
;; ---------------------------------- ;;
;; uniquify
;; ---------------------------------- ;;
(editor-feature uniquify
"Provides better unique names when there are name conflicts between buffers."
:custom
(uniquify-buffer-name-style 'forward "Show file path before buffer name")
(uniquify-after-kill-buffer-p t "Update buffer names after killing")
(uniquify-ignore-buffers-re "^\\*" "Avoid renaming special buffers"))
;; ---------------------------------- ;;
;; window
;; ---------------------------------- ;;
(editor-feature window
"Provides commands for interacting with Emacs windows."
:preface
(defun user/buffer-special-p (buffer)
"Return non-nil if BUFFER is not visiting a file."
(and (not (buffer-file-name (get-buffer buffer)))
(not (string= (buffer-name (get-buffer buffer)) "*scratch*"))
(not (string-prefix-p " *" (buffer-name (get-buffer buffer))))))
(defun user/window-special-p (window)
"Return non-nil if the current buffer of WINDOW is not visiting a file."
(and (not (window-dedicated-p window))
(user/buffer-special-p (window-buffer window))))
(defun user/display-buffer-reuse-special-window (buffer _alist)
"Return a window based on whether its displayed buffer is not visiting a file.
Display BUFFER in the returned window. Return nil if no usable window is found."
(let ((windows (seq-filter 'user/window-special-p (window-list nil :no-minibuf))))
(cl-letf (((symbol-function 'window-list-1) (lambda (&rest _args) windows)))
(when-let ((window (get-lru-window)))
(set-window-buffer window buffer)
window))))
:custom
;; Set default buffer display action priority:
;; focus window already displaying buffer, else display buffer in current window
(display-buffer-base-action '((display-buffer-reuse-window display-buffer-same-window)))
;; Set special (non-file) buffer display action priority:
;; focus window already displaying buffer, else reuse another special buffer's window,
;; else attempt pop up new window with buffer
(display-buffer-alist `((user/buffer-special-p (display-buffer-reuse-window
user/display-buffer-reuse-special-window
display-buffer-pop-up-window)))))
;; ---------------------------------- ;;
;; whitespace
;; ---------------------------------- ;;
(editor-feature whitespace
"Visualizes blank characters."
:custom
(whitespace-line-column nil "Use the value of `fill-column' instead of a set value")
(whitespace-display-mappings '((tab-mark 9 [8677 9]) ; Tab
(space-mark 32 [8729]) ; Space
(space-mark 160 [8999]) ; Non-breaking space
(newline-mark 10 [8626 10])))) ; Newline
;; -------------------------------------------------------------------------- ;;
;;
;; External packages
;;
;; -------------------------------------------------------------------------- ;;
(defmacro external-package (name docstring &rest args)
"Apply NAME and ARGS to `use-package' with `:ensure' defaulted to t.
DOCSTRING is an optional form that is discarded upon expansion."
(declare (doc-string 2)
(indent defun))
(ignore docstring)
`(use-package ,name :ensure t ,@args))
;; ---------------------------------- ;;
;; Theme
;; ---------------------------------- ;;
(external-package adwaita-dark-theme
"Provides the `adwaita-dark' theme and custom fringe bitmaps."
:config
(load-theme 'adwaita-dark :no-confirm)
(adwaita-dark-theme-arrow-fringe-bmp-enable)
(eval-after-load 'diff-hl #'adwaita-dark-theme-diff-hl-fringe-bmp-enable)
(eval-after-load 'flymake #'adwaita-dark-theme-flymake-fringe-bmp-enable)
(eval-after-load 'neotree #'adwaita-dark-theme-neotree-configuration-enable)
(eval-after-load 'eldoc-frame #'adwaita-dark-theme-eldoc-frame-configuration-enable)
:custom
(adwaita-dark-theme-pad-tab-bar t "Enable visual padding for tab bars")
(adwaita-dark-theme-pad-tab-line t "Enable visual padding for tab lines")
(adwaita-dark-theme-pad-mode-line t "Enable visual padding for mode lines")
(adwaita-dark-theme-gray-outlines t "Use gray colors for outline-mode faces")
(adwaita-dark-theme-gray-rainbow-delimiters t "Use a gray color for rainbow-delimiters faces")
(adwaita-dark-theme-bold-vertico-current t "Embolden the currently-selected candidate in vertico")
(adwaita-dark-theme-no-completions-first-difference t "Disable first difference highlight in completions")
:hook
(user/after-daemon-make-initial-frame-hook . (lambda () (load-theme 'adwaita-dark :no-confirm))))
;; ---------------------------------- ;;
;; Simple language modes
;; ---------------------------------- ;;
(external-package clojure-mode
"Major mode for Clojure."
:mode
("\\.clj\\'" . clojure-mode)
("\\.cljs\\'" . clojurescript-mode)
("\\.cljc\\'" . clojurec-mode))
(external-package dart-mode
"Major mode for Dart."
:mode
("\\.dart\\'" . dart-mode))
(external-package docker-compose-mode
"Major mdoe for docker-compose files."
:mode
("\\docker-compose.yml\\'" . docker-compose-mode))
(external-package dockerfile-mode
"Major mode for Docker files."
:mode
("\\Dockerfile\\'" . dockerfile-mode))
(external-package fennel-mode
"Major mode for Fennel."
:mode
("\\.fnl\\'" . fennel-mode))
(external-package fish-mode
"Major mode for fish files."
:mode
("\\.fish\\'" . fish-mode))
(external-package gdscript-mode
"Major mode for GDScript."
:mode
("\\.gd\\'" . gdscript-mode)
("\\.tscn\\'" . gdscript-mode))
(external-package git-modes
"Major modes for git files."
:mode
("\\.gitignore\\'" . gitignore-mode)
("\\.gitconfig\\'" . gitconfig-mode)
("\\.gitmodules\\'" . gitconfig-mode)
("\\.gitattributes\\'" . gitattributes-mode))
(external-package glsl-mode
"Major mode for GLSL."
:mode
("\\.frag\\'" . glsl-mode)
("\\.vert\\'" . glsl-mode))
(external-package kotlin-mode
"Major mode for Kotlin."
:mode
("\\.kt\\'" . kotlin-mode))
(external-package lua-mode
"Major mode for Lua."
:mode
(("\\.lua\\'" . lua-mode)
("\\.rockspec\\'" . lua-mode)))
(external-package markdown-mode
"Major mode for Markdown files."
:mode
(("\\.md\\'" . markdown-mode)))
(external-package web-mode
"Major mode for web templates."
:custom
(web-mode-markup-indent-offset 2 "Use 2 spaces instead of 4 for indenting HTML elements")
(web-mode-enable-auto-quoting nil "Do not automatically insert quotes after HTML attributes")
:mode
(("\\.php\\'" . web-mode)
("\\.html\\'" . web-mode)))
;; ---------------------------------- ;;
;; anzu
;; ---------------------------------- ;;
(external-package anzu
"Displays matching and replacement information in the mode line."
:config
(global-anzu-mode)
:bind
("M-s r ." . anzu-query-replace-at-cursor)
("<remap> <query-replace>" . anzu-query-replace)
("<remap> <query-replace-regexp>" . anzu-query-replace-regexp))
;; ---------------------------------- ;;
;; bufler
;; ---------------------------------- ;;
(external-package bufler
"Presents open buffers in a grouped and organized menu."
:custom
(bufler-columns '("Name" "Path"))
(bufler-list-group-separators '((0 . "\n")))
(bufler-column-name-modified-buffer-sigil "")
(bufler-list-display-buffer-action '((display-buffer-same-window)))
(bufler-groups
(bufler-defgroups
(group
;; Subgroup collecting all named workspaces.
(auto-workspace))
(group
;; Subgroup collecting all `help-mode' and `info-mode' buffers.
(group-or "Help/Info"
(mode-match "Help" (rx bos "help-"))
(mode-match "Info" (rx bos "info-"))))
(group
;; Subgroup collecting all special buffers (i.e. ones that are not file-backed),
;; except certain ones like Dired, Forge, or Magit buffers (which are allowed to
;; fall through to other groups, so they end up grouped with their project buffers).
(group-not "Special"
(group-or "Special"
(mode-match "Eshell" (rx bos "eshell-"))
(mode-match "Magit" (rx bos "magit-"))
(mode-match "Forge" (rx bos "forge-"))
(mode-match "Dired" (rx bos "dired"))
(mode-match "Grep" (rx bos "grep-"))
(mode-match "Compilation" (rx bos "compilation-"))
(auto-file)))
(group
;; Subgroup collecting these "special special" buffers
;; separately for convenience.
(name-match "Emacs"
(rx bos "*" (or "Messages" "Warnings" "scratch" "Backtrace") "*")))
(group
;; Subgroup collecting all other Magit buffers, grouped by directory.
(mode-match "Magit" (rx bos "magit-"))
(auto-directory))
;; Remaining special buffers are grouped automatically by mode.
(auto-mode))
(group
;; Subgroup collecting buffers in a version-control project,
;; grouping them by directory (using the parent project keeps,
;; e.g. git worktrees with their parent repos).
(auto-parent-project)
(group-or "Files"
(auto-file))
;; Subgroup collecting special buffers so they are easily distinguished from file buffers.
(group-not "Special"
(auto-file)))
;; Group remaining buffers by directory, then major mode.
(auto-directory)
(auto-mode)))
:bind
("C-x C-b" . bufler-list))
;; ---------------------------------- ;;
;; cape
;; ---------------------------------- ;;
(external-package cape
"Provides extensions for default Emacs completion facilities."
:config
;; Wrap eglot's capf as noninterruptible to avoid desyncing with the language
;; server during completion operations
(advice-add #'eglot-completion-at-point :around #'cape-wrap-noninterruptible))
;; ---------------------------------- ;;
;; cider
;; ---------------------------------- ;;
(external-package cider
"Provides an interactive programming environment for Clojure."
:preface
(defun user/cider-error-buffer ()
"Switch to the CIDER error buffer, if it exists."
(interactive)
(if (get-buffer cider-error-buffer)
(pop-to-buffer cider-error-buffer)
(message "No active CIDER stacktrace buffer.")))
(defun user/prettify-cider-namespace (namespace)
"Return NAMESPACE formatted and with all but the last name abbreviated."
(let* ((abbreviated-ns (cider-abbreviate-ns namespace))
(names (reverse (split-string abbreviated-ns "\\.")))
(last-name (car names)))
(concat (mapconcat (lambda (name) (propertize (concat name ".") 'face 'font-lock-comment-face))
(reverse (cdr names))
"")
(propertize last-name
'face 'font-lock-doc-face))))
:custom
(nrepl-hide-special-buffers t "Hide REPL communications buffers from buffer lists")
(cider-show-error-buffer nil "Disable automatic display of the CIDER stacktrace info buffer")
(cider-use-fringe-indicators nil "Disable evaluation indicators in the fringe of CIDER buffers")
(cider-session-name-template "%j" "Label CIDER sessions with the short name of the current project")
(cider-eval-spinner-type ["" "" "" "" "" ""] "Use an activity spinner that utilizes Fira Code glyphs")
(cider-eval-spinner-delay 0.5 "Show the evaluation activity spinner after 0.5 seconds of activity")
(cider-repl-display-help-banner nil "Disable initial infodump in CIDER REPL buffers")
(cider-repl-prompt-function (lambda (ns) (concat (user/prettify-cider-namespace ns) "")))
:hook
(clojure-mode-hook . cider-mode)
(cider-repl-mode-hook . electric-pair-local-mode)
:bind
(:map cider-mode-map
("M-." . cider-find-var)
("M-," . cider-pop-back)
("C-c m" . cider-macroexpand-1)
("C-c \\" . cider-format-buffer)
("C-c C-f" . cider-load-file)
("C-c C-b" . cider-load-buffer)
("C-c M-e" . user/cider-error-buffer))
(:map cider-repl-mode-map
("C-c C-e" . end-of-buffer)
("C-<return>" . (lambda ()
(interactive)
(when (and (get-text-property (point) 'cider-old-input)
(< (point) cider-repl-input-start-mark))
(cider-repl--grab-old-input nil))))))
;; ---------------------------------- ;;
;; clj-refactor
;; ---------------------------------- ;;
(external-package clj-refactor
"Provides a suite of powerful refactoring functions for Clojure projects."
:custom
(cljr-warn-on-eval nil "Disables warning prompts for refactor commands that build ASTs")
:hook
(cider-mode-hook . (lambda ()
(clj-refactor-mode)
(advice-remove 'cider-format-buffer #'cljr-clean-ns)
(advice-add 'cider-format-buffer :before #'cljr-clean-ns)))
:bind
(:map clj-refactor-map
("C-c ." . cljr-find-usages)
("M-s M-r ." . cljr-rename-symbol)))
;; ---------------------------------- ;;
;; consult
;; ---------------------------------- ;;
(external-package consult
"Provides a number of autocompletion-enhanced replacements for default commands."
:config
;; `eshell-mode-map' is not available until the `esh-mode' module is loaded
(eval-after-load 'esh-mode (lambda () (bind-key "C-r" #'consult-history 'eshell-mode-map)))
;; Override the default character range used for candidate line number annotations
;; to use the Unicode PUA-B block (in favor of a character range outside of Unicode)
(setq consult--tofu-char #x100000
consult--tofu-range #xFFFD)
;; Have `xref' use consult for displaying definitions and references
(setq xref-show-xrefs-function #'consult-xref)
(setq xref-show-definitions-function #'consult-xref)
:bind
("M-C-s" . (lambda () (interactive) (consult-line (thing-at-point 'symbol))))
("M-s l" . consult-line)
("M-s L" . consult-line-multi)
("C-S-s" . consult-line-multi)
("C-c e" . consult-flymake)
("C-x M-b" . consult-buffer-other-window)
("<remap> <goto-line>" . consult-goto-line)
("<remap> <isearch-forward>" . consult-line)
("<remap> <switch-to-buffer>" . consult-buffer)
("<remap> <project-switch-to-buffer>" . consult-project-buffer)
("<remap> <yank-pop>" . consult-yank-from-kill-ring)
("<remap> <project-find-regexp>" . consult-ripgrep))
;; ---------------------------------- ;;
;; corfu
;; ---------------------------------- ;;
(external-package corfu
"Enhances completion suggestions with a visible popup."
:init
(global-corfu-mode)
:config
(add-to-list 'savehist-additional-variables 'corfu-history)
(corfu-popupinfo-mode)
(corfu-history-mode)
:custom
(corfu-auto t "Automatically display completion popups when available")
(corfu-auto-delay 0.0 "Display completion popups immediately when available")
(corfu-min-width 20 "Ensure completion popups are at least 20 columns wide")
(corfu-max-width 50 "Limit completion popup width to 50 columns")
(corfu-preview-current nil "Disable inline preview of currently selected candidate")
(corfu-popupinfo-delay '(0.4 . 0.2) "Wait 0.4 seconds (0.2 subsequently) before showing a doc popup")
(corfu-popupinfo-max-width 70 "Limit doc popup width to 70 columns")
(corfu-popupinfo-min-height 4 "Ensure doc popups are at least 4 lines tall")
(corfu-echo-documentation nil "Disable displaying documentation strings in the echo area")
:hook
;; Displaying completion popups automatically (i.e. without summoning them explicitly)
;; can cause performance issues in `eshell-mode' due to the high volume of completion
;; candidates for certain commands
(eshell-mode-hook . (lambda () (setq-local corfu-auto nil)))
:bind
(:map corfu-popupinfo-map
("M-n" . corfu-popupinfo-scroll-up)
("M-p" . corfu-popupinfo-scroll-down)))
;; ---------------------------------- ;;
;; corfu-terminal
;; ---------------------------------- ;;
(external-package corfu-terminal
"Allows Corfu to function when not running in a graphical frame."
:when
(not (or (daemonp)
(display-graphic-p)))
:config
(corfu-terminal-mode))
;; ---------------------------------- ;;
;; diff-hl
;; ---------------------------------- ;;
(external-package diff-hl
"Highlights uncommited changes to version controlled files in the gutter."
:config
(global-diff-hl-mode)
(diff-hl-flydiff-mode))
;; ---------------------------------- ;;
;; eldoc-frame
;; ---------------------------------- ;;
(editor-feature eldoc-frame
"Displays ElDoc documentation in floating child frames."
:custom
(eldoc-documentation-strategy 'eldoc-documentation-compose "Combine results from all documentation sources")
:hook
(eldoc-mode-hook . eldoc-frame-mode)
:bind
(:map eldoc-frame-mode-map
("M-<up>" . eldoc-frame-scroll-down-line)
("M-<down>" . eldoc-frame-scroll-up-line)))
;; ---------------------------------- ;;
;; eshell-up
;; ---------------------------------- ;;
(external-package eshell-up
"Provides a shortcut for quickly navigating to parent directories in eshell."
:config
;; `eshell-command-aliases-list' is not available until the `em-alias' module is loaded
(eval-after-load 'em-alias (lambda ()
(add-to-list 'eshell-command-aliases-list '("up" "eshell-up $1"))
(add-to-list 'eshell-command-aliases-list '("pk" "eshell-up-peek $1")))))
;; ---------------------------------- ;;
;; fish-completion
;; ---------------------------------- ;;
(external-package fish-completion
"Sources shell completion candidates from the fish shell."
:when
(executable-find "fish")
:hook
(eshell-mode-hook . fish-completion-mode))
;; ---------------------------------- ;;
;; flymake-kondor
;; ---------------------------------- ;;
(external-package flymake-kondor
"Integrates clj-kondo as a flymake checker for Clojure buffers."
:when
(executable-find "clj-kondo")
:hook
(clojure-mode-hook . flymake-kondor-setup))
;; ---------------------------------- ;;
;; hl-todo
;; ---------------------------------- ;;
(external-package hl-todo
"Highlights certain keywords in comments."
:custom
(hl-todo-keyword-faces '(("TODO" . hl-todo)
("TEMP" . hl-todo)
("HACK" . hl-todo)
("DEBUG" . hl-todo)
("FIXME" . hl-todo)))
:hook
(prog-mode-hook . hl-todo-mode))
;; ---------------------------------- ;;
;; hotfuzz
;; ---------------------------------- ;;
(external-package hotfuzz
"Provides a native fuzzy completion style that scores and sorts candidates."
:preface
(defconst user/hotfuzz-directory (locate-user-emacs-file "hotfuzz/") "Location of dynamic Emacs module for hotfuzz")
(make-directory user/hotfuzz-directory :parents)
(add-to-list 'load-path user/hotfuzz-directory)
(eval-when-compile
(when (executable-find "clang")
(let ((source-url "https://raw.githubusercontent.com/axelf4/hotfuzz/master/hotfuzz-module.c")
(source-file (locate-user-emacs-file (concat user/hotfuzz-directory "hotfuzz-module.c")))
(output-file (locate-user-emacs-file (concat user/hotfuzz-directory "hotfuzz-module.so"))))
(url-copy-file source-url source-file :ok-if-already-exists)
(shell-command (concat "clang -fPIC -O2 -march=native -shared " source-file " -o " output-file)))))
:custom
(hotfuzz-max-highlighted-completions most-positive-fixnum "Disable match candidate highlighting limits"))
;; ---------------------------------- ;;
;; kind-icon
;; ---------------------------------- ;;
(external-package kind-icon
"Adds contextual icons in front of Corfu completion candidates."
:when
(or (daemonp)
(display-graphic-p))
:after
(corfu)
:config
(add-to-list 'corfu-margin-formatters #'kind-icon-margin-formatter)
:custom
(kind-icon-extra-space t "Insert extra blank space after the icon"))
;; ---------------------------------- ;;
;; ligature
;; ---------------------------------- ;;
(external-package ligature
"Enables support for mapping characters to ligatures."
:config
(ligature-set-ligatures
'prog-mode
'(;; This set of ligatures is for Fira Code, but
;; should work for most any font with ligatures:
;; && &&&
;; ;; ;;;
;; %% %%%
;; ?? ??? ?: ?= ?.
;; !! !!! !. !: !!. != !== !~
(";" (rx (+ ";")))
("&" (rx (+ "&")))
("%" (rx (+ "%")))
("?" (rx (or ":" "=" "\." (+ "?"))))
("!" (rx (+ (or "=" "!" "\." ":" "~"))))
;; \\ \\\ \/
;; ++ +++ ++++ +>
;; :: ::: :::: :> :< := :// ::=
;; // /// //// /\ /* /> /===:===!=//===>>==>==/
;; == === ==== => =| =>>=>=|=>==>> ==< =/=//=// =~ =:= =!=
("\\" (rx (or "/" (+ "\\"))))
("+" (rx (or ">" (+ "+"))))
(":" (rx (or ">" "<" "=" "//" ":=" (+ ":"))))
("/" (rx (+ (or ">" "<" "|" "/" "\\" "\*" ":" "!" "="))))
("=" (rx (+ (or ">" "<" "|" "/" "~" ":" "!" "="))))
;; |> ||> |||> ||||> |] |} || ||| |-> ||-||
;; |->>-||-<<-| |- |== ||=|| |==>>==<<==<=>==//==/=!==:===>
("|" (rx (+ (or ">" "<" "|" "/" ":" "!" "}" "\]" "-" "=" ))))
;; *> */ *) ** *** ****
;; .. ... .... .= .- .? ..= ..<
;; -- --- ---- -~ -> ->> -| -|->-->>->--<<-|
;; #: #= #! #( #? #[ #{ #_ #_( ## ### #####
;; >: >- >>- >--|-> >>-|-> >= >== >>== >=|=:=>> >> >>> >>>>
("*" (rx (or ">" "/" ")" (+ "*"))))
("\." (rx (or "=" "-" "\?" "\.=" "\.<" (+ "\."))))
("-" (rx (+ (or ">" "<" "|" "~" "-"))))
("#" (rx (or ":" "=" "!" "(" "\?" "\[" "{" "_(" "_" (+ "#"))))
(">" (rx (+ (or ">" "<" "|" "/" ":" "=" "-"))))
;; <> <!-- <|> <: <~ <~> <~~ <+ <* <$ </ <+> <*>
;; <$> </> <| <|| <||| <|||| <- <-| <-<<-|-> <->>
;; <<-> <= <=> <<==<<==>=|=>==/==//=!==:=> << <<< <<<<
("<" (rx (+ (or "\+" "\*" "\$" "<" ">" ":" "~" "!" "-" "/" "|" "="))))
;; __ ___ ____ _|_ __|____|_
;; ~~ ~~~ ~= ~- ~@ ~> ~~>
("_" (rx (+ (or "_" "|"))))
("~" (rx (or ">" "=" "-" "@" "~>" (+ "~"))))
;; {| [\ ]# (* }# $> ^=
"{|" "[|" "]#" "(*" "}#" "$>" "^="
;; www wwww
;; 0xFF 0x12
;; Fl Tl fi fj fl ft
("w" (rx (+ "w")))
("0" (rx (and "x" (+ (in "A-F" "a-f" "0-9")))))
"Fl" "Tl" "fi" "fj" "fl" "ft"))
:hook
(prog-mode-hook . ligature-mode))
;; ---------------------------------- ;;
;; magit
;; ---------------------------------- ;;
(external-package magit
"Provides a visual interface to git."
:custom
(magit-display-buffer-function 'display-buffer "Use standard display-buffer function to display Magit buffers")
(magit-commit-diff-inhibit-same-window t "Never display the commit diff over the commit message window")
(git-commit-summary-max-length 50 "Highlight characters in commit summaries past column 50")
:bind
("C-c g" . magit-status))
;; ---------------------------------- ;;
;; magit-todos
;; ---------------------------------- ;;
(external-package magit-todos
"Shows a list of keyword-containing comments in the Magit status buffer."
:hook
(magit-mode-hook . magit-todos-mode))
;; ---------------------------------- ;;
;; marginalia
;; ---------------------------------- ;;
(external-package marginalia
"Adds informative annotations to completion candidates in the minibuffer."
:config
(defun marginalia--file-owner (_) "")
(defun marginalia--file-modes (_) "")
(defun marginalia--symbol-class (_) "")
(defun marginalia--buffer-status (_) "")
(marginalia-mode))
;; ---------------------------------- ;;
;; mood-line
;; ---------------------------------- ;;
(external-package mood-line
"Gives the mode-line a cleaner appearance."
:config
(mood-line-mode)
:custom
(mood-line-glyph-alist mood-line-glyphs-fira-code "Use Fira Code-compatible decorative glyphs")
(mood-line-format
(mood-line-defformat
:left
(((or (mood-line-segment-buffer-status) " ") . " ")
((mood-line-segment-buffer-name) . " ")
((mood-line-segment-anzu) . " ")
((mood-line-segment-multiple-cursors) . " ")
((mood-line-segment-cursor-position) . " ")
(mood-line-segment-scroll))
:right
(((mood-line-segment-vc) . " ")
((mood-line-segment-misc-info) . " ")
((mood-line-segment-checker) . " ")
((mood-line-segment-process) . " ")))))
;; ---------------------------------- ;;
;; multiple-cursors
;; ---------------------------------- ;;
(external-package multiple-cursors
"Provides the ability to summon additional cursors."
:bind
("C->" . mc/mark-next-like-this)
("C-<" . mc/mark-previous-like-this)
("C-c C->" . mc/mark-all-like-this)
("C-c C-<" . mc/mark-all-like-this))
;; ---------------------------------- ;;
;; neotree
;; ---------------------------------- ;;
(external-package neotree
"Displays an interactive directory/file tree in a side window."
:config
(advice-add 'neotree-change-root :after (lambda () (goto-char (point-min))))
:custom
(neo-smart-open t "Jump to current file when focusing the neotree window")
(neo-window-width 30 "Limit neotree window width to 30 columns")
(neo-show-updir-line nil "Disable dipspying updir (..) line in the neotree window")
(neo-confirm-create-file #'off-p "Skip confirmation when creating a new file from neotree")
(neo-confirm-create-directory #'off-p "Skip confirmation when creating a new directory from neotree")
:bind
("C-c t" . neotree)
(:map neotree-mode-map
("C-c w" . (lambda () (interactive) nil))
("C-c q" . (lambda () (interactive) nil))
("C-c n" . (lambda () (interactive) nil))))
;; ---------------------------------- ;;
;; orderless
;; ---------------------------------- ;;
(external-package orderless
"Provides a flexible component-based completion style."
:preface
(defun user/orderless-dispatch (word index total)
(and (= index 0) (= total 1) (length< word 4)
`(orderless-regexp . ,(concat "^" (regexp-quote word)))))
:after
(hotfuzz)
:custom
(orderless-component-separator " " "Use a space to separate orderless matching components")
(orderless-style-dispatchers '(user/orderless-dispatch) "Use custom fast dispatcher for orderless")
(orderless-matching-styles '(orderless-literal) "Use only literal matching for orderless completions")
(completion-ignore-case t "Ignore case in completion candidates")
(completion-category-defaults nil "Disable category-specific completion styles")
(completion-category-overrides nil "Disable category-specific completion styles")
(completion-styles '(orderless hotfuzz basic) "Set desired completion style precedence"))
;; ---------------------------------- ;;
;; package-lint
;; ---------------------------------- ;;
;; Load Package-Lint
(external-package package-lint
"Provides a command for linting Emacs Lisp packages."
:commands
(package-lint-current-buffer))
;; ---------------------------------- ;;
;; page-break-lines
;; ---------------------------------- ;;
(external-package page-break-lines
"Displays form feed characters as horizontal rules."
:config
(global-page-break-lines-mode))
;; ---------------------------------- ;;
;; rainbow-delimiters
;; ---------------------------------- ;;
(external-package rainbow-delimiters
"Highlights matching delimiters with colors according to depth."
:hook
(prog-mode-hook . rainbow-delimiters-mode))
;; ---------------------------------- ;;
;; resize-window
;; ---------------------------------- ;;
(external-package resize-window
"Provides an overlay that allows for quick window management inputs."
:bind
("C-c w" . resize-window))
;; ---------------------------------- ;;
;; restclient
;; ---------------------------------- ;;
(external-package restclient
"Allows for the execution of HTTP queries from plain-text query sheets."
:config
(defun restclient ()
"Open the restclient buffer, (re)creating it if not present."
(interactive)
(pop-to-buffer (get-buffer-create "*restclient*"))
(unless (derived-mode-p 'restclient-mode)
(restclient-mode)))
:commands
(restclient))
;; ---------------------------------- ;;
;; string-inflection
;; ---------------------------------- ;;
(external-package string-inflection
"Provides case conversion functions for symbols and strings."
:commands
(string-inflection-underscore-function
string-inflection-pascal-case-function
string-inflection-camelcase-function
string-inflection-upcase-function
string-inflection-kebab-case-function
string-inflection-capital-underscore-function))
;; ---------------------------------- ;;
;; solaire-mode
;; ---------------------------------- ;;
(external-package solaire-mode
"Recolors special buffers to distinguish them from regular buffers."
:custom
(solaire-mode-real-buffer-fn (lambda ()
(and (buffer-name (buffer-base-buffer))
(not (derived-mode-p 'neotree-mode))
(not (string-match "\*Echo Area" (buffer-name (buffer-base-buffer)))))))
:hook
(server-after-make-frame-hook . solaire-global-mode)
(emacs-startup-hook . solaire-global-mode))
;; ---------------------------------- ;;
;; tempel
;; ---------------------------------- ;;
(external-package tempel
"Provides inline expansion for Emacs Tempo templates."
:preface
(defconst user/template-directory (locate-user-emacs-file "templates/") "Location of template file directory.")
(defun user/open-template-file (file-choice)
"Prompt the user to open a template definition file in a new buffer."
(interactive
(list (completing-read "Open template file: "
(directory-files user/template-directory nil "\\.eld$"))))
(find-file (concat user/template-directory file-choice)))
(defun user/tempel-field-name (elem)
"Return the name of field ELEM, or nil if it has none."
(or (when (symbolp elem)
elem)
(when (eq (car-safe elem) 's)
(cadr elem))
(when (member (car-safe elem) '(p r r>))
(caddr elem))))
(defun user/tempel-subst-names (template args)
"Substitute named fields in TEMPLATE according to name/value pairs in ARGS."
(when-let (elem (car-safe template))
(cons (or (plist-get args (user/tempel-field-name elem))
elem)
(user/tempel-subst-names (cdr template) args))))
(defun user/tempel-include (elem)
"If ELEM is (i ...), process it as an include element."
(when (eq (car-safe elem) 'i)
(if-let (template (alist-get (cadr elem) (tempel--templates)))
(cons 'l (user/tempel-subst-names template (caddr elem)))
(message "tempel-include: Template not found: %s" (cadr elem)))))
(defun user/tempel-setup-capf ()
"Add `tempel-complete' to `completion-at-point-functions' (buffer-local).
If `tempel-complete' is already a member of `completion-at-point-functions', it
is promoted to the beginning of the list of hooked functions."
(setq-local completion-at-point-functions (cons #'tempel-complete (remove #'tempel-complete completion-at-point-functions))))
:config
(add-to-list 'tempel-user-elements #'user/tempel-include)
;; Advise `tempel-done' to jump to the end of the template before ending expansion,
;; and advice `tempel-next' to call `tempel-done' if there are no remaining fields
(advice-add 'tempel-done :before (lambda () (goto-char (tempel--end))))
(advice-add 'tempel-next :after (lambda (_arg) (when tempel--active (unless (tempel--find 1) (tempel-done)))))
:custom
(tempel-mark "" "Mark empty field positions with an arrow during template expansion")
(tempel-trigger-prefix "@" "Require an '@' before template names when triggering expansion")
(tempel-path (concat user/template-directory "*.eld") "Look for templates in the user template directory")
:hook
(prog-mode-hook . user/tempel-setup-capf)
(text-mode-hook . user/tempel-setup-capf)
(eglot-managed-mode-hook . user/tempel-setup-capf)
:bind
(:map tempel-map
("RET" . tempel-done)
("<tab>" . tempel-next)
("<backtab>" . tempel-previous)
("C-g" . tempel-abort)))
;; ---------------------------------- ;;
;; treesit-auto
;; ---------------------------------- ;;
(external-package treesit-auto
"Automatically switches to Tree-sitter versions of major editing modes when available."
:config
(global-treesit-auto-mode))
;; ---------------------------------- ;;
;; undo-fu-session
;; ---------------------------------- ;;
(external-package undo-fu-session
"Saves and recovers undo history of files between editing sessions."
:preface
(defconst user/undo-history-directory (locate-user-emacs-file "undo-history/") "Location of undo-fu-session history backups.")
:config
(undo-fu-session-global-mode)
:custom
(undo-fu-session-directory user/undo-history-directory "Set custom undo history storage location"))
;; ---------------------------------- ;;
;; vertico
;; ---------------------------------- ;;
(external-package vertico
"Provides a vertical autocompletion UI in the minibuffer."
:custom
(vertico-cycle t "Enable wrap-around candidate cycling")
(vertico-count 9 "Display a maximum of 9 candidates in the minibuffer")
(vertico-resize nil "Keep the minibuffer at a static size")
(vertico-group-format nil "Disable candidate group titles")
(vertico-count-format nil "Disable candidate count display")
:hook
(emacs-startup-hook . vertico-mode)
(vertico-mode-hook . vertico-mouse-mode)
(rfn-eshadow-update-overlay-hook . vertico-directory-tidy)
:bind
(:map vertico-map
("\r" . vertico-directory-enter)
("\d" . vertico-directory-delete-char)
("\M-\d" . vertico-directory-delete-word)))
;; ---------------------------------- ;;
;; vundo
;; ---------------------------------- ;;
(external-package vundo
"Visualizes undo history as a tree in an interactive buffer."
:custom
(vundo-glyph-alist vundo-unicode-symbols "Visualize undo history with pretty unicode symbols")
:hook
(vundo-mode-hook . (lambda () (setq-local global-hl-line-mode nil)))
:bind
("C-x u" . vundo))
;; ---------------------------------- ;;
;; writeroom-mode
;; ---------------------------------- ;;
(external-package writeroom-mode
"Centers the working text area in the active buffer."
:custom
(writeroom-width 140 "Set the working area width to 140 columns")
(writeroom-maximize-window nil "Do not maximize the active window")
(writeroom-mode-line t "Show the mode line while writeroom-mode is active")
(writeroom-header-line t "Show the header line while writeroom-mode is active")
(writeroom-global-effects nil "Disable all frame-wide writeroom effects")
(writeroom-fringes-outside-margins nil "Keep the fringes close to the text")
:bind
("C-c c" . writeroom-mode)
(:map writeroom-mode-map
("C-<next>" . writeroom-decrease-width)
("C-<prior>" . writeroom-increase-width)))
;; --------------------------------------------------------------------------
;;
;; End of init file
;;
;; --------------------------------------------------------------------------
(provide 'init)
;;; init.el ends here