Doom Configuration
About
“I’m rarely happier than when spending an entire day programming my computer to perform automatically a task that would otherwise take me a good ten seconds to do by hand.” - Douglas Adams
This is the .doom.d
submodule of neurosys, my computing environment.
I use Emacs as the primary interface to my machine and remote machines. In many situations, it replaces CLIs or GUIs with well-designed keyboard-driven interfaces (e.g. magit). There’s no going back.
I use Doom Emacs as a base Emacs configuration. This is a literate org file, which specifies and documents the entirety of my Doom configuration. If you link this file to ~/.doom.d/config.org
, Doom will automatically tangle it on startup and whenever it changes.
If you’re reading this in a browser, consider opening it in Emacs Org mode for the full experience.
Inspirations:
- Jethro Kuan’s dotfiles
- bauer: an Emacs+Nix IDE
- Pierre Neidhardt: Emacs Everywhere
- Ryan Rix’s Complete Computing Environment (CCE)
- LemonBreezes’ Literate Doom Config
- Diego Zamboni’s Literate Emacs Config
- Justin Abrahms’ Literate Emacs Config
Table of Contents
- About
- Doom Module Declarations
- Package Configuration
- Header
- Global Constants
- Load helper functions
- Visual Settings
- Key Chord Config
- Hardware Settings
- Org
- org-noter: Syncing notes to PDFs
- org-recoll: Interface to Recoll - PDF content search
- org-journal: Managing daily journal files
- org-roam: Graph layer on top of Org
- org-transclusion
- org-download: Inserting images into org-mode
- org-cliplink: Better external links
- org-drill: Spaced Repetition
- Org Agenda
- org-sidebar
- TRAMP
- Effective Editing
- Haskell
- Rust
- Jupyter
- Selectrum etc…
- Miniframe
- Consult
- Embark and Marginalia
- Dired
- Search Utilities
- Version Control
- Searching + Annotating PDFs
- Lauching External Programs
- Window Management
- Autosave
- Google Translate
- CamelCase to snake_case conversion
- Dotenv
- Logview
- wgrep
- Performance Tweaks
- Load Untracked Elisp
- Misc Global Keybindings
- Misc
- Utility functions.
- Neurosys Module
- Package declarations
- Future
Doom Module Declarations
This file controls what Doom modules are enabled and what order they load in.
Remember to run doom sync
or doom/reload
after modifying it.
;;; init.el -*- lexical-binding: t; -*-
(doom! :input
;; :desktop
;; exwm
:personal
neurosys
:completion
(company)
;; (ivy +prescient +childframe)
:ui
;; deft
doom
hl-todo
modeline
nav-flash
zen
:editor
;; Nice, but messes with org-journal
lispy
multiple-cursors
word-wrap
format
snippets
:emacs
dired
electric
vc
:term
vterm
:checkers
syntax
:tools
direnv
(eval +overlay)
docker
lookup
(magit +forge)
lsp
pass
pdf
:lang
;; common-lisp
data
emacs-lisp
go
;; javascript
(haskell +dante)
;; (julia +lsp)
;; julia
(latex +latexmk +cdlatex)
markdown
nix
(org
+journal
+hugo
+jupyter
+roam
)
python
(rust +lsp)
sh
yaml
:app
;; calendar
:config
literate
(default +bindings)
;; (default +bindings +smartparens)
)
Package Configuration
Set Header
lexical-binding
for this file.
;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
Global Constants
Contact info
Some functionality uses this to identify you, e.g. GPG configuration, email clients, file templates and snippets.
(setq user-full-name "Dan Girshovich"
user-mail-address (rot13 "qna.tvefu@tznvy.pbz"))
Directories
(setq my/home-dir "/home/dan/")
(setq my/sync-base-dir (concat my/home-dir "Sync/"))
(setq my/work-base-dir (concat my/home-dir "Work/"))
(setq my/media-base-dir (concat my/home-dir "Media/"))
Org
(setq org-directory my/sync-base-dir
;; org-roam-directory "/home/dan/Work/Worldcoin/org-roam"
org-roam-directory (concat my/sync-base-dir "org-roam/")
)
Load helper functions
(load-file (concat doom-private-dir "funcs.el"))
Visual Settings
(setq doom-font (font-spec :family "Hack" :size 20)
doom-variable-pitch-font (font-spec :family "Libre Baskerville")
doom-serif-font (font-spec :family "Libre Baskerville"))
(when (file-exists-p "~/.doom.d/banners")
(setq +doom-dashboard-banner-padding '(0 . 2)
+doom-dashboard-banner-file "deepfield-window.png"
+doom-dashboard-banner-dir "~/.doom.d/banners"))
(setq display-line-numbers-type nil)
;; Thin grey line separating windows
(set-face-background 'vertical-border "grey")
(set-face-foreground 'vertical-border (face-background 'vertical-border))
Theme
(use-package! doom-themes
:config
;; Global settings (defaults)
(setq doom-themes-enable-bold t ; if nil, bold is universally disabled
doom-themes-enable-italic t) ; if nil, italics is universally disabled
(load-theme 'doom-acario-light t)
;; (load-theme 'leuven t)
;; (load-theme 'doom-dark+ t)
;; (load-theme 'doom-solarized-light t)
;; (load-theme 'doom-one t)
;; (load-theme 'doom-nord-light t)
;; Enable flashing mode-line on errors
(doom-themes-visual-bell-config)
;; Corrects (and improves) org-mode's native fontification.
(doom-themes-org-config))
;; Waiting on https://github.com/hlissner/emacs-doom-themes/issues/252
;; Currently, some things like italics and some links in org fail to render correctly.
;; (use-package! poet-theme
;; :config
;; (load-theme 'poet))
;; (use-package! almost-mono-themes
;; :config
;; ;; (load-theme 'almost-mono-black t)
;; (load-theme 'almost-mono-white t))
Key Chord Config
I don’t use Evil (Vim emulation), which would add an extra layer of complexity to everything. Instead, I heavily leverage key-chord.el, which enables binding simultaneous key presses (chords) to commands.
I have some custom code to bind chords to Doom’s leaders. Many commonly used commands are bound in these “key chord maps”.
Enable the key chord package
Set hardware-specific delay. Tweak this if:
- there are false keychords triggered when typing fast (delay too large)
- if expected keychords don’t register (delay too small)
- there’s a noticable lag when typing normally (delay too large)
(use-package! key-chord
:config
(key-chord-mode 1)
(setq key-chord-one-keys-delay 0.02
key-chord-two-keys-delay 0.03))
Setup for binding chords as leaders
(defun simulate-seq (seq)
(setq unread-command-events (listify-key-sequence seq)))
(defun send-doom-leader ()
(interactive)
(simulate-seq "\C-c"))
(setq doom-localleader-alt-key "M-c")
(defun send-doom-local-leader ()
(interactive)
(simulate-seq "\M-c"))
Define global key-chords
One of my proudest moments…. https://gist.github.com/dangirsh/86c001351c02b42321d20f462a66da6b
(after! key-chord
(key-chord-define-global "fj" 'send-doom-leader)
(key-chord-define-global "gh" 'send-doom-local-leader)
(setq dk-keymap (make-sparse-keymap))
(setq sl-keymap (make-sparse-keymap))
(key-chord-define-global "dk" dk-keymap)
(key-chord-define-global "sl" sl-keymap)
(defun add-to-keymap (keymap bindings)
(dolist (binding bindings)
(define-key keymap (kbd (car binding)) (cdr binding))))
(defun add-to-dk-keymap (bindings)
(add-to-keymap dk-keymap bindings))
(defun add-to-sl-keymap (bindings)
(add-to-keymap sl-keymap bindings))
(add-to-dk-keymap
'(("." . pop-global-mark)
("/" . org-recoll-search)
("<SPC>" . rgrep)
("a" . my/org-agenda)
("b" . my/set-brightness)
("c" . my/open-literate-private-config-file)
("d" . dired-jump)
("k" . doom/kill-this-buffer-in-all-windows)
("m" . my/mathpix-screenshot-to-clipboard)
("n" . narrow-or-widen-dwim)
("o" . ibuffer)
("p" . my/publish-dangirsh.org)
("r" . my/edit-resume)
("s" . save-buffer)
("t" . +vterm/here)
("T" . google-translate-at-point)
("v" . neurosys/open-config-file)
("w" . google-this-noconfirm)
("x" . sp-splice-sexp)))
(key-chord-define-global ",." 'end-of-buffer)
;; FIXME: accidentally triggered too often
(key-chord-define-global "zx" 'beginning-of-buffer)
(key-chord-define-global "qw" 'delete-window)
(key-chord-define-global "qp" 'delete-other-windows)
(key-chord-define-global ",," 'doom/open-scratch-buffer)
(key-chord-define-global "fk" 'other-window)
(key-chord-define-global "jd" 'rev-other-window)
(key-chord-define-global "JJ" 'previous-buffer)
(key-chord-define-global "KK" 'next-buffer)
(key-chord-define-global "hh" 'helpful-at-point)
(key-chord-define-global "hk" 'helpful-key)
(key-chord-define-global "hv" 'helpful-variable)
;; no bueno: e.g. "pathfinder", "highfidelity"
;; (key-chord-define-global "hf" 'helpful-function)
(key-chord-define-global "vn" 'split-window-vertically-and-switch)
(key-chord-define-global "vm" 'split-window-vertically-and-switch) ; ergodox
(key-chord-define-global "hj" 'split-window-horizontally-and-switch)
(key-chord-define-global "jm" 'my/duplicate-line-or-region)
(key-chord-define-global "fv" 'comment-line)
(key-chord-define-global "kl" 'er/expand-region)
(key-chord-define-global "xx" 'execute-extended-command)
(key-chord-define-global "xf" 'find-file)
(key-chord-define-global "jp" 'my/insert-jupyter-python-block))
Hardware Settings
Keyboard
Sets caps to control and sets a snappy key repeat / delay.
xset r rate <delay> <rate>
(defun fix-keyboard ()
(interactive)
(shell-command "setxkbmap -option 'ctrl:nocaps'")
(shell-command "xset r rate 160 60"))
Toggle Touchpad
Occassionally, the touchpad gets triggered accidentally while typing. This is a quick way to disable/enable it.
(defun toggle-touchpad ()
(interactive)
(shell-command "/home/dan/my-config/scripts/toggle_trackpad.sh"))
Display Brightness
Set brightness by writing directly to system brightness file.
(setq my/brightness-min 1)
(setq my/brightness-max 100)
(setq my/brightness-step 5)
(defun my/get-brightness ()
(* my/brightness-step (round (string-to-number
(shell-command-to-string "xbacklight -get"))
my/brightness-step)))
(defun my/set-brightness (level)
(interactive "nBrightness level: ")
(let ((safe-level
(cond ((< level my/brightness-min) my/brightness-min)
((> level my/brightness-max) my/brightness-max)
(t level))))
(save-window-excursion
(shell-command
(format "xbacklight -set %s &" safe-level) nil nil))))
(defun my/brightness-step-change (delta)
(my/set-brightness (+ delta (my/get-brightness))))
(defun my/brightness-increase ()
(interactive)
(my/brightness-step-change my/brightness-step))
(defun my/brightness-decrease ()
(interactive)
(my/brightness-step-change (- my/brightness-step)))
(map! "<XF86MonBrightnessDown>" 'my/brightness-decrease)
(map! "<XF86MonBrightnessUp>" 'my/brightness-increase)
Redshift
(setq my/redshift-min 500)
(setq my/redshift-max 6000)
(setq my/redshift-step 250)
;; Since get-redshift is slow
(setq my/redshift-val-cache nil)
(defun my/query-redshift ()
(string-to-number (save-window-excursion
(with-temp-buffer
(insert (shell-command-to-string "redshift -p"))
(beginning-of-buffer)
(re-search-forward "Color temperature")
(forward-char)
(forward-char)
(set-mark-command nil)
(re-search-forward "K")
(backward-char)
(buffer-substring (mark) (point))))))
(defun my/get-redshift-cache ()
(if my/redshift-val-cache
my/redshift-val-cache
(let ((val (my/query-redshift)))
(setq my/redshift-val-cache val)
val)))
(defun my/get-redshift ()
(* my/redshift-step (round (my/get-redshift-cache)
my/redshift-step)))
(defun my/set-redshift (level)
(interactive "nRedshift level: ")
(let ((safe-level
(cond ((< level my/redshift-min) my/redshift-min)
((> level my/redshift-max) my/redshift-max)
(t level))))
(save-window-excursion
(shell-command
(format "redshift -P -O %s" level)
nil nil))))
(defun my/redshift-step-change (delta)
(let ((new-val (+ delta (my/get-redshift-cache))))
(my/set-redshift new-val)
(setq my/redshift-val-cache new-val)))
(defun my/redshift-increase ()
(interactive)
(my/redshift-step-change my/redshift-step))
(defun my/redshift-decrease ()
(interactive)
(my/redshift-step-change (- my/redshift-step)))
(map! "S-<f5>" 'my/redshift-decrease)
(map! "S-<f6>" 'my/redshift-increase)
Volume
(setq my/volume-min 1)
(setq my/volume-max 100)
(setq my/volume-step 5)
(defun my/get-volume ()
(* my/volume-step (round (string-to-number
(shell-command-to-string "awk -F\"[][]\" '/dB/ { print $2 }' <(amixer sget Master)"))
my/volume-step)))
(defun my/set-volume (level)
(interactive "nVolume level: ")
(let ((clipped-level
(cond ((< level my/volume-min) my/volume-min)
((> level my/volume-max) my/volume-max)
(t level))))
(save-window-excursion
(shell-command
(format "amixer set Master %s%% &" clipped-level) nil nil))))
(defun my/volume-step-change (delta)
(my/set-volume (+ delta (my/get-volume))))
(defun my/volume-increase ()
(interactive)
(my/volume-step-change my/volume-step))
(defun my/volume-decrease ()
(interactive)
(my/volume-step-change (- my/volume-step)))
(map! "<XF86AudioRaiseVolume>" 'my/volume-increase)
(map! "<XF86AudioLowerVolume>" 'my/volume-decrease)
Bluetooth
(defun my/connect-to-bose-700s ()
(interactive)
(shell-command "bluetoothctl -- connect 4C:87:5D:27:B8:63"))
(defun my/disconnect-to-bose-700s ()
(interactive)
(shell-command "bluetoothctl -- disconnect 4C:87:5D:27:B8:63"))
Org
“Notes aren’t a record of my thinking process. They are my thinking process.” – Richard Feynman
I use org as a primary interface. It currently manages:
- My second brain with org-roam & org-journal
- literate programming with babel and emacs-jupyter (e.g. this file)
- tasks + calendar with org-agenda and calfw
- Writing / blogging with ox-hugo, pandoc, etc…
- Has nice inline rendering of LaTeX
- Managing references + pdfs with org-ref
- Annotating PDFs with notes via org-noter
(use-package! org
:mode ("\\.org\\'" . org-mode)
:init
(add-hook 'org-src-mode-hook #'(lambda () (flycheck-mode 0)))
(add-hook 'org-mode-hook #'(lambda () (flycheck-mode 0)))
(map! :map org-mode-map
"M-n" #'outline-next-visible-heading
"M-p" #'outline-previous-visible-heading
"C-c ;" nil)
(setq org-src-window-setup 'current-window
org-return-follows-link t
org-confirm-elisp-link-function nil
org-confirm-shell-link-function nil
org-use-speed-commands t
org-catch-invisible-edits 'show
;; Use with consel-org-goto (gh .)
org-goto-interface 'outline-path-completion
org-preview-latex-image-directory "/tmp/ltximg/")
(setq org-file-apps '((auto-mode . emacs)
(directory . emacs)
("\\.mm\\'" . default)
("\\.x?html?\\'" . default)
("\\.pdf\\'" . (lambda (file link) (org-pdftools-open link))))))
(after! org
;; FIXME: Don't know why this isn't loaded automatically...
(require 'ob-async)
;; Clear Doom's default templates
(setq org-capture-templates '())
(add-to-list 'org-capture-templates `("l" "Listen" entry (file ,(concat org-directory "listen.org"))
"* TODO %?\n%i"))
(add-to-list 'org-latex-packages-alist "\\usepackage{braket}")
;; http://kitchingroup.cheme.cmu.edu/blog/2015/01/04/Redirecting-stderr-in-org-mode-shell-blocks/
;; NOTE: This will affect (break) tangled output. Use directly on top of code blocks when needed instead.
;; TODO: Figure out how to keep this without adding it to tangled output.
;; (setq org-babel-default-header-args:sh
;; '((:prologue . "exec 2>&1") (:epilogue . ":")))
(setq org-babel-default-header-args:jupyter-julia '((:kernel . "julia-1.6")
(:display . "text/plain")
(:async . "yes")))
(setq org-confirm-babel-evaluate nil
org-use-property-inheritance t
org-export-with-sub-superscripts nil
org-export-use-babel nil
org-startup-indented t
org-pretty-entities nil
org-use-speed-commands t
org-return-follows-link t
org-outline-path-complete-in-steps nil
org-ellipsis ""
org-html-htmlize-output-type 'css
org-fontify-whole-heading-line t
org-fontify-done-headline t
org-fontify-quote-and-verse-blocks t
org-image-actual-width nil
org-src-fontify-natively t
org-src-tab-acts-natively t
org-src-preserve-indentation t
org-edit-src-content-indentation 0
org-adapt-indentation nil
org-hide-emphasis-markers t
org-special-ctrl-a/e t
org-special-ctrl-k t
org-export-with-broken-links t
org-yank-adjusted-subtrees t
org-src-window-setup 'reorganize-frame
org-src-ask-before-returning-to-edit-buffer nil
org-insert-heading-respect-content nil)
(add-hook 'org-babel-after-execute-hook 'org-display-inline-images 'append)
(add-hook 'org-babel-after-execute-hook 'org-toggle-latex-fragment 'append)
(add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
(add-to-list 'org-structure-template-alist '("sh" . "src sh"))
(add-to-list 'org-structure-template-alist '("jl" . "src jupyter-julia"))
(add-to-list 'org-structure-template-alist '("py" . "src jupyter-python"))
(setq org-refile-use-outline-path 'file
org-outline-path-complete-in-steps nil
org-refile-allow-creating-parent-nodes 'confirm)
(setq org-format-latex-options
(quote (:foreground default
:background default
:scale 2.0
:matchers ("begin" "$1" "$" "$$" "\\(" "\\["))))
(setq org-todo-keywords
'((sequence "TODO(t)" "WIP(p)" "WAITING(w)" "DELEGATED(o)" "SOMEDAY(s)" "QUESTION(q)" "|" "DONE(d)" "CANCELLED(c)")))
;; Colorize org babel output. Without this color codes are left in the output.
(defun my/display-ansi-colors ()
(interactive)
(let ((inhibit-read-only t))
(ansi-color-apply-on-region (point-min) (point-max))))
(add-hook 'org-babel-after-execute-hook #'my/display-ansi-colors)
(advice-add 'org-meta-return :override #'my/org-meta-return)
(setq org-tags-match-list-sublevels 'indented)
(setq org-image-actual-width nil)
(setq org-agenda-files '())
(setq org-agenda-prefix-format '((agenda . " %i %-12:c%?-12t% s")
(todo . " %i %b")
(tags . " %i %-12:c %b")
(search . " %i %-12:c %b")))
(setq org-agenda-category-icon-alist
`(("Personal" ,(list (all-the-icons-material "home" :height 1.2)) nil nil :ascent center)
("Incoming" ,(list (all-the-icons-material "move_to_inbox" :height 1.2)) nil nil :ascent center)))
)
(use-package! toc-org
:hook (org-mode . toc-org-mode))
org-noter: Syncing notes to PDFs
(use-package! org-noter
:after org
:config
;; helpful in EXWM, where there are no frames
(customize-set-variable 'org-noter-always-create-frame t)
(customize-set-variable 'org-noter-notes-window-behavior '(start))
(customize-set-variable 'org-noter-notes-window-location 'horizontal-split)
(setq org-noter-notes-window-location 'other-frame
org-noter-notes-search-path '("~/Sync")
org-noter-auto-save-last-location t
org-noter-default-notes-file-names '("~/Sync/pdf_notes.org"))
;; This works for assigning PDF paths, but then breaks when trying to find the tpath later.
;; (defadvice! better-org-noter--get-or-read-document-property (orig-fn &rest args)
;; :around 'org-noter--get-or-read-document-property
;; (let ((default-directory (if (boundp 'my/noter-default-directory)
;; my/noter-default-directory
;; default-directory) ))
;; (apply orig-fn args)))
)
org-recoll: Interface to Recoll - PDF content search
GitHub - alraban/org-recoll: A lightweight emacs org-mode wrapper for the rec…
(use-package! org-recoll
:after org)
org-journal: Managing daily journal files
(use-package! org-journal
:after org
:config
(customize-set-variable 'org-journal-dir (concat org-roam-directory "journal"))
(customize-set-variable 'org-journal-file-format "private-%Y-%m-%d.org")
(customize-set-variable 'org-journal-date-prefix "#+TITLE: ")
(customize-set-variable 'org-journal-time-prefix "* ")
(customize-set-variable 'org-journal-time-format "")
(customize-set-variable 'org-journal-carryover-items "TODO=\"TODO\"")
(customize-set-variable 'org-journal-date-format "%Y-%m-%d")
(map! :leader
(:prefix-map ("n" . "notes")
(:prefix ("j" . "journal")
:desc "Today" "t" #'org-journal-today)))
(defun org-journal-today ()
(interactive)
(org-journal-new-entry t)))
org-roam: Graph layer on top of Org
aka my exocortex
(after! org-roam
(add-hook 'org-journal-mode 'org-roam-mode)
;; Globally accessible commands
(map! :leader
:prefix "n"
:desc "org-roam-find-file" "f" #'org-roam-find-file)
(set-company-backend! 'org-roam-mode 'company-capf)
(setq org-roam-db-location "/home/dan/Sync/org-roam/org-roam.db"
+org-roam-open-buffer-on-find-file nil
org-id-link-to-org-use-id t
org-roam-graph-exclude-matcher '("private" "todo" "daily")))
Search via consult
https://org-roam.discourse.group/t/using-consult-ripgrep-with-org-roam-for-searching-notes/1226
(defun my/org-roam-search ()
"Search org-roam directory using consult-ripgrep. With live-preview."
(interactive)
(let ((consult-ripgrep-command "rg --null --ignore-case --type org --line-buffered --color=always --max-columns=500 --no-heading --line-number . -e ARG OPTS"))
(consult-ripgrep org-roam-directory)))
(map! "<f8>" 'my/org-roam-search)
org-roam-server: Graph visualization / navigation
(use-package! org-roam-server
:config
(setq org-roam-server-host "127.0.0.1"
org-roam-server-port 8081
org-roam-server-authenticate nil
org-roam-server-export-inline-images t
org-roam-server-serve-files nil
org-roam-server-served-file-extensions '("pdf" "mp4" "ogv")
org-roam-server-network-poll t
org-roam-server-network-arrows nil
org-roam-server-network-label-truncate t
org-roam-server-network-label-truncate-length 60
org-roam-server-network-label-wrap-length 20))
TODOs + org-agenda integration
In real Roam, TODO tags can be conveniently interspersed in any file. Then, filtering backlinks on the TODO page is the agenda view.
Unfortunately, this workflow doesn’t work for org-roam, since org-agenda is implemented too ineffeciently to handle thousands of agenda files.
My fix, as recommended here, is to put capture todos to a single file, but auto-insert links back to the context of the todo. Then, any TODOs for a page should be visible in the backlinks of that page. This is an inversion of the setup available in Roam.
The org-capture-templates
templates used here:
Template | Doc |
---|---|
%? | Initial cursor position |
%F | File path of original buffer |
%i | Body |
%a | Link back to context |
(after! org-roam
(setq my/org-roam-todo-file (concat org-roam-directory "orgzly/todo.org"))
(setq org-refile-targets `((,(append (my/open-org-files-list) (directory-files org-directory t ".*.org")) :maxlevel . 7)))
(add-to-list 'org-agenda-files my/org-roam-todo-file)
(add-to-list 'org-capture-templates '("t" "Todo" entry (file my/org-roam-todo-file)
"* TODO %?"))
(add-to-list 'org-capture-templates '("T" "Todo with Context" entry (file my/org-roam-todo-file)
"* TODO %? #[[%F][%(my/org-roam-get-title \"%F\")]]\n%i\n%a"))
)
org-transclusion
(use-package! org-transclusion
:hook (org-roam-mode . org-transclusion-mode))
org-download: Inserting images into org-mode
(use-package! org-download
:config
;; take an image that is already on the clipboard
(customize-set-variable 'org-download-screenshot-method "xclip -selection clipboard -t image/png -o > %s"))
org-cliplink: Better external links
Automatically pulls the titles from pages from a URL, then inserts a corresponding org-link.
(use-package! org-cliplink)
org-drill: Spaced Repetition
I tried integrating with Anki first, since I thought it would be useful to go over the cards on mobile. It was a mess, so now I’m trying the native Org approach.
(use-package! org-drill
:after org
:config
(add-to-list 'org-capture-templates
`("d" "Drill" entry
(file ,(concat org-directory "drill.org"))
"* %^{Heading} :drill:\n\n%^{Question}\n\n** Answer\n\n%^{Answer}")))
Org Agenda
(setq org-agenda-start-day "+0d" ; start today
org-agenda-show-current-time-in-grid t
org-agenda-timegrid-use-ampm t
org-agenda-use-time-grid nil ; Toggle it with 'G' in agenda view
org-agenda-span 3)
(add-to-list 'org-agenda-files "~/Sync/org-roam/orgzly/boox-incoming.org")
(add-to-list 'org-agenda-files "~/Sync/org-roam/orgzly/pixel-incoming.org")
(defun my/org-agenda ()
(interactive)
(org-agenda nil "n"))
org-super-agenda: Better Org Agenda
(use-package! org-super-agenda
:after org-agenda
:config
(setq org-super-agenda-groups
'((:discard (:todo "SOMEDAY"))
(:discard (:todo "QUESTION"))
(:name "WIP"
:todo "WIP")
;; https://github.com/alphapapa/org-super-agenda/issues/192
(:name "High Priority"
:priority "A")
(:name "Med Priority"
:priority "B")
(:name "Low Priority"
:priority "C")
(:name "Today"
;; :time-grid t
:scheduled today
:deadline today)
(:auto-todo t)))
(org-super-agenda-mode))
(defun my/open-questions ()
(interactive)
(let ((org-super-agenda-groups
'((:discard (:not (:todo "QUESTION")))
(:auto-todo t))))
(org-agenda nil "t")))
org-sidebar
TRAMP
(after! tramp
(add-to-list 'tramp-remote-path 'tramp-own-remote-path))
Effective Editing
Structure Editing
FIXME: This pulls in ivy/swiper/counsel :/
(use-package! lispy
:config
(advice-add 'delete-selection-pre-hook :around 'lispy--delsel-advice)
;; FIXME: magit-blame still fails to all "ret" when lispy is on
;; the compat code isn't even getting hit!
(setq lispy-compat '(edebug magit-blame-mode))
;; this hook leaves lispy mode off, but that's not as bad as breaking blame!
(add-hook 'magit-blame-mode-hook #'(lambda () (lispy-mode 0)))
:hook
((emacs-lisp-mode common-lisp-mode lisp-mode) . lispy-mode)
:bind (:map lispy-mode-map
("'" . nil) ; leave tick behaviour alone
("M-n" . nil)
("C-M-m" . nil)))
;; (use-package! smartparens
;; :init
;; (map! :map smartparens-mode-map
;; "C-M-f" #'sp-forward-sexp
;; "C-M-b" #'sp-backward-sexp
;; "C-M-u" #'sp-backward-up-sexp
;; "C-M-d" #'sp-down-sexp
;; "C-M-p" #'sp-backward-down-sexp
;; "C-M-n" #'sp-up-sexp
;; "C-M-s" #'sp-splice-sexp
;; ;; conflicts with mc
;; ;; "C-)" #'sp-forward-slurp-sexp
;; "C-}" #'sp-forward-barf-sexp
;; ;; conflicts with mc
;; ;; "C-(" #'sp-backward-slurp-sexp
;; "C-M-)" #'sp-backward-slurp-sexp
;; "C-M-)" #'sp-backward-barf-sexp))
(use-package! wrap-region
:hook
(org-mode . wrap-region-mode)
(latex-mode . wrap-region-mode)
:config
(wrap-region-add-wrappers
'(("*" "*" nil (org-mode))
("~" "~" nil (org-mode))
("/" "/" nil (org-mode))
("=" "=" nil (org-mode))
("_" "_" nil (org-mode))
("$" "$" nil (org-mode latex-mode)))))
(use-package! aggressive-indent
:hook
(emacs-lisp-mode . aggressive-indent-mode)
(common-lisp-mode . aggressive-indent-mode))
Mathpix: OCR LaTeX From Images
The mathpix.el package is failing when using the standard package!
/ use-package!
setup.
Loading manually from mathpix.el for now.
(defun setup-mathpix ()
(load-file (concat doom-private-dir "mathpix.el"))
(require 'mathpix)
(customize-set-variable 'mathpix-app-id "dan_girsh_gmail_com_5d68dc")
(customize-set-variable 'mathpix-app-key "600336b7b2b932549ce4")
(customize-set-variable 'mathpix-screenshot-method "scrot -s %s"))
(setup-mathpix)
(defun my/mathpix-screenshot-to-clipboard ()
(interactive)
(with-temp-buffer
(mathpix-screenshot)
(kill-new
(format "$$\n%s\n$$" (buffer-string)))))
Multiple Cursors
(use-package! multiple-cursors
:init
(setq mc/always-run-for-all t)
:config
(add-to-list 'mc/unsupported-minor-modes 'lispy-mode)
:bind (("C-S-c" . mc/edit-lines)
("C-M-g" . mc/mark-all-like-this-dwim)
("C->" . mc/mark-next-like-this)
("C-<" . mc/mark-previous-like-this)
("C-)" . mc/skip-to-next-like-this)
("C-M->" . mc/skip-to-next-like-this)
("C-(" . mc/skip-to-previous-like-this)
("C-M-<" . mc/skip-to-previous-like-this)))
(use-package! iedit
:init
(map! "C-;" 'company-complete)
(map! "M-i" 'iedit-mode))
Undo Tree
(use-package! undo-tree
:init
(setq undo-tree-visualizer-timestamps t
undo-tree-visualizer-diff t)
:config
;; stolen from layers/+spacemacs/spacemacs-editing/package.el
(progn
;; restore diff window after quit. TODO fix upstream
(defun my/undo-tree-restore-default ()
(setq undo-tree-visualizer-diff t))
(advice-add 'undo-tree-visualizer-quit :after #'my/undo-tree-restore-default))
(global-undo-tree-mode 1))
Haskell
(setq haskell-mode-stylish-haskell-path "brittany")
Rust
Enabled the rust
module.
Rustic
Config thanks to: Configuring Emacs for Rust development | Robert Krahn
;; https://robert.kra.hn/posts/2021-02-07_rust-with-emacs/
(after! rustic
(map! :map rustic-mode-map
"M-j" #'lsp-ui-imenu
"M-?" #'lsp-find-references
"C-c C-c l" #'flycheck-list-errors
"C-c C-c a" #'lsp-execute-code-action
"C-c C-c r" #'lsp-rename
"C-c C-c q" #'lsp-workspace-restart
"C-c C-c Q" #'lsp-workspace-shutdown
"C-c C-c s" #'lsp-rust-analyzer-status)
(setq lsp-enable-symbol-highlighting nil)
;; (setq rustic-format-on-save t)
;; (setq rustic-format-trigger 'on-save)
(setq lsp-rust-analyzer-server-display-inlay-hints t)
(add-hook 'rustic-mode-hook 'my/rustic-mode-hook))
(defun my/rustic-mode-hook ()
;; so that run C-c C-c C-r works without having to confirm
(setq-local buffer-save-without-query t))
Other deps
- cargo-edit
Org-babel setup
(use-package! ob-rust)
cargo-script
required for org-babel blocks (otherwise each requires a main
function)
cargo install cargo-script
Language Server
sudo curl -L https://github.com/rust-analyzer/rust-analyzer/releases/latest/download/rust-analyzer-linux -o /usr/local/bin/rust-analyzer sudo chmod +x /usr/local/bin/rust-analyzer
TRAMP
GitHub - brotzeit/rustic: Rust development environment for Emacs
(defun start-file-process-shell-command@around (start-file-process-shell-command name buffer &rest args)
"Start a program in a subprocess. Return the process object for it. Similar to `start-process-shell-command', but calls `start-file-process'."
;; On remote hosts, the local `shell-file-name' might be useless.
(let ((command (mapconcat 'identity args " ")))
(funcall start-file-process-shell-command name buffer command)))
(advice-add 'start-file-process-shell-command :around #'start-file-process-shell-command@around)
(with-eval-after-load "lsp-rust"
(lsp-register-client
(make-lsp-client
:new-connection (lsp-tramp-connection "rust-analyzer")
:remote? t
:major-modes '(rust-mode rustic-mode)
:initialization-options 'lsp-rust-analyzer--make-init-options
:notification-handlers (ht<-alist lsp-rust-notification-handlers)
:action-handlers (ht ("rust-analyzer.runSingle" #'lsp-rust--analyzer-run-single))
:library-folders-fn (lambda (_workspace) lsp-rust-library-directories)
:after-open-fn (lambda ()
(when lsp-rust-analyzer-server-display-inlay-hints
(lsp-rust-analyzer-inlay-hints-mode)))
:ignore-messages nil
:server-id 'rust-analyzer-remote)))
(defun my/register-remote-rust-analyzer ()
(interactive)
(lsp-register-client
(make-lsp-client
:new-connection (lsp-tramp-connection "rust-analyzer")
;; (lsp-tramp-connection
;; (lambda ()
;; `(,(or (executable-find
;; (cl-first lsp-rust-analyzer-server-command))
;; (lsp-package-path 'rust-analyzer)
;; "rust-analyzer")
;; ,@(cl-rest lsp-rust-analyzer-server-args))))
:remote? t
:major-modes '(rust-mode rustic-mode)
:initialization-options 'lsp-rust-analyzer--make-init-options
:notification-handlers (ht<-alist lsp-rust-notification-handlers)
:action-handlers (ht ("rust-analyzer.runSingle" #'lsp-rust--analyzer-run-single))
:library-folders-fn (lambda (_workspace) lsp-rust-library-directories)
:after-open-fn (lambda ()
(when lsp-rust-analyzer-server-display-inlay-hints
(lsp-rust-analyzer-inlay-hints-mode)))
:ignore-messages nil
:server-id 'rust-analyzer-remote)))
Jupyter
(use-package! jupyter
:init
(setq jupyter-eval-use-overlays t)
(map!
:map org-mode-map
:localleader
(:desc "Jupyter Org Hydra" "j" #'jupyter-org-hydra/body))
(defun my/insert-julia-src-block ()
(interactive)
(jupyter-org-insert-src-block t current-prefix-arg))
;; I locally modified jupyter-completion-at-point to check for this,
;; since completions regularly crash the julia kernel for me :/
(setq my/jupyter-enable-completions nil)
;; Better than `M-c C-, j` or `M-c j =`
(key-chord-define-global "jq" #'my/insert-julia-src-block)
(map!
:map julia-mode-map
:localleader
(:prefix ("j" . "jupyter")
:desc "Run REPL" "o" #'jupyter-run-repl
:desc "Eval function" "f" #'jupyter-eval-defun
:desc "Eval buffer" "b" #'jupyter-eval-buffer
:desc "Eval region" "r" #'jupyter-eval-region
:desc "Restart REPL" "R" #'jupyter-repl-restart-kernel
:desc "Interrupt REPL" "i" #'jupyter-repl-interrup-kernel
:desc "Scratch buffer" "s" #'jupyter-repl-scratch-buffer
:desc "Remove overlays" "O" #'jupyter-eval-remove-overlays
:desc "Eval string" "w" #'jupyter-eval-string
:desc "Inspect at point" "d" #'jupyter-inspect-at-point)))
Selectrum etc…
(use-package! selectrum
:config
(selectrum-mode +1)
(setq magit-completing-read-function #'selectrum-completing-read)
(setq selectrum-highlight-candidates-function #'orderless-highlight-matches))
(use-package! orderless
:custom (completion-styles '(orderless)))
(use-package! selectrum-prescient
:after (selectrum)
:config
(setq selectrum-prescient-enable-filtering nil)
(selectrum-prescient-mode +1)
(prescient-persist-mode +1))
(use-package! ctrlf
:init
(ctrlf-mode +1))
Miniframe
(use-package! mini-frame
:init
(mini-frame-mode +1)
(setq resize-mini-frames t)
(setq mini-frame-show-parameters
'((top . 25)
(height . 1)
(width . 0.7)
(left . 0.5)))
;; (dolist (cmd '(consult-line
;; consult-ripgrep))
;; (add-to-list 'mini-frame-ignore-commands cmd))
)
Consult
(use-package! consult
:init
(setq xref-show-xrefs-function #'consult-xref
xref-show-definitions-function #'consult-xref)
(map! :localleader
:map org-mode-map
;; override default binding for org-goto
"." 'consult-outline)
:config
(setq consult-narrow-key "<")
(setq consult-async-split-style 'space)
(autoload 'projectile-project-root "projectile")
(setq consult-project-root-function #'projectile-project-root)
:bind
(;; C-c bindings (mode-specific-map)
("C-c h" . consult-history)
("C-c m" . consult-mode-command)
("C-c b" . consult-bookmark)
("C-c k" . consult-kmacro)
;; C-x bindings (ctl-x-map)
("C-x M-:" . consult-complex-command) ;; orig. repeat-complex-command
("C-x b" . consult-buffer) ;; orig. switch-to-buffer
("C-x 4 b" . consult-buffer-other-window) ;; orig. switch-to-buffer-other-window
("C-x 5 b" . consult-buffer-other-frame) ;; orig. switch-to-buffer-other-frame
;; Custom M-# bindings for fast register access
("M-#" . consult-register-load)
("M-'" . consult-register-store) ;; orig. abbrev-prefix-mark (unrelated)
("C-M-#" . consult-register)
;; Other custom bindings
;; only differs from built-in yank-pop by a preview mechanism
;; binding this way breaks pasting into vterm, must use [remap yank-pop]
;; ("M-y" . consult-yank-pop) ;; orig. yank-pop
("<help> a" . consult-apropos) ;; orig. apropos-command
;; M-g bindings (goto-map)
("M-g e" . consult-compile-error)
("M-g f" . consult-flymake) ;; Alternative: consult-flycheck
("M-g g" . consult-goto-line) ;; orig. goto-line
("M-g M-g" . consult-goto-line) ;; orig. goto-line
("M-g o" . consult-outline) ;; Alternative: consult-org-heading
("M-g m" . consult-mark)
("M-g k" . consult-global-mark)
("M-g i" . consult-imenu)
("M-g I" . consult-project-imenu)
;; M-s bindings (search-map)
("M-s f" . consult-find)
("M-s L" . consult-locate)
("M-s g" . consult-grep)
("M-s G" . consult-git-grep)
("M-s r" . consult-ripgrep)
("M-s l" . consult-line)
("M-s m" . consult-multi-occur)
("M-s k" . consult-keep-lines)
("M-s u" . consult-focus-lines)
;; Isearch integration
("M-s e" . consult-isearch)
:map isearch-mode-map
("M-s e" . consult-isearch) ;; orig. isearch-edit-string
("M-s l" . consult-line)) ;; needed by consult-line to detect isearch
)
(use-package! consult-flycheck
:bind (:map flycheck-command-map
("!" . consult-flycheck)))
(use-package! consult-projectile)
(consult-customize consult-buffer consult-ripgrep
consult-git-grep consult-grep consult-bookmark
consult-recent-file consult-xref consult--source-file
consult--source-project-file consult--source-bookmark
consult-theme
:preview-key
(list (kbd "M-.")
:debounce 0.5 (kbd "<up>") (kbd "<down>")
:debounce 1 'any))
(consult-customize
consult--source-file consult--source-project-file consult--source-bookmark
:preview-key (kbd "M-."))
(add-to-dk-keymap
'(("<SPC>" . consult-ripgrep)
("g" . consult-git-grep)
("h" . consult-projectile)
("i" . consult-imenu)
("l" . consult-locate)
("j" . consult-buffer)))
(global-set-key [remap yank-pop] 'consult-yank-pop)
Embark and Marginalia
(use-package! marginalia
:init (marginalia-mode)
:bind
(("M-A" . marginalia-cycle)
:map minibuffer-local-map
("M-A" . marginalia-cycle)))
(use-package! embark
:bind
(("C-." . embark-act) ;; pick some comfortable binding
("M-<RET>" . embark-dwim) ;; good alternative: M-.
("C-h B" . embark-bindings)) ;; alternative for `describe-bindings'
:init
;; Optionally replace the key help with a completing-read interface
(setq prefix-help-command #'embark-prefix-help-command)
:config
;; Hide the mode line of the Embark live/completions buffers
(add-to-list 'display-buffer-alist
'("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
nil
(window-parameters (mode-line-format . none))))
(setq embark-prompter 'embark-completing-read-prompter)
)
;; Consult users will also want the embark-consult package.
(use-package! embark-consult
:after (embark consult)
:demand t ; only necessary if you have the hook below
;; if you want to have consult previews as you move around an
;; auto-updating embark collect buffer
:hook
(embark-collect-mode . embark-consult-preview-minor-mode))
Dired
(after! dired
(setq dired-listing-switches "-aBhlv --group-directories-first"
dired-dwim-target t
dired-recursive-copies (quote always)
dired-recursive-deletes (quote top)
;; Directly edit permisison bits!
wdired-allow-to-change-permissions t))
(use-package! dired-narrow
:commands (dired-narrow-fuzzy)
:init
(map! :map dired-mode-map
:desc "narrow" "/" #'dired-narrow-fuzzy))
;; Directly edit permission bits!
(setq wdired-allow-to-change-permissions t)
Search Utilities
Better Grep
(use-package! deadgrep)
Scanning occurances within a buffer
This is one of my primary ways of navigating next: jump through other occurances of the text currently under the cursor.
(use-package! smartscan
:init (global-smartscan-mode 1)
:bind (("M-N" . smartscan-symbol-go-forward)
("M-P" . smartscan-symbol-go-backward)
:map smartscan-map
("M-p" . nil)
("M-n" . nil)))
Version Control
Disable version control when using TRAMP to avoid extra delays
(setq vc-ignore-dir-regexp
(format "\\(%s\\)\\|\\(%s\\)"
vc-ignore-dir-regexp
tramp-file-name-regexp))
Magit
Stunningly useful.
(use-package! magit
:config
(set-default 'magit-stage-all-confirm nil)
(set-default 'magit-unstage-all-confirm nil)
(remove-hook 'magit-mode-hook 'turn-on-magit-gitflow)
;; Restores "normal" behavior in branch view (when hitting RET)
(setq magit-visit-ref-behavior '(create-branch checkout-any focus-on-ref))
(setq git-commit-finish-query-functions nil)
(setq magit-visit-ref-create 1)
(setq magit-revision-show-gravatars nil))
(after! (magit key-chord)
(add-to-sl-keymap
'(("k" . magit-dispatch-popup)
("s" . magit-status)
("o" . magit-log)
("u" . magit-submodule-update)
("l" . magit-show-refs-head))))
Searching + Annotating PDFs
pdf-tools
(after! pdf-tools
(map! :map pdf-isearch-minor-mode-map
"C-s" 'isearch-forward-regexp))
Lauching External Programs
(use-package! dmenu)
Window Management
Jumping between windows
Here we set the window labels to homerow keys (they are numbers by default)
Would use the window-select Doom module, but that (unwantedly in EXWM) binds other-window to ace-window.
(use-package! ace-window
:config
(map! "C-M-SPC" #'ace-window)
(setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)))
Avoiding Automatic Horizontal Splits
;; prevents horizontal splits when split-window-sensibly is used
(setq split-width-threshold nil)
Autosave
(use-package! real-auto-save
:hook
(prog-mode . real-auto-save-mode)
(org-mode . real-auto-save-mode))
Google Translate
(use-package! google-translate
:custom
(google-translate-backend-method 'curl)
:config
(defun google-translate--search-tkk () "Search TKK." (list 430675 2721866130))
(setq google-translate-output-destination 'kill-ring))
CamelCase to snake_case conversion
(use-package! string-inflection)
Dotenv
(use-package! dotenv)
(defun my/load-env-file (env-file)
(interactive "f")
(dotenv-update-env (dotenv-load% env-file)))
Logview
(use-package! logview)
wgrep
(use-package! wgrep)
Performance Tweaks
Load Untracked Elisp
(load-file "/home/dan/Work/Worldcoin/emacs/worldcoin-config.el")
(require 'worldcoin-config)
Misc Global Keybindings
(map!
"M-p" (lambda () (interactive) (scroll-down 4))
"M-n" (lambda () (interactive) (scroll-up 4))
"C-h h" 'helpful-at-point
"C-h f" 'helpful-function
"C-h v" 'helpful-variable
"C-h k" 'helpful-key
"M-SPC" 'avy-goto-word-or-subword-1
"C-S-d" 'my/duplicate-line-or-region
"C-c <left>" 'winner-undo
"C-c <right>" 'winner-redo
"C-+" 'text-scale-increase
"C--" 'text-scale-decrease
"C-<f5>" 'my/night-mode
"C-<f6>" 'my/day-mode
"C-z" 'undo-fu-only-undo
"C-S-z" 'undo-fu-only-redo
"C-/" 'undo-fu-only-undo
"C-?" 'undo-fu-only-redo)
;; (global-set-key [remap goto-line] 'goto-line-with-feedback)
;; (global-set-key [remap goto-line] 'goto-line-with-feedback)
** **
Misc
(setq warning-minimum-level :emergency)
(setq isearch-allow-scroll t)
(setq async-shell-command-buffer 'new-buffer)
(flycheck-mode 0)
(setq direnv-always-show-summary nil)
(add-to-list 'auto-mode-alist '("\\.eps\\'" . doc-view-minor-mode))
;; all backup and autosave files in the tmp dir
(setq backup-directory-alist
`((".*" . ,temporary-file-directory)))
(setq auto-save-file-name-transforms
`((".*" ,temporary-file-directory t)))
;; Coordinate between kill ring and system clipboard
(setq save-interprogram-paste-before-kill t)
(setq eshell-history-file-name (concat doom-private-dir "eshell-history"))
;; This is dangerous, but reduces the annoying step of confirming local variable settings each time
;; a file with a "Local Variables" clause (like many Org files) is opened.
(setq enable-local-variables :all)
;; This is usually just annoying
(setq compilation-ask-about-save nil)
;; No confirm on exit
(setq confirm-kill-emacs nil)
;; Alternative to calling save-buffers-kill-emacs, since
;; a) Muscle memory sends me to "kill-emacs" via fj-q-q
;; b) save-buffers-kill-emacs sometimes fails
;; This way, we try to save things, but quit in any case.
(defun my/save-ignore-errors ()
(ignore-errors
(save-some-buffers)))
(add-hook 'kill-emacs-hook 'my/save-ignore-errors)
;; Help out Projectile for remote files via TRAMP
;; https://sideshowcoder.com/2017/10/24/projectile-and-tramp/
(defadvice projectile-on (around exlude-tramp activate)
"This should disable projectile when visiting a remote file"
(unless (--any? (and it (file-remote-p it))
(list
(buffer-file-name)
list-buffers-directory
default-directory
dired-directory))
mad-do-it))
(setq projectile-mode-line "Projectile")
(setq password-store-password-length 20)
;; Truncate compiilation buffers, otherwise Emacs gets slow
;; https://stackoverflow.com/questions/11239201/can-i-limit-the-length-of-the-compilation-buffer-in-emacs
(add-hook 'compilation-filter-hook 'comint-truncate-buffer)
(setq comint-buffer-maximum-size 2000)
(setq recentf-max-saved-items 10000)
(after! vterm
(setq vterm-buffer-name-string "vterm: %s")
(setq vterm-copy-exclude-prompt t))
Utility functions.
;;; ~/.doom.d/funcs.el -*- lexical-binding: t; -*-
(defun my/open-literate-private-config-file ()
"Open the private config.org file."
(interactive)
(find-file (expand-file-name "config.org" doom-private-dir)))
(defun my/rot13-and-kill-region ()
(interactive)
(kill-new (rot13
(buffer-substring (region-beginning) (region-end)))))
(defun my/org-export-subtree-as-markdown-and-copy ()
(interactive)
(save-window-excursion
(let ((export-buffer (org-md-export-as-markdown nil t nil)))
(with-current-buffer export-buffer
(clipboard-kill-ring-save (point-min) (point-max)))
(kill-buffer export-buffer))))
(defun goto-line-with-feedback ()
"Show line numbers temporarily, while prompting for the line number input"
(interactive)
(unwind-protect
(progn
(linum-mode 1)
(call-interactively 'goto-line))
(linum-mode -1)))
(defun split-window-horizontally-and-switch ()
(interactive)
(split-window-horizontally)
(other-window 1))
(defun split-window-vertically-and-switch ()
(interactive)
(split-window-vertically)
(other-window 1))
(defun my-increment-number-decimal
(&optional
arg)
"Increment the number forward from point by 'arg'."
(interactive "p*")
(save-excursion
(save-match-data
(let (inc-by field-width answer)
(setq inc-by
(if arg
arg
1))
(skip-chars-backward "0123456789")
(when (re-search-forward "[0-9]+" nil t)
(setq field-width (- (match-end 0)
(match-beginning 0)))
(setq answer (+ (string-to-number (match-string 0) 10) inc-by))
(when (< answer 0)
(setq answer (+ (expt 10 field-width) answer)))
(replace-match (format (concat "%0" (int-to-string field-width) "d") answer)))))))
(defun rev-other-window ()
(interactive)
(other-window -1))
(defun eshell-here ()
"Opens up a new shell in the directory associated with the
current buffer's file. The eshell is renamed to match that
directory to make multiple eshell windows easier."
(interactive)
(let* ((parent (if (buffer-file-name)
(file-name-directory (buffer-file-name))
default-directory))
(name (car (last (split-string parent "/" t)))))
(eshell "new")
(rename-buffer (concat "*eshell: " name "*"))
(insert (concat "ls"))
(eshell-send-input)))
;; https://www.emacswiki.org/emacs/CopyingWholeLines
(defun my/duplicate-line-or-region (&optional n)
"Duplicate current line, or region if active.
With argument N, make N copies.
With negative N, comment out original line and use the absolute value."
(interactive "*p")
(let ((use-region (use-region-p)))
(save-excursion
(let ((text (if use-region ; Get region if active, otherwise line
(buffer-substring (region-beginning) (region-end))
(prog1 (thing-at-point 'line)
(end-of-line)
(if (< 0 (forward-line 1)) ; Go to beginning of next line, or make a new one
(newline))))))
(dotimes (i (abs (or n 1))) ; Insert N times, or once if not specified
(insert text))))
(if use-region nil ; Only if we're working with a line (not a region)
(let ((pos (- (point) (line-beginning-position)))) ; Save column
(if (> 0 n) ; Comment out original with negative arg
(comment-region (line-beginning-position) (line-end-position)))
(forward-line 1)
(forward-char pos)))))
(defun my/org-ref-noter-link-from-arxiv (arxiv-number)
"Retrieve a pdf for ARXIV-NUMBER and save it to the default PDF dir.
Then, add a bibtex entry for the new file in the default bib
file. Then, create a new org-ref note heading for it (see
org-ref-create-notes-hook in packages.el to see it also creates
a property for org-noter). Finally, insert a descriptive link to
the note heading at point, using the paper title as the link
text.
"
(interactive "sarxiv number: ")
(let ((bibtex-dialect 'BibTeX))
(org-ref-save-all-bibtex-buffers)
(save-window-excursion
(arxiv-get-pdf-add-bibtex-entry arxiv-number
(car org-ref-default-bibliography)
org-ref-pdf-directory)
(org-ref-save-all-bibtex-buffers))
(let* ((parsed-entry (save-excursion
(with-temp-buffer
;; In case of dir-local path to references.bib
(hack-dir-local-variables-non-file-buffer)
(insert-file-contents (car org-ref-default-bibliography))
(bibtex-set-dialect (parsebib-find-bibtex-dialect) t)
(search-forward (format "{%s}" arxiv-number))
(bibtex-narrow-to-entry)
(bibtex-beginning-of-entry)
(bibtex-parse-entry)))))
(org-insert-heading)
(let* ((raw-ref-title (cdr (assoc "title" parsed-entry)))
(ref-title (s-replace-regexp (rx (sequence "\n" (+ space))) " "
(car (cdr (s-match (rx "{" (group (+ anything)) "}") raw-ref-title)))))
(ref-key (cdr (assoc "=key=" parsed-entry))))
(insert ref-title)
(insert "\n\n")
(insert (format "cite:%s" ref-key))))))
(defun my/night-mode ()
(interactive)
(load-theme 'doom-dark+ t)
(doom/reload-theme)
(my/set-brightness 30)
(my/set-redshift 1500))
(defun my/day-mode ()
(interactive)
(load-theme 'doom-nord-light t)
(doom/reload-theme)
(my/set-brightness 100)
(my/set-redshift 5500))
(defun narrow-or-widen-dwim (p)
"If the buffer is narrowed, it widens. Otherwise, it narrows intelligently.
Intelligently means: region, subtree, or defun, whichever applies
first.
With prefix P, don't widen, just narrow even if buffer is already
narrowed."
(interactive "P")
(declare (interactive-only))
(cond ((and (buffer-narrowed-p) (not p)) (widen))
((region-active-p)
(narrow-to-region (region-beginning) (region-end)))
((derived-mode-p 'org-mode) (org-narrow-to-subtree))
(t (narrow-to-defun))))
;; https://stackoverflow.com/questions/28727190/org-babel-tangle-only-one-code-block
(defun my/org-babel-tangle-block()
(interactive)
(let ((current-prefix-arg '(4)))
(call-interactively 'org-babel-tangle)))
(defun my/open-org-files-list ()
(delq nil
(mapcar (lambda (buffer)
(buffer-file-name buffer))
(org-buffer-list 'files t))))
(defun my/org-latex-toggle-recent ()
(when (looking-back (rx "$ "))
(save-excursion
(backward-char 1)
(org-toggle-latex-fragment))))
(add-hook 'org-mode-hook
(lambda ()
(org-cdlatex-mode)
(add-hook 'post-self-insert-hook #'my/org-latex-toggle-recent 'append 'local)))
(defun my/save-shebanged-file-as-executable ()
(and (save-excursion
(save-restriction
(widen)
(goto-char (point-min))
(save-match-data
(looking-at "^#!"))))
(not (file-executable-p buffer-file-name))
(shell-command (concat "chmod +x " buffer-file-name))
(message
(concat "Saved as script: " buffer-file-name))))
(add-hook 'after-save-hook #'my/save-shebanged-file-as-executable)
;; https://llazarek.com/2018/10/images-in-org-mode.html
(defun my/org-link-file-path-at-point ()
"Get the path of the file referred to by the link at point."
(let* ((org-element (org-element-context))
(is-subscript-p (equal (org-element-type org-element) 'subscript))
(is-link-p (equal (org-element-type org-element) 'link))
(is-file-p (equal (org-element-property :type org-element) "file")))
(when is-subscript-p
(user-error "Org thinks you're in a subscript. Move the point and try again."))
(unless (and is-link-p is-file-p)
(user-error "Not on file link"))
(expand-file-name (org-element-property :path org-element))))
(defun my/org-resize-image-at-point (&optional arg)
"Resize the image linked at point."
(interactive)
(let ((img (my/org-link-file-path-at-point))
(percent (read-number "Resize to what percentage of current size? ")))
(start-process "mogrify" nil "/usr/bin/mogrify"
"-resize"
(format "%s%%" percent)
img)))
(defun my/run-in-fresh-compilation (cmd dir)
(defun local-compile-buffer-namer (ignored)
(generate-new-buffer-name cmd))
(let* ((compilation-buffer-name-function #'local-compile-buffer-namer)
(compilation-ask-about-save nil)
(default-directory (if dir dir default-directory)))
(compile cmd)))
(defun my/publish-dangirsh.org ()
(interactive)
(let ((neurosys-org-file "/home/dan/repos/dangirsh.org/site/projects/neurosys.org")
(doom-org-file "/home/dan/repos/dangirsh.org/site/projects/doom-config.org"))
;; Hack: copy in the files - had issues hardlinking it.
(copy-file (concat neurosys/base-dir "README.org") neurosys-org-file t)
(copy-file (concat doom-private-dir "config.org") doom-org-file t)
(my/run-in-fresh-compilation "./publi.sh" "/home/dan/repos/dangirsh.org/")))
(defun my/org-roam-get-title (path)
(save-window-excursion
;; A simple find-file didn't work when the original was narrowed
(with-temp-buffer
(insert-file-contents path)
(org-mode)
(car (org-roam--extract-titles-title)))))
(defun my/set-timezone ()
(interactive)
(shell-command "sudo timedatectl set-timezone America/Los_Angeles")
;; (shell-command "sudo timedatectl set-timezone America/New_York")
;; (shell-command "sudo timedatectl set-timezone Europe/Paris")
;; ;; (shell-command "sudo timedatectl set-timezone Europe/Berlin")
)
;; (my/set-timezone)
(defun my/insert-jupyter-python-block ()
(interactive)
(org-insert-structure-template "src jupyter-python"))
;; https://emacs.stackexchange.com/questions/10091/sentence-in-text-is-read-only-even-though-the-buffer-is-not-how-to-fix-this/10093#10093
(defun my/set-region-read-only (begin end)
"Sets the read-only text property on the marked region.
Use `set-region-writeable' to remove this property."
;; See https://stackoverflow.com/questions/7410125
(interactive "r")
(with-silent-modifications
(put-text-property begin end 'read-only t)))
(defun my/set-region-writeable (begin end)
"Removes the read-only text property from the marked region.
Use `set-region-read-only' to set this property."
;; See https://stackoverflow.com/questions/7410125
(interactive "r")
(with-silent-modifications
(remove-text-properties begin end '(read-only t))))
(defun my/get-yubikey-token ()
"Expects ykman to be installed."
(interactive)
(with-temp-buffer
(message "Touch Yubikey!")
(call-process-region (point-min) (point-max) "ykman" t t nil "oath" "code" "yubi")
(let* ((output (buffer-string))
(cells (split-string output)))
(car (last cells)))))
(defun my/copy-yubikey-token ()
(interactive)
(kill-new (format "%s" (my/get-yubikey-token))))
;; https://www.reddit.com/r/emacs/comments/ft84xy/run_shell_command_in_new_vterm/
(defun my/run-in-vterm-kill (process event)
"A process sentinel. Kills PROCESS's buffer if it is live."
(let ((b (process-buffer process)))
(and (buffer-live-p b)
(kill-buffer b))))
;; https://www.reddit.com/r/emacs/comments/ft84xy/run_shell_command_in_new_vterm/
(defun my/run-in-vterm (command)
"Execute string COMMAND in a new vterm.
Interactively, prompt for COMMAND with the current buffer's file
name supplied.
Like `async-shell-command`, but run in a vterm for full terminal features.
The new vterm buffer is named in the form `*foo bar.baz*`, the
command and its arguments in earmuffs.
When the command terminates, the shell remains open, but when the
shell exits, the buffer is killed."
(interactive)
(with-current-buffer (vterm (concat "*" command "*"))
(set-process-sentinel vterm--process #'my/run-in-vterm-kill)
(vterm-send-string command)
(vterm-send-return)))
Resume
(defun my/edit-resume ()
(interactive)
(find-file "~/Sync/resume/resume.tex"))
Org
(defun my/org-split-block ()
"Sensibly split the current Org block at point."
(interactive)
(if (my/org-in-any-block-p)
(save-match-data
(save-restriction
(widen)
(let ((case-fold-search t)
(at-bol (bolp))
block-start
block-end)
(save-excursion
(re-search-backward "^\\(?1:[[:blank:]]*#\\+begin_.+?\\)\\(?: .*\\)*$" nil nil 1)
(setq block-start (match-string-no-properties 0))
(setq block-end (replace-regexp-in-string
"begin_" "end_" ;Replaces "begin_" with "end_", "BEGIN_" with "END_"
(match-string-no-properties 1))))
;; Go to the end of current line, if not at the BOL
(unless at-bol
(end-of-line 1))
(insert (concat (if at-bol "" "\n")
block-end
"\n\n"
block-start
(if at-bol "\n" "")))
;; Go to the line before the inserted "#+begin_ .." line
(beginning-of-line (if at-bol -1 0)))))
(message "Point is not in an Org block")))
(defun my/org-in-any-block-p ()
"Return non-nil if the point is in any Org block.
The Org block can be *any*: src, example, verse, etc., even any
Org Special block.
This function is heavily adapted from `org-between-regexps-p'."
(save-match-data
(let ((pos (point))
(case-fold-search t)
(block-begin-re "^[[:blank:]]*#\\+begin_\\(?1:.+?\\)\\(?: .*\\)*$")
(limit-up (save-excursion (outline-previous-heading)))
(limit-down (save-excursion (outline-next-heading)))
beg end)
(save-excursion
;; Point is on a block when on BLOCK-BEGIN-RE or if
;; BLOCK-BEGIN-RE can be found before it...
(and (or (org-in-regexp block-begin-re)
(re-search-backward block-begin-re limit-up :noerror))
(setq beg (match-beginning 0))
;; ... and BLOCK-END-RE after it...
(let ((block-end-re (concat "^[[:blank:]]*#\\+end_"
(match-string-no-properties 1)
"\\( .*\\)*$")))
(goto-char (match-end 0))
(re-search-forward block-end-re limit-down :noerror))
(> (setq end (match-end 0)) pos)
;; ... without another BLOCK-BEGIN-RE in-between.
(goto-char (match-beginning 0))
(not (re-search-backward block-begin-re (1+ beg) :noerror))
;; Return value.
(cons beg end))))))
(defun my/org-meta-return (&optional arg)
"Insert a new heading or wrap a region in a table.
Calls `org-insert-heading', `org-insert-item',
`org-table-wrap-region', or `my/org-split-block' depending on
context. When called with an argument, unconditionally call
`org-insert-heading'."
(interactive "P")
(org-check-before-invisible-edit 'insert)
(or (run-hook-with-args-until-success 'org-metareturn-hook)
(call-interactively (cond (arg #'org-insert-heading)
((org-at-table-p) #'org-table-wrap-region)
((org-in-item-p) #'org-insert-item)
((my/org-in-any-block-p) #'my/org-split-block)
(t #'org-insert-heading)))))
;; https://emacs.stackexchange.com/questions/50649/jumping-from-a-source-block-to-the-tangled-file
(defun my/org-babel-tangle-jump ()
"Jump to tangle file for the source block at point."
(interactive)
(let (file org-babel-pre-tangle-hook org-babel-post-tangle-hook)
(cl-letf (((symbol-function 'write-region) (lambda (start end filename &rest _ignore)
(setq file filename)))
((symbol-function 'delete-file) #'ignore))
(org-babel-tangle '(4)))
(when file
(setq file (expand-file-name file))
(if (file-readable-p file)
(find-file file)
(error "Cannot open tangle file %S" file)))))
;; https://sachachua.com/blog/2019/07/tweaking-emacs-on-android-via-termux-xclip-xdg-open-syncthing-conflicts/
(defun my/org-archive-done-tasks (&optional scope)
"Archive finished or cancelled tasks.
SCOPE can be 'file or 'tree."
(interactive)
(beginning-of-buffer)
(org-map-entries
(lambda ()
(org-archive-subtree)
(setq org-map-continue-from (outline-previous-heading)))
"TODO=\"DONE\"|TODO=\"CANCELLED\"" (or scope (if (org-before-first-heading-p) 'file 'tree))))
(defun my/org-jupyter-execute-subtree-by-id (id)
(save-window-excursion
(org-id-goto id)
(save-excursion
(org-narrow-to-subtree)
(end-of-buffer)
(jupyter-org-execute-to-point nil)
(widen))))
Neurosys Module
Elisp related to my neurosys.
Globals
(setq neurosys/base-dir "/home/dan/repos/neurosys/")
Helpers
Deployment
(defun neurosys/deploy-to-host (host host-home-raw)
(interactive "sHost: \nsHost home: ")
(let ((host-root (format "/ssh:%s:/" host))
;; mind the trailing slash, since we're passing it to rsync
(host-home (file-name-as-directory host-home-raw)))
(save-window-excursion
(org-babel-tangle)
(my/run-in-fresh-compilation
(format (concat neurosys/base-dir "rsync.sh %s %s") host host-home))
;; TODO: Is there cleaner way to compile over TRAMP?
(find-file host-root)
(compile "nixos-rebuild switch --show-trace")))
(switch-to-buffer-other-window "*compilation*"))
(defun neurosys/deploy-to-nixos-dev ()
(interactive)
(neurosys/deploy-to-host "root@nixos-dev" "/home/dan/"))
Upgrading [0/2]
- [ ] Update channels with
nix-channel --update
- [ ] Rebuild packages with
nixos-rebuild switch
NOTE: These can be combined with nixos-rebuild switch --update
Misc
(defun neurosys/open-config-file ()
(interactive)
(find-file (concat neurosys/base-dir "README.org")))
Keybindings
(map!
:leader
:prefix ("j" . "neurosys")
:desc "deploy" "D" #'neurosys/deploy-to-host
:desc "deploy to nixos-dev" "d" #'neurosys/deploy-to-nixos-dev)
Package declarations
Any desired package not declared in a Doom module must be declared here. This seems redundant given the corresponding use-package!
declarations, but required by Doom (presumably for lazy loading).
;; -*- no-byte-compile: t; -*-
;;; $DOOMDIR/packages.el
(package! ace-window)
(package! aggressive-indent)
;; (package! burly :recipe (:host github :repo "alphapapa/burly.el"))
;; (package! company-posframe)
;; (package! dap-mode)
(package! deadgrep)
(package! dired-narrow)
(package! dmenu)
(package! dotenv :recipe (:host github :repo "pkulev/dotenv.el"))
(package! elegant-agenda-mode :recipe (:host github :repo "justinbarclay/elegant-agenda-mode"))
;; (package! evxcr-mode :recipe (:host github :repo "serialdev/evcxr-mode"))
(package! google-this)
(package! google-translate)
(package! helpful)
;; (package! jest)
(package! key-chord)
;; (package! mathpix :recipe (:host github :repo "jethrokuan/mathpix"))
;; (package! nano-emacs
;; :recipe (:host github :repo "rougier/nano-emacs"))
(package! org-cliplink)
(package! org-download)
(package! org-drill)
;; (package! org-gcal)
(package! org-noter)
(package! org-recoll :recipe (:host github :repo "alraban/org-recoll"))
;; (package! org-ref)
(package! org-roam :recipe (:host github :repo "jethrokuan/org-roam"))
;; (package! org-roam-bibtex)
(package! org-roam-server)
(package! org-super-agenda)
(package! org-transclusion :recipe (:host github :repo "nobiot/org-transclusion"))
(package! phi-search)
(package! ob-rust)
(package! real-auto-save)
(package! smartscan)
(package! string-inflection)
(package! toc-org)
(package! undo-tree)
(package! wrap-region)
;; (package! almost-mono-themes)
(package! selectrum)
(package! orderless)
(package! selectrum-prescient)
(package! ctrlf)
(package! mini-frame)
(package! consult)
(package! consult-flycheck)
(package! consult-projectile :recipe (:host gitlab :repo "OlMon/consult-projectile"))
(package! marginalia)
(package! embark)
(package! embark-consult)
(package! logview)
(package! wgrep)
;; Julia
;; (package! julia-mode :pin "1c122f1dff")
;; (package! julia-snail)
;; ;; Use the branch that supports the vterm backend
;; ;; https://github.com/tpapp/julia-repl/pull/84
;; (package! julia-repl
;; :recipe (:host github :repo "tpapp/julia-repl"))
;; (package! julia-formatter
;; :recipe (:host github :repo "ki-chi/julia-formatter"))
;; (package! eglot-jl)
Future
- [ ] GitHub - takaxp/org-tree-slide: A presentation tool for org-mode based on the…
- [ ] GitHub - minad/bookmark-view: bookmark-view.el - Use bookmarks to persist the…
- [ ] jao/consult-recoll: recoll queries in emacs using consult - consult-recoll - …
- [ ] GitHub - gagbo/consult-lsp: LSP-mode and consult.el helping each other
- [ ] look through GNU Emacs integrated computing environment | Protesilaos Stavrou