+1 -10

README.md

··· 8 8 Clone this repository: 9 9 10 10 ```sh 11 11 - git clone https://tangled.org/nesv.ca/emacs.d ~/.emacs.d 12 12 - ``` 13 13 - 14 14 - or if you prefer [jj]: 15 15 - 16 16 - ```sh 17 17 - jj git clone https://tangled.org/nesv.ca/emacs.d ~/.emacs.d 11 11 + git clone https://git.sr.ht/~nesv/emacs.d ~/.emacs.d 18 12 ``` 19 13 20 14 The next time you start emacs(1), everything should be installed 21 15 automatically. 22 22 - 23 23 - [jj]: https://docs.jj-vcs.dev/latest/ 24 24 -

+76

early-init.el

··· 1 1 + ;;; early-init -- Early emacs initialization 2 2 + ;;; Commentary: 3 3 + ;;; Code: 4 4 + 5 5 + (defvar nesv/tiling-window-manager-regexp "bspwm\\|herbstluftwm\\|i3\\|hyprland" 6 6 + "Regexp to match the name of tiling window managers.") 7 7 + 8 8 + (defmacro nesv/with-desktop-session (&rest body) 9 9 + "Expand BODY if desktop is *not* a tiling window manager." 10 10 + (declare (indent 0)) 11 11 + `(when-let ((session (getenv "DESKTOP_SESSION")) 12 12 + ((not (string-match-p session nesv/tiling-window-manager-regexp)))) 13 13 + ,@body)) 14 14 + 15 15 + (defun nesv/add-to-list (list element) 16 16 + "Add ELEMENT to LIST. A simplified version of ADD-TO-LIST." 17 17 + (set list (cons element (symbol-value list)))) 18 18 + 19 19 + ;; Set the window size on non-tiling window managers. 20 20 + ;; 21 21 + ;; INITIAL-FRAME-ALIST is the first frame that is produced when starting emacs. 22 22 + ;; DEFAULT-FRAME-ALIST is all other frames. 23 23 + (nesv/with-desktop-session 24 24 + (mapc 25 25 + (lambda (var) 26 26 + (nesv/add-to-list var '(width . (text-pixels . 800))) 27 27 + (nesv/add-to-list var '(height . (text-pixels . 900))) 28 28 + (nesv/add-to-list var '(scroll-bar-width . 10))) 29 29 + '(default-frame-alist initial-frame-alist))) 30 30 + 31 31 + (setq frame-resize-pixelwise t 32 32 + frame-inhibit-implied-resize t 33 33 + frame-title-format '("%b") 34 34 + ring-bell-function 'ignore 35 35 + use-dialog-box t 36 36 + use-file-dialog nil 37 37 + use-short-answers t 38 38 + inhibit-splash-screen t 39 39 + inhibit-startup-screen t 40 40 + inhibit-x-resources t 41 41 + inhibit-startup-echo-area-message user-login-name 42 42 + inhibit-startup-buffer-menu t) 43 43 + 44 44 + ;; Disable useless graphical elements like the menu bar, the scroll bar, and 45 45 + ;; the tool bar. 46 46 + (menu-bar-mode -1) 47 47 + (scroll-bar-mode -1) 48 48 + (tool-bar-mode -1) 49 49 + 50 50 + ;; Temporarily increase the garbage collection threshold. 51 51 + ;; This should shave about 0.5s off startup time. 52 52 + (setq gc-cons-threshold most-positive-fixnum 53 53 + gc-cons-percentage 0.5) 54 54 + 55 55 + ;; More startup optimizations. 56 56 + (defvar nesv/file-name-handler-alist file-name-handler-alist) 57 57 + (defvar nesv/vc-handled-backends vc-handled-backends) 58 58 + 59 59 + (setq file-name-handler-alist nil 60 60 + vc-handled-backends nil) 61 61 + 62 62 + (add-hook 'emacs-startup-hook 63 63 + (lambda () 64 64 + (setq gc-cons-threshold (* 1000 1000 8) 65 65 + gc-cons-percentage 0.1 66 66 + file-name-handler-alist nesv/file-name-handler-alist 67 67 + vc-handled-backends nesv/vc-handled-backends))) 68 68 + 69 69 + ;; Name the default frame. 70 70 + (add-hook 'after-init-hook (lambda () (set-frame-name "nesv"))) 71 71 + 72 72 + ;; Inititalize install packages early. 73 73 + (setq package-enable-at-startup t) 74 74 + 75 75 + (provide 'early-init) 76 76 + ;;; early-init.el ends here

+90 -224

init.el

··· 2 2 ;;; Commentary: 3 3 ;;; Code: 4 4 5 5 + ;; Define a new group for customizations. 6 6 + ;; This will basically allow someone else to use this configuration, 7 7 + ;; but tweak it to their own liking by setting custom vars. 8 8 + (defgroup nesv-emacs nil 9 9 + "User options for nesv's Emacs. 10 10 + Put the customizations in a file called ~/.emacs.d/nesv-emacs-pre-custom.el." 11 11 + :group 'file) 12 12 + 13 13 + ;; Load extras for minibuffer completion. 14 14 + (defcustom nesv-emacs-completion-extras t 15 15 + "When non-nil, load extras for minibuffer completion (e.g. `consult', `embark')." 16 16 + :group 'nesv-emacs 17 17 + :type 'boolean) 18 18 + 19 19 + ;; User option to load extra stuff for tree-sitter. 20 20 + (defcustom nesv-emacs-tree-sitter-extras t 21 21 + "When non-nil, load extras for tree-sitter integration (e.g. `expreg')." 22 22 + :group 'nesv-emacs 23 23 + :type 'boolean) 24 24 + 25 25 + (defcustom nesv-emacs-load-which-key nil 26 26 + "When non-nil, display keybinding hints after a short delay." 27 27 + :group 'nesv-emacs 28 28 + :type 'boolean) 29 29 + 30 30 + (defcustom nesv-emacs-load-nerd-icons nil 31 31 + "When non-nil, enable nerd icons." 32 32 + :group 'nesv-emacs 33 33 + :type 'boolean) 34 34 + 35 35 + (defcustom nesv-emacs-load-theme 'ef 36 36 + "Load the specified colour theme." 37 37 + :group 'nesv-emacs 38 38 + :type '(choice :tag "Theme to load" :value ef 39 39 + (const :tag "`ef-themes'" ef) 40 40 + (const :tag "`modus-themes'" modus) 41 41 + (const :tag "Jonathan Blow style" naysayer) 42 42 + (const :tag "Do not load a theme" nil))) 43 43 + 44 44 + (defcustom nesv-emacs-font "Source Code Pro" 45 45 + "Set the specific font face when loading Emacs in GUI mode." 46 46 + :group 'nesv-emacs 47 47 + :type '(choice :tag "Font to use" :value "Source Code Pro" 48 48 + (const :tag "MonoLisa" "MonoLisa") 49 49 + (const :tag "Berkeley Mono" "Berkeley Mono"))) 50 50 + 5 51 ;; ░█▀█░█▀█░█▀▀░█░█░█▀█░█▀▀░█▀▀░█▀▀ 6 52 ;; ░█▀▀░█▀█░█░░░█▀▄░█▀█░█░█░█▀▀░▀▀█ 7 53 ;; ░▀░░░▀░▀░▀▀▀░▀░▀░▀░▀░▀▀▀░▀▀▀░▀▀▀ ··· 52 98 (global-set-key [f8] 'neotree-toggle) 53 99 (if (display-graphic-p) (setq neo-theme 'icons) (setq neo-theme 'arrows))) 54 100 55 55 - 56 56 - ;; ░█▀▀░█░█░█▀▀░█▀▀░░░░░█▀▀░█░█░█▀▀░█░░░█░░ 57 57 - ;; ░█▀▀░▄▀▄░█▀▀░█░░░▄▄▄░▀▀█░█▀█░█▀▀░█░░░█░░ 58 58 - ;; ░▀▀▀░▀░▀░▀▀▀░▀▀▀░░░░░▀▀▀░▀░▀░▀▀▀░▀▀▀░▀▀▀ 59 59 - ;; When running in GUI mode, load in our $PATH as though we were running from 60 60 - ;; a terminal. 61 61 - (use-package exec-path-from-shell 62 62 - :ensure t 63 63 - :config 64 64 - (when (display-graphic-p) 65 65 - (exec-path-from-shell-initialize))) 66 66 - 67 101 ;; ░█▀▄░▀█▀░█▀▄░█▀▀░█▀█░█░█ 68 102 ;; ░█░█░░█░░█▀▄░█▀▀░█░█░▀▄▀ 69 103 ;; ░▀▀░░▀▀▀░▀░▀░▀▀▀░▀░▀░░▀░ ··· 72 106 :config 73 107 (direnv-mode)) 74 108 75 75 - ;; ░█▀▀░█▀█░█░░░█▀█░█░█░█▀▄░░░▀█▀░█░█░█▀▀░█▄█░█▀▀░█▀▀ 76 76 - ;; ░█░░░█░█░█░░░█░█░█░█░█▀▄░░░░█░░█▀█░█▀▀░█░█░█▀▀░▀▀█ 77 77 - ;; ░▀▀▀░▀▀▀░▀▀▀░▀▀▀░▀▀▀░▀░▀░░░░▀░░▀░▀░▀▀▀░▀░▀░▀▀▀░▀▀▀ 78 78 - ;; A recreation of Jonathan Blow's emacs theme. 79 79 - (use-package naysayer-theme 80 80 - :ensure t 81 81 - :config (load-theme 'naysayer t)) 82 82 - ;; 83 83 - ;; EF-THEMES (https://protesilaos.com/emacs/ef-themes) 84 84 - ;; (use-package ef-themes 85 85 - ;; :ensure t 86 86 - ;; :config 87 87 - ;; (load-theme 'ef-duo-light t)) 88 88 - ;; 89 89 - ;; MODUS THEMES (https://protesilaos.com/emacs/modus-themes) 90 90 - ;; (use-package modus-themes 91 91 - ;; :ensure t 92 92 - ;; :config 93 93 - ;; (load-theme 'modus-operandi t)) 94 94 - 95 109 ;; ░█▀▀░█▀█░█░░░█▀█░▀█▀░█▀▄░█▀▀░░░░░█▄█░█▀█░█▀▄░█▀▀ 96 110 ;; ░▀▀█░█░█░█░░░█▀█░░█░░█▀▄░█▀▀░▄▄▄░█░█░█░█░█░█░█▀▀ 97 111 ;; ░▀▀▀░▀▀▀░▀▀▀░▀░▀░▀▀▀░▀░▀░▀▀▀░░░░░▀░▀░▀▀▀░▀▀░░▀▀▀ ··· 107 121 (menu-bar-mode -1) ; Disable the menubar. 108 122 (tool-bar-mode -1) ; Disable the toolbar. 109 123 (setq ring-bell-function 'ignore) ; Disable the damn bell. 110 110 - (setq make-backup-files nil) ; Do not create backup files. 111 124 (setq auto-save-default nil) ; Disable auto save. 112 125 (global-auto-revert-mode t) ; Auto-reload buffers when the backing file on disk changes. 113 126 (global-hl-line-mode t) ; Highlight the current line. ··· 115 128 (setq column-number-mode t) ; Display column numbers. 116 129 (set-default 'truncate-lines t) ; Let long lines flow off-screen. 117 130 131 131 + ;; Disable backup files, and lock files. 132 132 + (setq make-backup-files nil) 133 133 + (setq backup-inhibited nil) 134 134 + (setq create-lockfiles nil) 135 135 + 136 136 + ;; Silence native compilation (`nativecomp'). 137 137 + (when (native-comp-available-p) 138 138 + (setq native-comp-async-report-warnings-errors 'silent) 139 139 + (setq native-compile-prune-cache t)) 140 140 + 141 141 + ;; By default, Emacs writes persistent customizations to the end of the user's 142 142 + ;; init.el. 143 143 + ;; Disable it. 144 144 + (setq custom-file (make-temp-file "emacs-custom-")) 145 145 + 118 146 ;; Draw a ruler at the 80-character column. 119 147 (add-hook 'prog-mode-hook #'display-fill-column-indicator-mode) 120 148 (add-hook 'text-mode-hook #'display-fill-column-indicator-mode) ··· 123 151 (setq-default fill-column 80) 124 152 (add-hook 'text-mode-hook #'auto-fill-mode) 125 153 126 126 - ;; ░█▀▀░█░█░▀█▀░░░█▄█░█▀█░█▀▄░█▀▀ 127 127 - ;; ░█░█░█░█░░█░░░░█░█░█░█░█░█░█▀▀ 128 128 - ;; ░▀▀▀░▀▀▀░▀▀▀░░░▀░▀░▀▀▀░▀▀░░▀▀▀ 129 129 - (when (display-graphic-p) 130 130 - ;; Disable the scroll bar. 131 131 - (scroll-bar-mode -1) 132 132 - 133 133 - ;; Set the default window width, height, and font. 134 134 - (add-to-list 'default-frame-alist '(width . 200)) 135 135 - (add-to-list 'default-frame-alist '(height . 60)) 136 136 - (add-to-list 'default-frame-alist '(font . "MonoLisa-11"))) 137 137 - 138 138 - ;; ░█▀▀░█░░░█░█░█▀▀░█░█░█▀▀░█▀▀░█░█ 139 139 - ;; ░█▀▀░█░░░░█░░█░░░█▀█░█▀▀░█░░░█▀▄ 140 140 - ;; ░▀░░░▀▀▀░░▀░░▀▀▀░▀░▀░▀▀▀░▀▀▀░▀░▀ 141 141 - (use-package flycheck 142 142 - :ensure t 143 143 - :init (global-flycheck-mode)) 144 144 - 145 145 - ;; ░█▀▀░█▀▀░█░░░█▀█░▀█▀ 146 146 - ;; ░█▀▀░█░█░█░░░█░█░░█░ 147 147 - ;; ░▀▀▀░▀▀▀░▀▀▀░▀▀▀░░▀░ 148 148 - (use-package eglot 149 149 - :ensure t) 150 150 - 151 151 - ;; ░█▀█░█▀▀░█▀▄░█▀▄░░░░░▀█▀░█▀▀░█▀█░█▀█░█▀▀ 152 152 - ;; ░█░█░█▀▀░█▀▄░█░█░▄▄▄░░█░░█░░░█░█░█░█░▀▀█ 153 153 - ;; ░▀░▀░▀▀▀░▀░▀░▀▀░░░░░░▀▀▀░▀▀▀░▀▀▀░▀░▀░▀▀▀ 154 154 - (use-package nerd-icons 155 155 - :ensure t) 156 156 - 157 157 - ;; ░█▀▀░█▀█░█▀█░▀█▀░░░█░░░▀█▀░█▀▀░█▀█░▀█▀░█░█░█▀▄░█▀▀░█▀▀ 158 158 - ;; ░█▀▀░█░█░█░█░░█░░░░█░░░░█░░█░█░█▀█░░█░░█░█░█▀▄░█▀▀░▀▀█ 159 159 - ;; ░▀░░░▀▀▀░▀░▀░░▀░░░░▀▀▀░▀▀▀░▀▀▀░▀░▀░░▀░░▀▀▀░▀░▀░▀▀▀░▀▀▀ 160 160 - (setq-default mono-lisa-v2-ligatures '(;; coding ligatures 161 161 - "<!---" "--->" "|||>" "<!--" "<|||" "<==>" "-->" "->>" "-<<" "..=" "!==" 162 162 - "#_(" "/==" "||>" "||=" "|->" "===" "==>" "=>>" "=<<" "=/=" ">->" ">=>" 163 163 - ">>-" ">>=" "<--" "<->" "<-<" "<||" "<|>" "<=" "<==" "<=>" "<=<" "<<-" 164 164 - "<<=" "<~>" "<~~" "~~>" ">&-" "<&-" "&>>" "&>" "->" "-<" "-~" ".=" "!=" 165 165 - "#_" "/=" "|=" "|>" "==" "=>" ">-" ">=" "<-" "<|" "<~" "~-" "~@" "~=" 166 166 - "~>" "~~" 167 167 - ;; whitespace ligatures 168 168 - "---" "'''" "\"\"\"" "..." "..<" "{|" "[|" ".?" "::" ":::" "::=" ":=" 169 169 - ":>" ":<" "\;\;" "!!" "!!." "!!!" "?." "?:" "??" "?=" "**" "***" "*>" 170 170 - "*/" "--" "#:" "#!" "#?" "##" "###" "####" "#=" "/*" "/>" "//" "/**" 171 171 - "///" "$(" ">&" "<&" "&&" "|}" "|]" "$>" ".." "++" "+++" "+>" "=:=" 172 172 - "=!=" ">:" ">>" ">>>" "<:" "<*" "<*>" "<$" "<$>" "<+" "<+>" "<>" "<<" 173 173 - "<<<" "</" "</>" "^=" "%%") 174 174 - berkeley-mono-ligatures '(;; Group A 175 175 - ".." ".=" "..." "..<" "::" ":::" ":=" "::=" ";;" ";;;" "??" "???" 176 176 - ".?" "?." ":?" "?:" "?=" "**" "***" "/*" "*/" "/**" 177 177 - ;; Group B 178 178 - "<-" "->" "-<" ">-" "<--" "-->" "<<-" "->>" "-<<" ">>-" "<-<" ">->" 179 179 - "<-|" "|->" "-|" "|-" "||-" "<!--" "<#--" "<=" "=>" ">=" "<==" "==>" 180 180 - "<<=" "=>>" "=<<" ">>=" "<=<" ">=>" "<=|" "|=>" "<=>" "<==>" "||=" 181 181 - "|=" "//=" "/=" 182 182 - ;; Group C 183 183 - "<<" ">>" "<<<" ">>>" "<>" "<$" "$>" "<$>" "<+" "+>" "<+>" "<:" ":<" 184 184 - "<:<" ">:" ":>" "<~" "~>" "<~>" "<<~" "<~~" "~~>" "~~" "<|" "|>" 185 185 - "<|>" "<||" "||>" "<|||" "|||>" "</" "/>" "</>" "<*" "*>" "<*>" ":?>" 186 186 - ;; Group D 187 187 - "#(" "#{" "#[" "]#" "#!" "#?" "#=" "#_" "#_(" "##" "###" "####" 188 188 - ;; Group E 189 189 - "[|" "|]" "[<" ">]" "{!!" "!!}" "{|" "|}" "{{" "}}" "{{--" "--}}" 190 190 - "{!--" "//" "///" "!!" 191 191 - ;; Group F 192 192 - "www" "@_" "&&" "&&&" "&=" "~@" "++" "+++" "/\\" "\\/" "_|_" "||" 193 193 - ;; Group G 194 194 - "=:" "=:=" "=!=" "==" "===" "=/=" "=~" "~-" "^=" "__" "!=" "!==" "-~" 195 195 - "--" "---")) 154 154 + ;; Enable these commands. 155 155 + (mapc 156 156 + (lambda (command) (put command 'disabled nil)) 157 157 + '(list-timers narrow-to-region narrow-to-page upcase-region downcase-region)) 196 158 197 197 - (use-package ligature 198 198 - :ensure t 199 199 - :config (when (display-graphic-p) 200 200 - (ligature-set-ligatures 'prog-mode mono-lisa-v2-ligatures) 201 201 - (global-ligature-mode t))) 159 159 + ;; Disable these commands. 160 160 + (mapc 161 161 + (lambda (command) (put command 'disabled t)) 162 162 + '(eshell project-eshell overwrite-mode iconify-frame diary)) 202 163 203 203 - ;; ░█▀▀░▀█▀░▀█▀░░░█░█▄█░█▀█░█▀▀░▀█▀░▀█▀ 204 204 - ;; ░█░█░░█░░░█░░▄▀░░█░█░█▀█░█░█░░█░░░█░ 205 205 - ;; ░▀▀▀░▀▀▀░░▀░░▀░░░▀░▀░▀░▀░▀▀▀░▀▀▀░░▀░ 206 206 - (use-package magit 207 207 - :ensure t 208 208 - :hook (after-save-hook . magit-after-save-refresh-status)) 164 164 + ;; Always start with the *scratch* buffer. 165 165 + (setq initial-buffer-choice t) 209 166 210 210 - ;; ░▀▀█░▀▀█ 211 211 - ;; ░░░█░░░█ 212 212 - ;; ░▀▀░░▀▀░ 213 213 - (use-package jjdescription 214 214 - :ensure t) 167 167 + ;; By default, Emacs inserts tabs in place of multiple spaces when formatting 168 168 + ;; a region. 169 169 + ;; Turn this off. 170 170 + (setq-default indent-tabs-mode nil) 215 171 216 216 - (use-package vc-jj 217 217 - :ensure t) 172 172 + ;; Add directories containing my custom `.el' files to Emacs' load-path. 173 173 + (mapc 174 174 + (lambda (string) (add-to-list 'load-path (locate-user-emacs-file string))) 175 175 + '("nesv")) 218 176 219 219 - ;; Git Gutter -- Shows git status in the sidebar 220 220 - (use-package git-gutter 221 221 - :ensure t 222 222 - :hook (prog-mode . git-gutter-mode) 223 223 - :config 224 224 - (setq git-gutter:update-interval 0.2)) 225 225 - (use-package git-gutter-fringe 226 226 - :ensure t 227 227 - :config 228 228 - (define-fringe-bitmap 'git-gutter-fr:added [224] nil nil '(center repeated)) 229 229 - (define-fringe-bitmap 'git-gutter-fr:modified [224] nil nil '(center repeated)) 230 230 - (define-fringe-bitmap 'git-gutter-fr:deleted [128 192 224 240] nil nil 'bottom)) 231 231 - 232 232 - ;; ░▀█▀░█▀▄░█▀▀░█▀▀░░░░░█▀▀░▀█▀░▀█▀░▀█▀░█▀▀░█▀▄ 233 233 - ;; ░░█░░█▀▄░█▀▀░█▀▀░▄▄▄░▀▀█░░█░░░█░░░█░░█▀▀░█▀▄ 234 234 - ;; ░░▀░░▀░▀░▀▀▀░▀▀▀░░░░░▀▀▀░▀▀▀░░▀░░░▀░░▀▀▀░▀░▀ 235 235 - ;; ...because it's pretty cool. 236 236 - (use-package tree-sitter 237 237 - :ensure t) 238 238 - (use-package tree-sitter-langs 239 239 - :ensure t 240 240 - :hook (tree-sitter-after-on-hook . tree-sitter-hl-mode) 241 241 - :config 242 242 - (global-tree-sitter-mode)) 243 243 - 244 244 - ;; indent-mode helps with indenting, moving around, and acting on 245 245 - ;; whitespace-sensitive code, like YAML and Python. 246 246 - (use-package indent-tools 247 247 - :ensure t) 248 248 - 249 249 - ;; ░█░░░█▀█░█▀█░█▀▀░█░█░█▀█░█▀▀░█▀▀░█▀▀ 250 250 - ;; ░█░░░█▀█░█░█░█░█░█░█░█▀█░█░█░█▀▀░▀▀█ 251 251 - ;; ░▀▀▀░▀░▀░▀░▀░▀▀▀░▀▀▀░▀░▀░▀▀▀░▀▀▀░▀▀▀ 252 252 - ;; Bazel, Starlark, Tilt, etc. 253 253 - (use-package bazel :ensure t 254 254 - :mode ("Tiltfile.\\'" . bazel-mode)) 255 255 - 256 256 - ;; CUE -- https://cuelang.org 257 257 - (use-package cue-mode :ensure t) 258 258 - 259 259 - (use-package dockerfile-mode :ensure t) 260 260 - 261 261 - (use-package go-mode 262 262 - :ensure t 263 263 - :hook ((go-mode . lsp-deferred) 264 264 - (before-save . gofmt-before-save)) 265 265 - :config 266 266 - (setq gofmt-command "~/go/bin/gofumpt")) 267 267 - 268 268 - ;; HashiCorp Configuration Language 269 269 - (use-package hcl-mode :ensure t) 270 270 - (use-package terraform-mode 271 271 - :ensure t 272 272 - :hook (terraform-mode . outline-minor-mode)) 273 273 - 274 274 - ;; Just -- https://just.systems 275 275 - (use-package just-mode :ensure t) 276 276 - 277 277 - (use-package markdown-mode 278 278 - :ensure t 279 279 - :mode ("README\\.md\\'" . gfm-mode) 280 280 - :hook (markdown-mode . auto-fill-mode) 281 281 - :init (setq markdown-command "multimarkdown")) 282 282 - 283 283 - (use-package protobuf-mode :ensure t) 284 284 - 285 285 - (use-package rust-mode 286 286 - :ensure t 287 287 - :hook (rust-mode-hook . eglot-ensure) 288 288 - :init 289 289 - (add-hook 'rust-mode-hook (lambda () (setq indent-tabs-mode nil))) 290 290 - :config 291 291 - (setq rust-format-on-save t)) 292 292 - 293 293 - (use-package yaml-mode :ensure t) 294 294 - (use-package flycheck-yamllint :ensure t) 295 295 - 296 296 - ;; Zig -- https://ziglang.org 297 297 - (use-package zig-mode :ensure t) 177 177 + (require 'nesv-theme) 178 178 + (require 'nesv-cursor) 179 179 + (require 'nesv-fonts) 180 180 + (require 'nesv-which-key) 181 181 + (require 'nesv-tree-sitter) 182 182 + (require 'nesv-lsp) 183 183 + (require 'nesv-programming) 184 184 + (when nesv-emacs-load-nerd-icons 185 185 + (require 'nesv-icons)) 186 186 + (require 'nesv-slime) 187 187 + (require 'nesv-gnus) 298 188 299 189 ;; ░█░█░█▀▀░█░█░█▄█░█▀█░█▀█░█▀▀ 300 190 ;; ░█▀▄░█▀▀░░█░░█░█░█▀█░█▀▀░▀▀█ ··· 316 206 ;; 317 207 ;; (which-key-add-keymap-based-replacements nesv-prefix-map 318 208 ;; "b" `("Buffer" . ,nesv-buffer-prefix-map)) 319 319 - 320 320 - ;; ░█▀▀░█░░░▀█▀░█▄█░█▀▀ 321 321 - ;; ░▀▀█░█░░░░█░░█░█░█▀▀ 322 322 - ;; ░▀▀▀░▀▀▀░▀▀▀░▀░▀░▀▀▀ 323 323 - (setq inferior-lisp-program "sbcl") 324 209 325 210 (provide 'init) 326 211 ;;; init.el ends here 327 327 - 328 328 - (custom-set-variables 329 329 - ;; custom-set-variables was added by Custom. 330 330 - ;; If you edit it by hand, you could mess it up, so be careful. 331 331 - ;; Your init file should contain only one such instance. 332 332 - ;; If there is more than one, they won't work right. 333 333 - '(package-selected-packages 334 334 - '(all-the-icons bazel cue-mode direnv dockerfile-mode exec-path-from-shell 335 335 - flycheck-yamllint git-gutter-fringe go-mode indent-tools 336 336 - jjdescription just-mode ligature magit markdown-mode 337 337 - naysayer-theme neotree nerd-icons protobuf-mode rust-mode 338 338 - solaire-mode terraform-mode tree-sitter-langs yaml-mode 339 339 - zig-mode))) 340 340 - (custom-set-faces 341 341 - ;; custom-set-faces was added by Custom. 342 342 - ;; If you edit it by hand, you could mess it up, so be careful. 343 343 - ;; Your init file should contain only one such instance. 344 344 - ;; If there is more than one, they won't work right. 345 345 - )

+31

nesv/nesv-cursor.el

··· 1 1 + ;;; nesv-cursor -- Cursor configuration for GUI mode 2 2 + ;;; Commentary: 3 3 + ;;; Code: 4 4 + 5 5 + (use-package cursory 6 6 + :ensure t 7 7 + :if (display-graphic-p) 8 8 + :config 9 9 + (setq cursory-presets 10 10 + '((bar 11 11 + :cursor-type (bar . 2) 12 12 + :cursor-in-non-selected-windows hollow 13 13 + :blink-cursor-blinks 10 14 14 + :blink-cursor-interval 0.5 15 15 + :blink-cursor-delay 0.2) 16 16 + (box 17 17 + :cursor-type box 18 18 + :cursor-in-non-selected-windows hollow 19 19 + :blink-cursor-blinks 10 20 20 + :blink-cursor-interval 0.5 21 21 + :blink-cursor-delay 0.2) 22 22 + (underscore 23 23 + :cursor-type (hbar . 3) 24 24 + :cursor-in-non-selected-windows hollow 25 25 + :blink-cursor-blinks 50 26 26 + :blink-cursor-interval 0.2 27 27 + :blink-cursor-delay 0.2))) 28 28 + (cursory-set-preset 'bar)) 29 29 + 30 30 + (provide 'nesv-cursor) 31 31 + ;;; nesv-cursor.el ends here

+102

nesv/nesv-fonts.el

··· 1 1 + ;;; nesv-fonts -- Font configuration 2 2 + ;;; Commentary: 3 3 + ;;; Code: 4 4 + 5 5 + (use-package fontaine 6 6 + :ensure t 7 7 + :if (display-graphic-p) 8 8 + :config 9 9 + (setq fontaine-presets 10 10 + '((tiny 11 11 + :default-family "Iosevka Comfy Wide Fixed" 12 12 + :default-height 70) 13 13 + (small 14 14 + :default-family "Iosevka Comfy Fixed" 15 15 + :default-height 90) 16 16 + (regular 17 17 + :default-height 100) 18 18 + (medium 19 19 + :default-height 110) 20 20 + (medium-large 21 21 + :default-height 120) 22 22 + (large 23 23 + :default-weight semilight 24 24 + :default-height 140 25 25 + :bold-weight extrabold) 26 26 + (presentation 27 27 + :default-weight semlight 28 28 + :default-height 170 29 29 + :bold-weight extrabold) 30 30 + (t 31 31 + :default-family nesv-emacs-font 32 32 + :default-weight regular 33 33 + :default-height 100 34 34 + :fixed-pitch-family nil ; Falls back to :default-family 35 35 + :fixed-pitch-weight nil ; Falls back to :default-weight 36 36 + :fixed-pitch-height 1.0 37 37 + ;;:variable-pitch-family "Iosevka Comfy Wide Duo" 38 38 + :variable-pitch-family "Atkinson Hyperlegible" 39 39 + :variable-pitch-weight nil 40 40 + :variable-pitch-height 1.0 41 41 + :bold-family nil ; Whatever the underlying face has 42 42 + :bold-weight bold 43 43 + :italic-family nil 44 44 + :italic-slant italic 45 45 + :line-spacing nil))) 46 46 + (fontaine-set-preset 'medium-large)) 47 47 + 48 48 + (setq mono-lisa-v2-ligatures 49 49 + '(;; coding ligatures 50 50 + "<!---" "--->" "|||>" "<!--" "<|||" "<==>" "-->" "->>" "-<<" "..=" "!==" 51 51 + "#_(" "/==" "||>" "||=" "|->" "===" "==>" "=>>" "=<<" "=/=" ">->" ">=>" 52 52 + ">>-" ">>=" "<--" "<->" "<-<" "<||" "<|>" "<=" "<==" "<=>" "<=<" "<<-" 53 53 + "<<=" "<~>" "<~~" "~~>" ">&-" "<&-" "&>>" "&>" "->" "-<" "-~" ".=" "!=" 54 54 + "#_" "/=" "|=" "|>" "==" "=>" ">-" ">=" "<-" "<|" "<~" "~-" "~@" "~=" 55 55 + "~>" "~~" 56 56 + ;; whitespace ligatures 57 57 + "---" "'''" "\"\"\"" "..." "..<" "{|" "[|" ".?" "::" ":::" "::=" ":=" 58 58 + ":>" ":<" "\;\;" "!!" "!!." "!!!" "?." "?:" "??" "?=" "**" "***" "*>" 59 59 + "*/" "--" "#:" "#!" "#?" "##" "###" "####" "#=" "/*" "/>" "//" "/**" 60 60 + "///" "$(" ">&" "<&" "&&" "|}" "|]" "$>" ".." "++" "+++" "+>" "=:=" 61 61 + "=!=" ">:" ">>" ">>>" "<:" "<*" "<*>" "<$" "<$>" "<+" "<+>" "<>" "<<" 62 62 + "<<<" "</" "</>" "^=" "%%")) 63 63 + 64 64 + (setq berkeley-mono-ligatures 65 65 + '(;; Group A 66 66 + ".." ".=" "..." "..<" "::" ":::" ":=" "::=" ";;" ";;;" "??" "???" 67 67 + ".?" "?." ":?" "?:" "?=" "**" "***" "/*" "*/" "/**" 68 68 + ;; Group B 69 69 + "<-" "->" "-<" ">-" "<--" "-->" "<<-" "->>" "-<<" ">>-" "<-<" ">->" 70 70 + "<-|" "|->" "-|" "|-" "||-" "<!--" "<#--" "<=" "=>" ">=" "<==" "==>" 71 71 + "<<=" "=>>" "=<<" ">>=" "<=<" ">=>" "<=|" "|=>" "<=>" "<==>" "||=" 72 72 + "|=" "//=" "/=" 73 73 + ;; Group C 74 74 + "<<" ">>" "<<<" ">>>" "<>" "<$" "$>" "<$>" "<+" "+>" "<+>" "<:" ":<" 75 75 + "<:<" ">:" ":>" "<~" "~>" "<~>" "<<~" "<~~" "~~>" "~~" "<|" "|>" 76 76 + "<|>" "<||" "||>" "<|||" "|||>" "</" "/>" "</>" "<*" "*>" "<*>" ":?>" 77 77 + ;; Group D 78 78 + "#(" "#{" "#[" "]#" "#!" "#?" "#=" "#_" "#_(" "##" "###" "####" 79 79 + ;; Group E 80 80 + "[|" "|]" "[<" ">]" "{!!" "!!}" "{|" "|}" "{{" "}}" "{{--" "--}}" 81 81 + "{!--" "//" "///" "!!" 82 82 + ;; Group F 83 83 + "www" "@_" "&&" "&&&" "&=" "~@" "++" "+++" "/\\" "\\/" "_|_" "||" 84 84 + ;; Group G 85 85 + "=:" "=:=" "=!=" "==" "===" "=/=" "=~" "~-" "^=" "__" "!=" "!==" "-~" 86 86 + "--" "---")) 87 87 + 88 88 + (use-package ligature 89 89 + :ensure t 90 90 + :defer t 91 91 + :if (display-graphic-p) 92 92 + :config 93 93 + (when (or (eq nesv-emacs-font "MonoLisa") 94 94 + (eq nesv-emacs-font "Berkeley Mono")) 95 95 + (ligature-set-ligatures 'prog-mode (pcase nesv-emacs-font 96 96 + ("MonoLisa" mono-lisa-v2-ligatures) 97 97 + ("Berkeley Mono" berkeley-mono-ligatures)))) 98 98 + (global-ligature-mode t)) 99 99 + 100 100 + 101 101 + (provide 'nesv-fonts) 102 102 + ;;; nesv-fonts.el ends here

+24

nesv/nesv-git.el

··· 1 1 + ;;; nesv-git -- Git configuration 2 2 + ;;; Commentary: 3 3 + ;;; Code: 4 4 + 5 5 + (use-package magit 6 6 + :ensure t 7 7 + :hook (after-save-hook . magit-after-save-refresh-status)) 8 8 + 9 9 + ;; Git Gutter -- Shows git status in the sidebar 10 10 + (use-package git-gutter 11 11 + :ensure t 12 12 + :hook (prog-mode . git-gutter-mode) 13 13 + :config 14 14 + (setq git-gutter:update-interval 0.2)) 15 15 + 16 16 + (use-package git-gutter-fringe 17 17 + :ensure t 18 18 + :config 19 19 + (define-fringe-bitmap 'git-gutter-fr:added [224] nil nil '(center repeated)) 20 20 + (define-fringe-bitmap 'git-gutter-fr:modified [224] nil nil '(center repeated)) 21 21 + (define-fringe-bitmap 'git-gutter-fr:deleted [128 192 224 240] nil nil 'bottom)) 22 22 + 23 23 + (provide 'nesv-git) 24 24 + ;;; nesv-git.el ends here

+8

nesv/nesv-gnus.el

··· 1 1 + ;;; nesv-gnus -- GNUS configuration 2 2 + ;;; Commentary: 3 3 + ;;; Code: 4 4 + 5 5 + (setq gnus-select-method '(nntp "news.newshosting.com")) 6 6 + 7 7 + (provide 'nesv-gnus) 8 8 + ;;; nesv-gnus.el ends here

+18

nesv/nesv-icons.el

··· 1 1 + ;;; nesv-icons.el -- Icon snazziness 2 2 + ;;; Commentary: 3 3 + ;;; Code: 4 4 + 5 5 + (use-package nerd-icons 6 6 + :ensure t) 7 7 + 8 8 + (use-package nerd-icons-completion 9 9 + :ensure t 10 10 + :hook (marginalia-mode . nerd-icons-completion-marginalia-setup)) 11 11 + 12 12 + (use-package nerd-icons-dired 13 13 + :ensure t 14 14 + :hook 15 15 + (dired-mode . nerd-icons-dired-mode)) 16 16 + 17 17 + (provide 'nesv-icons) 18 18 + ;;; nesv-icons.el ends here

+9

nesv/nesv-lsp.el

··· 1 1 + ;;; nesv-lsp -- LSP client configuration 2 2 + ;;; Commentary: 3 3 + ;;; Code: 4 4 + 5 5 + (use-package eglot 6 6 + :ensure t) 7 7 + 8 8 + (provide 'nesv-lsp) 9 9 + ;;; nesv-lsp.el ends here

+129

nesv/nesv-programming.el

··· 1 1 + ;;; nesv-programming.el -- Configuration for programming-related things. 2 2 + ;;; Commentary: 3 3 + ;; This file installs any packages that are useful in my day-to-day programming 4 4 + ;; tasks. 5 5 + ;;; Code: 6 6 + 7 7 + ;; ░█▀▀░█░░░█░█░█▀▀░█░█░█▀▀░█▀▀░█░█ 8 8 + ;; ░█▀▀░█░░░░█░░█░░░█▀█░█▀▀░█░░░█▀▄ 9 9 + ;; ░▀░░░▀▀▀░░▀░░▀▀▀░▀░▀░▀▀▀░▀▀▀░▀░▀ 10 10 + (use-package flycheck 11 11 + :ensure t 12 12 + :init (global-flycheck-mode)) 13 13 + 14 14 + ;; ░█▀█░█▀▀░█▀▀░▀█▀░▀█▀░█▀▄░█▀█░█▀▀ 15 15 + ;; ░█▀█░▀▀█░█░░░░█░░░█░░█░█░█░█░█░░ 16 16 + ;; ░▀░▀░▀▀▀░▀▀▀░▀▀▀░▀▀▀░▀▀░░▀▀▀░▀▀▀ 17 17 + (use-package adoc-mode 18 18 + :ensure t) 19 19 + 20 20 + ;; Bazel, Starlark, Tilt, etc. 21 21 + (use-package bazel 22 22 + :ensure t 23 23 + :mode 24 24 + ("Tiltfile.\\'" . bazel-mode)) 25 25 + 26 26 + ;; ░█▀▀░█░█░█▀▀ 27 27 + ;; ░█░░░█░█░█▀▀ 28 28 + ;; ░▀▀▀░▀▀▀░▀▀▀ 29 29 + ;; https://cuelang.org 30 30 + (use-package cue-mode 31 31 + :ensure t) 32 32 + 33 33 + (use-package dockerfile-mode 34 34 + :ensure t) 35 35 + 36 36 + ;; ░█▀▀░█▀█ 37 37 + ;; ░█░█░█░█ 38 38 + ;; ░▀▀▀░▀▀▀ 39 39 + (use-package go-mode 40 40 + :ensure t 41 41 + :hook 42 42 + ((before-save . gofmt-before-save) 43 43 + (go-mode-hook . lsp-deferred)) 44 44 + :config 45 45 + (setq gofmt-command "goimports")) 46 46 + 47 47 + ;; indent-mode helps with indenting, moving around, and acting on 48 48 + ;; whitespace-sensitive code, like YAML and Python. 49 49 + (use-package indent-tools 50 50 + :ensure t) 51 51 + 52 52 + ;; HashiCorp Configuration Language 53 53 + (use-package hcl-mode 54 54 + :ensure t) 55 55 + 56 56 + (use-package terraform-mode 57 57 + :ensure t 58 58 + :hook 59 59 + (terraform-mode . outline-minor-mode)) 60 60 + 61 61 + ;; ░▀▀█░█░█░█▀▀░▀█▀ 62 62 + ;; ░░░█░█░█░▀▀█░░█░ 63 63 + ;; ░▀▀░░▀▀▀░▀▀▀░░▀░ 64 64 + ;; https://just.systems 65 65 + (use-package just-mode 66 66 + :ensure t) 67 67 + 68 68 + ;; ░█▄█░█▀█░█▀▄░█░█░█▀▄░█▀█░█░█░█▀█ 69 69 + ;; ░█░█░█▀█░█▀▄░█▀▄░█░█░█░█░█▄█░█░█ 70 70 + ;; ░▀░▀░▀░▀░▀░▀░▀░▀░▀▀░░▀▀▀░▀░▀░▀░▀ 71 71 + (use-package markdown-mode 72 72 + :ensure t 73 73 + :mode 74 74 + ("README\\.md\\'" . gfm-mode) 75 75 + :hook 76 76 + (markdown-mode . auto-fill-mode) 77 77 + :init 78 78 + (setq markdown-command "multimarkdown") 79 79 + :config 80 80 + (setq markdown-fontify-code-blocks-natively t)) 81 81 + 82 82 + ;; ░█▀▀░█▀▀░█░█ 83 83 + ;; ░█░░░▀▀█░▀▄▀ 84 84 + ;; ░▀▀▀░▀▀▀░░▀░ 85 85 + (use-package csv-mode 86 86 + :ensure t 87 87 + :commands (csv-align-mode)) 88 88 + 89 89 + ;; ░█▀█░█▀▄░█▀█░▀█▀░█▀█░█▀▄░█░█░█▀▀ 90 90 + ;; ░█▀▀░█▀▄░█░█░░█░░█░█░█▀▄░█░█░█▀▀ 91 91 + ;; ░▀░░░▀░▀░▀▀▀░░▀░░▀▀▀░▀▀░░▀▀▀░▀░░ 92 92 + (use-package protobuf-mode 93 93 + :ensure t) 94 94 + 95 95 + ;; ░█▀▄░█░█░█▀▀░▀█▀ 96 96 + ;; ░█▀▄░█░█░▀▀█░░█░ 97 97 + ;; ░▀░▀░▀▀▀░▀▀▀░░▀░ 98 98 + (use-package rustic 99 99 + :ensure t 100 100 + :config 101 101 + (setq rustic-lsp-client 'eglot) 102 102 + (setq lsp-eldoc-hook nil) 103 103 + (setq lsp-enable-symbol-highlighting nil) 104 104 + (setq lsp-signature-auto-activate nil) 105 105 + (setq rustic-format-on-save t) 106 106 + (add-hook 'rustic-mode-hook 'nesv/rustic-mode-hook)) 107 107 + 108 108 + (defun nesv/rustic-mode-hook () 109 109 + (when buffer-file-name 110 110 + (setq-local buffer-save-without-query t)) 111 111 + (add-hook 'before-save-hook 'lsp-format-buffer nil t)) 112 112 + 113 113 + ;; ░█░█░█▀█░█▄█░█░░ 114 114 + ;; ░░█░░█▀█░█░█░█░░ 115 115 + ;; ░░▀░░▀░▀░▀░▀░▀▀▀ 116 116 + (use-package yaml-mode 117 117 + :ensure t) 118 118 + 119 119 + (use-package flycheck-yamllint 120 120 + :ensure t) 121 121 + 122 122 + ;; ░▀▀█░▀█▀░█▀▀ 123 123 + ;; ░▄▀░░░█░░█░█ 124 124 + ;; ░▀▀▀░▀▀▀░▀▀▀ 125 125 + (use-package zig-mode 126 126 + :ensure t) 127 127 + 128 128 + (provide 'nesv-programming) 129 129 + ;;; nesv-programming.el ends here

+7

nesv/nesv-slime.el

··· 1 1 + ;;; nesv-slime -- Superior LISP Interaction Mode for Emacs 2 2 + ;;; Commentary: 3 3 + ;;; Code: 4 4 + (setq inferior-lisp-program "sbcl") 5 5 + 6 6 + (provide 'nesv-slime) 7 7 + ;;; nesv-slime.el ends here

+48

nesv/nesv-theme.el

··· 1 1 + ;;; nesv-theme.el -- Colour theme configuration 2 2 + ;;; Commentary: 3 3 + ;;; ░█▀▀░█▀█░█░░░█▀█░█░█░█▀▄░░░▀█▀░█░█░█▀▀░█▄█░█▀▀░█▀▀ 4 4 + ;;; ░█░░░█░█░█░░░█░█░█░█░█▀▄░░░░█░░█▀█░█▀▀░█░█░█▀▀░▀▀█ 5 5 + ;;; ░▀▀▀░▀▀▀░▀▀▀░▀▀▀░▀▀▀░▀░▀░░░░▀░░▀░▀░▀▀▀░▀░▀░▀▀▀░▀▀▀ 6 6 + ;;; Code: 7 7 + 8 8 + ;; A recreation of Jonathan Blow's emacs theme. 9 9 + (use-package naysayer-theme 10 10 + :ensure t) 11 11 + 12 12 + ;; EF-THEMES -- https://protesilaos.com/emacs/ef-themes 13 13 + (use-package ef-themes 14 14 + :ensure t) 15 15 + 16 16 + ;; MODUS THEMES -- https://protesilaos.com/emacs/modus-themes 17 17 + (use-package modus-themes 18 18 + :ensure t) 19 19 + 20 20 + (when nesv-emacs-load-theme 21 21 + (load-theme 22 22 + (pcase nesv-emacs-load-theme 23 23 + ('ef 'ef-bio) 24 24 + ('modus 'modus-vivendi-tinted) 25 25 + ('naysayer 'naysayer)) 26 26 + t)) 27 27 + 28 28 + (load-theme 'ef-bio t) 29 29 + 30 30 + (use-package spacious-padding 31 31 + :ensure t 32 32 + :if (display-graphic-p) 33 33 + :hook (after-init . spacious-padding-mode) 34 34 + :bind ("<f8>" . spacious-padding-mode) 35 35 + :init 36 36 + (setq spacious-padding-widths 37 37 + '( :internal-border-width 30 38 38 + :header-line-width 4 39 39 + :mode-line-width 6 40 40 + :tab-width 4 41 41 + :right-divider-width 30 42 42 + :scroll-bar-width 8 43 43 + :left-fringe-width 20 44 44 + :right-fringe-width 20)) 45 45 + (setq spacious-padding-subtle-mode-line nil)) 46 46 + 47 47 + (provide 'nesv-theme) 48 48 + ;;; nesv-theme.el ends here

+15

nesv/nesv-tree-sitter.el

··· 1 1 + ;;; nesv-tree-sitter -- tree-sitter configuration 2 2 + ;;; Commentary: 3 3 + ;;; Code: 4 4 + 5 5 + (use-package tree-sitter 6 6 + :ensure t) 7 7 + 8 8 + (use-package tree-sitter-langs 9 9 + :ensure t 10 10 + :hook (tree-sitter-after-on-hook . tree-sitter-hl-mode) 11 11 + :config 12 12 + (global-tree-sitter-mode)) 13 13 + 14 14 + (provide 'nesv-tree-sitter) 15 15 + ;;; nesv-tree-sitter.el ends here

+18

nesv/nesv-which-key.el

··· 1 1 + ;;; nesv-which-key -- WHICH-KEY configuration 2 2 + ;;; Commentary: 3 3 + ;;; Code: 4 4 + 5 5 + (use-package which-key 6 6 + :ensure t 7 7 + :hook (after-init . which-key-mode) 8 8 + :config 9 9 + (setq which-key-separator " ") 10 10 + (setq which-key-prefix-prefix "... ") 11 11 + (setq which-key-max-display-columns 3) 12 12 + (setq which-key-idle-delay 1.5) 13 13 + (setq which-key-idle-secondary-delay 0.25) 14 14 + (setq which-key-add-column-padding 1) 15 15 + (setq which-key-max-description-length 40)) 16 16 + 17 17 + (provide 'nesv-which-key) 18 18 + ;;; nesv-which-key.el ends here