17 KiB
Emacs Configuration
Package Setup
Set up package archives including melpa, org, and elpa.
(require 'package)
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
("org" . "https://orgmode.org/elpa/")
("elpa" . "https://elpa.gnu.org/packages/")))
(package-initialize)
(unless package-archive-contents
(package-refresh-contents))
Install use-package for declarative package installation. Make use-package default to ensure t so that packages are enabled if they are declared.
(unless (package-installed-p 'use-package)
(package-install 'use-package))
(require 'use-package)
(setq use-package-always-ensure t)User Interface
Theming
Set the default font to the Source Code Pro nerd font variant. I use size 14 font.
(set-face-attribute 'default t :font "Sauce Code Pro Nerd Font-14")Use the Doom Nord light theme.
(use-package doom-themes
:config
(setq doom-themes-enable-bold t
doom-themes-enable-italic t)
(load-theme 'doom-nord-light t)
(doom-themes-org-config))
Use doom-modeline for a nicer modeline.
(use-package doom-modeline
:init (doom-modeline-mode 1))Clean UI
Disable the Emacs start screen and make the scratch buffer default to empty.
(setq inhibit-startup-screen t)
(setq initial-scratch-message nil)Disable scroll bar, tool bar, and menu bar.
(scroll-bar-mode -1)
(tool-bar-mode -1)
(menu-bar-mode -1)Fancy Stuff
Use line numbers by default.
(global-display-line-numbers-mode 1)
Highlight changes for an operation with evil-goggles.
(use-package evil-goggles
:after evil
:config
(evil-goggles-mode)
(evil-goggles-use-diff-faces))Install nerd font icons.
(use-package nerd-icons)Scroll one line at a time.
(setq scroll-conservatively most-positive-fixnum)Create parent directories when they don't yet exist.
(defun jj/create-non-existent-directory ()
(let ((parent-directory (file-name-directory buffer-file-name)))
(when (and (not (file-exists-p parent-directory))
(y-or-n-p (format "Directory `%s' does not exist! Create it?" parent-directory)))
(make-directory parent-directory t))))
(add-to-list 'find-file-not-found-functions #'jj/create-non-existent-directory)Whitespace Management
Use spaces over tabs and set tab width to 4.
(setq-default indent-tabs-mode nil)
(setq tab-width 4
c-basic-offset tab-width)Delete trailing whitespace on save.
(defun jj/before-save-hook ()
(unless (eql (with-current-buffer (current-buffer) major-mode)
'markdown-mode)
(delete-trailing-whitespace)))
(add-hook 'before-save-hook #'jj/before-save-hook)Backup Management
Don't create backup files.
(setq make-backup-files nil)
Customize dired
Use nerd font icons in dired.
(use-package nerd-icons-dired
:hook dired-mode)
Use colours in dired with diredfl.
(use-package diredfl
:init (diredfl-global-mode 1))Tools
Vi Keybindings
Use vi keybindings with evil. Set the undo system to undo-fu. Wrapped lines can be moved between with j and k.
(use-package evil
:init
(setq evil-want-keybinding nil)
:config
(evil-mode)
(evil-global-set-key 'motion "j" 'evil-next-visual-line)
(evil-global-set-key 'motion "k" 'evil-previous-visual-line)
:custom
(evil-undo-system 'undo-fu))
Use evil-collection to include vi keybindings in extra modes.
(use-package evil-collection
:after evil
:config
(evil-collection-init))Lisp Editing
Better Lisp editing with lispy and lispyville.
(use-package lispy
:hook emacs-lisp-mode)
(use-package lispyville
:after lispy
:hook lispy-mode)
Better parentheses handling in lisp with parinfer-rust-mode.
(use-package parinfer-rust-mode
:hook emacs-lisp-mode
:init
(setq parinfer-rust-auto-download t))Undo
Better undo with undo-fu.
(use-package undo-fu)
Make undo persistent when closing Emacs with undo-fu-session.
(use-package undo-fu-session
:init (undo-fu-session-global-mode 1))Lookup
Better lookup with dumb-jump.
(use-package dumb-jump
:init (add-hook 'xref-backend-functions #'dumb-jump-xref-activate))Version Control
Install Magit for Git integration.
(use-package magit)Document Viewing
Replace DocView with a better document viewer from pdf-tools.
(use-package pdf-tools
:config
(pdf-tools-install)
:init
(add-hook 'pdf-view-mode-hook #'(lambda () (display-line-numbers-mode -1)))
(add-hook 'TeX-after-compilation-finished-functions
#'TeX-revert-document-buffer)
:config
(setq TeX-view-program-selection '((output-pdf "PDF Tools"))
TeX-view-program-list '(("PDF Tools" TeX-pdf-tools-sync-view))
TeX-source-correlate-start-server t))
Save place in PDFs with saveplace-pdf-view.
(use-package saveplace-pdf-view
:config (save-place-mode 1))Org-Mode
Set my org-mode directory.
(setq org-directory "~/org")
Hide emphasis markers because I can see if something is bold, italic, or monospace without needing to see the markers.
(setq org-hide-emphasis-markers t)Set up nicer looking bullet points.
- they look like circles
- instead of hyphens
(font-lock-add-keywords 'org-mode
'(("^ *\\([-]\\) "
(0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
Set up fonts. Don't use monospace by default. Do use it where necessary though. Also, make different heading levels different sizes.
(add-hook 'org-mode-hook 'variable-pitch-mode)
(custom-set-faces
'(variable-pitch ((t (:family "CMU Serif" :height 130 :weight thin))))
'(fixed-pitch ((t (:family "SauceCodePro Nerd Font" :height 110 :weight regular))))
'(org-block ((t (:inherit fixed-pitch))))
'(org-code ((t (:inherit (shadow fixed-pitch)))))
'(org-document-info-keyword ((t (:inherit (shadow fixed-pitch)))))
'(org-meta-line ((t (:inherit (font-lock-comment-face fixed-pitch)))))
'(org-verbatim ((t (:inherit (shadow fixed-pitch)))))
'(org-table ((t (:inherit (shadow fixed-pitch)))))
'(org-document-title ((t (:inherit title :height 2.0 :underline nil))))
'(org-level-1 ((t (:inherit outline-1 :weight: bold :height 1.75))))
'(org-level-2 ((t (:inherit outline-2 :weight: bold :height 1.5))))
'(org-level-2 ((t (:inherit outline-3 :weight: bold :height 1.25))))
'(org-level-2 ((t (:inherit outline-4 :weight: bold :height 1.1))))
'(org-level-4 ((t (:inherit outline-4 :height 1.1))))
'(org-level-5 ((t (:inherit outline-5 :height 1.0))))
)Wrap lines and centre the view to make for a nicer reading experience.
(use-package visual-fill-column)
(add-hook 'org-mode-hook 'visual-line-mode)
(add-hook 'org-mode-hook #'(lambda () (display-line-numbers-mode -1)))
(defun jj/org-mode-visual-fill ()
(setq visual-fill-column-width 100
visual-fill-column-center-text t)
(visual-fill-column-mode 1))
(add-hook 'org-mode-hook #'jj/org-mode-visual-fill)Increase the size of LaTeX previews.
(setq org-format-latex-options (plist-put org-format-latex-options :scale 2.0))Follow links with the return key.
(setq org-return-follows-link t)Tangle on save.
(add-hook 'org-mode-hook
(lambda ()
(add-hook 'after-save-hook #'org-babel-tangle)))Shell
Use eshell as an integrated shell.
(use-package eshell)Language Servers
Add eglot keybindings.
(global-set-key (kbd "C-c r") 'eglot-rename)
(global-set-key (kbd "C-c a") 'eglot-code-actions)
Install tree-sitter.
(use-package tree-sitter)
(use-package tree-sitter-langs)
Define function to set up eglot automatically.
(defun jj/eglot-setup ()
(eglot-ensure)
(tree-sitter-mode 1)
(tree-sitter-hl-mode 1))Completions
Use company for completions with no delay, starting immediately after first character is typed.
(use-package company
:config
(add-hook 'after-init-hook 'global-company-mode)
(setq company-idle-delay 0
company-minimum-prefix-length 1
company-selection-wrap-around t))
Use vertico as a completion user interface.
(use-package vertico
:custom
(vertico-cycle t)
:init
(vertico-mode))
Use orderless to allow typing any portion of a word that you want to search for.
(use-package orderless
:ensure t
:custom
(completion-styles '(orderless basic))
(completion-category-overrides '((file (styles basic partial-completion)))))
Get descriptions of items in vertico with marginalia.
(use-package marginalia
:bind (:map minibuffer-local-map
("M-A" . marginalia-cycle))
:init
(marginalia-mode))Get nerd font icons in completions.
(use-package nerd-icons-completion
:config
(nerd-icons-completion-mode))
Use consult with vertico for extra functionality to various functions.
(use-package consult
:bind (
("C-c M-x" . consult-mode-command)
("C-c h" . consult-history)
("C-c k" . consult-kmacro)
("C-c m" . consult-man)
("C-c i" . consult-info)
([remap Info-search] . consult-info)
("C-x M-:" . consult-complex-command)
("C-x b" . consult-buffer)
("C-x 4 b" . consult-buffer-other-window)
("C-x 5 b" . consult-buffer-other-frame)
("C-x t b" . consult-buffer-other-tab)
("C-x r b" . consult-bookmark)
("C-x p b" . consult-project-buffer)
("M-#" . consult-register-load)
("M-'" . consult-register-store)
("C-M-#" . consult-register)
("M-y" . consult-yank-pop)
("M-g e" . consult-compile-error)
("M-g f" . consult-flycheck)
("M-g g" . consult-goto-line)
("M-g M-g" . consult-goto-line)
("M-g o" . consult-outline)
("M-g m" . consult-mark)
("M-g k" . consult-global-mark)
("M-g i" . consult-imenu)
("M-g I" . consult-imenu-multi)
("M-s d" . consult-fd)
("M-s c" . consult-locate)
("M-s g" . consult-grep)
("M-s G" . consult-git-grep)
("M-s r" . consult-ripgrep)
("M-s l" . consult-line)
("M-s L" . consult-line-multi)
("M-s k" . consult-keep-lines)
("M-s u" . consult-focus-lines)
("M-s e" . consult-isearch-history)
:map isearch-mode-map
("M-e" . consult-isearch-history)
("M-s e" . consult-isearch-history)
("M-s l" . consult-line)
("M-s L" . consult-line-multi)
:map minibuffer-local-map
("M-s" . consult-history)
("M-r" . consult-history))
:hook (completion-list-mode . consult-preview-at-point-mode)
:init
(setq register-preview-delay 0.5
register-preview-function #'consult-register-format)
(advice-add #'register-preview :override #'consult-register-window)
(setq xref-show-xrefs-function #'consult-xref
xref-show-definitions-function #'consult-xref)
:config
(consult-customize
consult-theme :preview-key '(:debounce 0.2 any)
consult-ripgrep consult-git-grep consult-grep
consult-bookmark consult-recent-file consult-xref
consult--source-bookmark consult--source-file-register
consult--source-recent-file consult--source-project-recent-file
:preview-key '(:debounce 0.4 any))
(setq consult-narrow-key "<"))Use Flycheck for syntax checking.
(use-package flycheck
:config
(add-hook 'after-init-hook #'global-flycheck-mode))Use Flyspell for spell checking.
(dolist (hook '(text-mode-hook))
(add-hook hook (lambda () (flyspell-mode 1))))
(use-package flyspell-correct
:after flyspell
:bind (:map flyspell-mode-map ("C-;" . flyspell-correct-wrapper)))Snippets
Use yasnippet for snippets so I don't need to type as much.
(use-package yasnippet
:init
(yas-global-mode 1)
:config
(global-set-key (kbd "C-c s") 'yas-insert-snippet))
Install snippet collection for yasnippet.
(use-package yasnippet-snippets)Formatting
Automatically format with Apheleia and clang-format.
(use-package apheleia
:init (apheleia-global-mode +1))
(use-package clang-format)RSS
Use Emacs as an RSS feed with elfeed.
(use-package elfeed
:config
(global-set-key (kbd "C-c w") 'elfeed)
(global-set-key (kbd "C-c C-W") 'elfeed-update))
Make elfeed more powerful with elfeed-goodies.
(use-package elfeed-goodies
:after elfeed
:config
(elfeed-goodies/setup))Store my feed in Org-mode here.
(use-package elfeed-org
:config
(elfeed-org)
(setq rmh-elfeed-org-files (list "~/.config/emacs/feed.org")))Deft
Use the Deft package to manage notes.
(use-package deft
:config
(global-set-key (kbd "C-c d") 'deft)
(setq deft-directory "~/notes/"
deft-default-extension "org"))Languages
Shell Script
Run eglot on shell script files.
(add-hook 'sh-mode-hook 'jj/eglot-setup)C
Run eglot on C and C++ files.
(add-hook 'c-mode-hook 'jj/eglot-setup)
(add-hook 'c++-mode-hook 'jj/eglot-setup)
(add-hook 'cc-mode-hook 'jj/eglot-setup)Web
Run eglot on HTML files.
(add-hook 'html-mode-hook 'jj/eglot-setup)
Run eglot on CSS files.
(add-hook 'css-mode-hook 'jj/eglot-setup)
Run eglot on JavaScript/Typescript files.
(add-hook 'js-json-mode-hook 'jj/eglot-setup)
(add-hook 'js-mode-hook 'jj/eglot-setup)
(use-package typescript-mode
:init
(add-hook 'typescript-mode-hook 'jj/eglot-setup))Python
Run eglot on Python files.
(add-hook 'python-mode-hook 'jj/eglot-setup)TODO Rust
Run eglot on Rust files. (This does not work at all)
(use-package rust-mode
:init
(add-hook 'rust-mode-hook 'jj/eglot-setup))Go
Run eglot on Go files.
(use-package go-mode
:init
(add-hook 'go-mode-hook 'jj/eglot-setup))Get documentation for Go variables, functions, and arguments.
(use-package go-eldoc
:init
(add-hook 'go-mode-hook 'go-eldoc-setup))Automatically generate tests.
(use-package go-gen-test)
Refactoring tools from go-guru.
(use-package go-guru
:hook (go-mode . go-guru-hl-identifier-mode))Lua
Run eglot on Lua files.
(use-package lua-mode
:init
(add-hook 'lua-mode-hook 'jj/eglot-setup))Markdown
Run eglot on Markdown files.
(use-package markdown-mode
:init
(add-hook 'markdown-mode-hook 'jj/eglot-setup))LaTeX
Run eglot on TeX files.
(add-hook 'tex-mode-hook 'jj/eglot-setup)Use AUCTeX for extra LaTeX integrations.
(use-package auctex
:config
(add-hook 'LaTeX-mode-hook 'jj/eglot-setup)
(add-hook 'LaTeX-mode-hook
(lambda ()
(put 'LaTeX-mode 'eglot-language-id "latex"))))Use CDLaTeX for environment and macro insertion.
(use-package cdlatex
:config
(add-hook 'LaTeX-mode-hook #'turn-on-cdlatex))YAML
Run eglot on YAML files.
(use-package yaml-mode
:init
(add-hook 'yaml-mode-hook 'jj/eglot-setup))