diff --git a/flake.nix b/flake.nix
index 1e16d70a..f6b67adc 100644
--- a/flake.nix
+++ b/flake.nix
@@ -24,12 +24,11 @@
         systemModules = [ ./system/hyprland.nix ];
         homeModules = [
           ./home/accounts/default.nix
-          ./home/emacs/default.nix
           ./home/hyprland/default.nix
-          ./home/nyxt/default.nix
           ./home/alacritty.nix
           ./home/btop.nix
           ./home/default.nix
+          ./home/emacs.nix
           ./home/firefox.nix
           ./home/media.nix
           ./home/pass.nix
diff --git a/home/emacs/default.nix b/home/emacs.nix
similarity index 95%
rename from home/emacs/default.nix
rename to home/emacs.nix
index 40633d50..92836470 100644
--- a/home/emacs/default.nix
+++ b/home/emacs.nix
@@ -1,13 +1,9 @@
-{ config, pkgs, ... }:
-
-{
-  xdg.configFile = {
-    "emacs/init.el".source = ./init.el;
-    "emacs/templates".source = ./templates;
-  };
+{ config, pkgs, ... }: {
   programs.emacs = {
+    # Clone emacs config from https://git.xenia.me.uk/xenia/emacs.git
     enable = true;
     package = pkgs.emacs29-pgtk;
+    extraConfig = ''(org-babel-load-file "~/Projects/emacs/README.org")'';
     extraPackages = epkgs:
       with epkgs; [
         # theme
diff --git a/home/emacs/init.el b/home/emacs/init.el
deleted file mode 100644
index b8dc802b..00000000
--- a/home/emacs/init.el
+++ /dev/null
@@ -1,1191 +0,0 @@
-(setq custom-file (locate-user-emacs-file "custom.el"))
-(when (and custom-file (file-exists-p custom-file))
-  (load custom-file nil 'nomessage))
-
-(setq user-full-name "Evie Litherland-Smith"
-      user-mail-address "evie@xenia.me.uk"
-      use-short-answers t
-      load-prefer-newer t
-      indent-tabs-mode nil
-      even-window-sizes nil
-      global-auto-revert-non-file-buffers t
-      dired-auto-revert-buffer t
-      dired-dwim-target t
-      tab-always-indent 'complete
-      completion-cycle-threshold 3
-      completions-detailed t
-      xref-show-definitions-function #'xref-show-definitions-completing-read
-      kill-do-not-save-duplicates t
-      auto-window-vscroll nil
-      fast-but-imprecise-scrolling t
-      scroll-conservatively 101
-      scroll-margin 0
-      scroll-preserve-screen-position 1)
-
-(set-default-coding-systems 'utf-8)
-(set-terminal-coding-system 'utf-8)
-(set-keyboard-coding-system 'utf-8)
-
-(global-auto-revert-mode +1)
-(delete-selection-mode)
-(recentf-mode -1)
-
-
-(keymap-global-set "M-#" #'dictionary-lookup-definition)
-
-;; turn on spell checking, if available.
-(when (and (require 'ispell nil :noerror) (executable-find ispell-program-name))
-  (add-hook 'text-mode-hook #'flyspell-mode)
-  (add-hook 'prog-mode-hook #'flyspell-prog-mode))
-
-;; Make shebang (#!) file executable when saved
-(add-hook 'after-save-hook #'executable-make-buffer-file-executable-if-script-p)
-
-(setq backup-directory-alist '(("." . "~/.local/state/emacs/backups"))
-      tramp-backup-directory-alist backup-directory-alist
-      tramp-auto-save-directory (cdr (assoc "." tramp-backup-directory-alist)))
-
-(when (require 'package nil :noerror)
-  (add-to-list 'package-archives '("stable" . "https://stable.melpa.org/packages/"))
-  (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
-
-  (setq package-archive-priorities '(("gnu" . 99)
-                                     ("nongnu" . 80)
-                                     ("stable" . 70)
-                                     ("melpa" . 0))))
-
-(when (require 'auth-source nil :noerror)
-  (setq auth-sources '("secrets:Login"))
-  (when (require 'auth-source-pass nil :noerror)
-    (auth-source-pass-enable)))
-
-;; Make `describe-*' screens more helpful
-(use-package helpful
-  :ensure t
-  :bind (("<remap> <describe-command>" . helpful-command)
-         ("<remap> <describe-function>" . helpful-callable)
-         ("<remap> <describe-key>" . helpful-key)
-         ("<remap> <describe-symbol>" . helpful-symbol)
-         ("<remap> <describe-variable>" . helpful-variable)
-         ("C-h F" . helpful-function)
-         :map helpful-mode-map
-         ("<remap> <revert-buffer>" . helpful-update)))
-
-;; Bind extra `describe-*' commands
-(keymap-global-set "C-h K" #'describe-keymap)
-
-(use-package ibuffer
-  :ensure t
-  :bind (("C-c b" . ibuffer)))
-
-(use-package ibuffer-project
-  :ensure t
-  :after ibuffer
-  :hook ((ibuffer . (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))))))
-
-(use-package link-hint
-  :ensure t
-  :bind (("C-c l o" . link-hint-open-link)
-         ("C-c l c" . link-hint-copy-link)
-         ("C-c l C-o" . link-hint-open-all-link)
-         ("C-c l C-c" . link-hint-copy-all-link)))
-
-(use-package avy
-  :ensure t
-  :bind (("C-c j w" . avy-goto-word-0)
-         ("C-c j c" . avy-goto-char)
-         ("C-c j l" . avy-goto-line)
-         ("C-c j C-c" . avy-goto-char-2)))
-
-(use-package which-func
-  :ensure t
-  :init (which-function-mode))
-
-(setq use-dialog-box nil
-      truncate-lines nil
-      truncate-partial-width-windows nil)
-
-(menu-bar-mode -1)
-(tool-bar-mode -1)
-(scroll-bar-mode -1)
-(tab-bar-mode -1)
-(global-display-line-numbers-mode -1)
-(global-prettify-symbols-mode +1)
-(global-visual-line-mode +1)
-
-(use-package which-key
-  :ensure t
-  :config (which-key-mode +1))
-
-(use-package page-break-lines
-  :ensure t
-  :config (global-page-break-lines-mode +1))
-
-;; add visual pulse when changing focus, like beacon but built-in
-;; from from https://karthinks.com/software/batteries-included-with-emacs/
-(defun pulse-line (&rest _)
-  "Pulse the current line."
-  (pulse-momentary-highlight-one-line (point)))
-
-(dolist (command '(scroll-up-command
-                   scroll-down-command
-                   recenter-top-bottom
-                   other-window))
-  (advice-add command :after #'pulse-line))
-
-(set-frame-parameter nil 'alpha-background 80)
-(set-frame-font "Fira Code-12")
-
-;; Theme
-(use-package modus-themes
-  :ensure t
-  :custom (modus-themes-disable-other-themes t)
-  :config (modus-themes-load-theme 'modus-vivendi-tinted))
-
-;; Nerd-Icons modes
-(use-package nerd-icons
-  :ensure t
-  :config (nerd-icons-set-font "Symbols Nerd Font Mono"))
-
-(use-package nerd-icons-dired
-  :ensure t
-  :hook (dired-mode))
-
-(use-package nerd-icons-ibuffer
-  :ensure t
-  :hook (ibuffer-mode))
-
-(use-package nerd-icons-completion
-  :ensure t
-  :config (nerd-icons-completion-mode +1))
-
-(use-package nerd-icons-corfu
-  :ensure t
-  :after corfu
-  :config (add-to-list 'corfu-margin-formatters #'nerd-icons-corfu-formatter))
-
-(keymap-global-set "C-c i n" #'nerd-icons-insert)
-
-(use-package winner
-  :ensure t
-  :demand
-  :bind (("C-c w u" . winner-undo)
-         ("C-c w r" . winner-redo))
-  :config
-  (winner-mode))
-
-(use-package ediff
-  :bind (("C-c d f" . ediff-files)
-         ("C-c d b" . ediff-buffers)
-         ("C-c d 3 f" . ediff-files3)
-         ("C-c d 3 b" . ediff-buffers3))
-  :custom
-  (ediff-window-setup-function #'ediff-setup-windows-plain))
-
-(use-package ligature
-  :ensure t
-  :config
-  ;; Enable the "www" ligature in every possible major mode
-  (ligature-set-ligatures 't '("www"))
-  ;; Enable traditional ligature support in eww-mode, if the
-  ;; `variable-pitch' face supports it
-  (ligature-set-ligatures 'eww-mode '("ff" "fi" "ffi"))
-  ;; Enable all Cascadia and Fira Code ligatures in programming modes
-  (ligature-set-ligatures '(prog-mode org-mode)
-                          '(;; == === ==== => =| =>>=>=|=>==>> ==< =/=//=// =~
-                            ;; =:= =!=
-                            ("=" (rx (+ (or ">" "<" "|" "/" "~" ":" "!" "="))))
-                            ;; ;; ;;;
-                            (";" (rx (+ ";")))
-                            ;; && &&&
-                            ("&" (rx (+ "&")))
-                            ;; !! !!! !. !: !!. != !== !~
-                            ("!" (rx (+ (or "=" "!" "\." ":" "~"))))
-                            ;; ?? ??? ?:  ?=  ?.
-                            ("?" (rx (or ":" "=" "\." (+ "?"))))
-                            ;; %% %%%
-                            ("%" (rx (+ "%")))
-                            ;; |> ||> |||> ||||> |] |} || ||| |-> ||-||
-                            ;; |->>-||-<<-| |- |== ||=||
-                            ;; |==>>==<<==<=>==//==/=!==:===>
-                            ("|" (rx (+ (or ">" "<" "|" "/" ":" "!" "}" "\]"
-                                            "-" "=" ))))
-                            ;; \\ \\\ \/
-                            ("\\" (rx (or "/" (+ "\\"))))
-                            ;; ++ +++ ++++ +>
-                            ("+" (rx (or ">" (+ "+"))))
-                            ;; :: ::: :::: :> :< := :// ::=
-                            (":" (rx (or ">" "<" "=" "//" ":=" (+ ":"))))
-                            ;; // /// //// /\ /* /> /===:===!=//===>>==>==/
-                            ("/" (rx (+ (or ">"  "<" "|" "/" "\\" "\*" ":" "!"
-                                            "="))))
-                            ;; .. ... .... .= .- .? ..= ..<
-                            ;; ("\." (rx (or "=" "-" "\?" "\.=" "\.<" (+ "\."))))
-                            ;; -- --- ---- -~ -> ->> -| -|->-->>->--<<-|
-                            ("-" (rx (+ (or ">" "<" "|" "~" "-"))))
-                            ;; *> */ *)  ** *** ****
-                            ("*" (rx (or ">" "/" ")" (+ "*"))))
-                            ;; www wwww
-                            ("w" (rx (+ "w")))
-                            ;; <> <!-- <|> <: <~ <~> <~~ <+ <* <$ </  <+> <*>
-                            ;; <$> </> <|  <||  <||| <|||| <- <-| <-<<-|-> <->>
-                            ;; <<-> <= <=> <<==<<==>=|=>==/==//=!==:=>
-                            ;; << <<< <<<<
-                            ("<" (rx (+ (or "\+" "\*" "\$" "<" ">" ":" "~"  "!"
-                                            "-"  "/" "|" "="))))
-                            ;; >: >- >>- >--|-> >>-|-> >= >== >>== >=|=:=>>
-                            ;; >> >>> >>>>
-                            (">" (rx (+ (or ">" "<" "|" "/" ":" "=" "-"))))
-                            ;; #: #= #! #( #? #[ #{ #_ #_( ## ### #####
-                            ("#" (rx (or ":" "=" "!" "(" "\?" "\[" "{" "_(" "_"
-                                         (+ "#"))))
-                            ;; ~~ ~~~ ~=  ~-  ~@ ~> ~~>
-                            ("~" (rx (or ">" "=" "-" "@" "~>" (+ "~"))))
-                            ;; __ ___ ____ _|_ __|____|_
-                            ("_" (rx (+ (or "_" "|"))))
-                            ;; The few not covered by the regexps.
-                            "{|"  "[|"  "]#"  "(*"  "}#"  "$>"  "^="))
-  (ligature-set-ligatures 'prog-mode
-                          '(;; Fira code: 0xFF 0x12
-                            ("0" (rx (and "x" (+ (in "A-F" "a-f" "0-9")))))
-                            ;; Fira code:
-                            "Fl"  "Tl"  "fi"  "fj"  "fl"  "ft"))
-  ;; Enables ligature checks globally in all buffers. You can also do it
-  ;; per mode with `ligature-mode'.
-  (global-ligature-mode t))
-
-(line-number-mode +1)
-(column-number-mode +1)
-(size-indication-mode +1)
-(display-battery-mode +1)
-(display-time-mode -1)
-
-(use-package doom-modeline
-  :ensure t
-  :custom
-  (doom-modeline-icon t)
-  (doom-modeline-env-version nil)
-  (doom-modeline-buffer-file-name-style 'file-name)
-  (doom-modeline-buffer-encoding 'nondefault)
-  (doom-modeline-enable-word-count t)
-  (doom-modeline-continuous-word-count-modes
-   '(org-mode markdown-mode gfm-mode))
-  :config
-  (doom-modeline-mode +1))
-
-(use-package darkroom
-  :ensure t
-  :defer t)
-
-(use-package zone
-  :ensure t
-  :config (zone-when-idle (* 60 60 2))) ; 2 hours
-
-(use-package diff-hl
-  :ensure t
-  :init
-  (add-hook 'magit-pre-refresh-hook 'diff-hl-magit-pre-refresh)
-  (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh)
-  :config
-  (global-diff-hl-mode)
-  :custom
-  (diff-hl-disable-on-remote t)
-  (diff-hl-draw-borders nil))
-
-(setq org-directory "~/Org"
-      org-default-notes-file (expand-file-name "notes.org" org-directory)
-      org-pretty-entities-include-sub-superscripts t
-      org-pretty-entities-include-sub-superscripts t
-      org-tags-column 0
-      org-outline-path-complete-in-steps nil
-      org-return-follows-link t
-      org-mouse-1-follows-link t
-      org-link-descriptive t
-      org-refile-use-outline-path t
-      org-refile-allow-creating-parent-nodes t
-      org-refile-use-outline-path 'file
-      org-refile-targets '((nil :maxlevel . 3)
-                           (org-agenda-files :maxlevel . 3)))
-
-;; Visually indent org-mode files to a given header level
-(add-hook 'org-mode-hook #'org-indent-mode)
-
-(use-package org
-  :ensure t
-  :custom
-  (org-babel-load-languages '((emacs-lisp . t)
-                              (python . t))))
-
-(keymap-global-set "C-c o ." #'calendar)
-(keymap-global-set "C-c o e" #'org-edit-src-code)
-(keymap-global-set "C-c o a" #'org-agenda)
-(keymap-global-set "C-c o n" #'org-capture)
-(keymap-global-set "C-c o l" #'org-capture-goto-last-stored)
-
-(use-package org-modern
-  :ensure t
-  :hook ((org-mode . org-modern-mode)
-         (org-agenda-finalize . org-modern-agenda))
-  :custom
-  (org-modern-tag nil))
-
-(setq org-agenda-span 'week
-      org-agenda-start-on-weekday 1
-      org-agenda-files (list (expand-file-name org-directory)
-                             (expand-file-name "journal" org-directory)
-                             (expand-file-name "projects" org-directory))
-      org-agenda-sticky t
-      org-agenda-window-setup 'current-window
-      org-agenda-prefix-format '((agenda . " %-12:c%?-12t% s")
-                                 (todo . " %-12:c")
-                                 (tags . " %-12:c")
-                                 (search . " %-12:c")))
-
-(use-package org-journal
-  :bind (("C-c o j" . org-journal-new-entry))
-  :custom
-  (org-journal-dir (expand-file-name "journal" org-directory))
-  (org-journal-file-type 'monthly)
-  (org-journal-file-format "%Y-%m.org"))
-
-(setq org-capture-templates
-      '(("n" "Note" entry
-         (file+headline "inbox.org" "Note")
-         "* %?"
-         :prepend t
-         :empty-lines 1)
-        ("t" "Task" entry
-         (file+headline "inbox.org" "Task")
-         "* TODO %?"
-         :prepend t
-         :empty-lines 1)
-        ("m" "Email Workflow")
-        ("mf" "Follow Up" entry (file+olp "mail.org" "Follow Up")
-         "* TODO Follow up with %:fromname on %a\nSCHEDULED:%t\nDEADLINE: %(org-insert-time-stamp (org-read-date nil t \"+2d\"))\n\n%i")
-        ("mr" "Read Later" entry (file+olp "mail.org" "Read Later")
-         "* TODO Read %:subject\nSCHEDULED:%t\nDEADLINE: %(org-insert-time-stamp (org-read-date nil t \"+2d\"))\n\n%a\n\n%i")
-        ))
-
-(let ((citar-base-directory "~/References"))
-  (setq citar-bibliography (expand-file-name "main.bib" citar-base-directory)
-        citar-library-paths (list (expand-file-name "library" citar-base-directory))
-        citar-notes-paths (list (expand-file-name "notes" citar-base-directory))))
-(use-package citar
-  :ensure t
-  :bind (("C-c o c o" . citar-open))
-  :config
-  (defvar citar-indicator-files-icons
-    (citar-indicator-create
-     :symbol (nerd-icons-octicon
-              "nf-oct-file"
-              :face 'nerd-icons-green
-              :v-adjust -0.1)
-     :function #'citar-has-files
-     :padding "  " ; need this because the default padding is too low for these icons
-     :tag "has:files"))
-  (defvar citar-indicator-links-icons
-    (citar-indicator-create
-     :symbol (nerd-icons-octicon
-              "nf-oct-link"
-              :face 'nerd-icons-orange
-              :v-adjust 0.01)
-     :function #'citar-has-links
-     :padding "  "
-     :tag "has:links"))
-  (defvar citar-indicator-notes-icons
-    (citar-indicator-create
-     :symbol (nerd-icons-octicon
-              "nf-oct-note"
-              :face 'nerd-icons-blue
-              :v-adjust -0.3)
-     :function #'citar-has-notes
-     :padding "    "
-     :tag "has:notes"))
-  (defvar citar-indicator-cited-icons
-    (citar-indicator-create
-     :symbol (nerd-icons-octicon
-              "nf-oct-circle"
-              :face 'nerd-icon-green)
-     :function #'citar-is-cited
-     :padding "  "
-     :tag "is:cited"))
-  (setq citar-indicators (list citar-indicator-files-icons
-                               citar-indicator-links-icons
-                               citar-indicator-notes-icons
-                               citar-indicator-cited-icons)))
-
-(use-package khalel
-  :demand
-  :hook (org-agenda-mode . khalel-import-events)
-  :config
-  (khalel-add-capture-template "e")
-  :custom
-  (khalel-import-org-file (expand-file-name "calendar.org" org-directory))
-  (khalel-import-org-file-read-only nil)
-  (khalel-import-org-file-confirm-overwrite nil)
-  (khalel-import-start-date "-30d")
-  (khalel-import-end-date "+30d"))
-
-;; Disable auto-pairing of "<" in org-mode with electric-pair-mode
-(defun crafted-org-enhance-electric-pair-inhibit-predicate ()
-  "Disable auto-pairing of \"<\" in `org-mode' when using `electric-pair-mode'."
-  (when (and electric-pair-mode (eql major-mode #'org-mode))
-    (setq-local electric-pair-inhibit-predicate
-                `(lambda (c)
-                   (if (char-equal c ?<)
-                       t
-                     (,electric-pair-inhibit-predicate c))))))
-
-;; Add hook to both electric-pair-mode-hook and org-mode-hook
-;; This ensures org-mode buffers don't behave weirdly,
-;; no matter when electric-pair-mode is activated.
-(add-hook 'electric-pair-mode-hook #'crafted-org-enhance-electric-pair-inhibit-predicate)
-(add-hook 'org-mode-hook #'crafted-org-enhance-electric-pair-inhibit-predicate)
-
-(use-package tramp
-  :defer t
-  :config
-  (add-to-list 'tramp-remote-path 'tramp-own-remote-path))
-
-(use-package vterm
-  :custom
-  (vterm-copy-mode-remove-fake-newlines t))
-
-(use-package rainbow-delimiters
-  :ensure t
-  :hook (prog-mode))
-
-(use-package apheleia
-  :ensure t
-  :defer nil
-  :bind (("C-c c f" . apheleia-format-buffer))
-  :custom (apheleia-remote-algorithm 'local)
-  :config (apheleia-global-mode +1))
-
-(use-package treesit-auto
-  :config (global-treesit-auto-mode +1))
-
-(use-package direnv
-  :ensure t
-  :custom (direnv-always-show-summary nil)
-  :config (direnv-mode +1))
-
-(use-package eldoc
-  :ensure t
-  :custom
-  (eldoc-echo-area-display-truncation-message nil)
-  (eldoc-echo-area-prefer-doc-buffer t)
-  (eldoc-echo-area-use-multiline-p nil))
-
-(use-package eglot
-  :ensure t
-  :bind (("C-c c e" . eglot)
-         ("C-c c C-e" . eglot-reconnect)
-         ("C-c c a" . eglot-code-actions)
-         ("C-c c r" . eglot-rename))
-  :hook ((nix-mode
-          fortran-mode
-          shell-script-mode
-          lua-mode
-          python-mode
-          python-ts-mode
-          rust-mode
-          rust-ts-mode) . eglot-ensure)
-  :custom
-  (eglot-extend-to-xref t)
-  (eglot-autoshutdown t)
-  (eglot-autoreconnect nil)
-  :config
-  (add-to-list 'eglot-server-programs
-               `((rust-ts-mode rust-mode) . ("rust-analyzer"
-                                             :initializationOptions
-                                             ( :check (:command "clippy")
-                                               :procMacro (:enable t)
-                                               :cargo ( :buildScripts (:enable t)
-                                                        :features "all"))))))
-
-(use-package flymake
-  :ensure t
-  :bind (("C-c C-." . flymake-goto-next-error)
-         ("C-c C-," . flymake-goto-prev-error)))
-
-(use-package flymake-popon
-  :ensure t
-  :after flymake
-  :config
-  (global-flymake-popon-mode +1))
-
-(setq project-switch-use-entire-map t
-      project-switch-commands '((project-find-file "Find file")
-                                (project-find-regexp "Find regexp")
-                                (project-find-dir "Find directory")
-                                (project-vc-dir "VC-Dir")
-                                (project-eshell "Eshell")))
-
-(use-package magit
-  :ensure t
-  :bind (("C-c g g" . magit-status)
-         ("C-c g d" . magit-dispatch)
-         ("C-c g f" . magit-file-dispatch)
-         ("C-c g p" . magit-pull)
-         ("C-c g P" . magit-push)
-         ("<remap> <project-vc-dir" . magit-project-status)
-         :map project-prefix-map
-         ("m" . magit-project-status))
-  :custom
-  (magit-define-global-key-bindings nil)
-  (magit-clone-default-directory "~/Projects/")
-  (magit-commit-show-diff nil)
-  (magit-commit-diff-inhibit-same-window t))
-
-(use-package vertico
-  :ensure t
-  :custom
-  (vertico-cycle t)
-  :init
-  (vertico-mode)
-  :config
-  (require 'vertico-directory))
-
-(use-package marginalia
-  :ensure t
-  :custom
-  (marginalia-annotators '(marginalia-annotators-heavy
-                           marginalia-annotators-light
-                           nil))
-  :config (marginalia-mode +1))
-
-(use-package orderless
-  :ensure t
-  :custom
-  (completion-styles '(orderless basic))
-  (completion-category-defaults nil)
-  (completion-category-overrides '((file (styles . (partial-completion))))))
-
-(use-package corfu
-  :ensure t
-  :custom
-  (corfu-cycle t)
-  (corfu-auto t)
-  (corfu-auto-prefix 3)
-  (corfu-quit-no-match 'separator)
-  (corfu-quit-at-boundary 'separator)
-  (corfu-preselect 'directory)
-  :bind (:map corfu-map
-              ("RET" . nil))
-  :init
-  (global-corfu-mode +1)
-  :config
-  (when (require 'corfu-popupinfo nil :noerror)
-    (corfu-popupinfo-mode +1)
-    (keymap-set corfu-map "M-p" #'corfu-popupinfo-scroll-down)
-    (keymap-set corfu-map "M-n" #'corfu-popupinfo-scroll-up)
-    (keymap-set corfu-map "M-d" #'corfu-popupinfo-toggle))
-
-  (defun corfu-enable-always-in-minibuffer ()
-    "Enable Corfu in the minibuffer if Vertico is not active."
-    (unless (or (bound-and-true-p vertico--input)
-                (eq (current-local-map) read-passwd-map))
-      (setq-local corfu-echo-delay nil ;; Disable automatic echo and popup
-                  corfu-auto nil ;; Enable/disable auto completion
-                  corfu-popupinfo-delay nil)
-      (corfu-mode +1)))
-  (add-hook 'minibuffer-setup-hook #'corfu-enable-always-in-minibuffer 1)
-
-  (add-hook 'eshell-mode-hook
-            (lambda ()
-              (setq-local corfu-auto nil)
-              (corfu-mode)))
-
-  (defun corfu-send-shell (&rest _)
-    "Send completion candidate when inside comint/eshell."
-    (cond
-     ((and (derived-mode-p 'eshell-mode) (fboundp 'eshell-send-input))
-      (eshell-send-input))
-     ((and (derived-mode-p 'comint-mode)  (fboundp 'comint-send-input))
-      (comint-send-input))))
-
-  (advice-add #'corfu-insert :after #'corfu-send-shell))
-
-(use-package cape
-  :ensure t
-  :config
-  (add-to-list 'completion-at-point-functions #'cape-file)
-  (add-to-list 'completion-at-point-functions #'cape-dabbrev)
-  (advice-add 'pcomplete-completions-at-point :around #'cape-wrap-silent)
-  (advice-add 'pcomplete-completions-at-point :around #'cape-wrap-purify))
-
-(use-package consult
-  :ensure t
-  :bind (("C-s" . consult-line)
-         ("<remap> <imenu>" . consult-imenu )
-         ("<remap> <switch-to-buffer>" . consult-buffer)
-         ("<remap> <project-switch-to-buffer>" . consult-project-buffer)
-         ("<remap> <org-goto>" . consult-org-heading)
-         ("C-c s f" . consult-fd)
-         ("C-c s g" . consult-ripgrep)
-         ("C-c s e" . consult-flymake)
-         ("C-c s i" . consult-info)
-         ("C-c s t" . consult-theme)
-         :map minibuffer-local-map
-         ("C-r" . consult-history))
-  :config (setq completion-in-region-function #'consult-completion-in-region))
-
-(use-package consult-eglot
-  :ensure t
-  :after consult
-  :commands (consult-eglot-symbols)
-  :bind (("C-c s s" . consult-eglot-symbols)))
-
-(use-package embark
-  :ensure t
-  :bind (("<remap> <describe-bindings>" . embark-bindings)
-         ("C-." . embark-act))
-  :config (setq prefix-help-command #'embark-prefix-help-command))
-
-(use-package embark-consult
-  :ensure t
-  :after (embark consult)
-  :hook (embark-collect-mode . consult-preview-at-point-mode))
-
-;; Configure Tempel
-(use-package tempel
-  :ensure t
-  ;; Require trigger prefix before template name when completing.
-  :custom
-  (tempel-trigger-prefix "<")
-
-  :bind (("M-+" . tempel-complete) ;; Alternative tempel-expand
-         ("M-*" . tempel-insert))
-
-  :init
-
-  ;; Setup completion at point
-  (defun tempel-setup-capf ()
-    ;; Add the Tempel Capf to `completion-at-point-functions'.
-    ;; `tempel-expand' only triggers on exact matches. Alternatively use
-    ;; `tempel-complete' if you want to see all matches, but then you
-    ;; should also configure `tempel-trigger-prefix', such that Tempel
-    ;; does not trigger too often when you don't expect it. NOTE: We add
-    ;; `tempel-expand' *before* the main programming mode Capf, such
-    ;; that it will be tried first.
-    (setq-local completion-at-point-functions
-                (cons #'tempel-expand
-                      completion-at-point-functions)))
-
-  (add-hook 'conf-mode-hook 'tempel-setup-capf)
-  (add-hook 'prog-mode-hook 'tempel-setup-capf)
-  (add-hook 'text-mode-hook 'tempel-setup-capf)
-
-  ;; Optionally make the Tempel templates available to Abbrev,
-  ;; either locally or globally. `expand-abbrev' is bound to C-x '.
-  (add-hook 'prog-mode-hook #'tempel-abbrev-mode))
-
-;; Optional: Add tempel-collection.
-;; The package is young and doesn't have comprehensive coverage.
-(use-package tempel-collection
-  :ensure t)
-
-(use-package aggressive-indent
-  :ensure t
-  :hook (elisp-mode
-         lisp-mode
-         lisp-data-mode
-         rust-mode))
-
-(defun my/enable-fill-column (col)
-  "Set and enable fill column"
-  (set-fill-column col)
-  (display-fill-column-indicator-mode +1))
-
-(add-hook 'python-mode-hook (lambda () (my/enable-fill-column 88)))
-
-(setq gnus-select-method '(nnrss "http://www.fsf.org/static/fsforg/rss/news.xml"))
-
-(setq sendmail-program (executable-find "msmtp")
-      send-mail-function #'smtpmail-send-it
-      message-sendmail-f-is-evil t
-      message-sendmail-extra-arguments '("--read-envelope-from")
-      message-send-mail-function #'message-send-mail-with-sendmail
-      message-auto-save-directory nil
-      message-kill-buffer-on-exit t
-      mail-user-agent 'mu4e-user-agent
-      read-mail-command 'mu4e)
-
-(use-package mu4e
-  :bind (("C-c o m" . mu4e))
-  :custom
-  (mu4e-completing-read-function #'completing-read-default)
-  (mu4e-split-view 'horizontal)
-  (mu4e-attachment-dir "~/Downloads")
-  (mu4e-get-mail-command "mbsync -a")
-  (mu4e-update-interval (* 5 60)) ; Every 5 minutes
-  (mu4e-headers-auto-update nil)
-  (mu4e-sent-messages-behavior 'sent)
-  (mu4e-change-filenames-when-moving t)
-  (mu4e-context-policy 'ask-if-none)
-  (mu4e-compose-context-policy 'ask-if-none)
-  (mu4e-search-full nil)
-  (mu4e-search-include-related t)
-  (mu4e-search-threads t)
-  (mu4e-search-skip-duplicates t)
-  (mu4e-maildir-shortcuts '((:maildir "/Proton/Inbox/" :key ?p)
-                            (:maildir "/iCloud/Inbox/" :key ?i)
-                            (:maildir "/Outlook/Inbox/" :key ?w)))
-  (mu4e-bookmarks '((:name "Unread messages" :query "flag:unread AND NOT flag:trashed" :key ?u :favorite t)
-                    (:name "Today's messages" :query "date:today..now" :key ?t)
-                    (:name "Flagged messages" :query "flag:flagged" :key ?f)
-                    (:name "Last 7 days" :query "date:7d..now" :hide-unread t :key ?w)))
-  (mu4e-headers-fields
-   '((:human-date . 8)
-     (:from . 30)
-     (:subject . 72)
-     (:flags)))
-  (mu4e-headers-visible-flags
-   '(draft
-     flagged
-     unread
-     passed
-     replied
-     trashed
-     attach
-     calendar
-     encrypted
-     signed
-     list
-     personal))
-  :config
-  (setq
-   mu4e-use-fancy-chars t
-   mu4e-modeline-all-read '("R:" . "󰑇 ")
-   mu4e-modeline-all-clear '("C:" . "󰚭 ")
-   mu4e-modeline-new-items '("N:" . "󰎔 ")
-   mu4e-modeline-unread-items '("U:" . "󰶊 ")
-   mu4e-search-full-label '("F" . "󱊖 ")
-   mu4e-search-hide-label '("H" . "󰘓 ")
-   mu4e-search-related-label '("R" . "󰻧 ")
-   mu4e-search-skip-duplicates-label '("D" . "󰆑 ")
-   mu4e-search-threaded-label'("T" . "󱇫 ")
-   mu4e-headers-draft-mark '("D" . "󰻣 ")
-   mu4e-headers-flagged-mark '("F" . "󰈻 ")
-   mu4e-headers-unread-mark '("u" . "󰶊 ")
-   mu4e-headers-passed-mark '("P" . "󱃜 ")
-   mu4e-headers-replied-mark '("R" . "󱃚 ")
-   mu4e-headers-trashed-mark '("T" . "󰩹 ")
-   mu4e-headers-attach-mark '("a" . "󰁦 ")
-   mu4e-headers-calendar-mark '("c" . "󰃭 ")
-   mu4e-headers-encrypted-mark '("x" . "󰇱 ")
-   mu4e-headers-signed-mark '("s" . "󰷻 ")
-   mu4e-headers-list-mark '("l" . "󰻧 ")
-   mu4e-headers-personal-mark '("p" . "󰍡 ")
-   mu4e-headers-seen-mark '("S" . "󰑇 ")
-   mu4e-headers-new-mark '("N" . "󰎔 ")
-   mu4e-headers-from-or-to-prefix '("   " . "To ")
-   mu4e-headers-thread-root-prefix          '("* " . "* ")
-   mu4e-headers-thread-duplicate-prefix     '("= " . "= ")
-   mu4e-headers-thread-blank-prefix         '("  " . "  ")
-   mu4e-headers-thread-single-orphan-prefix '("─>" . "─▶")
-   mu4e-headers-thread-orphan-prefix        '("┬>" . "┬▶")
-   mu4e-headers-thread-connection-prefix    '("│ " . "│ ")
-   mu4e-headers-thread-first-child-prefix   '("├>" . "├▶")
-   mu4e-headers-thread-child-prefix         '("├>" . "├▶")
-   mu4e-headers-thread-last-child-prefix    '("└>" . "╰▶")
-   mu4e-marks '((refile :char
-                        ("r" . "󰀼 ")
-                        :prompt "refile" :dyn-target
-                        (lambda
-                          (target msg)
-                          (mu4e-get-refile-folder msg))
-                        :action
-                        (lambda
-                          (docid msg target)
-                          (mu4e--server-move docid
-                                             (mu4e--mark-check-target target)
-                                             "-N")))
-                (delete :char
-                        ("D" . "󰗨 ")
-                        :prompt "Delete" :show-target
-                        (lambda
-                          (target)
-                          "delete")
-                        :action
-                        (lambda
-                          (docid msg target)
-                          (mu4e--server-remove docid)))
-                (flag :char
-                      ("+" . "󰈻 ")
-                      :prompt "+flag" :show-target
-                      (lambda
-                        (target)
-                        "flag")
-                      :action
-                      (lambda
-                        (docid msg target)
-                        (mu4e--server-move docid nil "+F-u-N")))
-                (move :char
-                      ("m" . "󰪹 ")
-                      :prompt "move" :ask-target mu4e--mark-get-move-target :action
-                      (lambda
-                        (docid msg target)
-                        (mu4e--server-move docid
-                                           (mu4e--mark-check-target target)
-                                           "-N")))
-                (read :char
-                      ("!" . "󰑇 ")
-                      :prompt "!read" :show-target
-                      (lambda
-                        (target)
-                        "read")
-                      :action
-                      (lambda
-                        (docid msg target)
-                        (mu4e--server-move docid nil "+S-u-N")))
-                (trash :char
-                       ("d" . "󰆴 ")
-                       :prompt "dtrash" :dyn-target
-                       (lambda
-                         (target msg)
-                         (mu4e-get-trash-folder msg))
-                       :action
-                       (lambda
-                         (docid msg target)
-                         (mu4e--server-move docid
-                                            (mu4e--mark-check-target target)
-                                            "+T-N")))
-                (unflag :char
-                        ("-" . "󱣮 ")
-                        :prompt "-unflag" :show-target
-                        (lambda
-                          (target)
-                          "unflag")
-                        :action
-                        (lambda
-                          (docid msg target)
-                          (mu4e--server-move docid nil "-F-N")))
-                (untrash :char
-                         ("=" . "󱂧 ")
-                         :prompt "=untrash" :show-target
-                         (lambda
-                           (target)
-                           "untrash")
-                         :action
-                         (lambda
-                           (docid msg target)
-                           (mu4e--server-move docid nil "-T")))
-                (unread :char
-                        ("?" . "󰮒 ")
-                        :prompt "?unread" :show-target
-                        (lambda
-                          (target)
-                          "unread")
-                        :action
-                        (lambda
-                          (docid msg target)
-                          (mu4e--server-move docid nil "-S+u-N")))
-                (unmark :char " " :prompt "unmark" :action
-                        (mu4e-error "No action for unmarking"))
-                (action :char
-                        ("a" . "󰋘 ")
-                        :prompt "action" :ask-target
-                        (lambda nil
-                          (mu4e-read-option "Action: " mu4e-headers-actions))
-                        :action
-                        (lambda
-                          (docid msg actionfunc)
-                          (save-excursion
-                            (when
-                                (mu4e~headers-goto-docid docid)
-                              (mu4e-headers-action actionfunc)))))
-                (something :char
-                           ("*" . "󱗿 ")
-                           :prompt "*something" :action
-                           (mu4e-error "No action for deferred mark"))))
-  (require 'mu4e-org)
-  (mu4e-modeline-mode)
-  (setq mu4e-contexts
-        (list
-         (make-mu4e-context
-          :name "Xenia"
-          :vars '((user-mail-address . "evie@xenia.me.uk")
-                  (mu4e-sent-folder . "/Proton/Sent")
-                  (mu4e-drafts-folder . "/Proton/Drafts")
-                  (mu4e-trash-folder . "/Proton/Trash")
-                  (mu4e-refile-folder . "/Proton/Archive")))
-         (make-mu4e-context
-          :name "Proton"
-          :match-func (lambda (msg) (when msg (string-prefix-p "/Proton" (mu4e-message-field msg :maildir))))
-          :vars '((user-mail-address . "e.litherlandsmith@proton.me")
-                  (mu4e-sent-folder . "/Proton/Sent")
-                  (mu4e-drafts-folder . "/Proton/Drafts")
-                  (mu4e-trash-folder . "/Proton/Trash")
-                  (mu4e-refile-folder . "/Proton/Archive")))
-         (make-mu4e-context
-          :name "iCloud"
-          :match-func (lambda (msg) (when msg (string-prefix-p "/iCloud" (mu4e-message-field msg :maildir))))
-          :vars '((user-mail-address . "e.litherlandsmith@icloud.com")
-                  (mu4e-sent-folder . "/iCloud/Sent Messages")
-                  (mu4e-drafts-folder . "/iCloud/Drafts")
-                  (mu4e-trash-folder . "/iCloud/Deleted Messages")
-                  (mu4e-refile-folder . "/iCloud/Archive")))
-         (make-mu4e-context
-          :name "Work"
-          :match-func (lambda (msg) (when msg (string-prefix-p "/Outlook" (mu4e-message-field msg :maildir))))
-          :vars '((user-mail-address . "evie.litherland-smith@ukaea.uk")
-                  (mu4e-sent-folder . "/Outlook/Sent")
-                  (mu4e-drafts-folder . "/Outlook/Drafts")
-                  (mu4e-trash-folder . "/Outlook/Trash")
-                  (mu4e-refile-folder . "/Outlook/Archive"))))))
-
-(use-package mu4e-alert
-  :after mu4e
-  :config
-  (mu4e-alert-set-default-style 'libnotify)
-  (mu4e-alert-enable-notifications)
-  (mu4e-alert-disable-mode-line-display))
-
-(let ((elfeed-base-directory "~/.elfeed"))
-  (setq elfeed-db-directory (expand-file-name "db" elfeed-base-directory)
-        elfeed-enclosure-default-dir (expand-file-name "enclosures" elfeed-base-directory)
-        rmh-elfeed-org-files (list (expand-file-name "feeds.org" elfeed-base-directory))))
-(use-package elfeed
-  :bind (("C-c f f" . elfeed)
-         ("C-c f u" . elfeed-update))
-  :hook (elfeed-search-mode . elfeed-update)
-  :config
-  (use-package elfeed-org
-    :ensure t
-    :config (elfeed-org))
-  (use-package elfeed-tube
-    :ensure t
-    :config (elfeed-tube-setup)))
-
-(use-package mastodon
-  :commands mastodon
-  :custom
-  (mastodon-instance-url "https://tech.lgbt")
-  (mastodon-active-user "Tux922"))
-
-(defun my/ement-connect-pantalaimon ()
-  "Connect to ement.el by calling `ement-connect' with pantalaimon service as uri-prefix"
-  (interactive)
-  (ement-connect
-   :user-id "@evie:xenia.me.uk"
-   :uri-prefix "http://localhost:8008"))
-
-(use-package ement
-  :ensure t
-  :commands ement-connect
-  :bind (("C-c m m" . ement-list-rooms)
-         ("C-c m n" . ement-notifications)
-         ("C-c m j" . ement-room-join)
-         ("C-c m l" . ement-room-leave)
-         ("C-c m v" . ement-room-view)
-         ("C-c m s" . ement-view-space)
-         ("C-c m k" . ement-kill-buffers)
-         ("C-c m c" . my/ement-connect-pantalaimon))
-  :custom
-  (ement-save-sessions t))
-
-(setq emms-mode-line-icon-enabled-p nil)
-(use-package emms
-  :bind (("C-c e e" . emms-pause)
-         ("C-c e s" . emms-stop)
-         ("C-c e b" . emms-browser)
-         ("C-c e p" . emms-playlist-mode-go)
-         ("<XF86AudioPlay>" . emms-pause)
-         ("<XF86AudioPrev>" . emms-previous)
-         ("<XF86AudioNext>" . emms-next))
-  :custom
-  (emms-source-file-default-directory "~/Music")
-  (emms-lyrics-dir "~/Music/lyrics")
-  (emms-browser-covers #'emms-browser-cache-thumbnail-async)
-  (emms-repeat-playlist t)
-  :config
-  (emms-all)
-  (emms-default-players)
-  (emms-mpris-enable)
-  (add-hook 'emms-player-started-hook #'emms-show))
-
-(use-package doc-view
-  :defer t
-  :ensure t
-  :custom
-  (doc-view-resolution 200)
-  (doc-view-continuous t)
-  (doc-view-imenu-enabled t)
-  (doc-view-scale-internally t)
-  (doc-view-image-width 850))
-
-;;; Whitespace
-(defun crafted-writing-configure-whitespace (use-tabs &optional use-globally &rest enabled-modes)
-  "Helper function to configure `whitespace' mode.
-
-Enable using TAB characters if USE-TABS is non-nil.  If
-USE-GLOBALLY is non-nil, turn on `global-whitespace-mode'.  If
-ENABLED-MODES is non-nil, it will be a list of modes to activate
-whitespace mode using hooks.  The hooks will be the name of the
-mode in the list with `-hook' appended.  If USE-GLOBALLY is
-non-nil, ENABLED-MODES is ignored.
-
-Configuring whitespace mode is not buffer local.  So calling this
-function twice with different settings will not do what you
-think.  For example, if you wanted to use spaces instead of tabs
-globally except for in Makefiles, doing the following won't work:
-
-;; turns on global-whitespace-mode to use spaces instead of tabs
-(crafted-writing-configure-whitespace nil t)
-
-;; overwrites the above to turn to use tabs instead of spaces,
-;; does not turn off global-whitespace-mode, adds a hook to
-;; makefile-mode-hook
-(crafted-writing-configure-whitespace t nil 'makefile-mode)
-
-Instead, use a configuration like this:
-;; turns on global-whitespace-mode to use spaces instead of tabs
-(crafted-writing-configure-whitespace nil t)
-
-;; turn on the buffer-local mode for using tabs instead of spaces.
-(add-hook 'makefile-mode-hook #'indent-tabs-mode)
-
-For more information on `indent-tabs-mode', See the info
-node `(emacs)Just Spaces'
-
-Example usage:
-
-;; Configuring whitespace mode does not turn on whitespace mode
-;; since we don't know which modes to turn it on for.
-;; You will need to do that in your configuration by adding
-;; whitespace mode to the appropriate mode hooks.
-(crafted-writing-configure-whitespace nil)
-
-;; Configure whitespace mode, but turn it on globally.
-(crafted-writing-configure-whitespace nil t)
-
-;; Configure whitespace mode and turn it on only for prog-mode
-;; and derived modes.
-(crafted-writing-configure-whitespace nil nil 'prog-mode)"
-  (if use-tabs
-      (customize-set-variable 'whitespace-style
-                              '(face empty trailing indentation::tab
-                                     space-after-tab::tab
-                                     space-before-tab::tab))
-    ;; use spaces instead of tabs
-    (customize-set-variable 'whitespace-style
-                            '(face empty trailing tab-mark
-                                   indentation::space)))
-
-  (if use-globally
-      (global-whitespace-mode 1)
-    (when enabled-modes
-      (dolist (mode enabled-modes)
-        (add-hook (intern (format "%s-hook" mode)) #'whitespace-mode))))
-
-  ;; cleanup whitespace
-  (customize-set-variable 'whitespace-action '(cleanup auto-cleanup)))
-
-;;; parentheses
-(electric-pair-mode 1) ; auto-insert matching bracket
-(show-paren-mode 1)    ; turn on paren match highlighting
-
-;;; LaTeX configuration
-(with-eval-after-load 'latex
-  (customize-set-variable 'TeX-auto-save t)
-  (customize-set-variable 'TeX-parse-self t)
-  (setq-default TeX-master nil)
-
-  ;; compile to pdf
-  (tex-pdf-mode)
-
-  ;; correlate the source and the output
-  (TeX-source-correlate-mode)
-
-  ;; set a correct indentation in a few additional environments
-  (add-to-list 'LaTeX-indent-environment-list '("lstlisting" current-indentation))
-  (add-to-list 'LaTeX-indent-environment-list '("tikzcd" LaTeX-indent-tabular))
-  (add-to-list 'LaTeX-indent-environment-list '("tikzpicture" current-indentation))
-
-  ;; add a few macros and environment as verbatim
-  (add-to-list 'LaTeX-verbatim-environments "lstlisting")
-  (add-to-list 'LaTeX-verbatim-environments "Verbatim")
-  (add-to-list 'LaTeX-verbatim-macros-with-braces "lstinline")
-  (add-to-list 'LaTeX-verbatim-macros-with-delims "lstinline")
-
-  ;; electric pairs in auctex
-  (customize-set-variable 'TeX-electric-sub-and-superscript t)
-  (customize-set-variable 'LaTeX-electric-left-right-brace t)
-  (customize-set-variable 'TeX-electric-math (cons "$" "$"))
-
-  ;; open all buffers with the math mode and auto-fill mode
-  (add-hook 'LaTeX-mode-hook #'auto-fill-mode)
-  (add-hook 'LaTeX-mode-hook #'LaTeX-math-mode)
-
-  ;; add support for references
-  (add-hook 'LaTeX-mode-hook #'turn-on-reftex)
-  (customize-set-variable 'reftex-plug-into-AUCTeX t)
-
-  ;; to have the buffer refresh after compilation
-  (add-hook 'TeX-after-compilation-finished-functions #'TeX-revert-document-buffer))
-
-(defun crafted-latex-use-pdf-tools ()
-  "Use PDF Tools instead of docview, requires a build environment
-to compile PDF Tools.
-
-Depends on having `pdf-tools'."
-
-  (with-eval-after-load 'latex
-    (customize-set-variable 'TeX-view-program-selection '((output-pdf "PDF Tools")))
-    (customize-set-variable 'TeX-view-program-list '(("PDF Tools" TeX-pdf-tools-sync-view)))
-    (customize-set-variable 'TeX-source-correlate-start-server t)))
-
-;; message the user if the latex executable is not found
-(defun crafted-writing-tex-warning-if-no-latex-executable ()
-  "Print a message to the minibuffer if the \"latex\" executable cannot be found."
-  (unless (executable-find "latex")
-    (message "latex executable not found")))
-(add-hook 'tex-mode-hook #'crafted-writing-tex-warning-if-no-latex-executable)
-
-(when (and (executable-find "latex")
-           (executable-find "latexmk"))
-  (with-eval-after-load 'latex
-    (when (require 'auctex-latexmk nil 'noerror)
-      (with-eval-after-load 'auctex-latexmk
-        (auctex-latexmk-setup)
-        (customize-set-variable 'auctex-latexmk-inherit-TeX-PDF-mode t))
-
-      (defun crafted-writing-tex-make-latexmk-default-command ()
-        "Set `TeX-command-default' to \"LatexMk\"."
-        (setq TeX-command-default "LatexMk"))
-      (add-hook 'TeX-mode-hook #'crafted-writing-tex-make-latexmk-default-command))))
-
-;;; Markdown
-(when (fboundp 'markdown-mode)
-  ;; because the markdown-command variable may not be loaded (yet),
-  ;; check manually for the other markdown processors.  If it is
-  ;; loaded, the others are superfluous but `or' fails fast, so they
-  ;; are not checked if `markdown-command' is set and the command is
-  ;; indeed found.
-  (unless (or (and (boundp 'markdown-command)
-                   (executable-find markdown-command))
-              (executable-find "markdown")
-              (executable-find "pandoc"))
-    (message "No markdown processor found, preview may not possible."))
-
-  (with-eval-after-load 'markdown-mode
-    (customize-set-variable 'markdown-enable-math t)
-    (customize-set-variable 'markdown-enable-html t)
-    (add-hook 'markdown-mode-hook #'conditionally-turn-on-pandoc)))
-
-;;; PDF Support when using pdf-tools
-(when (locate-library "pdf-tools")
-  ;; load pdf-tools when going into doc-view-mode
-  (defun crafted-writing-load-pdf-tools ()
-    "Attempts to require pdf-tools, but for attaching to hooks."
-    (require 'pdf-tools nil :noerror))
-  (add-hook 'doc-view-mode-hook #'crafted-writing-load-pdf-tools)
-
-  ;; when pdf-tools is loaded, apply settings.
-  (with-eval-after-load 'pdf-tools
-    (setq-default pdf-view-display-size 'fit-width)))
diff --git a/home/emacs/init.org b/home/emacs/init.org
deleted file mode 100644
index 9ec4e811..00000000
--- a/home/emacs/init.org
+++ /dev/null
@@ -1,1361 +0,0 @@
-#+TITLE: Emacs Config
-#+AUTHOR: Evie Litherland-Smith
-#+EMAIL: evie@xenia.me.uk
-#+FILETAGS: :emacs:config:org:
-#+PROPERTY: header-args:emacs-lisp :tangle yes :mkdirp yes :results output silent
-
-* Common defaults
-#+BEGIN_SRC emacs-lisp :results output silent
-  (setq custom-file (locate-user-emacs-file "custom.el"))
-  (when (and custom-file (file-exists-p custom-file))
-    (load custom-file nil 'nomessage))
-
-  (setq user-full-name "Evie Litherland-Smith"
-        user-mail-address "evie@xenia.me.uk"
-        use-short-answers t
-        load-prefer-newer t
-        indent-tabs-mode nil
-        even-window-sizes nil
-        global-auto-revert-non-file-buffers t
-        dired-auto-revert-buffer t
-        dired-dwim-target t
-        tab-always-indent 'complete
-        completion-cycle-threshold 3
-        completions-detailed t
-        xref-show-definitions-function #'xref-show-definitions-completing-read
-        kill-do-not-save-duplicates t
-        auto-window-vscroll nil
-        fast-but-imprecise-scrolling t
-        scroll-conservatively 101
-        scroll-margin 0
-        scroll-preserve-screen-position 1)
-
-  (set-default-coding-systems 'utf-8)
-  (set-terminal-coding-system 'utf-8)
-  (set-keyboard-coding-system 'utf-8)
-
-  (global-auto-revert-mode +1)
-  (delete-selection-mode)
-  (recentf-mode -1)
-
-
-  (keymap-global-set "M-#" #'dictionary-lookup-definition)
-
-  ;; turn on spell checking, if available.
-  (when (and (require 'ispell nil :noerror) (executable-find ispell-program-name))
-    (add-hook 'text-mode-hook #'flyspell-mode)
-    (add-hook 'prog-mode-hook #'flyspell-prog-mode))
-
-  ;; Make shebang (#!) file executable when saved
-  (add-hook 'after-save-hook #'executable-make-buffer-file-executable-if-script-p)
-#+END_SRC
-
-** Auto-save file settings
-#+begin_src emacs-lisp :tangle yes
-  (setq backup-directory-alist '(("." . "~/.local/state/emacs/backups"))
-        tramp-backup-directory-alist backup-directory-alist
-        tramp-auto-save-directory (cdr (assoc "." tramp-backup-directory-alist)))
-#+end_src
-** package-archive with priorities
-#+begin_src emacs-lisp :results output silent
-  (when (require 'package nil :noerror)
-    (add-to-list 'package-archives '("stable" . "https://stable.melpa.org/packages/"))
-    (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
-
-    (setq package-archive-priorities '(("gnu" . 99)
-                                       ("nongnu" . 80)
-                                       ("stable" . 70)
-                                       ("melpa" . 0))))
-#+end_src
-
-** Authentication
-#+begin_src emacs-lisp
-  (when (require 'auth-source nil :noerror)
-    (setq auth-sources '("secrets:Login"))
-    (when (require 'auth-source-pass nil :noerror)
-      (auth-source-pass-enable)))
-#+end_src
-
-** Helpful
-#+begin_src emacs-lisp
-  ;; Make `describe-*' screens more helpful
-  (use-package helpful
-    :ensure t
-    :bind (("<remap> <describe-command>" . helpful-command)
-           ("<remap> <describe-function>" . helpful-callable)
-           ("<remap> <describe-key>" . helpful-key)
-           ("<remap> <describe-symbol>" . helpful-symbol)
-           ("<remap> <describe-variable>" . helpful-variable)
-           ("C-h F" . helpful-function)
-           :map helpful-mode-map
-           ("<remap> <revert-buffer>" . helpful-update)))
-
-  ;; Bind extra `describe-*' commands
-  (keymap-global-set "C-h K" #'describe-keymap)
-#+end_src
-
-** ibuffer
-#+begin_src emacs-lisp
-  (use-package ibuffer
-    :ensure t
-    :bind (("C-c b" . ibuffer)))
-
-  (use-package ibuffer-project
-    :ensure t
-    :after ibuffer
-    :hook ((ibuffer . (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))))))
-#+end_src
-
-** Link hint keymaps
-#+begin_src emacs-lisp
-  (use-package link-hint
-    :ensure t
-    :bind (("C-c l o" . link-hint-open-link)
-           ("C-c l c" . link-hint-copy-link)
-           ("C-c l C-o" . link-hint-open-all-link)
-           ("C-c l C-c" . link-hint-copy-all-link)))
-#+end_src
-
-** Avy keymaps
-#+begin_src emacs-lisp
-  (use-package avy
-    :ensure t
-    :bind (("C-c j w" . avy-goto-word-0)
-           ("C-c j c" . avy-goto-char)
-           ("C-c j l" . avy-goto-line)
-           ("C-c j C-c" . avy-goto-char-2)))
-#+end_src
-
-** which-func config
-#+begin_src emacs-lisp
-  (use-package which-func
-    :ensure t
-    :init (which-function-mode))
-#+end_src
-* UI
-#+begin_src emacs-lisp
-  (setq use-dialog-box nil
-        truncate-lines nil
-        truncate-partial-width-windows nil)
-
-  (menu-bar-mode -1)
-  (tool-bar-mode -1)
-  (scroll-bar-mode -1)
-  (tab-bar-mode -1)
-  (global-display-line-numbers-mode -1)
-  (global-prettify-symbols-mode +1)
-  (global-visual-line-mode +1)
-
-  (use-package which-key
-    :ensure t
-    :config (which-key-mode +1))
-
-  (use-package page-break-lines
-    :ensure t
-    :config (global-page-break-lines-mode +1))
-
-  ;; add visual pulse when changing focus, like beacon but built-in
-  ;; from from https://karthinks.com/software/batteries-included-with-emacs/
-  (defun pulse-line (&rest _)
-    "Pulse the current line."
-    (pulse-momentary-highlight-one-line (point)))
-
-  (dolist (command '(scroll-up-command
-                     scroll-down-command
-                     recenter-top-bottom
-                     other-window))
-    (advice-add command :after #'pulse-line))
-#+end_src
-
-** Theme, font and nerd-icons
-#+begin_src emacs-lisp
-  (set-frame-parameter nil 'alpha-background 80)
-  (set-frame-font "Fira Code-12")
-
-  ;; Theme
-  (use-package modus-themes
-    :ensure t
-    :custom (modus-themes-disable-other-themes t)
-    :config (modus-themes-load-theme 'modus-vivendi-tinted))
-
-  ;; Nerd-Icons modes
-  (use-package nerd-icons
-    :ensure t
-    :config (nerd-icons-set-font "Symbols Nerd Font Mono"))
-
-  (use-package nerd-icons-dired
-    :ensure t
-    :hook (dired-mode))
-
-  (use-package nerd-icons-ibuffer
-    :ensure t
-    :hook (ibuffer-mode))
-
-  (use-package nerd-icons-completion
-    :ensure t
-    :config (nerd-icons-completion-mode +1))
-
-  (use-package nerd-icons-corfu
-    :ensure t
-    :after corfu
-    :config (add-to-list 'corfu-margin-formatters #'nerd-icons-corfu-formatter))
-
-  (keymap-global-set "C-c i n" #'nerd-icons-insert)
-#+end_src
-
-** Window management
-
-*** winner
-#+begin_src emacs-lisp
-  (use-package winner
-    :ensure t
-    :demand
-    :bind (("C-c w u" . winner-undo)
-           ("C-c w r" . winner-redo))
-    :config
-    (winner-mode))
-#+end_src
-
-*** ediff
-#+begin_src emacs-lisp :tangle yes
-  (use-package ediff
-    :bind (("C-c d f" . ediff-files)
-           ("C-c d b" . ediff-buffers)
-           ("C-c d 3 f" . ediff-files3)
-           ("C-c d 3 b" . ediff-buffers3))
-    :custom
-    (ediff-window-setup-function #'ediff-setup-windows-plain))
-#+end_src
-** Font ligatures
-#+begin_src emacs-lisp
-  (use-package ligature
-    :ensure t
-    :config
-    ;; Enable the "www" ligature in every possible major mode
-    (ligature-set-ligatures 't '("www"))
-    ;; Enable traditional ligature support in eww-mode, if the
-    ;; `variable-pitch' face supports it
-    (ligature-set-ligatures 'eww-mode '("ff" "fi" "ffi"))
-    ;; Enable all Cascadia and Fira Code ligatures in programming modes
-    (ligature-set-ligatures '(prog-mode org-mode)
-                            '(;; == === ==== => =| =>>=>=|=>==>> ==< =/=//=// =~
-                              ;; =:= =!=
-                              ("=" (rx (+ (or ">" "<" "|" "/" "~" ":" "!" "="))))
-                              ;; ;; ;;;
-                              (";" (rx (+ ";")))
-                              ;; && &&&
-                              ("&" (rx (+ "&")))
-                              ;; !! !!! !. !: !!. != !== !~
-                              ("!" (rx (+ (or "=" "!" "\." ":" "~"))))
-                              ;; ?? ??? ?:  ?=  ?.
-                              ("?" (rx (or ":" "=" "\." (+ "?"))))
-                              ;; %% %%%
-                              ("%" (rx (+ "%")))
-                              ;; |> ||> |||> ||||> |] |} || ||| |-> ||-||
-                              ;; |->>-||-<<-| |- |== ||=||
-                              ;; |==>>==<<==<=>==//==/=!==:===>
-                              ("|" (rx (+ (or ">" "<" "|" "/" ":" "!" "}" "\]"
-                                              "-" "=" ))))
-                              ;; \\ \\\ \/
-                              ("\\" (rx (or "/" (+ "\\"))))
-                              ;; ++ +++ ++++ +>
-                              ("+" (rx (or ">" (+ "+"))))
-                              ;; :: ::: :::: :> :< := :// ::=
-                              (":" (rx (or ">" "<" "=" "//" ":=" (+ ":"))))
-                              ;; // /// //// /\ /* /> /===:===!=//===>>==>==/
-                              ("/" (rx (+ (or ">"  "<" "|" "/" "\\" "\*" ":" "!"
-                                              "="))))
-                              ;; .. ... .... .= .- .? ..= ..<
-                              ;; ("\." (rx (or "=" "-" "\?" "\.=" "\.<" (+ "\."))))
-                              ;; -- --- ---- -~ -> ->> -| -|->-->>->--<<-|
-                              ("-" (rx (+ (or ">" "<" "|" "~" "-"))))
-                              ;; *> */ *)  ** *** ****
-                              ("*" (rx (or ">" "/" ")" (+ "*"))))
-                              ;; www wwww
-                              ("w" (rx (+ "w")))
-                              ;; <> <!-- <|> <: <~ <~> <~~ <+ <* <$ </  <+> <*>
-                              ;; <$> </> <|  <||  <||| <|||| <- <-| <-<<-|-> <->>
-                              ;; <<-> <= <=> <<==<<==>=|=>==/==//=!==:=>
-                              ;; << <<< <<<<
-                              ("<" (rx (+ (or "\+" "\*" "\$" "<" ">" ":" "~"  "!"
-                                              "-"  "/" "|" "="))))
-                              ;; >: >- >>- >--|-> >>-|-> >= >== >>== >=|=:=>>
-                              ;; >> >>> >>>>
-                              (">" (rx (+ (or ">" "<" "|" "/" ":" "=" "-"))))
-                              ;; #: #= #! #( #? #[ #{ #_ #_( ## ### #####
-                              ("#" (rx (or ":" "=" "!" "(" "\?" "\[" "{" "_(" "_"
-                                           (+ "#"))))
-                              ;; ~~ ~~~ ~=  ~-  ~@ ~> ~~>
-                              ("~" (rx (or ">" "=" "-" "@" "~>" (+ "~"))))
-                              ;; __ ___ ____ _|_ __|____|_
-                              ("_" (rx (+ (or "_" "|"))))
-                              ;; The few not covered by the regexps.
-                              "{|"  "[|"  "]#"  "(*"  "}#"  "$>"  "^="))
-    (ligature-set-ligatures 'prog-mode
-                            '(;; Fira code: 0xFF 0x12
-                              ("0" (rx (and "x" (+ (in "A-F" "a-f" "0-9")))))
-                              ;; Fira code:
-                              "Fl"  "Tl"  "fi"  "fj"  "fl"  "ft"))
-    ;; Enables ligature checks globally in all buffers. You can also do it
-    ;; per mode with `ligature-mode'.
-    (global-ligature-mode t))
-#+end_src
-
-** Modeline
-#+begin_src emacs-lisp
-  (line-number-mode +1)
-  (column-number-mode +1)
-  (size-indication-mode +1)
-  (display-battery-mode +1)
-  (display-time-mode -1)
-#+end_src
-
-*** Doom Modeline
-#+begin_src emacs-lisp :tangle yes
-  (use-package doom-modeline
-    :ensure t
-    :custom
-    (doom-modeline-icon t)
-    (doom-modeline-env-version nil)
-    (doom-modeline-buffer-file-name-style 'file-name)
-    (doom-modeline-buffer-encoding 'nondefault)
-    (doom-modeline-enable-word-count t)
-    (doom-modeline-continuous-word-count-modes
-     '(org-mode markdown-mode gfm-mode))
-    :config
-    (doom-modeline-mode +1))
-#+end_src
-
-** Darkroom
-#+begin_src emacs-lisp
-  (use-package darkroom
-    :ensure t
-    :defer t)
-#+end_src
-
-** Zone
-#+begin_src emacs-lisp :tangle yes
-  (use-package zone
-    :ensure t
-    :config (zone-when-idle (* 60 60 2))) ; 2 hours
-#+end_src
-
-** Git status in fringe
-#+begin_src emacs-lisp
-  (use-package diff-hl
-    :ensure t
-    :init
-    (add-hook 'magit-pre-refresh-hook 'diff-hl-magit-pre-refresh)
-    (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh)
-    :config
-    (global-diff-hl-mode)
-    :custom
-    (diff-hl-disable-on-remote t)
-    (diff-hl-draw-borders nil))
-#+end_src
-* Org-mode
-For reference information, see [[https://orgmode.com][Org-mode website]]
-
-#+BEGIN_SRC emacs-lisp :results output silent
-  (setq org-directory "~/Org"
-        org-default-notes-file (expand-file-name "notes.org" org-directory)
-        org-pretty-entities-include-sub-superscripts t
-        org-pretty-entities-include-sub-superscripts t
-        org-tags-column 0
-        org-outline-path-complete-in-steps nil
-        org-return-follows-link t
-        org-mouse-1-follows-link t
-        org-link-descriptive t
-        org-refile-use-outline-path t
-        org-refile-allow-creating-parent-nodes t
-        org-refile-use-outline-path 'file
-        org-refile-targets '((nil :maxlevel . 3)
-                             (org-agenda-files :maxlevel . 3)))
-
-  ;; Visually indent org-mode files to a given header level
-  (add-hook 'org-mode-hook #'org-indent-mode)
-
-  (use-package org
-    :ensure t
-    :custom
-    (org-babel-load-languages '((emacs-lisp . t)
-                                (python . t))))
-#+END_SRC
-
-** Keymaps
-#+begin_src emacs-lisp :results output silent
-  (keymap-global-set "C-c o ." #'calendar)
-  (keymap-global-set "C-c o e" #'org-edit-src-code)
-  (keymap-global-set "C-c o a" #'org-agenda)
-  (keymap-global-set "C-c o n" #'org-capture)
-  (keymap-global-set "C-c o l" #'org-capture-goto-last-stored)
-
-  (use-package org-modern
-    :ensure t
-    :hook ((org-mode . org-modern-mode)
-           (org-agenda-finalize . org-modern-agenda))
-    :custom
-    (org-modern-tag nil))
-#+end_src
-
-** org-agenda
-#+begin_src emacs-lisp :results output silent
-  (setq org-agenda-span 'week
-        org-agenda-start-on-weekday 1
-        org-agenda-files (list (expand-file-name org-directory)
-                               (expand-file-name "journal" org-directory)
-                               (expand-file-name "projects" org-directory))
-        org-agenda-sticky t
-        org-agenda-window-setup 'current-window
-        org-agenda-prefix-format '((agenda . " %-12:c%?-12t% s")
-                                   (todo . " %-12:c")
-                                   (tags . " %-12:c")
-                                   (search . " %-12:c")))
-#+end_src
-
-** org-journal
-#+BEGIN_SRC emacs-lisp :results output silent
-  (use-package org-journal
-    :bind (("C-c o j" . org-journal-new-entry))
-    :custom
-    (org-journal-dir (expand-file-name "journal" org-directory))
-    (org-journal-file-type 'monthly)
-    (org-journal-file-format "%Y-%m.org"))
-#+END_SRC
-
-** Capture templates
-#+BEGIN_SRC emacs-lisp :results output silent
-  (setq org-capture-templates
-        '(("n" "Note" entry
-           (file+headline "inbox.org" "Note")
-           "* %?"
-           :prepend t
-           :empty-lines 1)
-          ("t" "Task" entry
-           (file+headline "inbox.org" "Task")
-           "* TODO %?"
-           :prepend t
-           :empty-lines 1)
-          ("m" "Email Workflow")
-          ("mf" "Follow Up" entry (file+olp "mail.org" "Follow Up")
-           "* TODO Follow up with %:fromname on %a\nSCHEDULED:%t\nDEADLINE: %(org-insert-time-stamp (org-read-date nil t \"+2d\"))\n\n%i")
-          ("mr" "Read Later" entry (file+olp "mail.org" "Read Later")
-           "* TODO Read %:subject\nSCHEDULED:%t\nDEADLINE: %(org-insert-time-stamp (org-read-date nil t \"+2d\"))\n\n%a\n\n%i")
-          ))
-#+END_SRC
-
-** TODO Citar
-#+begin_src emacs-lisp :results output silent
-  (let ((citar-base-directory "~/References"))
-    (setq citar-bibliography (expand-file-name "main.bib" citar-base-directory)
-          citar-library-paths (list (expand-file-name "library" citar-base-directory))
-          citar-notes-paths (list (expand-file-name "notes" citar-base-directory))))
-  (use-package citar
-    :ensure t
-    :bind (("C-c o c o" . citar-open))
-    :config
-    (defvar citar-indicator-files-icons
-      (citar-indicator-create
-       :symbol (nerd-icons-octicon
-                "nf-oct-file"
-                :face 'nerd-icons-green
-                :v-adjust -0.1)
-       :function #'citar-has-files
-       :padding "  " ; need this because the default padding is too low for these icons
-       :tag "has:files"))
-    (defvar citar-indicator-links-icons
-      (citar-indicator-create
-       :symbol (nerd-icons-octicon
-                "nf-oct-link"
-                :face 'nerd-icons-orange
-                :v-adjust 0.01)
-       :function #'citar-has-links
-       :padding "  "
-       :tag "has:links"))
-    (defvar citar-indicator-notes-icons
-      (citar-indicator-create
-       :symbol (nerd-icons-octicon
-                "nf-oct-note"
-                :face 'nerd-icons-blue
-                :v-adjust -0.3)
-       :function #'citar-has-notes
-       :padding "    "
-       :tag "has:notes"))
-    (defvar citar-indicator-cited-icons
-      (citar-indicator-create
-       :symbol (nerd-icons-octicon
-                "nf-oct-circle"
-                :face 'nerd-icon-green)
-       :function #'citar-is-cited
-       :padding "  "
-       :tag "is:cited"))
-    (setq citar-indicators (list citar-indicator-files-icons
-                                 citar-indicator-links-icons
-                                 citar-indicator-notes-icons
-                                 citar-indicator-cited-icons)))
-#+end_src
-
-** Khalel
-#+begin_src emacs-lisp :results output silent
-  (use-package khalel
-    :demand
-    :hook (org-agenda-mode . khalel-import-events)
-    :config
-    (khalel-add-capture-template "e")
-    :custom
-    (khalel-import-org-file (expand-file-name "calendar.org" org-directory))
-    (khalel-import-org-file-read-only nil)
-    (khalel-import-org-file-confirm-overwrite nil)
-    (khalel-import-start-date "-30d")
-    (khalel-import-end-date "+30d"))
-#+end_src
-** TODO Crafted config
-#+BEGIN_SRC emacs-lisp
-  
-
-  ;; Disable auto-pairing of "<" in org-mode with electric-pair-mode
-  (defun crafted-org-enhance-electric-pair-inhibit-predicate ()
-    "Disable auto-pairing of \"<\" in `org-mode' when using `electric-pair-mode'."
-    (when (and electric-pair-mode (eql major-mode #'org-mode))
-      (setq-local electric-pair-inhibit-predicate
-                  `(lambda (c)
-                     (if (char-equal c ?<)
-                         t
-                       (,electric-pair-inhibit-predicate c))))))
-
-  ;; Add hook to both electric-pair-mode-hook and org-mode-hook
-  ;; This ensures org-mode buffers don't behave weirdly,
-  ;; no matter when electric-pair-mode is activated.
-  (add-hook 'electric-pair-mode-hook #'crafted-org-enhance-electric-pair-inhibit-predicate)
-  (add-hook 'org-mode-hook #'crafted-org-enhance-electric-pair-inhibit-predicate)
-#+END_SRC
-
-* Remote Editing
-
-** TRAMP
-#+begin_src emacs-lisp :tangle yes
-  (use-package tramp
-    :defer t
-    :config
-    (add-to-list 'tramp-remote-path 'tramp-own-remote-path))
-#+end_src
-* Development Environment
-#+BEGIN_SRC emacs-lisp
-  (use-package vterm
-    :custom
-    (vterm-copy-mode-remove-fake-newlines t))
-
-  (use-package rainbow-delimiters
-    :ensure t
-    :hook (prog-mode))
-
-  (use-package apheleia
-    :ensure t
-    :defer nil
-    :bind (("C-c c f" . apheleia-format-buffer))
-    :custom (apheleia-remote-algorithm 'local)
-    :config (apheleia-global-mode +1))
-
-  (use-package treesit-auto
-    :config (global-treesit-auto-mode +1))
-
-  (use-package direnv
-    :ensure t
-    :custom (direnv-always-show-summary nil)
-    :config (direnv-mode +1))
-#+END_SRC
-
-** Eldoc
-#+begin_src emacs-lisp :tangle yes
-  (use-package eldoc
-    :ensure t
-    :custom
-    (eldoc-echo-area-display-truncation-message nil)
-    (eldoc-echo-area-prefer-doc-buffer t)
-    (eldoc-echo-area-use-multiline-p nil))
-#+end_src
-
-** Eglot LSP
-#+BEGIN_SRC emacs-lisp
-  (use-package eglot
-    :ensure t
-    :bind (("C-c c e" . eglot)
-           ("C-c c C-e" . eglot-reconnect)
-           ("C-c c a" . eglot-code-actions)
-           ("C-c c r" . eglot-rename))
-    :hook ((nix-mode
-            fortran-mode
-            shell-script-mode
-            lua-mode
-            python-mode
-            python-ts-mode
-            rust-mode
-            rust-ts-mode) . eglot-ensure)
-    :custom
-    (eglot-extend-to-xref t)
-    (eglot-autoshutdown t)
-    (eglot-autoreconnect nil)
-    :config
-    (add-to-list 'eglot-server-programs
-                 `((rust-ts-mode rust-mode) . ("rust-analyzer"
-                                               :initializationOptions
-                                               ( :check (:command "clippy")
-                                                 :procMacro (:enable t)
-                                                 :cargo ( :buildScripts (:enable t)
-                                                          :features "all"))))))
-#+END_SRC
-
-** Flymake
-#+begin_src emacs-lisp :tangle yes
-  (use-package flymake
-    :ensure t
-    :bind (("C-c C-." . flymake-goto-next-error)
-           ("C-c C-," . flymake-goto-prev-error)))
-#+end_src
-
-*** Diagnostics in popup
-#+begin_src emacs-lisp :tangle yes
-  (use-package flymake-popon
-    :ensure t
-    :after flymake
-    :config
-    (global-flymake-popon-mode +1))
-#+end_src
-** Project
-#+BEGIN_SRC emacs-lisp
-  (setq project-switch-use-entire-map t
-        project-switch-commands '((project-find-file "Find file")
-                                  (project-find-regexp "Find regexp")
-                                  (project-find-dir "Find directory")
-                                  (project-vc-dir "VC-Dir")
-                                  (project-eshell "Eshell")))
-#+END_SRC
-** Version control
-*** Magit
-#+begin_src emacs-lisp
-  (use-package magit
-    :ensure t
-    :bind (("C-c g g" . magit-status)
-           ("C-c g d" . magit-dispatch)
-           ("C-c g f" . magit-file-dispatch)
-           ("C-c g p" . magit-pull)
-           ("C-c g P" . magit-push)
-           ("<remap> <project-vc-dir" . magit-project-status)
-           :map project-prefix-map
-           ("m" . magit-project-status))
-    :custom
-    (magit-define-global-key-bindings nil)
-    (magit-clone-default-directory "~/Projects/")
-    (magit-commit-show-diff nil)
-    (magit-commit-diff-inhibit-same-window t))
-#+end_src
-** Completion
-*** Vertico
-#+begin_src emacs-lisp
-  (use-package vertico
-    :ensure t
-    :custom
-    (vertico-cycle t)
-    :init
-    (vertico-mode)
-    :config
-    (require 'vertico-directory))
-#+end_src
-
-*** Marginalia
-#+begin_src emacs-lisp
-  (use-package marginalia
-    :ensure t
-    :custom
-    (marginalia-annotators '(marginalia-annotators-heavy
-                             marginalia-annotators-light
-                             nil))
-    :config (marginalia-mode +1))
-#+end_src
-
-*** Orderless
-#+begin_src emacs-lisp
-  (use-package orderless
-    :ensure t
-    :custom
-    (completion-styles '(orderless basic))
-    (completion-category-defaults nil)
-    (completion-category-overrides '((file (styles . (partial-completion))))))
-#+end_src
-
-*** Corfu and Cape
-#+begin_src emacs-lisp
-  (use-package corfu
-    :ensure t
-    :custom
-    (corfu-cycle t)
-    (corfu-auto t)
-    (corfu-auto-prefix 3)
-    (corfu-quit-no-match 'separator)
-    (corfu-quit-at-boundary 'separator)
-    (corfu-preselect 'directory)
-    :bind (:map corfu-map
-                ("RET" . nil))
-    :init
-    (global-corfu-mode +1)
-    :config
-    (when (require 'corfu-popupinfo nil :noerror)
-      (corfu-popupinfo-mode +1)
-      (keymap-set corfu-map "M-p" #'corfu-popupinfo-scroll-down)
-      (keymap-set corfu-map "M-n" #'corfu-popupinfo-scroll-up)
-      (keymap-set corfu-map "M-d" #'corfu-popupinfo-toggle))
-
-    (defun corfu-enable-always-in-minibuffer ()
-      "Enable Corfu in the minibuffer if Vertico is not active."
-      (unless (or (bound-and-true-p vertico--input)
-                  (eq (current-local-map) read-passwd-map))
-        (setq-local corfu-echo-delay nil ;; Disable automatic echo and popup
-                    corfu-auto nil ;; Enable/disable auto completion
-                    corfu-popupinfo-delay nil)
-        (corfu-mode +1)))
-    (add-hook 'minibuffer-setup-hook #'corfu-enable-always-in-minibuffer 1)
-
-    (add-hook 'eshell-mode-hook
-              (lambda ()
-                (setq-local corfu-auto nil)
-                (corfu-mode)))
-
-    (defun corfu-send-shell (&rest _)
-      "Send completion candidate when inside comint/eshell."
-      (cond
-       ((and (derived-mode-p 'eshell-mode) (fboundp 'eshell-send-input))
-        (eshell-send-input))
-       ((and (derived-mode-p 'comint-mode)  (fboundp 'comint-send-input))
-        (comint-send-input))))
-
-    (advice-add #'corfu-insert :after #'corfu-send-shell))
-
-  (use-package cape
-    :ensure t
-    :config
-    (add-to-list 'completion-at-point-functions #'cape-file)
-    (add-to-list 'completion-at-point-functions #'cape-dabbrev)
-    (advice-add 'pcomplete-completions-at-point :around #'cape-wrap-silent)
-    (advice-add 'pcomplete-completions-at-point :around #'cape-wrap-purify))
-#+end_src
-
-*** Consult
-#+begin_src emacs-lisp
-  (use-package consult
-    :ensure t
-    :bind (("C-s" . consult-line)
-           ("<remap> <imenu>" . consult-imenu )
-           ("<remap> <switch-to-buffer>" . consult-buffer)
-           ("<remap> <project-switch-to-buffer>" . consult-project-buffer)
-           ("<remap> <org-goto>" . consult-org-heading)
-           ("C-c s f" . consult-fd)
-           ("C-c s g" . consult-ripgrep)
-           ("C-c s e" . consult-flymake)
-           ("C-c s i" . consult-info)
-           ("C-c s t" . consult-theme)
-           :map minibuffer-local-map
-           ("C-r" . consult-history))
-    :config (setq completion-in-region-function #'consult-completion-in-region))
-
-  (use-package consult-eglot
-    :ensure t
-    :after consult
-    :commands (consult-eglot-symbols)
-    :bind (("C-c s s" . consult-eglot-symbols)))
-#+end_src
-
-*** Embark
-#+begin_src emacs-lisp
-  (use-package embark
-    :ensure t
-    :bind (("<remap> <describe-bindings>" . embark-bindings)
-           ("C-." . embark-act))
-    :config (setq prefix-help-command #'embark-prefix-help-command))
-
-  (use-package embark-consult
-    :ensure t
-    :after (embark consult)
-    :hook (embark-collect-mode . consult-preview-at-point-mode))
-#+end_src
-** Snippets
-#+begin_src emacs-lisp
-  ;; Configure Tempel
-  (use-package tempel
-    :ensure t
-    ;; Require trigger prefix before template name when completing.
-    :custom
-    (tempel-trigger-prefix "<")
-
-    :bind (("M-+" . tempel-complete) ;; Alternative tempel-expand
-           ("M-*" . tempel-insert))
-
-    :init
-
-    ;; Setup completion at point
-    (defun tempel-setup-capf ()
-      ;; Add the Tempel Capf to `completion-at-point-functions'.
-      ;; `tempel-expand' only triggers on exact matches. Alternatively use
-      ;; `tempel-complete' if you want to see all matches, but then you
-      ;; should also configure `tempel-trigger-prefix', such that Tempel
-      ;; does not trigger too often when you don't expect it. NOTE: We add
-      ;; `tempel-expand' *before* the main programming mode Capf, such
-      ;; that it will be tried first.
-      (setq-local completion-at-point-functions
-                  (cons #'tempel-expand
-                        completion-at-point-functions)))
-
-    (add-hook 'conf-mode-hook 'tempel-setup-capf)
-    (add-hook 'prog-mode-hook 'tempel-setup-capf)
-    (add-hook 'text-mode-hook 'tempel-setup-capf)
-
-    ;; Optionally make the Tempel templates available to Abbrev,
-    ;; either locally or globally. `expand-abbrev' is bound to C-x '.
-    (add-hook 'prog-mode-hook #'tempel-abbrev-mode))
-
-  ;; Optional: Add tempel-collection.
-  ;; The package is young and doesn't have comprehensive coverage.
-  (use-package tempel-collection
-    :ensure t)
-#+end_src
-** Aggressive Indent
-#+begin_src emacs-lisp
-  (use-package aggressive-indent
-    :ensure t
-    :hook (elisp-mode
-           lisp-mode
-           lisp-data-mode
-           rust-mode))
-#+end_src
-** Language-specific settings
-*** Python
-Set fill column to 88 and enable display in python buffers
-#+begin_src emacs-lisp :tangle yes
-  (defun my/enable-fill-column (col)
-    "Set and enable fill column"
-    (set-fill-column col)
-    (display-fill-column-indicator-mode +1))
-
-  (add-hook 'python-mode-hook (lambda () (my/enable-fill-column 88)))
-#+end_src
-* Internet
-
-** TODO Gnus
-#+begin_src emacs-lisp :tangle yes
-  (setq gnus-select-method '(nnrss "http://www.fsf.org/static/fsforg/rss/news.xml"))
-#+end_src
-** Email
-#+BEGIN_SRC emacs-lisp
-  (setq sendmail-program (executable-find "msmtp")
-        send-mail-function #'smtpmail-send-it
-        message-sendmail-f-is-evil t
-        message-sendmail-extra-arguments '("--read-envelope-from")
-        message-send-mail-function #'message-send-mail-with-sendmail
-        message-auto-save-directory nil
-        message-kill-buffer-on-exit t
-        mail-user-agent 'mu4e-user-agent
-        read-mail-command 'mu4e)
-
-  (use-package mu4e
-    :bind (("C-c o m" . mu4e))
-    :custom
-    (mu4e-completing-read-function #'completing-read-default)
-    (mu4e-split-view 'horizontal)
-    (mu4e-attachment-dir "~/Downloads")
-    (mu4e-get-mail-command "mbsync -a")
-    (mu4e-update-interval (* 5 60)) ; Every 5 minutes
-    (mu4e-headers-auto-update nil)
-    (mu4e-sent-messages-behavior 'sent)
-    (mu4e-change-filenames-when-moving t)
-    (mu4e-context-policy 'ask-if-none)
-    (mu4e-compose-context-policy 'ask-if-none)
-    (mu4e-search-full nil)
-    (mu4e-search-include-related t)
-    (mu4e-search-threads t)
-    (mu4e-search-skip-duplicates t)
-    (mu4e-maildir-shortcuts '((:maildir "/Proton/Inbox/" :key ?p)
-                              (:maildir "/iCloud/Inbox/" :key ?i)
-                              (:maildir "/Outlook/Inbox/" :key ?w)))
-    (mu4e-bookmarks '((:name "Unread messages" :query "flag:unread AND NOT flag:trashed" :key ?u :favorite t)
-                      (:name "Today's messages" :query "date:today..now" :key ?t)
-                      (:name "Flagged messages" :query "flag:flagged" :key ?f)
-                      (:name "Last 7 days" :query "date:7d..now" :hide-unread t :key ?w)))
-    (mu4e-headers-fields
-     '((:human-date . 8)
-       (:from . 30)
-       (:subject . 72)
-       (:flags)))
-    (mu4e-headers-visible-flags
-     '(draft
-       flagged
-       unread
-       passed
-       replied
-       trashed
-       attach
-       calendar
-       encrypted
-       signed
-       list
-       personal))
-    :config
-    (setq
-     mu4e-use-fancy-chars t
-     mu4e-modeline-all-read '("R:" . "󰑇 ")
-     mu4e-modeline-all-clear '("C:" . "󰚭 ")
-     mu4e-modeline-new-items '("N:" . "󰎔 ")
-     mu4e-modeline-unread-items '("U:" . "󰶊 ")
-     mu4e-search-full-label '("F" . "󱊖 ")
-     mu4e-search-hide-label '("H" . "󰘓 ")
-     mu4e-search-related-label '("R" . "󰻧 ")
-     mu4e-search-skip-duplicates-label '("D" . "󰆑 ")
-     mu4e-search-threaded-label'("T" . "󱇫 ")
-     mu4e-headers-draft-mark '("D" . "󰻣 ")
-     mu4e-headers-flagged-mark '("F" . "󰈻 ")
-     mu4e-headers-unread-mark '("u" . "󰶊 ")
-     mu4e-headers-passed-mark '("P" . "󱃜 ")
-     mu4e-headers-replied-mark '("R" . "󱃚 ")
-     mu4e-headers-trashed-mark '("T" . "󰩹 ")
-     mu4e-headers-attach-mark '("a" . "󰁦 ")
-     mu4e-headers-calendar-mark '("c" . "󰃭 ")
-     mu4e-headers-encrypted-mark '("x" . "󰇱 ")
-     mu4e-headers-signed-mark '("s" . "󰷻 ")
-     mu4e-headers-list-mark '("l" . "󰻧 ")
-     mu4e-headers-personal-mark '("p" . "󰍡 ")
-     mu4e-headers-seen-mark '("S" . "󰑇 ")
-     mu4e-headers-new-mark '("N" . "󰎔 ")
-     mu4e-headers-from-or-to-prefix '("   " . "To ")
-     mu4e-headers-thread-root-prefix          '("* " . "* ")
-     mu4e-headers-thread-duplicate-prefix     '("= " . "= ")
-     mu4e-headers-thread-blank-prefix         '("  " . "  ")
-     mu4e-headers-thread-single-orphan-prefix '("─>" . "─▶")
-     mu4e-headers-thread-orphan-prefix        '("┬>" . "┬▶")
-     mu4e-headers-thread-connection-prefix    '("│ " . "│ ")
-     mu4e-headers-thread-first-child-prefix   '("├>" . "├▶")
-     mu4e-headers-thread-child-prefix         '("├>" . "├▶")
-     mu4e-headers-thread-last-child-prefix    '("└>" . "╰▶")
-     mu4e-marks '((refile :char
-                          ("r" . "󰀼 ")
-                          :prompt "refile" :dyn-target
-                          (lambda
-                            (target msg)
-                            (mu4e-get-refile-folder msg))
-                          :action
-                          (lambda
-                            (docid msg target)
-                            (mu4e--server-move docid
-                                               (mu4e--mark-check-target target)
-                                               "-N")))
-                  (delete :char
-                          ("D" . "󰗨 ")
-                          :prompt "Delete" :show-target
-                          (lambda
-                            (target)
-                            "delete")
-                          :action
-                          (lambda
-                            (docid msg target)
-                            (mu4e--server-remove docid)))
-                  (flag :char
-                        ("+" . "󰈻 ")
-                        :prompt "+flag" :show-target
-                        (lambda
-                          (target)
-                          "flag")
-                        :action
-                        (lambda
-                          (docid msg target)
-                          (mu4e--server-move docid nil "+F-u-N")))
-                  (move :char
-                        ("m" . "󰪹 ")
-                        :prompt "move" :ask-target mu4e--mark-get-move-target :action
-                        (lambda
-                          (docid msg target)
-                          (mu4e--server-move docid
-                                             (mu4e--mark-check-target target)
-                                             "-N")))
-                  (read :char
-                        ("!" . "󰑇 ")
-                        :prompt "!read" :show-target
-                        (lambda
-                          (target)
-                          "read")
-                        :action
-                        (lambda
-                          (docid msg target)
-                          (mu4e--server-move docid nil "+S-u-N")))
-                  (trash :char
-                         ("d" . "󰆴 ")
-                         :prompt "dtrash" :dyn-target
-                         (lambda
-                           (target msg)
-                           (mu4e-get-trash-folder msg))
-                         :action
-                         (lambda
-                           (docid msg target)
-                           (mu4e--server-move docid
-                                              (mu4e--mark-check-target target)
-                                              "+T-N")))
-                  (unflag :char
-                          ("-" . "󱣮 ")
-                          :prompt "-unflag" :show-target
-                          (lambda
-                            (target)
-                            "unflag")
-                          :action
-                          (lambda
-                            (docid msg target)
-                            (mu4e--server-move docid nil "-F-N")))
-                  (untrash :char
-                           ("=" . "󱂧 ")
-                           :prompt "=untrash" :show-target
-                           (lambda
-                             (target)
-                             "untrash")
-                           :action
-                           (lambda
-                             (docid msg target)
-                             (mu4e--server-move docid nil "-T")))
-                  (unread :char
-                          ("?" . "󰮒 ")
-                          :prompt "?unread" :show-target
-                          (lambda
-                            (target)
-                            "unread")
-                          :action
-                          (lambda
-                            (docid msg target)
-                            (mu4e--server-move docid nil "-S+u-N")))
-                  (unmark :char " " :prompt "unmark" :action
-                          (mu4e-error "No action for unmarking"))
-                  (action :char
-                          ("a" . "󰋘 ")
-                          :prompt "action" :ask-target
-                          (lambda nil
-                            (mu4e-read-option "Action: " mu4e-headers-actions))
-                          :action
-                          (lambda
-                            (docid msg actionfunc)
-                            (save-excursion
-                              (when
-                                  (mu4e~headers-goto-docid docid)
-                                (mu4e-headers-action actionfunc)))))
-                  (something :char
-                             ("*" . "󱗿 ")
-                             :prompt "*something" :action
-                             (mu4e-error "No action for deferred mark"))))
-    (require 'mu4e-org)
-    (mu4e-modeline-mode)
-    (setq mu4e-contexts
-          (list
-           (make-mu4e-context
-            :name "Xenia"
-            :vars '((user-mail-address . "evie@xenia.me.uk")
-                    (mu4e-sent-folder . "/Proton/Sent")
-                    (mu4e-drafts-folder . "/Proton/Drafts")
-                    (mu4e-trash-folder . "/Proton/Trash")
-                    (mu4e-refile-folder . "/Proton/Archive")))
-           (make-mu4e-context
-            :name "Proton"
-            :match-func (lambda (msg) (when msg (string-prefix-p "/Proton" (mu4e-message-field msg :maildir))))
-            :vars '((user-mail-address . "e.litherlandsmith@proton.me")
-                    (mu4e-sent-folder . "/Proton/Sent")
-                    (mu4e-drafts-folder . "/Proton/Drafts")
-                    (mu4e-trash-folder . "/Proton/Trash")
-                    (mu4e-refile-folder . "/Proton/Archive")))
-           (make-mu4e-context
-            :name "iCloud"
-            :match-func (lambda (msg) (when msg (string-prefix-p "/iCloud" (mu4e-message-field msg :maildir))))
-            :vars '((user-mail-address . "e.litherlandsmith@icloud.com")
-                    (mu4e-sent-folder . "/iCloud/Sent Messages")
-                    (mu4e-drafts-folder . "/iCloud/Drafts")
-                    (mu4e-trash-folder . "/iCloud/Deleted Messages")
-                    (mu4e-refile-folder . "/iCloud/Archive")))
-           (make-mu4e-context
-            :name "Work"
-            :match-func (lambda (msg) (when msg (string-prefix-p "/Outlook" (mu4e-message-field msg :maildir))))
-            :vars '((user-mail-address . "evie.litherland-smith@ukaea.uk")
-                    (mu4e-sent-folder . "/Outlook/Sent")
-                    (mu4e-drafts-folder . "/Outlook/Drafts")
-                    (mu4e-trash-folder . "/Outlook/Trash")
-                    (mu4e-refile-folder . "/Outlook/Archive"))))))
-
-  (use-package mu4e-alert
-    :after mu4e
-    :config
-    (mu4e-alert-set-default-style 'libnotify)
-    (mu4e-alert-enable-notifications)
-    (mu4e-alert-disable-mode-line-display))
-
-#+END_SRC
-
-** TODO Feeds
-#+BEGIN_SRC emacs-lisp
-  (let ((elfeed-base-directory "~/.elfeed"))
-    (setq elfeed-db-directory (expand-file-name "db" elfeed-base-directory)
-          elfeed-enclosure-default-dir (expand-file-name "enclosures" elfeed-base-directory)
-          rmh-elfeed-org-files (list (expand-file-name "feeds.org" elfeed-base-directory))))
-  (use-package elfeed
-    :bind (("C-c f f" . elfeed)
-           ("C-c f u" . elfeed-update))
-    :hook (elfeed-search-mode . elfeed-update)
-    :config
-    (use-package elfeed-org
-      :ensure t
-      :config (elfeed-org))
-    (use-package elfeed-tube
-      :ensure t
-      :config (elfeed-tube-setup)))
-#+END_SRC
-
-** Social
-
-*** Mastodon
-#+BEGIN_SRC emacs-lisp
-  (use-package mastodon
-    :commands mastodon
-    :custom
-    (mastodon-instance-url "https://tech.lgbt")
-    (mastodon-active-user "Tux922"))
-#+END_SRC
-
-*** Matrix / Ement.el
-#+begin_src emacs-lisp
-  (defun my/ement-connect-pantalaimon ()
-    "Connect to ement.el by calling `ement-connect' with pantalaimon service as uri-prefix"
-    (interactive)
-    (ement-connect
-     :user-id "@evie:xenia.me.uk"
-     :uri-prefix "http://localhost:8008"))
-
-  (use-package ement
-    :ensure t
-    :commands ement-connect
-    :bind (("C-c m m" . ement-list-rooms)
-           ("C-c m n" . ement-notifications)
-           ("C-c m j" . ement-room-join)
-           ("C-c m l" . ement-room-leave)
-           ("C-c m v" . ement-room-view)
-           ("C-c m s" . ement-view-space)
-           ("C-c m k" . ement-kill-buffers)
-           ("C-c m c" . my/ement-connect-pantalaimon))
-    :custom
-    (ement-save-sessions t))
-#+end_src
-
-
-* Media
-
-** EMMS
-#+BEGIN_SRC emacs-lisp
-  (setq emms-mode-line-icon-enabled-p nil)
-  (use-package emms
-    :bind (("C-c e e" . emms-pause)
-           ("C-c e s" . emms-stop)
-           ("C-c e b" . emms-browser)
-           ("C-c e p" . emms-playlist-mode-go)
-           ("<XF86AudioPlay>" . emms-pause)
-           ("<XF86AudioPrev>" . emms-previous)
-           ("<XF86AudioNext>" . emms-next))
-    :custom
-    (emms-source-file-default-directory "~/Music")
-    (emms-lyrics-dir "~/Music/lyrics")
-    (emms-browser-covers #'emms-browser-cache-thumbnail-async)
-    (emms-repeat-playlist t)
-    :config
-    (emms-all)
-    (emms-default-players)
-    (emms-mpris-enable)
-    (add-hook 'emms-player-started-hook #'emms-show))
-#+END_SRC
-
-* Writing
-
-** Doc-view
-#+begin_src emacs-lisp :tangle yes
-  (use-package doc-view
-    :defer t
-    :ensure t
-    :custom
-    (doc-view-resolution 200)
-    (doc-view-continuous t)
-    (doc-view-imenu-enabled t)
-    (doc-view-scale-internally t)
-    (doc-view-image-width 850))
-#+end_src
-
-** TODO Crafted Config
-#+BEGIN_SRC emacs-lisp
-  ;;; Whitespace
-  (defun crafted-writing-configure-whitespace (use-tabs &optional use-globally &rest enabled-modes)
-    "Helper function to configure `whitespace' mode.
-
-  Enable using TAB characters if USE-TABS is non-nil.  If
-  USE-GLOBALLY is non-nil, turn on `global-whitespace-mode'.  If
-  ENABLED-MODES is non-nil, it will be a list of modes to activate
-  whitespace mode using hooks.  The hooks will be the name of the
-  mode in the list with `-hook' appended.  If USE-GLOBALLY is
-  non-nil, ENABLED-MODES is ignored.
-
-  Configuring whitespace mode is not buffer local.  So calling this
-  function twice with different settings will not do what you
-  think.  For example, if you wanted to use spaces instead of tabs
-  globally except for in Makefiles, doing the following won't work:
-
-  ;; turns on global-whitespace-mode to use spaces instead of tabs
-  (crafted-writing-configure-whitespace nil t)
-
-  ;; overwrites the above to turn to use tabs instead of spaces,
-  ;; does not turn off global-whitespace-mode, adds a hook to
-  ;; makefile-mode-hook
-  (crafted-writing-configure-whitespace t nil 'makefile-mode)
-
-  Instead, use a configuration like this:
-  ;; turns on global-whitespace-mode to use spaces instead of tabs
-  (crafted-writing-configure-whitespace nil t)
-
-  ;; turn on the buffer-local mode for using tabs instead of spaces.
-  (add-hook 'makefile-mode-hook #'indent-tabs-mode)
-
-  For more information on `indent-tabs-mode', See the info
-  node `(emacs)Just Spaces'
-
-  Example usage:
-
-  ;; Configuring whitespace mode does not turn on whitespace mode
-  ;; since we don't know which modes to turn it on for.
-  ;; You will need to do that in your configuration by adding
-  ;; whitespace mode to the appropriate mode hooks.
-  (crafted-writing-configure-whitespace nil)
-
-  ;; Configure whitespace mode, but turn it on globally.
-  (crafted-writing-configure-whitespace nil t)
-
-  ;; Configure whitespace mode and turn it on only for prog-mode
-  ;; and derived modes.
-  (crafted-writing-configure-whitespace nil nil 'prog-mode)"
-    (if use-tabs
-        (customize-set-variable 'whitespace-style
-                                '(face empty trailing indentation::tab
-                                       space-after-tab::tab
-                                       space-before-tab::tab))
-      ;; use spaces instead of tabs
-      (customize-set-variable 'whitespace-style
-                              '(face empty trailing tab-mark
-                                     indentation::space)))
-
-    (if use-globally
-        (global-whitespace-mode 1)
-      (when enabled-modes
-        (dolist (mode enabled-modes)
-          (add-hook (intern (format "%s-hook" mode)) #'whitespace-mode))))
-
-    ;; cleanup whitespace
-    (customize-set-variable 'whitespace-action '(cleanup auto-cleanup)))
-
-  ;;; parentheses
-  (electric-pair-mode 1) ; auto-insert matching bracket
-  (show-paren-mode 1)    ; turn on paren match highlighting
-
-  ;;; LaTeX configuration
-  (with-eval-after-load 'latex
-    (customize-set-variable 'TeX-auto-save t)
-    (customize-set-variable 'TeX-parse-self t)
-    (setq-default TeX-master nil)
-
-    ;; compile to pdf
-    (tex-pdf-mode)
-
-    ;; correlate the source and the output
-    (TeX-source-correlate-mode)
-
-    ;; set a correct indentation in a few additional environments
-    (add-to-list 'LaTeX-indent-environment-list '("lstlisting" current-indentation))
-    (add-to-list 'LaTeX-indent-environment-list '("tikzcd" LaTeX-indent-tabular))
-    (add-to-list 'LaTeX-indent-environment-list '("tikzpicture" current-indentation))
-
-    ;; add a few macros and environment as verbatim
-    (add-to-list 'LaTeX-verbatim-environments "lstlisting")
-    (add-to-list 'LaTeX-verbatim-environments "Verbatim")
-    (add-to-list 'LaTeX-verbatim-macros-with-braces "lstinline")
-    (add-to-list 'LaTeX-verbatim-macros-with-delims "lstinline")
-
-    ;; electric pairs in auctex
-    (customize-set-variable 'TeX-electric-sub-and-superscript t)
-    (customize-set-variable 'LaTeX-electric-left-right-brace t)
-    (customize-set-variable 'TeX-electric-math (cons "$" "$"))
-
-    ;; open all buffers with the math mode and auto-fill mode
-    (add-hook 'LaTeX-mode-hook #'auto-fill-mode)
-    (add-hook 'LaTeX-mode-hook #'LaTeX-math-mode)
-
-    ;; add support for references
-    (add-hook 'LaTeX-mode-hook #'turn-on-reftex)
-    (customize-set-variable 'reftex-plug-into-AUCTeX t)
-
-    ;; to have the buffer refresh after compilation
-    (add-hook 'TeX-after-compilation-finished-functions #'TeX-revert-document-buffer))
-
-  (defun crafted-latex-use-pdf-tools ()
-    "Use PDF Tools instead of docview, requires a build environment
-  to compile PDF Tools.
-
-  Depends on having `pdf-tools'."
-
-    (with-eval-after-load 'latex
-      (customize-set-variable 'TeX-view-program-selection '((output-pdf "PDF Tools")))
-      (customize-set-variable 'TeX-view-program-list '(("PDF Tools" TeX-pdf-tools-sync-view)))
-      (customize-set-variable 'TeX-source-correlate-start-server t)))
-
-  ;; message the user if the latex executable is not found
-  (defun crafted-writing-tex-warning-if-no-latex-executable ()
-    "Print a message to the minibuffer if the \"latex\" executable cannot be found."
-    (unless (executable-find "latex")
-      (message "latex executable not found")))
-  (add-hook 'tex-mode-hook #'crafted-writing-tex-warning-if-no-latex-executable)
-
-  (when (and (executable-find "latex")
-             (executable-find "latexmk"))
-    (with-eval-after-load 'latex
-      (when (require 'auctex-latexmk nil 'noerror)
-        (with-eval-after-load 'auctex-latexmk
-          (auctex-latexmk-setup)
-          (customize-set-variable 'auctex-latexmk-inherit-TeX-PDF-mode t))
-
-        (defun crafted-writing-tex-make-latexmk-default-command ()
-          "Set `TeX-command-default' to \"LatexMk\"."
-          (setq TeX-command-default "LatexMk"))
-        (add-hook 'TeX-mode-hook #'crafted-writing-tex-make-latexmk-default-command))))
-
-  ;;; Markdown
-  (when (fboundp 'markdown-mode)
-    ;; because the markdown-command variable may not be loaded (yet),
-    ;; check manually for the other markdown processors.  If it is
-    ;; loaded, the others are superfluous but `or' fails fast, so they
-    ;; are not checked if `markdown-command' is set and the command is
-    ;; indeed found.
-    (unless (or (and (boundp 'markdown-command)
-                     (executable-find markdown-command))
-                (executable-find "markdown")
-                (executable-find "pandoc"))
-      (message "No markdown processor found, preview may not possible."))
-
-    (with-eval-after-load 'markdown-mode
-      (customize-set-variable 'markdown-enable-math t)
-      (customize-set-variable 'markdown-enable-html t)
-      (add-hook 'markdown-mode-hook #'conditionally-turn-on-pandoc)))
-
-  ;;; PDF Support when using pdf-tools
-  (when (locate-library "pdf-tools")
-    ;; load pdf-tools when going into doc-view-mode
-    (defun crafted-writing-load-pdf-tools ()
-      "Attempts to require pdf-tools, but for attaching to hooks."
-      (require 'pdf-tools nil :noerror))
-    (add-hook 'doc-view-mode-hook #'crafted-writing-load-pdf-tools)
-
-    ;; when pdf-tools is loaded, apply settings.
-    (with-eval-after-load 'pdf-tools
-      (setq-default pdf-view-display-size 'fit-width)))
-#+END_SRC
diff --git a/home/emacs/snippets/python-mode/salclient b/home/emacs/snippets/python-mode/salclient
deleted file mode 100644
index 356f3874..00000000
--- a/home/emacs/snippets/python-mode/salclient
+++ /dev/null
@@ -1,22 +0,0 @@
-# -*- mode: snippet -*-
-# name: sal = SALClient(...)
-# key: salclient
-# --
-from socket import getfqdn
-from sal.client import SALClient
-from sal.core.exception import AuthenticationFailed
-
-SAL_HOST = getfqdn("sal")
-SAL_BACKUP_HOST = "sal.jet.uk"
-
-try:
-    sal = SALClient("https://{}".format(SAL_HOST if SAL_HOST != "sal" else SAL_BACKUP_HOST))
-except ConnectionError:
-    sal = SALClient("https://{}".format(SAL_BACKUP_HOST))
-
-try:
-    sal.list("/")
-except AuthenticationFailed:
-    sal.authenticate()
-
-$0
\ No newline at end of file
diff --git a/home/emacs/snippets/text-mode/ks5logbook b/home/emacs/snippets/text-mode/ks5logbook
deleted file mode 100644
index eb3d7518..00000000
--- a/home/emacs/snippets/text-mode/ks5logbook
+++ /dev/null
@@ -1,10 +0,0 @@
-# -*- mode: snippet -*-
-# name: KS5 Logbook Entry
-# key: ks5log
-# --
-|- style="vertical-align:top;"
-| `(format-time-string "%d/%m/%Y")`
-| $1
-| Evie
-| $2
-| $0
\ No newline at end of file
diff --git a/home/emacs/snippets/text-mode/kt3logbook b/home/emacs/snippets/text-mode/kt3logbook
deleted file mode 100644
index 20f76cf8..00000000
--- a/home/emacs/snippets/text-mode/kt3logbook
+++ /dev/null
@@ -1,6 +0,0 @@
-# -*- mode: snippet -*-
-# name: KT3 Logbook Entry
-# key: kt3log
-# --
-== $1 `(format-time-string "%Y-%m-%d")` elitherl ==
-*$0
\ No newline at end of file
diff --git a/home/emacs/templates b/home/emacs/templates
deleted file mode 100644
index a841c498..00000000
--- a/home/emacs/templates
+++ /dev/null
@@ -1,156 +0,0 @@
-;; ~/.config/emacs/templates
-
-fundamental-mode ;; Available everywhere
-
-(today (format-time-string "%Y-%m-%d"))
-
-prog-mode
-
-(fixme (if (derived-mode-p 'emacs-lisp-mode) ";; " comment-start) "FIXME ")
-(todo (if (derived-mode-p 'emacs-lisp-mode) ";; " comment-start) "TODO ")
-(bug (if (derived-mode-p 'emacs-lisp-mode) ";; " comment-start) "BUG ")
-(hack (if (derived-mode-p 'emacs-lisp-mode) ";; " comment-start) "HACK ")
-
-latex-mode
-
-(abstract "\\begin{abstract}\n" r> n> "\\end{abstract}")
-(align "\\begin{align}\n" r> n> "\\end{align}")
-(alignn "\\begin{align*}\n" r> n> "\\end{align*}")
-(gather "\\begin{gather}\n" r> n> "\\end{gather}")
-(gatherr "\\begin{gather*}\n" r> n> "\\end{gather*}")
-(appendix "\\begin{appendix}\n" r> n> "\\end{appendix}")
-(begin "\\begin{" (s env) "}" r> n> "\\end{" (s env) "}")
-(center "\\begin{center}\n" r> n> "\\end{center}")
-(displaymath "\\begin{displaymath}\n" r> n> "\\end{displaymath}")
-(document "\\begin{document}\n" r> n> "\\end{document}")
-(enumerate "\\begin{enumerate}\n\\item " r> n> "\\end{enumerate}")
-(equation "\\begin{equation}" r> n> "\\end{equation}")
-(flushleft "\\begin{flushleft}" r> n> "\\end{flushleft}")
-(flushright "\\begin{flushright}" r> n> "\\end{flushright}")
-(frac "\\frac{" p "}{" q "}")
-(fussypar "\\begin{fussypar}" r> n> "\\end{fussypar}")
-(itemize "\\begin{itemize}\n\\item " r> n> "\\end{itemize}")
-(letter "\\begin{letter}\n" r> n> "\\end{letter}")
-(math "\\begin{math}\n" r> n> "\\end{math}")
-(minipage "\\begin{minipage}[t]{0.5\linewidth}\n" r> n> "\\end{minipage}")
-(quotation "\\begin{quotation}\n" r> n> "\\end{quotation}")
-(quote "\\begin{quote}\n" r> n> "\\end{quote}")
-(sloppypar "\\begin{sloppypar}\n" r> n> "\\end{sloppypar}")
-(theindex "\\begin{theindex}\n" r> n> "\\end{theindex}")
-(trivlist "\\begin{trivlist}\n" r> n> "\\end{trivlist}")
-(verbatim "\\begin{verbatim}\n" r> n> "\\end{verbatim}")
-(verbatimm "\\begin{verbatim*}\n" r> n> "\\end{verbatim*}")
-
-texinfo-mode
-
-(defmac "@defmac " p n> r> "@end defmac")
-(defun "@defun " p n> r> "@end defun")
-(defvar "@defvar " p n> r> "@end defvar")
-(example "@example " p n> r> "@end example")
-(lisp "@lisp " p n> r> "@end lisp")
-(bullet "@itemize @bullet{}" n> r> "@end itemize")
-(code "@code{" p "}")
-(var "@var{" p "}")
-
-lisp-mode emacs-lisp-mode ;; Specify multiple modes
-
-(lambda "(lambda (" p ")" n> r> ")")
-
-emacs-lisp-mode
-
-(autoload ";;;###autoload")
-(pt "(point)")
-(var "(defvar " p "\n  \"" p "\")")
-(local "(defvar-local " p "\n  \"" p "\")")
-(const "(defconst " p "\n  \"" p "\")")
-(custom "(defcustom " p "\n  \"" p "\"" n> ":type '" p ")")
-(face "(defface " p " '((t :inherit " p "))\n  \"" p "\")")
-(group "(defgroup " p " nil\n  \"" p "\"" n> ":group '" p n> ":prefix \"" p "-\")")
-(macro "(defmacro " p " (" p ")\n  \"" p "\"" n> r> ")")
-(alias "(defalias '" p " '" p ")")
-(fun "(defun " p " (" p ")\n  \"" p "\"" n> r> ")")
-(iflet "(if-let (" p ")" n> r> ")")
-(whenlet "(when-let (" p ")" n> r> ")")
-(whilelet "(while-let (" p ")" n> r> ")")
-(andlet "(and-let* (" p ")" n> r> ")")
-(cond "(cond" n "(" q "))" >)
-(pcase "(pcase " (p "scrutinee") n "(" q "))" >)
-(let "(let (" p ")" n> r> ")")
-(lett "(let* (" p ")" n> r> ")")
-(pcaselet "(pcase-let (" p ")" n> r> ")")
-(pcaselett "(pcase-let* (" p ")" n> r> ")")
-(rec "(letrec (" p ")" n> r> ")")
-(dotimes "(dotimes (" p ")" n> r> ")")
-(dolist "(dolist (" p ")" n> r> ")")
-(loop "(cl-loop for " p " in " p " do" n> r> ")")
-(command "(defun " p " (" p ")\n  \"" p "\"" n> "(interactive" p ")" n> r> ")")
-(advice "(defun " (p "adv" name) " (&rest app)" n> p n> "(apply app))" n>
-        "(advice-add #'" (p "fun") " " (p ":around") " #'" (s name) ")")
-(header ";;; " (file-name-nondirectory (or (buffer-file-name) (buffer-name)))
-        " -- " p " -*- lexical-binding: t -*-" n
-        ";;; Commentary:" n ";;; Code:" n n)
-(provide "(provide '" (file-name-base (or (buffer-file-name) (buffer-name))) ")" n
-         ";;; " (file-name-nondirectory (or (buffer-file-name) (buffer-name)))
-         " ends here" n)
-
-eshell-mode
-
-(for "for " (p "i") " in " p " { " q " }")
-(while "while { " p " } { " q " }")
-(until "until { " p " } { " q " }")
-(if "if { " p " } { " q " }")
-(ife "if { " p " } { " p " } { " q " }")
-(unl "unless { " p " } { " q " }")
-(unle "unless { " p " } { " p " } { " q " }")
-
-text-mode
-
-(box "┌─" (make-string (length str) ?─) "─┐" n
-     "│ " (s str)                       " │" n
-     "└─" (make-string (length str) ?─) "─┘" n)
-(abox "+-" (make-string (length str) ?-) "-+" n
-      "| " (s str)                       " |" n
-      "+-" (make-string (length str) ?-) "-+" n)
-(cut "--8<---------------cut here---------------start------------->8---" n r n
-     "--8<---------------cut here---------------end--------------->8---" n)
-(rot13 (p "plain text" text) n "----" n (rot13 text))
-(calc (p "taylor(sin(x),x=0,3)" formula) n "----" n (format "%s" (calc-eval formula)))
-
-rst-mode
-
-(title (make-string (length title) ?=) n (p "Title: " title) n (make-string (length title) ?=) n)
-
-java-mode
-
-(class "public class " (p (file-name-base (or (buffer-file-name) (buffer-name)))) " {" n> r> n "}")
-
-c-mode :when (re-search-backward "^\\S-*$" (line-beginning-position) 'noerror)
-
-(inc "#include <" (p (concat (file-name-base (or (buffer-file-name) (buffer-name))) ".h")) ">")
-(incc "#include \"" (p (concat (file-name-base (or (buffer-file-name) (buffer-name))) ".h")) "\"")
-
-org-mode
-
-(caption "#+caption: ")
-(drawer ":" p ":" n r ":end:")
-(begin "#+begin_" (s name) n> r> n "#+end_" name)
-(quote "#+begin_quote" n> r> n "#+end_quote")
-(sidenote "#+begin_sidenote" n> r> n "#+end_sidenote")
-(marginnote "#+begin_marginnote" n> r> n "#+end_marginnote")
-(example "#+begin_example" n> r> n "#+end_example")
-(center "#+begin_center" n> r> n "#+end_center")
-(ascii "#+begin_export ascii" n> r> n "#+end_export")
-(html "#+begin_export html" n> r> n "#+end_export")
-(latex "#+begin_export latex" n> r> n "#+end_export")
-(comment "#+begin_comment" n> r> n "#+end_comment")
-(verse "#+begin_verse" n> r> n "#+end_verse")
-(src "#+begin_src " q n r n "#+end_src")
-(gnuplot "#+begin_src gnuplot :var data=" (p "table") " :file " (p "plot.png") n r n "#+end_src" :post (org-edit-src-code))
-(elisp "#+begin_src emacs-lisp" n r n "#+end_src" :post (org-edit-src-code))
-(inlsrc "src_" p "{" q "}")
-(title "#+title: " p n "#+author: Daniel Mendler" n "#+language: en")
-
-;; Local Variables:
-;; mode: lisp-data
-;; outline-regexp: "[a-z]"
-;; End:
diff --git a/home/hyprland/config.nix b/home/hyprland/config.nix
index 0f6690e5..a7170055 100644
--- a/home/hyprland/config.nix
+++ b/home/hyprland/config.nix
@@ -190,7 +190,6 @@ in ''
   bind = SUPER, W, moveworkspacetomonitor, name:web current
   bind = SUPER, W, workspace, name:web
   bind = SUPER SHIFT, W, movetoworkspace, name:web
-  bind = SUPER ALT, W, exec, [workspace name:web] nyxt
   windowrule = workspace name:web, (firefox|chromium-browser)
 
   bind = SUPER, T, moveworkspacetomonitor, name:top current