Folders and files
| Name | Name | Last commit date | ||
|---|---|---|---|---|
Repository files navigation
#+title: Config #+author: Ellis Kenyő #+property: header-args:emacs-lisp :tangle yes :comments link #+property: header-args:elisp :tangle packages.el :comments link #+property: header-args :tangle no :results silent :eval no-export #+caption: Banner #+latex_class: chameleon #+html_content_class: chameleon [[file:images/banner.png]] (icon courtesy of https://github.com/eccentric-j/doom-icon) Below is my [[https://github.com/hlissner/doom-emacs][doom-emacs]] config. Most of it isn't particularly original; snippets from stackoverflow, modernemacs, [[https://github.com/daviwil][David Wilson]] and [[https://github.com/tecosaur][Tecosaur]]. Everything else will be commented to the best of /my/ ability. Anything that's missing from here might also be located in [[file:archive.org][the archive]], so it's worth skimming from there too. Most of this cobbled mess is now mine, and if you do intend to use any of it it would be nice if you mentioned me when doing so. It's just polite :) Depends on Emacs 29 because of some super cool stuff, so if you're not using it _please_ don't open any issues about missing variables. #+name: file-name #+begin_src emacs-lisp :tangle no (buffer-file-name) #+end_src * Table of Contents :TOC_5_gh:noexport: - [[#faq][FAQ]] - [[#globals][Globals]] - [[#constants-and-variables][Constants and Variables]] - [[#lexical-binding][Lexical binding]] - [[#frame-title-format][Frame title format]] - [[#default-projectile-path][Default projectile path]] - [[#lookup-provider-urls][Lookup provider URLs]] - [[#subword-mode][Subword-mode]] - [[#auto-revert-mode][Auto-revert-mode]] - [[#prevent-flickering][Prevent flickering]] - [[#clear-snippets-before-loading][Clear snippets before loading]] - [[#load-env-after-reload][Load env after reload]] - [[#reload-config-without-sync][Reload config without sync]] - [[#bury-compile-buffer][Bury compile buffer]] - [[#evil][Evil]] - [[#splits][Splits]] - [[#fine-undo][Fine undo]] - [[#global-substitute][Global substitute]] - [[#ignore-visual-text-in-the-kill-ring][Ignore visual text in the kill ring]] - [[#use-emacs-binds-in-insert-mode][Use emacs binds in insert mode]] - [[#lispyville][Lispyville]] - [[#default-scratch-mode][Default scratch mode]] - [[#auth-info][Auth info]] - [[#fetch-auth-source][fetch-auth-source]] - [[#magit][Magit]] - [[#forge][Forge]] - [[#eshell][EShell]] - [[#prompt][Prompt]] - [[#settings][Settings]] - [[#user-setup][User setup]] - [[#vterm][vterm]] - [[#always-compile][Always compile]] - [[#kill-buffer][Kill buffer]] - [[#fix-c-backspace][Fix =c-backspace=]] - [[#functions][Functions]] - [[#multi-vterm][Multi-vterm]] - [[#ensure-the-shell-is-zsh][Ensure the shell is ZSH]] - [[#default-modes][Default modes]] - [[#convert-a-url-to-a-valid-package-recipe][Convert a URL to a valid package recipe]] - [[#keybindings][Keybindings]] - [[#save][Save]] - [[#search][Search]] - [[#dired][Dired]] - [[#journal][Journal]] - [[#graphical-setup][Graphical setup]] - [[#pixel-precision-scrolling][Pixel-precision scrolling]] - [[#which-key][which-key]] - [[#marginalia][Marginalia]] - [[#files][Files]] - [[#info-pages][Info pages]] - [[#dashboard][Dashboard]] - [[#modeline][Modeline]] - [[#fonts][Fonts]] - [[#defaults][Defaults]] - [[#ligatures][Ligatures]] - [[#theme][Theme]] - [[#banner][Banner]] - [[#line-numbers][Line Numbers]] - [[#guiframe][GUI/Frame]] - [[#org-mode][Org Mode]] - [[#complete-ids-when-inserting-links][Complete IDs when inserting links]] - [[#fill-column][fill-column]] - [[#hook-setup][Hook setup]] - [[#org-directory][org-directory]] - [[#font-setup][Font setup]] - [[#properties][Properties]] - [[#allow-property-inheritance][Allow property inheritance]] - [[#characters][Characters]] - [[#headline-bullets][Headline bullets]] - [[#item-bullets][Item bullets]] - [[#dropdown-icon][Dropdown icon]] - [[#keywords][Keywords]] - [[#agendalog][Agenda/Log]] - [[#show-done-tasks-in-agenda][Show =DONE= tasks in agenda]] - [[#timestamp-done-items][Timestamp done items]] - [[#log-items-in-the-drawer][Log items in the drawer]] - [[#cycle][Cycle]] - [[#folding][Folding]] - [[#org-appear][Org-appear]] - [[#mixed-pitch][Mixed pitch]] - [[#archivecleanup][Archive/Cleanup]] - [[#archive-done-tasks][Archive =DONE= tasks]] - [[#remove-kill-tasks][Remove =KILL= tasks]] - [[#show-images][Show images]] - [[#autoexecute-tangled-shell-files][Autoexecute tangled shell files]] - [[#variable-setup][Variable setup]] - [[#better-snippets][Better snippets]] - [[#roam][Roam]] - [[#templates][Templates]] - [[#capture][Capture]] - [[#prettify][Prettify]] - [[#templates-1][Templates]] - [[#export][Export]] - [[#latex][LaTeX]] - [[#preambles][Preambles]] - [[#conditional-features][Conditional features]] - [[#tectonic][Tectonic]] - [[#classes][Classes]] - [[#packages][Packages]] - [[#pretty-code-blocks][Pretty code blocks]] - [[#ox-chameleon][ox-chameleon]] - [[#beamer][Beamer]] - [[#subsuperscript-characters][(sub|super)script characters]] - [[#auto-export][Auto-export]] - [[#org-protocol][org-protocol]] - [[#languages][Languages]] - [[#clojure][Clojure]] - [[#epithet][Epithet]] - [[#portal][Portal]] - [[#lua][Lua]] - [[#ruby][Ruby]] - [[#enable-rbenv][Enable rbenv]] - [[#force-disable-rvm][Force disable rvm]] - [[#disable-other-language-servers][Disable other language servers]] - [[#enable-rainbow-parens][Enable rainbow-parens]] - [[#lspdap][LSP/DAP]] - [[#increase-variable-line-length][Increase variable line length]] - [[#improve-completions][Improve completions]] - [[#completion][Completion]] - [[#projectile-completion-fn][Projectile completion fn]] - [[#jump-to-heading][Jump to heading]] - [[#snippets][Snippets]] - [[#snippet-definitions][Snippet definitions]] - [[#org-mode-1][Org-mode]] - [[#__][__]] - [[#slack-message-compose-buffer-mode][slack-message-compose-buffer-mode]] - [[#standup][standup]] - [[#packages-1][Packages]] - [[#disabledunpin][Disabled/unpin]] - [[#embark-vc][embark-vc]] - [[#prescient][prescient]] - [[#rainbow-identifiers][Rainbow Identifiers]] - [[#fix-in-web-mode][Fix in web-mode]] - [[#cucumber][Cucumber]] - [[#systemd][Systemd]] - [[#rpm-spec][RPM Spec]] - [[#autothemer][Autothemer]] - [[#bamboo][Bamboo]] - [[#yadm][YADM]] - [[#tramp-yadm][tramp-yadm]] - [[#keychain][Keychain]] - [[#asciidoc][Asciidoc]] - [[#graphviz][Graphviz]] - [[#exercism][Exercism]] - [[#evil-cleverparens][evil-cleverparens]] - [[#litable][litable]] - [[#magit-file-icons][magit-file-icons]] - [[#spelling][Spelling]] - [[#local-settings][Local settings]] - [[#dotenv][dotenv]] * FAQ None yet because luckily nobody else has seen this spaghetti junction * Globals ** Constants and Variables I could make a Bioshock Infinite joke here but I can't think of one. Wouldn't think of one? Would have thought of one. *** Lexical binding #+begin_src emacs-lisp ;;; -*- lexical-binding: t; -*- #+end_src *** Frame title format Making a /marginally/ more useful title format, since we often times might not necessarily running Emacs through the host. #+begin_src emacs-lisp (setq-default frame-title-format '(:eval (format "[%%b%s] - %s" (if (buffer-modified-p) " •" "") system-name))) #+end_src *** Default projectile path I stick to the same convention for projects on every OS, so it makes sense to tell projectile about it. #+begin_src emacs-lisp (setq projectile-project-search-path '("~/build")) #+end_src *** Lookup provider URLs Majority of the default lookup providers are useless (to me) so let's trim the fat, adjust the order and add in some of our own! #+begin_src emacs-lisp (setq +lookup-provider-url-alist '(("Doom Emacs issues" "https://github.com/hlissner/doom-emacs/issues?q=is%%3Aissue+%s") ("DuckDuckGo" +lookup--online-backend-duckduckgo "https://duckduckgo.com/?q=%s") ("StackOverflow" "https://stackoverflow.com/search?q=%s") ("Github" "https://github.com/search?ref=simplesearch&q=%s") ("Youtube" "https://youtube.com/results?aq=f&oq=&search_query=%s") ("MDN" "https://developer.mozilla.org/en-US/search?q=%s") ("Arch Wiki" "https://wiki.archlinux.org/index.php?search=%s&title=Special%3ASearch&wprov=acrw1") ("AUR" "https://aur.archlinux.org/packages?O=0&K=%s"))) #+end_src *** Subword-mode Subword mode is a good start because some languages use a lot of CamelCase and it makes refactoring slightly easier #+begin_src emacs-lisp (global-subword-mode 1) #+end_src *** Auto-revert-mode Testing having auto-revert-mode on for text-mode buffers (should just be log files mostly) #+begin_src emacs-lisp (add-hook! 'text-mode (lambda () (auto-revert-mode 1))) #+end_src *** Prevent flickering Noticed some odd flickering here and there, apparently this should resolve it #+begin_src emacs-lisp (add-to-list 'default-frame-alist '(inhibit-double-buffering . t)) #+end_src *** Clear snippets before loading Some attempt to make them reproducible. #+begin_src emacs-lisp (add-hook! 'org-babel-pre-tangle-hook (when (file-directory-p (expand-file-name "snippets" doom-user-dir)) (require 'async) (async-start (lambda () (delete-directory (expand-file-name "snippets" doom-user-dir) t (not (null delete-by-moving-to-trash)))) (lambda (result) (print! "Delete snippets dir got: " result))))) #+end_src *** Load env after reload Most of the time, reloading breaks. So, let's not break. #+begin_src emacs-lisp (add-hook! 'doom-after-reload-hook (doom-load-envvars-file (expand-file-name "env" doom-local-dir) t)) #+end_src *** Reload config without sync Seems there's a bug I'm too lazy to look into atm on this, so let's just define another reload command for me to use that doesn't depend on =doom sync=. #+begin_src emacs-lisp (defun doom/reload-without-sync () (interactive) (mapc #'require (cdr doom-incremental-packages)) (doom-context-with '(reload modules) (doom-run-hooks 'doom-before-reload-hook) (doom-load (file-name-concat doom-user-dir doom-module-init-file) t) (with-demoted-errors "PRIVATE CONFIG ERROR: %s" (general-auto-unbind-keys) (unwind-protect (startup--load-user-init-file nil) (general-auto-unbind-keys t))) (doom-run-hooks 'doom-after-reload-hook) (message "Config successfully reloaded!"))) (define-key! help-map "rc" #'doom/reload-without-sync) #+end_src *** Bury compile buffer Assuming the buffer finishes successfully, close after 1 second. #+begin_src emacs-lisp (defun bury-compile-buffer-if-successful (buffer string) "Bury a compilation buffer if succeeded without warnings " (when (and (eq major-mode 'comint-mode) (string-match "finished" string) (not (with-current-buffer buffer (search-forward "warning" nil t)))) (run-with-timer 1 nil (lambda (buf) (let ((window (get-buffer-window buf))) (when (and (window-live-p window) (eq buf (window-buffer window))) (delete-window window)))) buffer))) (add-hook 'compilation-finish-functions #'bury-compile-buffer-if-successful) #+end_src *** Evil **** Splits I make a lot of splits, and it finally got annoying having to swap to them all the time. So, let's change that #+begin_src emacs-lisp (setq evil-split-window-below t evil-vsplit-window-right t) #+end_src **** Fine undo I don't need this because I, like all programmers, make 0 mistaeks. #+begin_src emacs-lisp (setq evil-want-fine-undo t) #+end_src **** Global substitute More often than not, I'd argue always, I want ~s/~ on my ex commands, so let's sort that out. #+begin_src emacs-lisp (setq evil-ex-substitute-global t) #+end_src **** Ignore visual text in the kill ring When we overwrite text in visual mode, say =vip=, don't add to the kill ring. #+begin_src emacs-lisp (setq evil-kill-on-visual-paste nil) #+end_src **** Use emacs binds in insert mode Some of them are quite useful, and I normally use them in the DE. #+begin_src emacs-lisp (setq evil-disable-insert-state-bindings t) #+end_src *** Lispyville This structured-editing thing is apparently really neat, so let's see how we go #+begin_src emacs-lisp (after! lispy (setq lispyville-key-theme '((operators normal) c-w (prettify insert) (atom-movement normal visual) (additional-movement normal) slurp/barf-lispy additional))) #+end_src *** Default scratch mode Make the scratch buffer start in lisp mode #+begin_src emacs-lisp (setq doom-scratch-initial-major-mode 'lisp-interaction-mode) #+end_src *** Auth info Add plaintext authinfo file to the list of sources. I /know/ I should use a GPG file but I'll get around to it damn it. #+begin_src emacs-lisp (add-to-list 'auth-sources "~/.authinfo") #+end_src *** fetch-auth-source Useful function to retrieve passwords from auth-sources #+begin_src emacs-lisp (defun fetch-auth-source (&rest params) (require 'auth-source) (let ((match (car (apply #'auth-source-search params)))) (if match (let ((secret (plist-get match :secret))) (if (functionp secret) (funcall secret) secret)) (error "Password not found for %S" params)))) #+end_src *** Magit **** Forge Allow forge to create repos under my name #+begin_src emacs-lisp (setq forge-owned-accounts '(("elken"))) #+end_src *** EShell **** Prompt Eshell is a beautiful thing but ootb experience is a tad dated. Custom prompt based on a combination of the famous p10k and eshell-git-prompt. I only /really/ need the minimum out of a prompt: + =cwd=; almost impossible to work without knowing the current working directory + =git= info; current branch, dirty/clean status, etc + prompt number: useful for jumping up and down for fast history in a given session Can't get enough out of the default powerline theme, and removing a dependancy we're rolling our own prompt called =eshell-p10kline= #+begin_src elisp (package! eshell-p10k :recipe (:host github :repo "elken/eshell-p10k")) #+end_src #+begin_src emacs-lisp (use-package! eshell-p10k :after eshell :config (setq eshell-prompt-function #'eshell-p10k-prompt-function eshell-prompt-regexp eshell-p10k-prompt-string)) #+end_src **** Settings We use eshell in a cross platform world, so we should prefer the lisp version of things to ensure a more consistent experience. #+begin_src emacs-lisp (setq eshell-prefer-lisp-functions t) #+end_src *** User setup Use my name and emails for things like GPG, snippets, mail, magit, etc. Differs based on which OS I'm on. #+BEGIN_SRC emacs-lisp (setq user-full-name "Ellis Kenyő" user-mail-address "me@elken.dev") #+END_SRC *** vterm Vterm clearly wins the terminal war. Also doesn't need much configuration out of the box, although the shell integration does. That currently exists in my [[https://github.com/elken/.files][dotfiles]] **** Always compile Fixes a weird bug with native-comp, and I don't use guix anymore. #+begin_src emacs-lisp (setq vterm-always-compile-module t) #+end_src **** Kill buffer If the process exits, kill the =vterm= buffer #+begin_src emacs-lisp (setq vterm-kill-buffer-on-exit t) #+end_src **** Fix =c-backspace= I've picked this up in muscle memory now and I'm fed up with it not working. Not anymore! #+begin_src emacs-lisp (after! vterm (define-key vterm-mode-map (kbd "<C-backspace>") (lambda () (interactive) (vterm-send-key (kbd "C-w"))))) #+end_src **** Functions Useful functions for the shell-side integration provided by vterm. #+begin_src emacs-lisp (after! vterm (setf (alist-get "woman" vterm-eval-cmds nil nil #'equal) '((lambda (topic) (woman topic)))) (setf (alist-get "magit-status" vterm-eval-cmds nil nil #'equal) '((lambda (path) (magit-status path)))) (setf (alist-get "dired" vterm-eval-cmds nil nil #'equal) '((lambda (dir) (dired dir))))) #+end_src **** Multi-vterm #+begin_src elisp (package! multi-vterm) #+end_src #+begin_src emacs-lisp (use-package! multi-vterm :after vterm) #+end_src **** Ensure the shell is ZSH Noticed a few weird cases where =chsh= doesn't /quite/ apply, so let's force that to be the case instead. #+begin_src emacs-lisp (setq vterm-shell "/bin/zsh") #+end_src *** Default modes Ensuring that correct modes are loaded for given file extensions #+begin_src emacs-lisp (add-to-list 'auto-mode-alist '("\\.jsonc\\'" . jsonc-mode)) (after! nerd-icons (setf (alist-get "yuck" nerd-icons-extension-icon-alist) '(nerd-icons-fileicon "lisp" :face nerd-icons-orange)) (setf (alist-get 'yuck-mode nerd-icons-mode-icon-alist) '(nerd-icons-fileicon "lisp" :face nerd-icons-orange)) (setf (alist-get "jsonc" nerd-icons-extension-icon-alist) '(nerd-icons-fileicon "config-js" :v-adjust -0.05 :face nerd-icons-orange)) (setf (alist-get 'jsonc-mode nerd-icons-mode-icon-alist) '(nerd-icons-fileicon "config-js" :v-adjust -0.05 :face nerd-icons-orange))) #+end_src ** Convert a URL to a valid package recipe Useful when copying links to try new packages. Attempt to create one using =straight-hosts=, but fall back if one can't be found. #+begin_src emacs-lisp (defun lkn/url->package (string &optional arg) "Interactively select a URL from the kill-ring and create a package! block." (interactive (list (consult--read-from-kill-ring) current-prefix-arg)) (require 'consult) (require 'straight) (let ((url (thread-first string substring-no-properties (substring 1 (length string)) string-trim url-generic-parse-url))) (if-let ((host (cl-find-if (lambda (cell) (member (url-host url) cell)) straight-hosts))) (insert (concat "(package! " (car (last (string-split (url-filename url) "/"))) "\n:recipe (:host " (symbol-name (car host)) " :repo \"" (substring (url-filename url) 1) "\"))")) (insert (concat "(package! " (car (last (string-split (url-filename url) "/"))) "\n:recipe (:host nil :repo \"" string "\"))"))) (call-interactively #'indent-region))) #+end_src * Keybindings It's not a custom config without some fancy keybinds ** Save Back to a simpler time... #+begin_src emacs-lisp (map! :g "C-s" #'save-buffer) #+end_src ** Search +Swiper+ Consult is /much/ better than isearch #+begin_src emacs-lisp (map! :after evil :gnvi "C-f" #'consult-line) #+end_src ** Dired Dired should behave better with evil mappings #+begin_src emacs-lisp (map! :map dired-mode-map :n "h" #'dired-up-directory :n "l" #'dired-find-alternate-file) #+end_src ** Journal This is something I'm likely to use quite often, especially with an easy convenience binding #+begin_src emacs-lisp (after! org-journal (setq org-journal-find-file #'find-file-other-window) (map! :leader :desc "Open today's journal" "j" #'org-journal-open-current-journal-file)) #+end_src * Graphical setup ** Pixel-precision scrolling Emacs 29 has some new hotness, including a cool new scrolling thing. #+begin_src emacs-lisp (when (version< "29.0.50" emacs-version) (pixel-scroll-precision-mode)) #+end_src ** which-key Remove some of the useless =evil-= prefixes from which-key commands. #+begin_src emacs-lisp (setq which-key-allow-multiple-replacements t) (after! which-key (pushnew! which-key-replacement-alist '(("" . "\\`+?evil[-:]?\\(?:a-\\)?\\(.*\\)") . (nil . " \\1")) '(("\\`g s" . "\\`evilem--?motion-\\(.*\\)") . (nil . " \\1")))) #+end_src ** Marginalia Marginalia is part of the Vertico stack, and is responsible for all the fancy faces and extra information. *** Files The doom module out of the box includes a number of customizations, but the below from Teco gives a much better experience for files. #+begin_src emacs-lisp (after! marginalia (setq marginalia-censor-variables nil) (defadvice! +marginalia--anotate-local-file-colorful (cand) "Just a more colourful version of `marginalia--anotate-local-file'." :override #'marginalia--annotate-local-file (when-let (attrs (file-attributes (substitute-in-file-name (marginalia--full-candidate cand)) 'integer)) (marginalia--fields ((marginalia--file-owner attrs) :width 12 :face 'marginalia-file-owner) ((marginalia--file-modes attrs)) ((+marginalia-file-size-colorful (file-attribute-size attrs)) :width 7) ((+marginalia--time-colorful (file-attribute-modification-time attrs)) :width 12)))) (defun +marginalia--time-colorful (time) (let* ((seconds (float-time (time-subtract (current-time) time))) (color (doom-blend (face-attribute 'marginalia-date :foreground nil t) (face-attribute 'marginalia-documentation :foreground nil t) (/ 1.0 (log (+ 3 (/ (+ 1 seconds) 345600.0))))))) ;; 1 - log(3 + 1/(days + 1)) % grey (propertize (marginalia--time time) 'face (list :foreground color)))) (defun +marginalia-file-size-colorful (size) (let* ((size-index (/ (log10 (+ 1 size)) 7.0)) (color (if (< size-index 10000000) ; 10m (doom-blend 'orange 'green size-index) (doom-blend 'red 'orange (- size-index 1))))) (propertize (file-size-human-readable size) 'face (list :foreground color))))) #+end_src ** Info pages Slightly improve the look and feel of Info pages, might actually encourage me to /read/ them. #+begin_src elisp (package! info-colors) #+end_src #+begin_src emacs-lisp (use-package! info-colors :after info :commands (info-colors-fontify-node) :hook (Info-selection . info-colors-fontify-node)) #+end_src ** Dashboard Inhibit the menu to improve things slightly #+begin_src emacs-lisp (remove-hook '+doom-dashboard-functions #'doom-dashboard-widget-shortmenu) (remove-hook '+doom-dashboard-functions #'doom-dashboard-widget-footer) #+end_src ** Modeline Default modeline is a tad cluttered, and because I don't use exwm anymore the modeline from that module isn't in use. So, it's duplicated here and tweaked. #+begin_src emacs-lisp (after! doom-modeline (setq auto-revert-check-vc-info t doom-modeline-major-mode-icon t doom-modeline-buffer-file-name-style 'relative-to-project doom-modeline-github nil doom-modeline-vcs-max-length 60) (remove-hook 'doom-modeline-mode-hook #'size-indication-mode) (doom-modeline-def-modeline 'main '(matches bar modals workspace-name window-number persp-name selection-info buffer-info remote-host debug vcs matches) '(github mu4e grip gnus check misc-info repl lsp " "))) #+end_src ** Fonts *** Defaults Configure the fonts across all used platforms (slightly different names). #+BEGIN_SRC emacs-lisp (setq doom-font (font-spec :family "Iosevka Nerd Font" :size 16) doom-variable-pitch-font (font-spec :family "Montserrat" :size 16) doom-unicode-font (font-spec :family "Symbols Nerd Font Mono" :size 16)) #+END_SRC *** Ligatures Ligatures are a mess in programming languages, however they make org documents quite nice so let's just use them here until a good fix is found. #+begin_src emacs-lisp (setq-hook! org-mode prettify-symbols-alist '(("#+end_quote" . "”") ("#+END_QUOTE" . "”") ("#+begin_quote" . "“") ("#+BEGIN_QUOTE" . "“") ("#+end_src" . "«") ("#+END_SRC" . "«") ("#+begin_src" . "»") ("#+BEGIN_SRC" . "»") ("#+name:" . "»") ("#+NAME:" . "»"))) #+end_src ** Theme Load my current flavour-of-the-month colour scheme. #+BEGIN_SRC emacs-lisp (setq doom-theme 'doom-nord) #+END_SRC Along with a few face overrides (thought about merging upstream but it would have sparked a discussion, maybe later) #+begin_src emacs-lisp (custom-theme-set-faces! 'doom-nord `(tree-sitter-hl-face:constructor :foreground ,(doom-color 'blue)) `(tree-sitter-hl-face:number :foreground ,(doom-color 'orange)) `(tree-sitter-hl-face:attribute :foreground ,(doom-color 'magenta) :weight bold) `(tree-sitter-hl-face:variable :foreground ,(doom-color 'base7) :weight bold) `(tree-sitter-hl-face:variable.builtin :foreground ,(doom-color 'red)) `(tree-sitter-hl-face:constant.builtin :foreground ,(doom-color 'magenta) :weight bold) `(tree-sitter-hl-face:constant :foreground ,(doom-color 'blue) :weight bold) `(tree-sitter-hl-face:function.macro :foreground ,(doom-color 'teal)) `(tree-sitter-hl-face:label :foreground ,(doom-color 'magenta)) `(tree-sitter-hl-face:operator :foreground ,(doom-color 'blue)) `(tree-sitter-hl-face:variable.parameter :foreground ,(doom-color 'cyan)) `(tree-sitter-hl-face:punctuation.delimiter :foreground ,(doom-color 'cyan)) `(tree-sitter-hl-face:punctuation.bracket :foreground ,(doom-color 'cyan)) `(tree-sitter-hl-face:punctuation.special :foreground ,(doom-color 'cyan)) `(tree-sitter-hl-face:type :foreground ,(doom-color 'yellow)) `(tree-sitter-hl-face:type.builtin :foreground ,(doom-color 'blue)) `(tree-sitter-hl-face:tag :foreground ,(doom-color 'base7)) `(tree-sitter-hl-face:string :foreground ,(doom-color 'green)) `(tree-sitter-hl-face:comment :foreground ,(doom-color 'base6)) `(tree-sitter-hl-face:function :foreground ,(doom-color 'cyan)) `(tree-sitter-hl-face:method :foreground ,(doom-color 'blue)) `(tree-sitter-hl-face:function.builtin :foreground ,(doom-color 'cyan)) `(tree-sitter-hl-face:property :foreground ,(doom-color 'blue)) `(tree-sitter-hl-face:keyword :foreground ,(doom-color 'magenta)) `(corfu-default :font "Iosevka Nerd Font Mono" :background ,(doom-color 'bg-alt) :foreground ,(doom-color 'fg)) `(adoc-title-0-face :foreground ,(doom-color 'blue) :height 1.2) `(adoc-title-1-face :foreground ,(doom-color 'magenta) :height 1.1) `(adoc-title-2-face :foreground ,(doom-color 'violet) :height 1.05) `(adoc-title-3-face :foreground ,(doom-lighten (doom-color 'blue) 0.25) :height 1.0) `(adoc-title-4-face :foreground ,(doom-lighten (doom-color 'magenta) 0.25) :height 1.1) `(adoc-verbatim-face :background nil) `(adoc-list-face :background nil) `(adoc-internal-reference-face :foreground ,(face-attribute 'font-lock-comment-face :foreground))) #+end_src ** Banner Change the default banner (need to add the ASCII banner at some point) #+BEGIN_SRC emacs-lisp (setq +doom-dashboard-banner-file (expand-file-name "images/banner.png" doom-private-dir)) #+END_SRC ** Line Numbers Set the default line number format to be relative and disable line numbers for specific modes #+BEGIN_SRC emacs-lisp (setq display-line-numbers-type 'relative) (dolist (mode '(org-mode-hook term-mode-hook shell-mode-hook eshell-mode-hook)) (add-hook mode (lambda () (display-line-numbers-mode 0)))) #+END_SRC ** GUI/Frame Maximise emacs on startup when not running under awesome #+BEGIN_SRC emacs-lisp (when (string= "" (shell-command-to-string "pgrep awesome")) (add-to-list 'default-frame-alist '(fullscreen . maximized))) #+END_SRC Add some transparency when running under awesome #+begin_src emacs-lisp (unless (string= "" (shell-command-to-string "pgrep awesome")) (set-frame-parameter (selected-frame) 'alpha-background 90) (add-to-list 'default-frame-alist '(alpha-background . 90))) #+end_src * Org Mode ** Complete IDs when inserting links This /definitely/ feels like something that should be on ootb, but hey ho. #+begin_src emacs-lisp (defun org-id-complete-link (&optional arg) "Create an id: link using completion" (concat "id:" (org-id-get-with-outline-path-completion))) (after! org (org-link-set-parameters "id" :complete 'org-id-complete-link)) #+end_src ** fill-column Keep the content centered on the page when writing org documents #+begin_src elisp (package! visual-fill-column) #+end_src #+begin_src emacs-lisp (use-package! visual-fill-column :custom (visual-fill-column-width 300) (visual-fill-column-center-text t) :hook (org-mode . visual-fill-column-mode)) #+end_src ** Hook setup =org-mode= is a wonderful thing, and far too complex to bury in another section. The more I use it, the more I will add to this area but for now it's mostly used for documentation and organisation. #+begin_src emacs-lisp (defun elken/org-setup-hook () "Modes to enable on org-mode start" (org-indent-mode) (visual-line-mode 1) (+org-pretty-mode) (elken/org-font-setup)) (add-hook! org-mode #'elken/org-setup-hook) #+end_src ** org-directory Let's set a sane default directory based on where I am #+begin_src emacs-lisp (setq org-directory "~/Nextcloud/org" org-agenda-files '("~/Nextcloud/org/Home.org" "~/Nextcloud/org/Work.org" "~/Nextcloud/org/Notes.org")) #+end_src ** Font setup Font setup to prettify the fonts. Uses Montserrat in most places except where it makes sense to use the defined fixed width font. #+BEGIN_SRC emacs-lisp (defun elken/org-font-setup () ;; Set faces for heading levels (dolist (face '((org-level-1 . 1.2) (org-level-2 . 1.1) (org-level-3 . 1.05) (org-level-4 . 1.0) (org-level-5 . 1.1) (org-level-6 . 1.1) (org-level-7 . 1.1) (org-level-8 . 1.1))) (set-face-attribute (car face) nil :font "Montserrat" :weight 'regular :height (cdr face) :slant 'unspecified)) ;; Ensure that anything that should be fixed-pitch in Org files appears that way (set-face-attribute 'org-tag nil :foreground nil :inherit '(shadow fixed-pitch) :weight 'bold) (set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch) (set-face-attribute 'org-code nil :inherit '(shadow fixed-pitch)) (set-face-attribute 'org-table nil :inherit '(shadow fixed-pitch)) (set-face-attribute 'org-verbatim nil :inherit '(shadow fixed-pitch)) (set-face-attribute 'org-special-keyword nil :inherit '(font-lock-comment-face fixed-pitch)) (set-face-attribute 'org-meta-line nil :inherit '(font-lock-comment-face fixed-pitch)) (set-face-attribute 'org-checkbox nil :inherit 'fixed-pitch)) #+END_SRC ** Properties *** Allow property inheritance This may be the solution to /so/ many weird issues with src blocks. #+begin_src emacs-lisp (setq org-use-property-inheritance t) #+end_src ** Characters Tried out org-modern recently, it is /very/ nice but also detracts away from some of the org markup and makes editing it too hard, so back to =(:lang org +pretty)= we go. *** Headline bullets I don't feel the need for fancy characters to discern depth, I found this on someone else's config and I actually quite like the minimal look. #+begin_src emacs-lisp (setq org-superstar-headline-bullets-list '("› ")) #+end_src *** Item bullets Barely any adjustment here, just make them look a /bit/ nicer. #+begin_src emacs-lisp (setq org-superstar-item-bullet-alist '((?* . ?⋆) (?+ . ?‣) (?- . ?•))) #+end_src *** Dropdown icon When a drawer is collapsed, show a nice dropdown arrow. #+begin_src emacs-lisp (setq org-ellipsis " ▾") #+end_src ** Keywords Default keywords are /far/ too minimal. This will need further tweaking as I start using org mode for organisation more. Some tasks we want to file an action for, eg =DONE=, =KILL= and =WAIT= occur and we want to list a reason why. =org-todo-keywords= handles this natively by simply adding ~@/!~ after the shortcut key. The below is courtesy of [[https://git.sr.ht/~gagbo/doom-config/tree/eb615417ca0cc01df89bc9a9aea06e5c99f97540/item/config-org.el#L57-62][gagbo]]. #+begin_src emacs-lisp (after! org (setq org-todo-keywords '((sequence "TODO(t)" "INPROG(i)" "PROJ(p)" "STORY(s)" "WAIT(w@/!)" "|" "DONE(d@/!)" "KILL(k@/!)") (sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)")) ;; The triggers break down to the following rules: ;; - Moving a task to =KILLED= adds a =killed= tag ;; - Moving a task to =WAIT= adds a =waiting= tag ;; - Moving a task to a done state removes =WAIT= and =HOLD= tags ;; - Moving a task to =TODO= removes all tags ;; - Moving a task to =NEXT= removes all tags ;; - Moving a task to =DONE= removes all tags org-todo-state-tags-triggers '(("KILL" ("killed" . t)) ("HOLD" ("hold" . t)) ("WAIT" ("waiting" . t)) (done ("waiting") ("hold")) ("TODO" ("waiting") ("cancelled") ("hold")) ("NEXT" ("waiting") ("cancelled") ("hold")) ("DONE" ("waiting") ("cancelled") ("hold"))) ;; This settings allows to fixup the state of a todo item without ;; triggering notes or log. org-treat-S-cursor-todo-selection-as-state-change nil)) #+end_src ** Agenda/Log *** Show =DONE= tasks in agenda #+begin_src emacs-lisp (setq org-agenda-start-with-log-mode t) #+end_src *** Timestamp done items #+begin_src emacs-lisp (setq org-log-done 'time) #+end_src *** Log items in the drawer #+begin_src emacs-lisp (setq org-log-into-drawer t) #+end_src ** Cycle Cycle by default (no idea why this isn't default) #+begin_src emacs-lisp (setq org-cycle-emulate-tab nil) #+end_src ** Folding Default folding is very noisy, I /rarely/ need to see everything expanded #+begin_src emacs-lisp (setq org-startup-folded 'content) #+end_src ** Org-appear Defines a minor mode to allow special forms such as /italics/, *bold*, _underline_ and =literal= to be editable when the cursor is over them, otherwise display the proper value. #+begin_src elisp (package! org-appear :recipe (:host github :repo "awth13/org-appear")) #+end_src #+begin_src emacs-lisp (use-package! org-appear :after org :hook (org-mode . org-appear-mode) :config (setq org-appear-autoemphasis t org-appear-autolinks t org-appear-autosubmarkers t)) #+end_src ** Mixed pitch Enable =mixed-pitch-mode= to enable the more readable fonts where it makes sense. #+begin_src elisp (package! mixed-pitch) #+end_src #+begin_src emacs-lisp (setq +zen-mixed-pitch-modes '(org-mode LaTeX-mode markdown-mode gfm-mode Info-mode rst-mode adoc-mode)) (dolist (hook +zen-mixed-pitch-modes) (add-hook (intern (concat (symbol-name hook) "-hook")) #'mixed-pitch-mode)) #+end_src ** Archive/Cleanup Adjust the format of archived org files (so they don't show up in orgzly) #+begin_src emacs-lisp (setq org-archive-location "archive/Archive_%s::") #+end_src *** Archive =DONE= tasks Enables archiving of tasks. Replaces the in-built version which only works for single tasks. #+BEGIN_SRC emacs-lisp (defun elken/org-archive-done-tasks () "Attempt to archive all done tasks in file" (interactive) (org-map-entries (lambda () (org-archive-subtree) (setq org-map-continue-from (org-element-property :begin (org-element-at-point)))) "/DONE" 'file)) (map! :map org-mode-map :desc "Archive tasks marked DONE" "C-c DEL a" #'elken/org-archive-done-tasks) #+END_SRC *** Remove =KILL= tasks Enables removal of killed tasks. I'm not /yet/ interested in tracking this long-term. #+BEGIN_SRC emacs-lisp (defun elken/org-remove-kill-tasks () (interactive) (org-map-entries (lambda () (org-cut-subtree) (pop kill-ring) (setq org-map-continue-from (org-element-property :begin (org-element-at-point)))) "/KILL" 'file)) (map! :map org-mode-map :desc "Remove tasks marked as KILL" "C-c DEL k" #'elken/org-remove-kill-tasks) #+END_SRC ** Show images Show images inline by default #+BEGIN_SRC emacs-lisp (setq org-startup-with-inline-images t) #+END_SRC But also, adjust them to an appropriate size. This should be adjusted to handle better resolutions. #+begin_src emacs-lisp (setq org-image-actual-width 600) #+end_src ** Autoexecute tangled shell files Make tangled shell files executable (I trust myself, ish...) #+begin_src emacs-lisp (defun elken/make-tangled-shell-executable () "Ensure that tangled shell files are executable" (set-file-modes (buffer-file-name) #o755)) (add-hook 'org-babel-post-tangle-hook 'elken/make-tangled-shell-executable) #+end_src ** Variable setup Useful settings and functions for maintaining modified dates in org files #+begin_src emacs-lisp (setq enable-dir-local-variables t) (defun elken/find-time-property (property) "Find the PROPETY in the current buffer." (save-excursion (goto-char (point-min)) (let ((first-heading (save-excursion (re-search-forward org-outline-regexp-bol nil t)))) (when (re-search-forward (format "^#\\+%s:" property) nil t) (point))))) (defun elken/has-time-property-p (property) "Gets the position of PROPETY if it exists, nil if not and empty string if it's undefined." (when-let ((pos (elken/find-time-property property))) (save-excursion (goto-char pos) (if (and (looking-at-p " ") (progn (forward-char) (org-at-timestamp-p 'lax))) pos "")))) (defun elken/set-time-property (property &optional pos) "Set the PROPERTY in the current buffer. Can pass the position as POS if already computed." (when-let ((pos (or pos (elken/find-time-property property)))) (save-excursion (goto-char pos) (if (looking-at-p " ") (forward-char) (insert " ")) (delete-region (point) (line-end-position)) (let* ((now (format-time-string "<%Y-%m-%d %H:%M>"))) (insert now))))) (add-hook! 'before-save-hook (when (derived-mode-p 'org-mode) (elken/set-time-property "LAST_MODIFIED") (elken/set-time-property "DATE_UPDATED"))) #+end_src ** Better snippets Programmers are, by design, lazy #+begin_src emacs-lisp (use-package! org-tempo :after org :init (add-to-list 'org-structure-template-alist '("sh" . "src shell")) (add-to-list 'org-structure-template-alist '("els" . "src elisp")) (add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))) #+end_src ** Roam Let's jump on the bandwagon and start taking useful notes. #+begin_src emacs-lisp (setq org-roam-directory (expand-file-name "roam" org-directory)) #+end_src *** Templates #+begin_src emacs-lisp (after! org-roam (setq org-roam-capture-templates `(("d" "default" plain (file ,(expand-file-name "templates/roam-default.org" doom-private-dir)) :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "") :unnarrowed t)))) #+end_src ** Capture It's about time I start using =org-capture=, but because I'm a developer I'm inhernetly lazy so time to steal from other people. Useful wrapper package for creating more declarative templates #+begin_src elisp (package! doct) #+end_src #+begin_src emacs-lisp (use-package! doct :defer t :commands (doct)) #+end_src *** Prettify Improve the look of the capture dialog (idea borrowed from [[https://github.com/tecosaur][tecosaur]]) #+begin_src emacs-lisp (defun org-capture-select-template-prettier (&optional keys) "Select a capture template, in a prettier way than default Lisp programs can force the template by setting KEYS to a string." (let ((org-capture-templates (or (org-contextualize-keys (org-capture-upgrade-templates org-capture-templates) org-capture-templates-contexts) '(("t" "Task" entry (file+headline "" "Tasks") "* TODO %?\n %u\n %a"))))) (if keys (or (assoc keys org-capture-templates) (error "No capture template referred to by \"%s\" keys" keys)) (org-mks org-capture-templates "Select a capture template\n━━━━━━━━━━━━━━━━━━━━━━━━━" "Template key: " `(("q" ,(concat (nerd-icons-octicon "nf-oct-stop" :face 'nerd-icons-red :v-adjust 0.01) "\tAbort"))))))) (advice-add 'org-capture-select-template :override #'org-capture-select-template-prettier) (defun org-mks-pretty (table title &optional prompt specials) "Select a member of an alist with multiple keys. Prettified. TABLE is the alist which should contain entries where the car is a string. There should be two types of entries. 1. prefix descriptions like (\"a\" \"Description\") This indicates that `a' is a prefix key for multi-letter selection, and that there are entries following with keys like \"ab\", \"ax\"… 2. Select-able members must have more than two elements, with the first being the string of keys that lead to selecting it, and the second a short description string of the item. The command will then make a temporary buffer listing all entries that can be selected with a single key, and all the single key prefixes. When you press the key for a single-letter entry, it is selected. When you press a prefix key, the commands (and maybe further prefixes) under this key will be shown and offered for selection. TITLE will be placed over the selection in the temporary buffer, PROMPT will be used when prompting for a key. SPECIALS is an alist with (\"key\" \"description\") entries. When one of these is selected, only the bare key is returned." (save-window-excursion (let ((inhibit-quit t) (buffer (org-switch-to-buffer-other-window "*Org Select*")) (prompt (or prompt "Select: ")) case-fold-search current) (unwind-protect (catch 'exit (while t (setq-local evil-normal-state-cursor (list nil)) (erase-buffer) (insert title "\n\n") (let ((des-keys nil) (allowed-keys '("\C-g")) (tab-alternatives '("\s" "\t" "\r")) (cursor-type nil)) ;; Populate allowed keys and descriptions keys ;; available with CURRENT selector. (let ((re (format "\\`%s\\(.\\)\\'" (if current (regexp-quote current) ""))) (prefix (if current (concat current " ") ""))) (dolist (entry table) (pcase entry ;; Description. (`(,(and key (pred (string-match re))) ,desc) (let ((k (match-string 1 key))) (push k des-keys) ;; Keys ending in tab, space or RET are equivalent. (if (member k tab-alternatives) (push "\t" allowed-keys) (push k allowed-keys)) (insert (propertize prefix 'face 'font-lock-comment-face) (propertize k 'face 'bold) (propertize "›" 'face 'font-lock-comment-face) " " desc "…" "\n"))) ;; Usable entry. (`(,(and key (pred (string-match re))) ,desc . ,_) (let ((k (match-string 1 key))) (insert (propertize prefix 'face 'font-lock-comment-face) (propertize k 'face 'bold) " " desc "\n") (push k allowed-keys))) (_ nil)))) ;; Insert special entries, if any. (when specials (insert "─────────────────────────\n") (pcase-dolist (`(,key ,description) specials) (insert (format "%s %s\n" (propertize key 'face '(bold nerd-icons-red)) description)) (push key allowed-keys))) ;; Display UI and let user select an entry or ;; a sub-level prefix. (goto-char (point-min)) (unless (pos-visible-in-window-p (point-max)) (org-fit-window-to-buffer)) (let ((pressed (org--mks-read-key allowed-keys prompt nil))) (setq current (concat current pressed)) (cond ((equal pressed "\C-g") (user-error "Abort")) ((equal pressed "ESC") (user-error "Abort")) ;; Selection is a prefix: open a new menu. ((member pressed des-keys)) ;; Selection matches an association: return it. ((let ((entry (assoc current table))) (and entry (throw 'exit entry)))) ;; Selection matches a special entry: return the ;; selection prefix. ((assoc current specials) (throw 'exit current)) (t (error "No entry available"))))))) (when buffer (kill-buffer buffer)))))) (advice-add 'org-mks :override #'org-mks-pretty) #+end_src The [[file:~/.config/emacs/bin/org-capture][doom org-capture bin]] is rather nice, but I'd be nicer with a smaller frame, and no modeline. #+begin_src emacs-lisp (setf (alist-get 'height +org-capture-frame-parameters) 15) ;; (alist-get 'name +org-capture-frame-parameters) "❖ Capture") ;; ATM hardcoded in other places, so changing breaks stuff (setq +org-capture-fn (lambda () (interactive) (set-window-parameter nil 'mode-line-format 'none) (org-capture))) #+end_src Sprinkle in some =doct= utility functions #+begin_src emacs-lisp (defun +doct-icon-declaration-to-icon (declaration) "Convert :icon declaration to icon" (let ((name (pop declaration)) (set (intern (concat "nerd-icons-" (plist-get declaration :set)))) (face (intern (concat "nerd-icons-" (plist-get declaration :color)))) (v-adjust (or (plist-get declaration :v-adjust) 0.01))) (apply set `(,name :face ,face :v-adjust ,v-adjust)))) (defun +doct-iconify-capture-templates (groups) "Add declaration's :icon to each template group in GROUPS." (let ((templates (doct-flatten-lists-in groups))) (setq doct-templates (mapcar (lambda (template) (when-let* ((props (nthcdr (if (= (length template) 4) 2 5) template)) (spec (plist-get (plist-get props :doct) :icon))) (setf (nth 1 template) (concat (+doct-icon-declaration-to-icon spec) "\t" (nth 1 template)))) template) templates)))) (setq doct-after-conversion-functions '(+doct-iconify-capture-templates)) #+end_src *** Templates And we can now add some templates! This isn't even remotely set in stone, I wouldn't even describe them as set in /jelly/ really. #+begin_src emacs-lisp (after! org-capture (defun +org-capture/replace-brackets (link) (mapconcat (lambda (c) (pcase (key-description (vector c)) ("[" "(") ("]" ")") (_ (key-description (vector c))))) link)) (setq org-capture-templates (doct `(("Home" :keys "h" :icon ("nf-fa-home" :set "faicon" :color "cyan") :file "Home.org" :prepend t :headline "Inbox" :template ("* TODO %?" "%i %a")) ("Work" :keys "w" :icon ("nf-fa-building" :set "faicon" :color "yellow") :file "Work.org" :prepend t :headline "Inbox" :template ("* TODO %?" "SCHEDULED: %^{Schedule:}t" "DEADLINE: %^{Deadline:}t" "%i %a")) ("Note" :keys "n" :icon ("nf-fa-sticky_note" :set "faicon" :color "yellow") :file "Notes.org" :template ("* %?" "%i %a")) ("Journal" :keys "j" :icon ("nf-fa-calendar" :set "faicon" :color "pink") :type plain :function (lambda () (org-journal-new-entry t) (unless (eq org-journal-file-type 'daily) (org-narrow-to-subtree)) (goto-char (point-max))) :template "** %(format-time-string org-journal-time-format)%^{Title}\n%i%?" :jump-to-captured t :immediate-finish t) ("Protocol" :keys "P" :icon ("nf-fa-link" :set "faicon" :color "blue") :file "Notes.org" :template ("* TODO %^{Title}" "Source: %u" "#+BEGIN_QUOTE" "%i" "#+END_QUOTE" "%?")) ("Protocol link" :keys "L" :icon ("nf-fa-link" :set "faicon" :color "blue") :file "Notes.org" :template ("* TODO %?" "[[%:link][%:description]]" "Captured on: %U")) ("Project" :keys "p" :icon ("nf-oct-repo" :set "octicon" :color "silver") :prepend t :type entry :headline "Inbox" :template ("* %{keyword} %?" "%i" "%a") :file "" :custom (:keyword "") :children (("Task" :keys "t" :icon ("nf-cod-checklist" :set "codicon" :color "green") :keyword "TODO" :file +org-capture-project-todo-file) ("Note" :keys "n" :icon ("nf-fa-sticky_note" :set "faicon" :color "yellow") :keyword "%U" :file +org-capture-project-notes-file))))))) #+end_src ** Export *** LaTeX A necessary evil. I hate it, it hates me, but it makes my PDF documents look nice. **** Preambles Various preamble setups to improve the overall look of several items #+begin_src emacs-lisp (defvar org-latex-caption-preamble " \\usepackage{subcaption} \\usepackage[hypcap=true]{caption} \\setkomafont{caption}{\\sffamily\\small} \\setkomafont{captionlabel}{\\upshape\\bfseries} \\captionsetup{justification=raggedright,singlelinecheck=true} \\usepackage{capt-of} % required by Org " "Preamble that improves captions.") (defvar org-latex-checkbox-preamble " \\newcommand{\\checkboxUnchecked}{$\\square$} \\newcommand{\\checkboxTransitive}{\\rlap{\\raisebox{-0.1ex}{\\hspace{0.35ex}\\Large\\textbf -}}$\\square$} \\newcommand{\\checkboxChecked}{\\rlap{\\raisebox{0.2ex}{\\hspace{0.35ex}\\scriptsize \\ding{52}}}$\\square$} " "Preamble that improves checkboxes.") (defvar org-latex-box-preamble " % args = #1 Name, #2 Colour, #3 Ding, #4 Label \\newcommand{\\defsimplebox}[4]{% \\definecolor{#1}{HTML}{#2} \\newenvironment{#1}[1][] {% \\par\\vspace{-0.7\\baselineskip}% \\textcolor{#1}{#3} \\textcolor{#1}{\\textbf{\\def\\temp{##1}\\ifx\\temp\\empty#4\\else##1\\fi}}% \\vspace{-0.8\\baselineskip} \\begin{addmargin}[1em]{1em} }{% \\end{addmargin} \\vspace{-0.5\\baselineskip} }% } " "Preamble that provides a macro for custom boxes.") #+end_src **** Conditional features Don't always need everything in LaTeX, so only add it what we need when we need it. #+begin_src emacs-lisp (defvar org-latex-italic-quotes t "Make \"quote\" environments italic.") (defvar org-latex-par-sep t "Vertically seperate paragraphs, and remove indentation.") (defvar org-latex-conditional-features '(("\\[\\[\\(?:file\\|https?\\):\\(?:[^]]\\|\\\\\\]\\)+?\\.\\(?:eps\\|pdf\\|png\\|jpeg\\|jpg\\|jbig2\\)\\]\\]" . image) ("\\[\\[\\(?:file\\|https?\\):\\(?:[^]]+?\\|\\\\\\]\\)\\.svg\\]\\]\\|\\\\includesvg" . svg) ("^[ \t]*|" . table) ("cref:\\|\\cref{\\|\\[\\[[^\\]]+\\]\\]" . cleveref) ("[;\\\\]?\\b[A-Z][A-Z]+s?[^A-Za-z]" . acronym) ("\\+[^ ].*[^ ]\\+\\|_[^ ].*[^ ]_\\|\\\\uu?line\\|\\\\uwave\\|\\\\sout\\|\\\\xout\\|\\\\dashuline\\|\\dotuline\\|\\markoverwith" . underline) (":float wrap" . float-wrap) (":float sideways" . rotate) ("^[ \t]*#\\+caption:\\|\\\\caption" . caption) ("\\[\\[xkcd:" . (image caption)) ((and org-latex-italic-quotes "^[ \t]*#\\+begin_quote\\|\\\\begin{quote}") . italic-quotes) (org-latex-par-sep . par-sep) ("^[ \t]*\\(?:[-+*]\\|[0-9]+[.)]\\|[A-Za-z]+[.)]\\) \\[[ -X]\\]" . checkbox) ("^[ \t]*#\\+begin_warning\\|\\\\begin{warning}" . box-warning) ("^[ \t]*#\\+begin_info\\|\\\\begin{info}" . box-info) ("^[ \t]*#\\+begin_success\\|\\\\begin{success}" . box-success) ("^[ \t]*#\\+begin_error\\|\\\\begin{error}" . box-error)) "Org feature tests and associated LaTeX feature flags. Alist where the car is a test for the presense of the feature, and the cdr is either a single feature symbol or list of feature symbols. When a string, it is used as a regex search in the buffer. The feature is registered as present when there is a match. The car can also be a - symbol, the value of which is fetched - function, which is called with info as an argument - list, which is `eval'uated If the symbol, function, or list produces a string: that is used as a regex search in the buffer. Otherwise any non-nil return value will indicate the existance of the feature.") (defvar org-latex-feature-implementations '((image :snippet "\\usepackage{graphicx}" :order 2) (svg :snippet "\\usepackage{svg}" :order 2) (table :snippet "\\usepackage{longtable}\n\\usepackage{booktabs}" :order 2) (cleveref :snippet "\\usepackage[capitalize]{cleveref}" :order 1) (underline :snippet "\\usepackage[normalem]{ulem}" :order 0.5) (float-wrap :snippet "\\usepackage{wrapfig}" :order 2) (rotate :snippet "\\usepackage{rotating}" :order 2) (caption :snippet org-latex-caption-preamble :order 2.1) (acronym :snippet "\\newcommand{\\acr}[1]{\\protect\\textls*[110]{\\scshape #1}}\n\\newcommand{\\acrs}{\\protect\\scalebox{.91}[.84]{\\hspace{0.15ex}s}}" :order 0.4) (italic-quotes :snippet "\\renewcommand{\\quote}{\\list{}{\\rightmargin\\leftmargin}\\item\\relax\\em}\n" :order 0.5) (par-sep :snippet "\\setlength{\\parskip}{\\baselineskip}\n\\setlength{\\parindent}{0pt}\n" :order 0.5) (.pifont :snippet "\\usepackage{pifont}") (checkbox :requires .pifont :order 3 :snippet (concat (unless (memq 'maths features) "\\usepackage{amssymb} % provides \\square") org-latex-checkbox-preamble)) (.fancy-box :requires .pifont :snippet org-latex-box-preamble :order 3.9) (box-warning :requires .fancy-box :snippet "\\defsimplebox{warning}{e66100}{\\ding{68}}{Warning}" :order 4) (box-info :requires .fancy-box :snippet "\\defsimplebox{info}{3584e4}{\\ding{68}}{Information}" :order 4) (box-success :requires .fancy-box :snippet "\\defsimplebox{success}{26a269}{\\ding{68}}{\\vspace{-\\baselineskip}}" :order 4) (box-error :requires .fancy-box :snippet "\\defsimplebox{error}{c01c28}{\\ding{68}}{Important}" :order 4)) "LaTeX features and details required to implement them. List where the car is the feature symbol, and the rest forms a plist with the following keys: - :snippet, which may be either - a string which should be included in the preamble - a symbol, the value of which is included in the preamble - a function, which is evaluated with the list of feature flags as its single argument. The result of which is included in the preamble - a list, which is passed to `eval', with a list of feature flags available as \"features\" - :requires, a feature or list of features that must be available - :when, a feature or list of features that when all available should cause this to be automatically enabled. - :prevents, a feature or list of features that should be masked - :order, for when ordering is important. Lower values appear first. The default is 0. Features that start with ! will be eagerly loaded, i.e. without being detected.") #+end_src First, we need to detect which features we actually need #+begin_src emacs-lisp (defun org-latex-detect-features (&optional buffer info) "List features from `org-latex-conditional-features' detected in BUFFER." (let ((case-fold-search nil)) (with-current-buffer (or buffer (current-buffer)) (delete-dups (mapcan (lambda (construct-feature) (when (let ((out (pcase (car construct-feature) ((pred stringp) (car construct-feature)) ((pred functionp) (funcall (car construct-feature) info)) ((pred listp) (eval (car construct-feature))) ((pred symbolp) (symbol-value (car construct-feature))) (_ (user-error "org-latex-conditional-features key %s unable to be used" (car construct-feature)))))) (if (stringp out) (save-excursion (goto-char (point-min)) (re-search-forward out nil t)) out)) (if (listp (cdr construct-feature)) (cdr construct-feature) (list (cdr construct-feature))))) org-latex-conditional-features))))) #+end_src Then we need to expand them and sort them according to the above definitions #+begin_src emacs-lisp (defun org-latex-expand-features (features) "For each feature in FEATURES process :requires, :when, and :prevents keywords and sort according to :order." (dolist (feature features) (unless (assoc feature org-latex-feature-implementations) (error "Feature %s not provided in org-latex-feature-implementations" feature))) (setq current features) (while current (when-let ((requirements (plist-get (cdr (assq (car current) org-latex-feature-implementations)) :requires))) (setcdr current (if (listp requirements) (append requirements (cdr current)) (cons requirements (cdr current))))) (setq current (cdr current))) (dolist (potential-feature (append features (delq nil (mapcar (lambda (feat) (when (plist-get (cdr feat) :eager) (car feat))) org-latex-feature-implementations)))) (when-let ((prerequisites (plist-get (cdr (assoc potential-feature org-latex-feature-implementations)) :when))) (setf features (if (if (listp prerequisites) (cl-every (lambda (preq) (memq preq features)) prerequisites) (memq prerequisites features)) (append (list potential-feature) features) (delq potential-feature features))))) (dolist (feature features) (when-let ((prevents (plist-get (cdr (assoc feature org-latex-feature-implementations)) :prevents))) (setf features (cl-set-difference features (if (listp prevents) prevents (list prevents)))))) (sort (delete-dups features) (lambda (feat1 feat2) (if (< (or (plist-get (cdr (assoc feat1 org-latex-feature-implementations)) :order) 1) (or (plist-get (cdr (assoc feat2 org-latex-feature-implementations)) :order) 1)) t nil)))) #+end_src Finally, we can create the preamble to be inserted #+begin_src emacs-lisp (defun org-latex-generate-features-preamble (features) "Generate the LaTeX preamble content required to provide FEATURES. This is done according to `org-latex-feature-implementations'" (let ((expanded-features (org-latex-expand-features features))) (concat (format "\n%% features: %s\n" expanded-features) (mapconcat (lambda (feature) (when-let ((snippet (plist-get (cdr (assoc feature org-latex-feature-implementations)) :snippet))) (concat (pcase snippet ((pred stringp) snippet) ((pred functionp) (funcall snippet features)) ((pred listp) (eval `(let ((features ',features)) (,@snippet)))) ((pred symbolp) (symbol-value snippet)) (_ (user-error "org-latex-feature-implementations :snippet value %s unable to be used" snippet))) "\n"))) expanded-features "") "% end features\n"))) #+end_src Last step, some advice to hook in all of the above to work #+begin_src emacs-lisp (defvar info--tmp nil) (defadvice! org-latex-save-info (info &optional t_ s_) :before #'org-latex-make-preamble (setq info--tmp info)) (defadvice! org-splice-latex-header-and-generated-preamble-a (orig-fn tpl def-pkg pkg snippets-p &optional extra) "Dynamically insert preamble content based on `org-latex-conditional-preambles'." :around #'org-splice-latex-header (let ((header (funcall orig-fn tpl def-pkg pkg snippets-p extra))) (if snippets-p header (concat header (org-latex-generate-features-preamble (org-latex-detect-features nil info--tmp)) "\n")))) #+end_src **** Tectonic Tectonic is the hot new thing, which also means I can get rid of my tex installation. #+begin_src emacs-lisp (setq-default org-latex-pdf-process '("tectonic -Z shell-escape --outdir=%o %f")) #+end_src **** Classes Simple base header shared by all defines classes #+name: base-template #+begin_src latex \\documentclass[10pt]{scrartcl} [PACKAGES] [DEFAULT-PACKAGES] [EXTRA] \\setmainfont[Ligatures=TeX]{Montserrat} \\setmonofont[Ligatures=TeX]{Iosevka Nerd Font Mono} #+end_src #+name: chameleon-template #+begin_src latex :noweb yes % Using chameleon <<base-template>> #+end_src #+name: work-template #+begin_src latex :noweb yes % Using work <<base-template>> \\usepackage{fontawesome5} \\usepackage{tcolorbox} \\usepackage{fancyhdr} \\usepackage{lastpage} \\pagestyle{fancy} \\fancyhead{} \\fancyhead[RO, LE]{} #+end_src Now for some class setup (likely to change over time) #+begin_src emacs-lisp :noweb no-export (after! ox-latex (add-to-list 'org-latex-classes '("chameleon" " <<chameleon-template>> " ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))) #+end_src And some saner defaults for them #+begin_src emacs-lisp (after! ox-latex (setq org-latex-tables-booktabs t org-latex-default-class "chameleon" org-latex-hyperref-template "\\colorlet{greenyblue}{blue!70!green} \\colorlet{blueygreen}{blue!40!green} \\providecolor{link}{named}{greenyblue} \\providecolor{cite}{named}{blueygreen} \\hypersetup{ pdfauthor={%a}, pdftitle={%t}, pdfkeywords={%k}, pdfsubject={%d}, pdfcreator={%c}, pdflang={%L}, breaklinks=true, colorlinks=true, linkcolor=, urlcolor=link, citecolor=cite\n} \\urlstyle{same} " org-latex-reference-command "\\cref{%s}")) #+end_src **** Packages Add some packages (also very likely to change) #+begin_src emacs-lisp (setq org-latex-default-packages-alist `(("AUTO" "inputenc" t ("pdflatex")) ("T1" "fontenc" t ("pdflatex")) ("" "fontspec" t) ("" "xcolor" nil) ("" "hyperref" nil) ("" "cleveref" nil))) #+end_src **** Pretty code blocks Teco is the goto for this, so basically just ripping off him. #+begin_src elisp (package! engrave-faces :recipe (:host github :repo "tecosaur/engrave-faces")) #+end_src #+begin_src emacs-lisp (use-package! engrave-faces-latex :after ox-latex :config (setq org-latex-listings 'engraved)) #+end_src #+begin_src emacs-lisp (use-package! engrave-faces-html :after ox-html :config (setq org-latex-listings 'engraved)) #+end_src #+begin_src emacs-lisp (defvar-local org-export-has-code-p nil) (defadvice! org-export-expect-no-code (&rest _) :before #'org-export-as (setq org-export-has-code-p nil)) (defadvice! org-export-register-code (&rest _) :after #'org-latex-src-block :after #'org-latex-inline-src-block-engraved (setq org-export-has-code-p t)) (defadvice! org-latex-example-block-engraved (orig-fn example-block contents info) "Like `org-latex-example-block', but supporting an engraved backend" :around #'org-latex-example-block (let ((output-block (funcall orig-fn example-block contents info))) (if (eq 'engraved (plist-get info :latex-listings)) (format "\\begin{Code}[alt]\n%s\n\\end{Code}" output-block) output-block))) #+end_src **** ox-chameleon Chameleons are cool, not having to touches faces is cooler (not the COVID kind) #+begin_src elisp (package! ox-chameleon :recipe (:host github :repo "tecosaur/ox-chameleon")) #+end_src #+begin_src emacs-lisp (use-package! ox-chameleon :after ox) #+end_src **** Beamer Starting to look into beamer for creating presentations, seems like we need to +steal+ borrow more config from Tecosaur. Metropolis is a nice theme, with a tiny adjustment it might be the best. #+begin_src emacs-lisp (setq org-beamer-theme "[progressbar=foot]metropolis") #+end_src #+begin_src emacs-lisp :noweb yes (defun org-beamer-p (info) (eq 'beamer (and (plist-get info :back-end) (org-export-backend-name (plist-get info :back-end))))) (add-to-list 'org-latex-conditional-features '(org-beamer-p . beamer) t) (add-to-list 'org-latex-feature-implementations '(beamer :requires .missing-koma :prevents (italic-quotes condensed-lists)) t) (add-to-list 'org-latex-feature-implementations '(.missing-koma :snippet "\\usepackage{scrextend}" :order 2) t) #+end_src And lastly, a small tweak to improve how sections are divided #+begin_src emacs-lisp (setq org-beamer-frame-level 2) #+end_src *** (sub|super)script characters Annoying having to gate these, so let's fix that #+begin_src emacs-lisp (setq org-export-with-sub-superscripts '{}) #+end_src *** Auto-export Defines a minor mode I can use to automatically export a PDF on save. #+begin_src emacs-lisp (defun +org-auto-export () (org-beamer-export-to-pdf t)) (define-minor-mode org-auto-export-mode "Toggle auto exporting the Org file." :global nil :lighter "" (if org-auto-export-mode ;; When the mode is enabled (progn (add-hook 'after-save-hook #'+org-auto-export :append :local)) ;; When the mode is disabled (remove-hook 'after-save-hook #'+org-auto-export :local))) #+end_src ** org-protocol Interact with org-mode from other applications, /including my web browser/. Being able to create things like tasks and other org items from anywhere sounds ideal. #+begin_src emacs-lisp (use-package! org-protocol :defer t) #+end_src #+begin_src conf :tangle ~/.local/share/applications/org-protocol.desktop :mkdirp yes :noweb yes # DO NOT EDIT THIS # I have been generated from <<file-name()>> [Desktop Entry] Name=org-protocol Comment=Intercept calls from emacsclient to trigger custom actions Categories=Other; Keywords=org-protocol; Icon=emacs Type=Application Exec=emacsclient -- %u Terminal=false StartupWMClass=Emacs MimeType=x-scheme-handler/org-protocol; #+end_src * Languages Configuration for various programming languages. ** Clojure *** Epithet Buffers are pretty great, but sometimes they can be named ... less usefully. #+begin_src elisp (package! epithet :recipe (:host github :repo "oantolin/epithet")) #+end_src #+begin_src emacs-lisp (use-package! epithet :hook (clojure-mode . epithet-rename-buffer) :init ;; (setq-hook! 'clojure-mode-hook doom-modeline-buffer-file-name-style 'buffer-name) (defun epithet-for-clojure () "Suggest a name for a `clojure-mode' buffer." (when (and (require 'cider nil t) (derived-mode-p 'clojure-mode)) (after! doom-modeline (setq-local doom-modeline-buffer-file-name-style 'buffer-name)) (format "%s <%s>" (substring-no-properties (cider-current-ns)) (projectile-project-name)))) :config (add-to-list 'epithet-suggesters #'epithet-for-clojure) (after! doom-modeline (advice-add #'epithet-rename-buffer :after #'doom-modeline-update-buffer-file-name))) #+end_src *** Portal This portal thing looks pretty cool yanno. #+begin_src emacs-lisp (defvar lkn/clj-portal-viewers '(":portal.viewer/inspector" ":portal.viewer/pprint" ":portal.viewer/table" ":portal.viewer/tree" ":portal.viewer/hiccup")) (defun lkn/clj-start-of-sexp () (save-excursion (paredit-backward-up) (point))) (defun lkn/clj-end-of-sexp () (save-excursion (paredit-forward-up) (point))) (defun lkn/portal-open () (interactive) (cider-nrepl-sync-request:eval "(do (ns dev) (def portal ((requiring-resolve 'portal.api/open) {:launcher :emacs})) (add-tap (requiring-resolve 'portal.api/submit)))")) (defun lkn/portal-clear () (interactive) (cider-nrepl-sync-request:eval "(portal.api/clear)")) (defun lkn/portal-close () (interactive) (cider-nrepl-sync-request:eval "portal.api/close")) (defun lkn/portal-tap-contained (&optional viewer) (interactive (list (when (consp current-prefix-arg) (completing-read "Default Viewer: " lkn/clj-portal-viewers)))) (let ((beg (lkn/clj-start-of-sexp)) (end (lkn/clj-end-of-sexp))) (cider-interactive-eval (format "(tap> ^{:portal.viewer/default %s} %s)" (or viewer (car lkn/clj-portal-viewers)) (buffer-substring-no-properties beg end))))) (defun lkn/portal-tap-last (&optional viewer) (interactive (list (when (consp current-prefix-arg) (completing-read "Default Viewer: " lkn/clj-portal-viewers)))) (cider-interactive-eval (format "(tap> ^{:portal.viewer/default %s} %s)" (or viewer (car lkn/clj-portal-viewers)) (cider-last-sexp)))) (map! :map (clojure-mode-map clojurescript-mode-map clojurec-mode-map) :localleader (:prefix ("p p" . "Portal") :desc "Open Portal" "o" #'lkn/portal-open :desc "Clear layers" "c" #'lkn/portal-clear :desc "Close current session" "q" #'lkn/portal-close :desc "Send sexp around point" "s" #'lkn/portal-tap-contained :desc "Send sexp next to point" "S" #'lkn/portal-tap-last)) #+end_src ** Lua First things first; we need a project mode for my awesomewm config. #+begin_src emacs-lisp (def-project-mode! +awesome-config-mode :modes '(lua-mode) :files ("rc.lua") :when (string-prefix-p (expand-file-name "awesome" (xdg-config-home)) default-directory)) (add-hook '+awesome-config-mode-hook #'rainbow-mode) #+end_src ** Ruby New year new me. This year, it's Ruby. *** Enable rbenv I don't yet see a case for /not/ having this on all the time, so for now we just always have this on. Easier to manage things with rbenv. #+begin_src emacs-lisp (global-rbenv-mode) #+end_src *** Force disable rvm Seems that even just having some remnant of rvm around is enough to trigger it, and that breaks a lot. So, I'd rather just have it always be off. #+begin_src emacs-lisp (setq rspec-use-rvm nil) #+end_src *** Disable other language servers Not yet sure which of these is best, so for now until I get a compelling reason I'd rather stick with solargraph. #+begin_src emacs-lisp (after! lsp-mode (add-to-list 'lsp-disabled-clients 'rubocop-ls) (add-to-list 'lsp-disabled-clients 'solargraph) (add-to-list 'lsp-disabled-clients 'typeprof-ls)) #+end_src *** Enable rainbow-parens Another language that's missing this... #+begin_src emacs-lisp (add-hook 'ruby-mode-hook #'rainbow-delimiters-mode) #+end_src ** LSP/DAP *** Increase variable line length By default this is /way/ too short. #+begin_src emacs-lisp (setq dap-ui-variable-length 200) #+end_src *** Improve completions The default completions are quite bad #+begin_src emacs-lisp (after! lsp-mode (setq +lsp-company-backends '(:separate company-capf company-yasnippet company-dabbrev))) #+end_src * Completion Completion is handled by the amazing VERTICO stack, most of which we can just rely on stock Doom setup. There are however a few minor changes we want... ** Projectile completion fn In order to get a slightly nicer UI, we can set this manually rather than relying on the default =completing-read=. #+begin_src emacs-lisp (autoload #'consult--read "consult") ;;;###autoload (defun +vertico/projectile-completion-fn (prompt choices) "Given a PROMPT and a list of CHOICES, filter a list of files for `projectile-find-file'." (interactive) (consult--read choices :prompt prompt :sort nil :add-history (thing-at-point 'filename) :category 'file :history '(:input +vertico/find-file-in--history))) (setq projectile-completion-system '+vertico/projectile-completion-fn) #+end_src ** Jump to heading #+begin_src emacs-lisp (defun flatten-imenu-index (index &optional prefix) "Flatten an org-mode imenu index." (let ((flattened '())) (dolist (item index flattened) (let* ((name (propertize (car item) 'face (intern (format "org-level-%d" (if prefix (+ 2 (cl-count ?/ prefix)) 1))))) (prefix (if prefix (concat prefix "/" name) name))) (if (imenu--subalist-p item) (setq flattened (append flattened (flatten-imenu-index (cdr item) prefix))) (push (cons prefix (cdr item)) flattened)))) (nreverse flattened))) ;;;###autoload (defun +literate-jump-heading () "Jump to a heading in the literate org file." (interactive) (let* ((+literate-config-file (file-name-concat doom-user-dir "config.org")) (buffer (or (find-buffer-visiting +literate-config-file) (find-file-noselect +literate-config-file t)))) (with-current-buffer buffer (let* ((imenu-auto-rescan t) (org-imenu-depth 8) (index (flatten-imenu-index (imenu--make-index-alist)))) (let ((c (current-window-configuration)) (result nil)) (unwind-protect (progn (switch-to-buffer buffer) (cond ((modulep! :completion vertico) (setq result (consult-org-heading))) (t (let ((entry (assoc (completing-read "Go to heading: " index nil t) index))) (setq result entry) (imenu entry))))) (unless result (set-window-configuration c)))))))) (map! :leader :n :desc "Open heading in literate config" "f o" #'+literate-jump-heading) #+end_src * Snippets I constantly find myself complaining I don't have snippets setup, and yet I always forget to set snippets up. [[https://www.youtube.com/watch?v=sc5iTNVEOAg][My own worst enemy]]? Probably. But who's keeping score... ** Snippet definitions :PROPERTIES: :header-args:snippet: :mkdirp yes :tangle (expand-file-name (downcase (car (last (org-get-outline-path t)))) (expand-file-name (downcase (car (last (butlast (org-get-outline-path t))))) "snippets")) :END: A collection of snippets tangled using clever magic. *** Org-mode **** __ #+begin_src snippet # -*- mode: snippet -*- # name: Org template # -- ,#+title: ${1:`(s-titleized-words (replace-regexp-in-string "^[0-9]\\{4\\}-[0-9][0-9]-[0-9][0-9]-" "" (file-name-base (or buffer-file-name "new buffer"))))`} ,#+author: ${2:`(user-full-name)`} ,#+date: \today ,#+latex_class: chameleon $0 #+end_src *** slack-message-compose-buffer-mode **** standup #+begin_src snippet # -*- mode: snippet -*- # name: Standup template # -- *Standup* $1: $2 `(format-time-string "%d/%m/%y" (current-time))`: $3 *Blocked*: $4 #+end_src * Packages Place to put packages that don't have a guaranteed home yet. ** Disabled/unpin Packages to be unpinned or just completely disabled #+begin_src elisp (disable-packages! evil-escape org-yt) (unpin! evil-collection) (package! apheleia :recipe (:local-repo "~/build/elisp/apheleia")) (package! engrave-faces :recipe (:host github :repo "elken/engrave-faces")) (package! ox-chameleon :recipe (:host github :repo "elken/ox-chameleon")) #+end_src ** embark-vc Embark additions to improve various vc operations #+begin_src elisp (package! embark-vc) #+end_src #+begin_src emacs-lisp (use-package! embark-vc :after embark) #+end_src ** prescient Need to add this into company module when I've tested #+begin_src elisp (when (modulep! :completion company) (package! company-prescient)) #+end_src #+begin_src emacs-lisp (when (modulep! :completion company) (use-package! company-prescient :after company :hook (company-mode . company-prescient-mode) :hook (company-prescient-mode . prescient-persist-mode) :config (setq prescient-save-file (concat doom-cache-dir "prescient-save.el") history-length 1000))) #+end_src ** Rainbow Identifiers *** TODO Fix in web-mode Web-mode has normal text which should be ignored. #+begin_src elisp (package! rainbow-identifiers) #+end_src #+begin_src emacs-lisp (use-package! rainbow-identifiers ;; :hook (php-mode . rainbow-identifiers-mode) ;; :hook (org-mode . (lambda () (rainbow-identifiers-mode -1))) ;; :hook (web-mode . (lambda () (rainbow-identifiers-mode -1))) :config (setq rainbow-identifiers-faces-to-override '(php-variable-name php-property-name php-variable-sigil web-mode-variable-name-face))) #+end_src ** Cucumber Needed for feature test files #+begin_src elisp (package! feature-mode) #+end_src #+begin_src emacs-lisp (use-package! feature-mode :mode "\\.feature$") #+end_src ** Systemd Starting to actually write more of these now, so this is an easy sell #+begin_src elisp (package! systemd) #+end_src #+begin_src emacs-lisp (use-package! systemd :mode "\\.service$") #+end_src ** RPM Spec Needed for rpm files to not be treated poorly (there, there) #+begin_src elisp (package! rpm-spec-mode :recipe (:host github :repo "bhavin192/rpm-spec-mode")) #+end_src #+begin_src emacs-lisp (use-package! rpm-spec-mode :mode "\\.spec\\(\\.in\\)?$") #+end_src ** Autothemer Needed for a very WIP theme, otherwise not needed. #+begin_src elisp (package! autothemer) #+end_src ** Bamboo Setup for my package for integrating with Bamboo HR #+begin_src elisp (package! bhr :recipe (:host github :repo "elken/bhr.el")) #+end_src #+begin_src emacs-lisp (use-package! bhr :commands (bhr-view-timesheet bhr-submit-multiple)) #+end_src ** YADM [[https://yadm.io][yadm]] is my preferred dotfile manager of choice, but by default because of the nature of how the repo is handled; it's quite a pain to manage from Emacs. *** tramp-yadm tramp-yadm to the rescue! This lets me use magit & projectile as expected on the repo; allowing me to manage dotfile changes with the superior git client. #+begin_src elisp (package! tramp-yadm :recipe (:host github :repo "seanfarley/tramp-yadm")) #+end_src #+begin_src emacs-lisp (use-package! tramp-yadm :defer t :init (defun yadm-status () "Invoke magit on the yadm repo" (interactive) (magit-status "/yadm::~") (setq-local magit-git-executable (executable-find "yadm")) (setq-local magit-remote-git-executable (executable-find "yadm"))) (after! magit (tramp-yadm-register) (map! :leader :desc "Open yadm status" "g p" #'yadm-status))) #+end_src ** Keychain [[http://www.funtoo.org/wiki/Keychain][Keychain]] is /amazing/. It wraps ssh-agent and gpg-agent so I never have to. The /problem/ is Emacs doesn't always detect it nicely ... until now! #+begin_src emacs-lisp (defun +keychain-startup-hook () "Load keychain env after emacs" (let* ((ssh (shell-command-to-string "keychain -q --noask --agents ssh --eval")) (gpg (shell-command-to-string "keychain -q --noask --agents gpg --eval"))) (list (and ssh (string-match "SSH_AUTH_SOCK[=\s]\\([^\s;\n]*\\)" ssh) (setenv "SSH_AUTH_SOCK" (match-string 1 ssh))) (and ssh (string-match "SSH_AGENT_PID[=\s]\\([0-9]*\\)?" ssh) (setenv "SSH_AGENT_PID" (match-string 1 ssh))) (and gpg (string-match "GPG_AGENT_INFO[=\s]\\([^\s;\n]*\\)" gpg) (setenv "GPG_AGENT_INFO" (match-string 1 gpg)))))) (add-hook 'after-init-hook #'+keychain-startup-hook) #+end_src ** Asciidoc #+begin_src elisp (package! adoc-mode) #+end_src ** Graphviz Some config to help with graphviz #+begin_src elisp (package! graphviz-dot-mode) #+end_src #+begin_src emacs-lisp (use-package! graphviz-dot-mode :init (after! company (require 'company-graphviz-dot))) #+end_src ** Exercism Exercism is a useful site for learning a programming language by performing various exercises. You can opt to use either an in-browser editor or your own via a local CLI. Which do you think I want? #+begin_src elisp (package! exercism-modern :recipe (:files (:defaults "icons") :host github :repo "elken/exercism-modern")) #+end_src #+begin_src emacs-lisp (use-package! exercism-modern :commands (exercism-modern-jump exercism-modern-view-tracks)) #+end_src ** evil-cleverparens Trying to find a decent structural editor I like... #+begin_src elisp (package! evil-cleverparens :recipe (:host github :repo "tomdl89/evil-cleverparens" :branch "fix/delete-escaped-parens")) (package! paredit) #+end_src #+begin_src emacs-lisp (use-package! paredit :hook (emacs-lisp-mode . paredit-mode) :hook (clojure-mode . paredit-mode)) (use-package! evil-cleverparens :when (modulep! :editor evil +everywhere) :hook (paredit-mode . evil-cleverparens-mode)) #+end_src ** litable This is literally the coolest package ever... #+begin_src elisp (package! litable :recipe (:host github :repo "Fuco1/litable")) #+end_src #+begin_src emacs-lisp (use-package! litable :custom (litable-list-file (expand-file-name "litable-lists.el" doom-cache-dir)) :init (map! :localleader :map emacs-lisp-mode-map (:prefix ("t" . "toggle") "l" #'litable-mode))) #+end_src ** magit-file-icons A simple package to add file icons in magit views. #+begin_src elisp (package! magit-file-icons :pin "0006e243b0e7aa005f6e8900b4b2e3a92c2d0532" :recipe (:host github :repo "gekoke/magit-file-icons")) #+end_src #+begin_src emacs-lisp (use-package! magit-file-icons :after magit :init (magit-file-icons-mode 1)) #+end_src * Spelling #+begin_src emacs-lisp (setq ispell-program-name "aspell" ispell-extra-args '("--sug-mode=ultra" "--lang=en_GB") ispell-dictionary "en" ispell-personal-dictionary "~/Nextcloud/dict") (after! cape (setq cape-dict-file (if (file-exists-p ispell-personal-dictionary) ispell-personal-dictionary cape-dict-file))) #+end_src * Local settings Needed some way to manage settings for a local machine, so let's be lazy with it #+begin_src emacs-lisp (when (file-exists-p! "config-local.el" doom-private-dir) (load! "config-local.el" doom-private-dir)) #+end_src ** dotenv Better handle setting of environment variables needed for various tools #+begin_src elisp (package! dotenv :recipe (:host github :repo "pkulev/dotenv.el")) #+end_src #+begin_src emacs-lisp (use-package! dotenv :init (when (file-exists-p (expand-file-name ".env" doom-user-dir)) (add-hook! 'doom-init-ui-hook (defun +dotenv-startup-hook () "Load .env after starting emacs" (dotenv-update-project-env doom-user-dir)))) :config (add-hook! 'projectile-after-switch-project-hook (defun +dotenv-projectile-hook () "Load .env after changing projects." (dotenv-update-project-env (projectile-project-root))))) #+end_src