Asahi

Soft reset of dotfiles specific to Asahi, Sway and Neovim.

1 files changed, 0 insertions, 915 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
deleted file mode 100644
index 25db606..0000000
--- a/.emacs.d/init.el
+++ /dev/null
@@ -1,915 +0,0 @@
-;;; init.el --- Venomade's Emacs Config -*- lexical-binding: t; -*-
-
-;;; Commentary:
-;;;
-;;; This is my Emacs config which I rewrote from the ground up in October 2025.
-;;; It is built around these rules:
-;;;   - Performance as a Focus
-;;;   - Don't do with a package what should be done without
-;;;   - Don't replicate functionality of built-in packages
-;;;   - When using a package, take advantage of most of it's features
-
-;;; Code:
-
-;; Package Setup
-(require 'package)
-(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
-(package-initialize)
-
-(if (native-comp-available-p)
-    (setq package-native-compile t))
-
-;; Core Functionality
-(setq mac-command-modifier nil) ; disable super on mac
-
-; (add-to-list 'default-frame-alist '(undecorated . t)) ; disable titlebar
-
-(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
-(when (file-exists-p custom-file)
-  (load custom-file))
-
-(use-package gcmh ; Improved Garbage Collection
-  :ensure t
-  :hook (after-init . gcmh-mode)
-  :config
-  (setq gcmh-high-cons-threshold (* 128 1024 1024)  ; 128MB
-        gcmh-idle-delay 10
-        gcmh-verbose nil))
-
-(use-package exec-path-from-shell ; FIXME: Doesn't work with Daemonex
-  :ensure t
-  :config
-  (setq exec-path-from-shell-shell-name "/bin/zsh"
-        exec-path-from-shell-arguments nil)
-  (when (memq window-system '(mac ns x))
-    (exec-path-from-shell-initialize)))
-
-(let* ((backup-dir (expand-file-name "backups/" user-emacs-directory))
-       (autosave-dir (expand-file-name "autosaves/" user-emacs-directory))
-       (lock-dir (expand-file-name "lock/" user-emacs-directory)))
-  (make-directory backup-dir t)
-  (make-directory autosave-dir t)
-  (make-directory lock-dir t)
-
-  (setq backup-directory-alist `((".*" . ,(directory-file-name backup-dir)))
-        auto-save-file-name-transforms `((".*" ,(directory-file-name autosave-dir) t))
-        lock-file-name-transforms `((".*" ,(directory-file-name lock-dir) t))))
-
-(add-to-list 'display-buffer-alist
-             '("\\`\\*\\(Warnings\\|Compile-Log\\)\\*\\'"
-               (display-buffer-no-window)
-               (allow-no-window . t)))
-
-(progn
-  (setq trash-directory "~/.Trash")
-  (defun system-move-file-to-trash (file)
-    "Use \"trash\" to move FILE to the system trash."
-    (cl-assert (executable-find "trash") nil "'trash' must be installed. Needs \"brew install trash\"")
-    (call-process "trash" nil 0 nil "-F"  file)))
-
-;; User Interface
-(setq frame-resize-pixelwise t
-      display-line-numbers-width-start t
-      display-line-numbers-width 4
-      display-line-numbers-grow-only t
-      ring-bell-function 'ignore
-      ns-confirm-quit t)
-
-(setq-default truncate-lines t)
-
-; Replace the $ signs for truncation with spaces
-(set-display-table-slot standard-display-table 'truncation 32)
-
-(tool-bar-mode -1)
-(scroll-bar-mode -1)
-(menu-bar-mode -1)
-
-(add-hook 'emacs-startup-hook #'global-display-line-numbers-mode)
-
-(add-hook 'after-make-frame-functions
-          (lambda (f)
-            (select-frame-set-input-focus f)))
-
-; (use-package kaolin-themes
-;   :ensure t
-;   :config
-;   ; (add-hook 'emacs-startup-hook
-;   ;           (lambda ()
-;   ;             (load-theme 'kaolin-dark t)))
-;   (load-theme 'kaolin-dark t)
-
-;   (defun theme-toggle ()
-;     "Toggle between two Emacs themes."
-;     (interactive)
-;     (let ((theme-a 'kaolin-dark)
-;           (theme-b 'kaolin-light))
-;       (cond
-;        ((member theme-a custom-enabled-themes)
-;         (disable-theme theme-a)
-;         (load-theme theme-b t))
-;        ((member theme-b custom-enabled-themes)
-;         (disable-theme theme-b)
-;         (load-theme theme-a t))
-;        (t
-;         (load-theme theme-a t))))))
-
-; TODO: Redo to be less hacky
-; (defun set-mode-line-box ()
-;   (set-face-attribute
-;    'mode-line-active nil
-;    :box '(:line-width 1 :color "#B4BEFE" :style nil)))
-
-; (with-eval-after-load 'spacious-padding
-;   (add-hook 'spacious-padding-mode-hook #'set-mode-line-box))
-
-(use-package catppuccin-theme
-  :ensure t
-  :config
-  (setq catppuccin-flavor 'mocha)
-  ; (add-hook 'emacs-startup-hook
-  ;           (lambda ()
-                                        ;             (load-theme 'kaolin-dark t)))
-  (load-theme 'catppuccin t)
-  ; (set-mode-line-box)
-
-  (defun theme-toggle ()
-    "Toggle between two Emacs themes."
-    (interactive)
-    (let ((theme-a 'kaolin-dark)
-          (theme-b 'kaolin-light))
-      (cond
-       ((eq catppuccin-flavor 'latte)
-        (disable-theme 'catppuccin)
-        (setq catppuccin-flavor 'mocha)
-        (load-theme 'catppuccin t))
-        ; (set-mode-line-box))
-       ((eq catppuccin-flavor 'mocha)
-        (disable-theme 'catppuccin)
-        (setq catppuccin-flavor 'latte)
-        (load-theme 'catppuccin t))
-        ; (set-mode-line-box))
-       (t
-        (load-theme theme-a t))))))
-
-(use-package ns-auto-titlebar
-  :ensure t
-  :config
-  (when (eq system-type 'darwin) (ns-auto-titlebar-mode)))
-
-(use-package hide-mode-line
-  :ensure t)
-
-; TEMPORARILY DISABLED WHILE FIGURING OUT STIPPLES
-; ------------------------
-;(use-package indent-bars
-;  :ensure t
-;  :hook (prog-mode . indent-bars-mode)
-;  :config
-;  (setq indent-bars-width-frac 0.15
-;        indent-bars-starting-column 0
-;        indent-bars-prefer-character t
-;        indent-bars-color '(font-lock-comment-face :face-bg nil :blend 0.425)
-;        indent-bars-color-by-depth nil))
-;
-;(face-attribute 'default :stipple nil t)
-
-(use-package olivetti
-  :ensure t
-  :after hide-mode-line
-  :config
-  (keymap-global-set "C-c z" 'olivetti-mode)
-  (which-key-add-key-based-replacements "C-c z" "zen-mode")
-  (setq olivetti-minimum-body-width 100)
-
-  (defun zen-toggle-minor-modes ()
-    "Toggle minor modes with `olivetti-mode`."
-    (if olivetti-mode
-        (progn
-          (hide-mode-line-mode 1)
-          (display-line-numbers-mode 0))
-      (progn
-        (setq olivetti-body-width 100) ; HACK: Fixes default being set below minimum
-        (hide-mode-line-mode 0)
-        (unless (eq major-mode 'fundamental-mode)
-          (display-line-numbers-mode 1)))))
-
-  (add-hook 'olivetti-mode-hook #'zen-toggle-minor-modes))
-
-(let ((no-numbers-modes '(fundamental-mode-hook)))
-  (dolist (hk no-numbers-modes)
-    (add-hook hk (lambda () (display-line-numbers-mode 0)))))
-
-(use-package doom-modeline
-  :ensure t
-  :hook (after-init . doom-modeline-mode)
-  :config
-  (setq doom-modeline-height 0 ; minimum
-        doom-modeline-bar-width 0 ; disabled
-        doom-modeline-project-detection 'project ; use project.el
-        doom-modeline-buffer-state-icon nil
-        doom-modeline-highlight-modified-buffer-name nil
-        doom-modeline-percent-position nil
-        line-number-mode nil
-        doom-modeline-buffer-encoding nil
-        doom-modeline-time-live-icon nil
-        doom-modeline-time-icon nil
-        display-time-default-load-average nil
-        display-time-format "%a %d %b | %R"
-        helm-ag-show-status-function nil)) ;HACK: Doom Modeline asks for this but I don't use helm
-  ;(display-battery-mode 1)
-  ;(display-time-mode 1))
-
-(use-package spacious-padding
-  :ensure t
-  :hook (after-init . spacious-padding-mode)
-  :config
-  (setq spacious-padding-widths
-        '( :internal-border-width 8
-           :header-line-width 4
-           :mode-line-width 6
-           :custom-button-width 3
-           :tab-width 4
-           :right-divider-width 30
-           :scroll-bar-width 8
-           :fringe-width 0))
-  (setq spacious-padding-subtle-frame-lines
-      '( :mode-line-active spacious-padding-line-active
-         :mode-line-inactive spacious-padding-line-inactive
-         :header-line-active spacious-padding-line-active
-         :header-line-inactive spacious-padding-line-inactive)))
-
-(use-package nerd-icons
-  :ensure t
-  :if (display-graphic-p))
-
-(use-package nerd-icons-dired
-  :ensure t
-  :after nerd-icons
-  :hook
-  (dired-mode . nerd-icons-dired-mode))
-
-(use-package nerd-icons-ibuffer
-  :ensure t
-  :after nerd-icons
-  :hook (ibuffer-mode . nerd-icons-ibuffer-mode))
-
-(use-package rainbow-delimiters
-  :ensure t
-  :hook (prog-mode . rainbow-delimiters-mode))
-
-(use-package hl-todo
-  :ensure t
-  :hook ((org-mode . hl-todo-mode)
-         (prog-mode . hl-todo-mode))
-  :config
-  (add-to-list 'hl-todo-keyword-faces '("ERROR" . "#8c5353")))
-
-(let* ((quit-messages
-        `(; from Doom 1
-          ,(format "I wouldn't leave if I were you. %s is much worse."
-                   (if (featurep 'windows-nt) "DOS" "UNIX"))
-          "Ya know, next time you come in here I'm gonna toast ya."
-          "Go ahead and leave. See if I care."
-          "Are you sure you want to quit this great editor?"
-          ; from Doom Emacs
-          "(setq nothing t everything 'permitted)"
-          "Emacs will remember that."
-          "Emacs, Emacs never changes."
-          "Hey! Hey, M-x listen!"
-          "Wake up, Mr. Stallman. Wake up and smell the ashes."
-          "You are *not* prepared!"
-          "Please don't go. The drones need you. They look up to you.")))
-  (progn
-    (defun random-quit-message ()
-      "Return a randomly chosen quit message from `quit-messages'."
-      (nth (random (length quit-messages)) quit-messages))
-
-    (defun message-confirm-kill-emacs (&rest _)
-      "Prompt the user with a random message before quitting.
-Returns t to allow kill if the user answers yes; nil otherwise."
-      (let* ((msg (random-quit-message))
-             (prompt (format "%s  Really quit Emacs? " msg)))
-        (yes-or-no-p (propertize prompt 'face '(italic default)))))
-
-    (setq confirm-kill-emacs #'message-confirm-kill-emacs)))
-
-(use-package goggles
-  :ensure t
-  :hook ((prog-mode text-mode) . goggles-mode)
-  :config
-  (setq-default goggles-pulse t))
-
-(add-hook 'emacs-startup-hook #'which-key-mode)
-
-;; Text Editing
-(setq-default indent-tabs-mode nil
-              tab-width 2
-              tab-stop-list (number-sequence 2 100 2)
-              c-basic-offset 2)
-
-(keymap-global-set "C-c r" 'replace-regexp)
-
-(cl-labels
-    ((vi-open-line-above ()
-       "Open line above the current line."
-       (interactive)
-       (unless (bolp) (beginning-of-line))
-       (newline)
-       (forward-line -1)
-       (indent-according-to-mode))
-     (vi-open-line-below ()
-       "Open line below the current line."
-       (interactive)
-       (unless (eolp) (end-of-line))
-       (newline-and-indent)))
-  (define-key (current-global-map) (kbd "C-c o") #'vi-open-line-above)
-  (define-key (current-global-map) (kbd "C-c O") #'vi-open-line-below)
-  (which-key-add-key-based-replacements "C-c o" "open-line-above")
-  (which-key-add-key-based-replacements "C-c O" "open-line-below"))
-
-(use-package move-text
-  :ensure t
-  :config
-  (keymap-global-set "M-p" 'move-text-up)
-  (keymap-global-set "M-n" 'move-text-down)
-  (defun indent-region-advice (&rest ignored)
-    (let ((deactivate deactivate-mark))
-      (if (region-active-p)
-          (indent-region (region-beginning) (region-end))
-        (indent-region (line-beginning-position) (line-end-position)))
-      (setq deactivate-mark deactivate)))
-
-  (advice-add 'move-text-up :after 'indent-region-advice)
-  (advice-add 'move-text-down :after 'indent-region-advice))
-
-(progn
-  (defun smart-beginning-of-line ()
-    "Move the cursor to the beginning of text on the line."
-    (interactive)
-    (let ((initial-point (point)))
-      (back-to-indentation)
-      (when (eq initial-point (point))
-        (move-beginning-of-line 1))))
-  (defun setup-prog-mode-c-a ()
-    (local-set-key (kbd "C-a") 'smart-beginning-of-line))
-  (add-hook 'prog-mode-hook 'setup-prog-mode-c-a)
-  (add-hook 'conf-mode-hook 'setup-prog-mode-c-a))
-
-(progn
-  (defun prog-nuke-trailing-whitespace ()
-    "Removes trailing whitespace at the end of the line."
-    (when (or (derived-mode-p 'prog-mode) (derived-mode-p 'conf-mode))
-      (delete-trailing-whitespace)))
-  (add-hook 'before-save-hook 'prog-nuke-trailing-whitespace))
-
-(use-package smartparens
-  :ensure t
-  :hook (prog-mode text-mode markdown-mode)
-  :config
-  (require 'smartparens-config)
-  (sp-use-paredit-bindings))
-
-(use-package undo-tree
-  :ensure t
-  :init
-  (global-undo-tree-mode 1)
-  :config
-  (setq undo-tree-auto-save-history t
-        undo-tree-history-directory-alist '(("." . "~/.emacs.d/.cache"))))
-
-(use-package gptel
-  :ensure t
-  :config
-  (setq
-   gptel-model 'qwen2.5-coder:7b-instruct-q4_K_M
-   gptel-backend (gptel-make-ollama "Ollama"
-                                    :host "localhost:11434"
-                                    :stream t
-                                    :models '(qwen2.5-coder:7b-instruct-q4_K_M)))
-  (keymap-global-set "C-c g" 'gptel-menu)
-  (which-key-add-key-based-replacements "C-c g" "gptel"))
-
-(use-package delsel
-    :hook (after-init . delete-selection-mode))
-
-(use-package accent
-  :ensure t
-  :bind* (("C-'" . accent-menu))
-  :config
-  (setq accent-diacritics '((a (á ã â à)) ; só para Português
-                            (e (é ê))
-                            (i (í))
-                            (o (ó õ ô))
-                            (u (ú))
-                            (c (ç))
-                            (A (Á Ã Â À))
-                            (E (É Ê))
-                            (I (Í))
-                            (O (Ó Õ Ô))
-                            (U (Ú)))))
-
-;; Emacsing
-(setq scroll-margin 10 ; Doesn't work with smooth-scrolling
-      scroll-conservatively 100
-      scroll-step 1)
-
-(setopt use-short-answers t)
-
-(use-package dired
-  :commands (dired)
-  :hook
-  ((dired-mode . dired-hide-details-mode)
-   (dired-mode . hl-line-mode))
-  :config
-  (setq dired-recursive-copies 'always
-        dired-recursive-deletes 'always
-        ; delete-by-moving-to-trash t ; FIXME: Currently Broken, need to find why
-        dired-dwim-target t
-        dired-listing-switches "-lah"))
-
-(use-package dired-subtree
-  :ensure t
-  :after dired
-  :bind
-  (:map dired-mode-map
-        ("TAB" . dired-subtree-toggle)
-        ("<backtab>" . dired-subtree-remove))
-  :config
-  (setq dired-subtree-use-backgrounds nil))
-
-(add-hook 'emacs-startup-hook #'save-place-mode)
-
-(progn
-  (dolist (spec
-           '((eshell-prompt-user-face        font-lock-keyword-face   "Face for the username in the eshell prompt.")
-             (eshell-prompt-venv-face        font-lock-string-face    "Face for the virtualenv name in the eshell prompt.")
-             (eshell-prompt-dir-face         dired-directory          "Face for the directory path in the eshell prompt.")
-             (eshell-prompt-git-face         magit-tag                "Face for the git branch in the eshell prompt.")
-             (eshell-prompt-git-dirty-face   eshell-prompt-git-face   "Face for the git dirty status in the eshell prompt.")
-             (eshell-prompt-symbol-face      font-lock-builtin-face   "Face for the prompt symbol in the eshell prompt.")))
-    (cl-destructuring-bind (name inherit doc) spec
-      (defface name
-        `((t (:inherit ,inherit)))
-        doc
-        :group 'eshell-prompt)))
-
-  (defun eshell-abbreviate-dir (dir)
-    "Abbreviate directory to show only the first and the last two components."
-    (let* ((abbrev (abbreviate-file-name dir))
-           (components (split-string abbrev "/" t))
-           (num-components (length components)))
-      (if (>= num-components 4)
-          (concat (car components) "/.../"
-                  (mapconcat #'identity (last components 2) "/"))
-        abbrev)))
-
-  (defun eshell-prompt-git-branch ()
-    "Return the current git branch or short commit hash, if available."
-    (when (and (executable-find "git")
-               (locate-dominating-file default-directory ".git"))
-      (with-temp-buffer
-        (let ((ret (call-process "git" nil t nil "symbolic-ref" "--short" "HEAD")))
-          (if (zerop ret)
-              (string-trim (buffer-string))
-            (when (zerop (call-process "git" nil t nil "rev-parse" "--short" "HEAD"))
-              (string-trim (buffer-string))))))))
-
-  (defun eshell-prompt-git-dirty ()
-    "Return a dirty flag (✗ if dirty, ✓ if clean) for the git repository."
-    (when (eshell-prompt-git-branch)
-      (with-temp-buffer
-        (call-process "git" nil t nil "status" "--porcelain")
-        (if (> (buffer-size) 0) "✗" "✓"))))
-
-  (defun eshell-prompt ()
-    "Custom eshell prompt."
-    (let* ((user (propertize (user-login-name) 'face 'eshell-prompt-user-face))
-           (venv (when-let ((venv (getenv "VIRTUAL_ENV")))
-                   (concat (propertize "(" 'face 'eshell-prompt-venv-face)
-                           (propertize (file-name-nondirectory venv) 'face 'eshell-prompt-venv-face)
-                           (propertize ")" 'face 'eshell-prompt-venv-face))))
-           (path (propertize (eshell-abbreviate-dir (eshell/pwd)) 'face 'eshell-prompt-dir-face))
-           (git-branch (eshell-prompt-git-branch))
-           (git-info (when git-branch
-                       (concat " " (propertize "on" 'face 'font-lock-number-face) " "
-                               (propertize git-branch 'face 'eshell-prompt-git-face)
-                               (propertize (eshell-prompt-git-dirty) 'face 'eshell-prompt-git-dirty-face))))
-           (prompt (concat user " " (propertize "in" 'face 'font-lock-number-face) " "
-                           (if venv (concat venv " ") "")
-                           path git-info "\n"
-                           (propertize "λ" 'face 'eshell-prompt-symbol-face) " ")))
-      prompt))
-
-  (setq eshell-prompt-function 'eshell-prompt
-        eshell-prompt-regexp "^[^λ\n]*λ "))
-
-(use-package disproject
-  :ensure t
-  :after project
-  :bind (:map ctl-x-map
-              ("p" . disproject-dispatch)))
-
-(use-package ibuffer-project
-  :ensure t
-  :after project
-  :config
-  (add-hook
-   'ibuffer-hook
-   (lambda ()
-     (setq ibuffer-filter-groups (ibuffer-project-generate-filter-groups))
-     (unless (eq ibuffer-sorting-mode 'project-file-relative)
-       (ibuffer-do-sort-by-project-file-relative))))
-  (keymap-global-set "C-x C-b" 'ibuffer))
-
-(progn
-  (add-hook 'emacs-startup-hook #'recentf-mode)
-  (keymap-global-set "C-x C-r" 'recentf-open)
-  (which-key-add-key-based-replacements "C-x C-r" "Recent Files")
-  (put 'compile-command 'safe-local-variable #'stringp))
-
-(use-package savehist
-  :hook (after-init . savehist-mode))
-
-(add-to-list 'Info-directory-list "/Users/venomade/Documents/Info/")
-
-;; Org Mode
-(setq org-src-window-setup 'current-window
-      org-confirm-babel-evaluate nil
-      org-hide-emphasis-markers t)
-
-(font-lock-add-keywords 'org-mode
-                        '(("^ *\\([-]\\) "
-                           (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
-
-; (use-package org-bullets
-;   :ensure t
-;   :config
-;   (setq org-bullets-bullet-list
-;       '("◉" "○" "◎" "◈" "◆" "▶"))
-;   (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))
-
-(use-package org-superstar
-  :ensure t
-  :hook (org-mode . org-superstar-mode)
-  :custom
-  (org-superstar-remove-leading-stars nil)
-  (org-superstar-headline-bullets-list
-   '("◉" "○" "◎" "◈" "◆" "▶")))
-
-(let* ((variable-tuple
-        (cond ((x-list-fonts "Google Sans")     '(:font "Google Sans"))
-              ((x-family-fonts "Sans Serif")    '(:family "Sans Serif"))
-              (nil (warn "Cannot find a Sans Serif Font.  Install Google Sans."))))
-       (base-font-color     (face-foreground 'default nil 'default))
-       (headline           `(:inherit default :weight bold :foreground ,base-font-color)))
-
-  (custom-theme-set-faces
-   'user
-   `(org-level-8 ((t (,@headline ,@variable-tuple))))
-   `(org-level-7 ((t (,@headline ,@variable-tuple))))
-   `(org-level-6 ((t (,@headline ,@variable-tuple))))
-   `(org-level-5 ((t (,@headline ,@variable-tuple))))
-   `(org-level-4 ((t (,@headline ,@variable-tuple :height 1.1))))
-   `(org-level-3 ((t (,@headline ,@variable-tuple :height 1.2))))
-   `(org-level-2 ((t (,@headline ,@variable-tuple :height 1.3))))
-   `(org-level-1 ((t (,@headline ,@variable-tuple :height 1.4))))
-   `(org-document-title ((t (,@headline ,@variable-tuple :height 1.6 :underline nil))))))
-
-(add-hook 'org-mode-hook 'variable-pitch-mode)
-(add-hook 'org-mode-hook 'visual-line-mode)
-(add-hook 'org-mode-hook (lambda () (display-line-numbers-mode -1)))
-
-(custom-theme-set-faces
- 'user
- '(org-block ((t (:inherit fixed-pitch))))
- '(org-code ((t (:inherit (shadow fixed-pitch)))))
- '(org-document-info-keyword ((t (:inherit (shadow fixed-pitch)))))
- '(org-indent ((t (:inherit (org-hide fixed-pitch)))))
- '(org-link ((t (:foreground "royal blue" :underline t))))
- '(org-meta-line ((t (:inherit (font-lock-comment-face fixed-pitch)))))
- '(org-property-value ((t (:inherit fixed-pitch))) t)
- '(org-special-keyword ((t (:inherit (font-lock-comment-face fixed-pitch)))))
- '(org-table ((t (:inherit fixed-pitch))))
- '(org-tag ((t (:inherit (shadow fixed-pitch) :weight bold :height 0.8))))
- '(org-verbatim ((t (:inherit (shadow fixed-pitch))))))
-
-(require 'org-tempo)
-
-(use-package pdf-tools
-  :ensure t
-  :config
-  (pdf-tools-install)
-  (add-hook 'pdf-view-mode-hook (lambda () (display-line-numbers-mode -1))))
-
-; Open Org Mode links in current window
-(setq org-link-frame-setup
-      '((file . find-file)
-        (wl . wl-other-frame)
-        (vm . vm-visit-folder-other-frame)
-        (gnus . gnus)))
-
-(use-package denote
-  :ensure t
-  :hook (dired-mode . denote-dired-mode)
-  :bind
-  (("C-c n n" . denote)
-   ("C-c n r" . denote-rename-file)
-   ("C-c n l f" . denote-link)
-   ("C-c n b" . denote-backlinks)
-   ("C-c n g" . denote-grep))
-  :config
-  (setq denote-directory (expand-file-name "~/Documents/Denotes/")
-        denote-known-keywords '("politics" "history" "united kingdom"))
-  (denote-rename-buffer-mode 1))
-
-(use-package consult-denote
-  :ensure t
-  :bind
-  (("C-c n f" . consult-denote-find)
-   ("C-c n g" . consult-denote-grep))
-  :config
-  (consult-denote-mode 1))
-
-; TODO: Denote Explore https://lucidmanager.org/productivity/denote-explore/
-
-(use-package denote-menu
-  :ensure t
-  :bind
-  (("C-c n d" . list-denotes))
-  :config
-  (add-hook 'denote-menu-mode-hook (lambda () (display-line-numbers-mode -1))))
-
-(use-package denote-org
-  :ensure t
-  :bind
-  (("C-c n l h" . denote-org-link-to-heading)))
-
-;; Completion
-(use-package orderless
-  :ensure t
-  :config
-  (setq completion-styles '(orderless basic)
-        completion-category-defaults nil
-        completion-category-overrides '((file (styles . (partial-completion))))))
-
-(use-package yasnippet
-  :ensure t
-  :hook (prog-mode . yas-minor-mode)
-  :bind
-  (("C-c y n" . yas-new-snippet)
-   ("C-c y v" . yas-visit-snippet-file)
-   ("C-c y i" . yas-insert-snippet))
-  :config
-  (yas-reload-all))
-
-(use-package yasnippet-snippets
-  :after yasnippet
-  :ensure t)
-
-(use-package cape
-  :ensure t)
-
-(defun eglot-capf-with-yasnippet ()
-  (setq-local completion-at-point-functions
-              (list
-           (cape-capf-super
-        #'eglot-completion-at-point
-        #'yasnippet-capf))))
-(with-eval-after-load 'eglot
-  (add-hook 'eglot-managed-mode-hook #'eglot-capf-with-yasnippet))
-
-(use-package corfu
-  :ensure t
-  :hook (after-init . global-corfu-mode)
-  :bind (:map corfu-map ("<tab>" . corfu-complete)
-              ("RET" . nil))
-  :config
-  (setq corfu-cycle t
-        corfu-auto t
-        corfu-auto-delay 0.2
-        corfu-preview-current nil
-        corfu-quit-at-boundary t
-        corfu-quit-no-match t
-        corfu-scroll-margin 5
-        corfu-tab-always-indent 'complete
-        corfu-preview-current nil
-        corfu-min-width 20
-        corfu-popupinfo-delay '(1.25 . 0.5))
-  (corfu-popupinfo-mode 1)
-  (with-eval-after-load 'savehist
-    (corfu-history-mode 1)
-    (add-to-list 'savehist-additional-variables 'corfu-history)))
-
-(use-package nerd-icons-corfu
-  :ensure t
-  :after nerd-icons corfu
-  :config
-  (add-to-list 'corfu-margin-formatters #'nerd-icons-corfu-formatter))
-
-(use-package vertico
-  :ensure t
-  :hook (after-init . vertico-mode)
-  :bind (:map vertico-map
-              ("DEL" . vertico-directory-delete-char)))
-
-(use-package consult
-  :ensure t
-  :bind (("M-g g" . consult-goto-line)
-         ("M-g M-g" . consult-goto-line)
-         ("C-c s" . consult-line))
-
-  :config
-  (which-key-add-key-based-replacements "C-c s" "search-lines"))
-
-(use-package affe
-  :ensure t
-  :after consult
-  :bind (("C-c f f" . affe-find)
-         ("C-c f g" . affe-grep))
-  :init
-  (which-key-add-key-based-replacements "C-c f" "find-file")
-  (which-key-add-key-based-replacements "C-c f f" "find-fuzzy")
-  (which-key-add-key-based-replacements "C-c f g" "find-greppy"))
-
-(use-package marginalia
-  :ensure t
-  :after vertico
-  :config (marginalia-mode 1))
-
-(use-package nerd-icons-completion
-  :ensure t
-  :after vertico marginalia
-  :hook
-  (marginalia-mode . nerd-icons-completion-marginalia-setup)
-  (after-init . nerd-icons-completion-mode))
-
-;; Version Control
-(setq vc-follow-symlinks t)
-
-(use-package magit
-  :ensure t
-  :after nerd-icons
-  :custom
-  (magit-format-file-function #'magit-format-file-nerd-icons))
-
-(use-package magit-todos
-  :ensure t
-  :after magit hl-todo
-  :config
-  (add-hook 'magit-log-wash-summary-hook
-            #'hl-todo-search-and-highlight t)
-  (add-hook 'magit-revision-wash-message-hook
-            #'hl-todo-search-and-highlight t)
-  (magit-todos-mode 1))
-
-;; Programming
-(use-package eglot
-  :ensure t
-  :after cape
-  :config
-  (setq eglot-report-progress nil)
-  (advice-add 'eglot-completion-at-point :around #'cape-wrap-buster)
-  (add-hook 'c-mode-hook #'eglot-ensure))
-
-(use-package eglot-booster
-  :vc (:url "https://github.com/jdtsmith/eglot-booster.git")
-  :ensure t
-	:after eglot
-	:config
-  (setq eglot-booster-io-only t)
-  (eglot-booster-mode))
-
-(use-package consult-eglot
-  :ensure t
-  :after eglot)
-
-(progn
-  (use-package eldoc-box
-    :ensure t)
-
-  (defun markdown-follow-help-or-link-at-point-advice (orig-fun &rest args)
-    "Prefer to use the help-echo property as `browse-url' target."
-    (let* ((event-win (posn-window (event-start last-input-event)))
-           (help-echo (with-selected-frame (window-frame event-win)
-                        (with-current-buffer (window-buffer event-win)
-                          (get-text-property (point) 'help-echo))))
-           (help-is-url (url-type (url-generic-parse-url help-echo))))
-      (message "if %s (browse-url %S)" help-is-url help-echo)
-      (if help-is-url
-          (browse-url help-echo)
-        (apply orig-fun args))))
-
-  (advice-add 'markdown-follow-link-at-point :around #'markdown-follow-help-or-link-at-point-advice))
-
-(transient-define-prefix eglot-transient ()
-  "Transient menu for Eglot."
-  [["Server"
-    ("c" "Reconnect" eglot-reconnect)
-    ("q" "Shutdown" eglot-shutdown)
-    ("I" "Server Info" eglot-show-workspace-configuration)]
-   ["Navigation"
-    ("g" "Go to Definition" xref-find-definitions)
-    ("d" "Describe Thing at Point" eldoc-box-help-at-point)
-    ("D" "Go to Declaration" eglot-find-declaration)
-    ("i" "Go to Implementation" eglot-find-implementation)
-    ("f" "Find References" xref-find-references)
-    ("t" "Type Definition" eglot-find-typeDefinition)
-    ("s" "Search Symbols"
-     (lambda ()
-       (interactive)
-       (if (eq major-mode 'java-mode)
-           (call-interactively 'consult-eglot-jdt-symbols)
-         (call-interactively 'consult-eglot-symbols))))]
-   ["Code Actions"
-    ("a" "Code Actions" eglot-code-actions)
-    ("q" "Quick Fix" eglot-code-action-quickfix)
-    ("=" "Format Buffer" eglot-format-buffer)
-    ("o" "Organize Imports" eglot-code-action-organize-imports)
-    ("r" "Rename Symbol" eglot-rename)]
-   ["Diagnostics"
-    ("l" "List Diagnostics" flycheck-list-errors)
-    ("L" "Project Diagnostics" flymake-show-project-diagnostics)]]
-  (interactive)
-   (transient-setup 'eglot-transient))
-
-(define-key eglot-mode-map (kbd "C-c l") #'eglot-transient)
-
-(use-package flycheck
-  :ensure t
-  :config
-  (global-flycheck-mode 1))
-
-(use-package flycheck-eglot
-  :ensure t
-  :after (flycheck eglot)
-  :custom (flycheck-eglot-exclusive nil)
-  :config
-  (global-flycheck-eglot-mode 1))
-
-(setq-default flycheck-disabled-checkers '(c/c++-clang))
-
-(progn
-  (setq compilation-scroll-output t)
-  (keymap-global-set "C-c m c" 'compile)
-  (keymap-global-set "C-c m r" 'recompile)
-  (which-key-add-key-based-replacements "C-c m" "make"))
-
-(require 'ansi-color)
-(defun colorize-compilation-buffer ()
-  (ansi-color-apply-on-region compilation-filter-start (point)))
-(add-hook 'compilation-filter-hook 'colorize-compilation-buffer)
-
-(global-prettify-symbols-mode 1)
-
-;; Languages
-
-; (load-file
-;  (expand-file-name
-;   "lang/java.el"
-;   user-emacs-directory))
-
-(load-file
- (expand-file-name
-  "lang/lua.el"
-  user-emacs-directory))
-
-; (load-file
-;  (expand-file-name
-;   "lang/lisp.el"
-;   user-emacs-directory))
-
-; (load-file
-;  (expand-file-name
-;   "lang/clojure.el"
-;   user-emacs-directory))
-
-;; Font
-; Putting at the end to test if it fixes this:
-; https://github.com/d12frosted/homebrew-emacs-plus/issues/898
-
-(let* ((fontconf '((fixed-font    . "Google Sans Code")
-                   (variable-font . "Google Sans")
-                   (size          . 12)))
-       (fixed-font    (cdr (assoc 'fixed-font fontconf)))
-       (variable-font (cdr (assoc 'variable-font fontconf)))
-       (pt-size       (cdr (assoc 'size fontconf)))
-       (height        (* pt-size 10))
-       (frame-font    (concat fixed-font "-" (number-to-string pt-size))))
-  ; Fixed-width faces
-  (dolist (face '(default fixed-pitch))
-    (set-face-attribute face nil
-                        :font fixed-font
-                        :height height
-                        :weight 'regular))
-  ; Variable-pitch face
-  (set-face-attribute 'variable-pitch nil
-                      :font variable-font
-                      :height height
-                      :weight 'regular)
-
-  ; Syntax styling
-  (set-face-attribute 'font-lock-comment-face nil :slant 'italic)
-  (set-face-attribute 'font-lock-keyword-face nil :slant 'italic)
-
-  ; Frame font
-  (add-to-list 'default-frame-alist `(font . ,frame-font)))