36 KiB
Doom Emacs Configuration
- Document Structure
- Doom Configuration
- Content Stolen From
- Footnotes
I'll fill out the how and why of this all as I figure out what the hell I'm doing. My current Emacs Configuration is a mess of copy and pasted snippet loosely grouped together. There's a fair number of work around, to transient configuration issues that now no longer exist, and more of stuff cribbed off StackOverflow & held together with string & bubble gum. While not yet calling Configuration Bankrupt's, I am going to try to see if I can restructure this technical debt.
This Emacs configuration is written using the Literate Programming (sort of) paradigm (well sort of) proposed by Donald Knuth in 1984, and uses Hlissner's awesome Doom Emacs configuration framework.
While I like Literate Programming, I kind of think that literate configuration is largely a mixed bag. Literate Programming produces often more words then code. For even medium size configurations discoverability & readability of what is happening can be bogged down in the weight of prose explaining the backstory, current thought, moral pondering, pros & cons, and deciding thoughts. This extra cruft potentially makes understanding more through, but at cost of readability & readability is king. As a compromise I'm going to version both to the verbose config.org file and all of the produced configuration files. As an example about that verbosity mentioned prior this entire paragraph could have been skipped.
Document Structure
This section will be the what & how of things. There will no directly tangled code in this section.
Doom Emacs
This is built on top of Hlissner's awesome Doom Emacs configuration frameworks. Configuration is divided into 150 modules, & fair number of convenience functions. Rather than detailing stuff about I'll say to go read FAQs & Index.
Configuration is located in the DOOMDIR directory. This is default value is located is the $HOME/.doom.d directory. Typically this directory contains:
-
init.el - Enabled Doom Modules
-
config.el - General Emacs configuration
-
package.el - Packages to fetch from MELPA, Github, etc.
Additional configuration for scoped functionality will be named as +name.el.
Tangle
This org-mode document works by using tangles. By default Doom's literate config mode adds any #+begin_src blocks into the config.el file1. If you want to tangle to a specific file you pass in a file name.
#+begin_src emacs-lisp :tangle "example.el"
or to disable it tangling for a codeblock set the :tangle property in code block header to no.
#+begin_src orgmode :tangle noNoweb Reference
This document uses noweb reference syntax. This allows us to extract bits of configuration into named codeblocks, which can be interpolated into another code block's variable. For example:
#+NAME: initialization #+BEGIN_SRC emacs-lisp (setq sentence "Never a foot too far, even.") #+END_SRC #+BEGIN_SRC emacs-lisp :noweb yes (reverse sentence) #+END_SRC
will produce
#+BEGIN_SRC emacs-lisp :noweb yes (setq sentence "Never a foot too far, even.") (reverse sentence) #+END_SRC
NOTE: unless you explicitly turn off the named code block will be tangled into config.el. Use the no tangle option if you want to disable this.
Doom Configuration
Configuration
Lexical Bindings
There minor but non-zero start time benefits for using Lexical Bindings comments. All files created should start with
;;; config.el -*- lexical-binding: t; -*-
replace config.el with the filename being loaded.
packages.el
Also go a head and add this to the packages.el
;;; packages.el -*- lexical-binding: t; -*-
Warn user to modify *.el files directly.
#+name:modification-warning
;;; This file is generated via tangles from the config.org file. Do not modify this file.
;;; Any modifications here will be clobbered and versioned over. Seriously just don't.
Speedup whichkey response
whichkey is slow to respond, lets make it a bit faster.
(setq which-key-idle-delay 0.1)Window Titlebar
The titlebar display string will display ♢ if there exist unsaved buffer modifications & ♦ otherwise.
(setq doom-fallback-buffer-name "Doom"
+doom-dashboard-name "Doom Dashboard")
(setq frame-title-format
'(""
(:eval
(if (s-contains-p org-roam-directory (or buffer-file-name ""))
(replace-regexp-in-string
".*/[0-9]*-?" "☰ "
(subst-char-in-string ?_ ? buffer-file-name))
"%b"))
(:eval
(let ((project-name (projectile-project-name)))
(unless (string= "-" project-name)
(format (if (buffer-modified-p) " ♢ %s" " ♦ %s") project-name))))))Fonts
Tridactyl
I am currently using Firefox with Tridactyl. The editorcmd creates a temporary file & opens it with the editor of choice. The domain is included in the temporary file name. We can use this to set the syntax of the file in question. This likely just be markdown.
(add-to-list 'auto-mode-alist '("/\\(tmp\\|private/var\\)/.*/tmp_redmine.greenfiling.com.*\\.txt" . markdown-mode))Doom Modules
The configuration is below is pulled from the template init.example.el provided by doom. This one is based off commit e966249.
;;; init.el -*- lexical-binding: t; -*-
<<modification-warning>>
;; This file controls what Doom modules are enabled and what order they load
;; in. Remember to run 'doom sync' after modifying it!
;; NOTE Press 'SPC h d h' (or 'C-h d h' for non-vim users) to access Doom's
;; documentation. There you'll find a link to Doom's Module Index where all
;; of our modules are listed, including what flags they support.
;; NOTE Move your cursor over a module's name (or its flags) and press 'K' (or
;; 'C-c c k' for non-vim users) to view its documentation. This works on
;; flags as well (those symbols that start with a plus).
;;
;; Alternatively, press 'gd' (or 'C-c c d') on a module to browse its
;; directory (for easy access to its source code).
(doom! :completion
<<doom-completion>>
:ui
<<doom-ui>>
:editor
<<doom-editor>>
:emacs
<<doom-emacs>>
:term
<<doom-term>>
:checkers
<<doom-checker>>
:tools
<<doom-tools>>
:os
(:if IS-MAC macos) ; improve compatibility with macOS
:lang
<<doom-lang>>
:email
<<doom-email>>
:app
<<doom-app>>
:config
<<doom-config>>
)The code of these can be found in the modeules directory, the read me for each module will list any additional configuration options.
Completion
https://github.com/doomemacs/doomemacs/tree/master/modules/completion
#+name:doom-completion
(company ; the ultimate code completion backend
+childframe ; not quite a window & not quite a frame
; +tng ; Use tab instead of ctrl+space
)
;;helm ; the *other* search engine for love and lifes
;;ido ; the other *other* search engine...
;;ivy ; a search engine for love and life
(vertico ; the search engine of the future
+icons ; make a little prettier
)
+childframe exists for both company & vertico, but looks a little weird with Vertico. We have for gone it for the time being.
UI
https://github.com/doomemacs/doomemacs/tree/master/modules/ui
#+name:doom-ui
;;deft ; notational velocity for Emacs
doom ; what makes DOOM look the way it does
doom-dashboard ; a nifty splash screen for Emacs
doom-quit ; DOOM quit-message prompts when you quit Emacs
;;(emoji +unicode) ; 🙂
hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
;;hydra
;;indent-guides ; highlighted indent columns
;;ligatures ; ligatures and symbols to make your code pretty again
;;minimap ; show a map of the code on the side
modeline ; snazzy, Atom-inspired modeline, plus API
nav-flash ; blink cursor line after big motions
neotree ; a project drawer, like NERDTree for vim
ophints ; highlight the region an operation acts on
(popup +defaults) ; tame sudden yet inevitable temporary windows
;;tabs ; a tab bar for Emacs
(treemacs ; a project drawer, like neotree but cooler
+lsp)
;;unicode ; extended unicode support for various languages
(vc-gutter +pretty) ; vcs diff in the fringe
vi-tilde-fringe ; fringe tildes to mark beyond EOB
;;window-select ; visually switch windows
workspaces ; tab emulation, persistence & separate workspaces
zen ; distraction-free coding or writingFancy Welcome Image
Rather than the boring ascii doom logo. Lets some the one off the box art. This is enabled by the doom-dashboard module.
#+CAPTION:Doom Welcome Icon
(setq fancy-splash-image (concat doom-user-dir "./.resources/doom.png"))Editor
https://github.com/doomemacs/doomemacs/tree/master/modules/editor
#+name:doom-editor
(evil +everywhere); come to the dark side, we have cookies
file-templates ; auto-snippets for empty files
fold ; (nigh) universal code folding
(format +onsave) ; automated prettiness
;;god ; run Emacs commands without modifier keys
;;lispy ; vim for lisp, for people who don't like vim
multiple-cursors ; editing in many places at once
;;objed ; text object editing for the innocent
;;parinfer ; turn lisp into python, sort of
rotate-text ; cycle region at point between text candidates
snippets ; my elves. They type so I don't have to
;;word-wrap ; soft wrapping with language-aware indentEmacs
https://github.com/doomemacs/doomemacs/tree/master/modules/emacs #+name:doom-emacs
dired ; making dired pretty [functional]
electric ; smarter, keyword-based electric-indent
(ibuffer +icons) ; interactive buffer management
(undo +tree) ; persistent, smarter undo for your inevitable mistakes
vc ; version-control and Emacs, sitting in a treeTerm
https://github.com/doomemacs/doomemacs/tree/master/modules/term
#+name:doom-term
;;eshell ; the elisp shell that works everywhere
;;shell ; simple shell REPL for Emacs
;;term ; basic terminal emulator for Emacs
vterm ; the best terminal emulation in EmacsVterm is great. It does require some additional configuration to work properly. See relavant doc for more.
Checker
https://github.com/doomemacs/doomemacs/tree/master/modules/checker
#+name:doom-checker
(syntax +childframe) ; tasing you for every semicolon you forget
(spell ; tasing you for misspelling mispelling
+aspell
+everywhere)
grammar ; tasing grammar mistake every you makeCustom Dictionary
(setq ispell-dictionary "en"
ispell-personal-dictionary "~/org/.ispell.en.pws")Tools
https://github.com/doomemacs/doomemacs/tree/master/modules/tools
#+name:doom-tools
;;ansible
;;biblio ; Writes a PhD for you (citation needed)
(debugger +lsp) ; FIXME stepping through code, to help you add bugs
;;direnv
;;docker
;;editorconfig ; let someone else argue about tabs vs spaces
;;ein ; tame Jupyter notebooks with emacs
(eval +overlay) ; run code, run (also, repls)
;;gist ; interacting with github gists
(lookup ; navigate your code and its documentation
+dictionary
+docset
+offline)
(lsp +peek) ; M-x vscode
(magit +forge) ; a git porcelain for Emacs
;;make ; run make tasks from Emacs
;;pass ; password manager for nerds
;;pdf ; pdf enhancements
;;prodigy ; FIXME managing external services & code builders
;;rgb ; creating color strings
taskrunner ; taskrunner for all your projects
;;terraform ; infrastructure as code
;;tmux ; an API for interacting with tmux
tree-sitter ; syntax and parsing, sitting in a tree...
;;upload ; map local to remote projects via ssh/ftp
NOTE: :leader r is currently being used by roam. See Roam Keybinds. This conflicts with the upload module. If you wish to use this module in the future you will need to updated one of the keybinds to not conflict.
Magit Forge Support
For use with Github this requires the creation of a Github Token (see here). This will need to be appended to your ~/.authinfo.gpg file using the format below2.
machine api.github.com login yourlogin^code-review password MYTOKENGOESHEREFor more on Forge see Magit's Forge documentation.
Language
https://github.com/doomemacs/doomemacs/tree/master/modules/lang
#+name:doom-lang
;;agda ; types of types of types of types...
;;beancount ; mind the GAAP
;;(cc +lsp) ; C > C++ == 1
;;clojure ; java with a lisp
;;common-lisp ; if you've seen one lisp, you've seen them all
;;coq ; proofs-as-programs
;;crystal ; ruby at the speed of c
;;csharp ; unity, .NET, and mono shenanigans
data ; config/data formats
;;(dart +flutter) ; paint ui and not much else
;;dhall
;;elixir ; erlang done right
;;elm ; care for a cup of TEA?
emacs-lisp ; drown in parentheses
;;erlang ; an elegant language for a more civilized age
;;ess ; emacs speaks statistics
;;factor
;;faust ; dsp, but you get to keep your soul
;;fortran ; in FORTRAN, GOD is REAL (unless declared INTEGER)
;;fsharp ; ML stands for Microsoft's Language
;;fstar ; (dependent) types and (monadic) effects and Z3
;;gdscript ; the language you waited for
(go ; the hipster dialect
+lsp
+tree-sitter)
;;(graphql +lsp) ; Give queries a REST
;;(haskell +lsp) ; a language that's lazier than I am
;;hy ; readability of scheme w/ speed of python
;;idris ; a language you can depend on
(json ; At least it ain't XML
+lsp
+tree-sitter)
;;(java +lsp) ; the poster child for carpal tunnel syndrome
(javascript ; all(hope(abandon(ye(who(enter(here))))))
+lsp
+tree-sitter)
;;julia ; a better, faster MATLAB
;;kotlin ; a better, slicker Java(Script)
;;latex ; writing papers in Emacs has never been so fun
;;lean ; for folks with too much to prove
;;ledger ; be audit you can be
;;lua ; one-based indices? one-based indices
markdown ; writing docs for people to ignore
;;nim ; python + lisp at the speed of c
(nix ; I hereby declare "nix geht mehr!"
+tree-sitter)
;;ocaml ; an objective camel
(org ; organize your plain life in plain text
+dragndrop
+journal
+pandoc
+pomodoro
+pretty
+roam2)
;;php ; perl's insecure younger brother
;;plantuml ; diagrams for confusing people more
;;purescript ; javascript, but functional
(python ; beautiful is better than ugly
+lsp
+poetry
+tree-sitter)
;;qt ; the 'cutest' gui framework ever
;;racket ; a DSL for DSLs
;;raku ; the artist formerly known as perl6
;;rest ; Emacs as a REST client
;;rst ; ReST in peace
;;(ruby +rails) ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"}
;;(rust +lsp) ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
;;scala ; java, but good
;;(scheme +guile) ; a fully conniving family of lisps
(sh ; she sells {ba,z,fi}sh shells on the C xor
+lsp
+tree-sitter)
;;sml
;;solidity ; do you need a blockchain? No.
;;swift ; who asked for emoji variables?
;;terra ; Earth and Moon in alignment for performance.
(web ; the tubes
+lsp
+tree-sitter)
(yaml +lsp) ; JSON, but readable
;;zig ; C, but simplerEmails
https://github.com/doomemacs/doomemacs/tree/master/modules/email
#+name:doom-email
(mu4e +org)
;;notmuch
;;(wanderlust +gmail)App
https://github.com/doomemacs/doomemacs/tree/master/modules/app
#+name:doom-app
;;calendar
;;emms
;;everywhere ; *leave* Emacs!? You must be joking
;;irc ; how neckbeards socialize
;;(rss +org) ; emacs as an RSS reader
;;twitter ; twitter client https://twitter.com/vnoughtConfig
https://github.com/doomemacs/doomemacs/tree/master/modules/config
#+name:doom-config
literate
(default +bindings +smartparens)Additional Keybinds
Keybinds custom keybinds can be located at $DOOMDIR/+keybinds.el.
(load! "+keybinds")Doom comes with some good keybind macros (see here for why). Documentation for this can be found here, but in broad strokes:
- Start with a
map!macro. You can use - When possible use
:whento limit scope. - Use
:prefixand:prefix-mapwhere possible. - Always use
:descto describe what is being done.
Below is a sample snippet from Rameez Khan's blog (first hit on "doom emacs keybind" using DDG):
(map! :leader
(:prefix-map ("a" . "applications")
(:prefix ("j" . "journal")
:desc "New journal entry" "j" #'org-journal-new-entry
:desc "Search journal entry" "s" #'org-journal-search)))Add the lexical bindings magic comment
;;; +keybinds.el -*- lexical-binding: t; -*-Modification warning message.
<<modification-warning>>Local Leader
Lets set the local leader to ,. We may want to remap this to ; later. Both of these seem to have issues with potential key conflicts with evil-snipe. This seems to primarily exists with regards to org-mode. Github issue can be found here.
(setq doom-localleader-key ",")Roam Keybinds
The standard keybind for getting to Roam's daily capture is pretty long. To capture a Log entry I have to type SPC n r d T l. I want to capture as many logs and goals as possible, so lets shorten this up some.
(map! :leader
(:when (modulep! :lang org +roam2)
(:prefix-map ("r" . "roam")
:desc "Find node" "/" #'org-roam-node-find
:desc "Capture to node" "n" #'org-roam-capture
:desc "Capture Today" "c" #'org-roam-dailies-capture-today
:desc "Goto Today" "t" #'org-roam-dailies-goto-today
)
)
)
:leader r is used by :tools upload for "remote", but since I'm not using this lets just not care about that.
Orgmode
This file will be needed for emacs batch automation, where its not reasonable to start up my entire working env. This file can be located at $DOOMDIR/+orgmode.el.
(load! "+orgmode")Lexical bindings
;;; +orgmode.el -*- lexical-binding: t; -*-Modification warning message.
<<modification-warning>>Importing org
This file may get consumed via emacs batch scripting, so we need ot make sure the orgmode is actually loaded.
(require 'org)Directories
My notes are stored via NextCloud to sync multiple machines. The Nextcloud directory can be located in a couple different location based off the OS that the machine is running, but
Where the NextCloud general sync directory may vary based on machine but notes should always be stored at $HOME/org.
(custom-set-variables '(org-directory "~/org/"))I've tried to organize things based on purpose & this will likely change in the future. The current directory looks like this
~/org ├── .archive ├── .attach ├── Projects ├── Roam ├── Todo └── Work
.archive
Where old files go. See org-archive-subtree for more.
.attach
Stuff that is not an orgmode document.
(setq
org-download-image-dir (concat org-directory ".attach/"))
Projects
I keep a todo.org at the root of each project. These are symlinked into the Projects directory. Nextcloud does not sync symlinked documents.
Roam
All roam docs go here. This is my default note taking system.
(setq
org-roam-directory (concat org-directory "Roam/"))
Todo
Another symlink dir. This is used to populate org agenda files.
(setq org-agenda-files (list (concat org-directory "Todos/" )))
Work
On my work machine I'll symlink this into my Todo
ln -s $HOME/org/Work/todo.org $HOME/org/Todo/work.orgI still want to capture work related notes where ever I am though.
(defvar-local +org-capture-work-todo
(expand-file-name "Work/todo.org" org-directory))
(add-to-list 'org-capture-templates
'("w" "Work Todo" entry
(file+headline +org-capture-work-todo-file "Inbox")
"* [_] %?%i\n%a" :prepend t))A Prettier Orgmode
Use a serif variable font
This uses doom-variable-pitch-font as defined in the font section.
(add-hook! 'org-mode-hook #'mixed-pitch-mode)Pretty mode
(add-hook! 'org-mode-hook #'+org-pretty-mode)Agenda faces
(setq org-agenda-deadline-faces
'((1.001 . error)
(1.0 . org-warning)
(0.5 . org-upcoming-deadline)
(0.0 . org-upcoming-distant-deadline)))Prettify Symbols
There is a few of these built into the orgmode's +pretty module. Checkboxes are not included so lets include it.
(add-hook 'org-mode-hook (lambda ()
"Beautify Org Checkbox Symbol"`
(push '("[ ]" . "☐") prettify-symbols-alist)
(push '("[_]" . "☐") prettify-symbols-alist)
(push '("[X]" . "☑" ) prettify-symbols-alist)
(push '("[-]" . "⊟" ) prettify-symbols-alist)
(prettify-symbols-mode)))And when you hover over it, disable it.
(setq prettify-symbols-unprettify-at-point 'right-edge)Fancy Source Blocks
This was grabbed from Rasmus Pank's blog.
this makes the beginning / ending of both source and quote blocks, & headers for that display a little cleaner.
(with-eval-after-load 'org
(defvar-local rasmus/org-at-src-begin -1
"Variable that holds whether last position was a ")
(defvar rasmus/ob-header-symbol ?☰
"Symbol used for babel headers")
(defun rasmus/org-prettify-src--update ()
(let ((case-fold-search t)
(re "^[ \t]*#\\+begin_src[ \t]+[^ \f\t\n\r\v]+[ \t]*")
found)
(save-excursion
(goto-char (point-min))
(while (re-search-forward re nil t)
(goto-char (match-end 0))
(let ((args (org-trim
(buffer-substring-no-properties (point)
(line-end-position)))))
(when (org-string-nw-p args)
(let ((new-cell (cons args rasmus/ob-header-symbol)))
(cl-pushnew new-cell prettify-symbols-alist :test #'equal)
(cl-pushnew new-cell found :test #'equal)))))
(setq prettify-symbols-alist
(cl-set-difference prettify-symbols-alist
(cl-set-difference
(cl-remove-if-not
(lambda (elm)
(eq (cdr elm) rasmus/ob-header-symbol))
prettify-symbols-alist)
found :test #'equal)))
;; Clean up old font-lock-keywords.
(font-lock-remove-keywords nil prettify-symbols--keywords)
(setq prettify-symbols--keywords (prettify-symbols--make-keywords))
(font-lock-add-keywords nil prettify-symbols--keywords)
(while (re-search-forward re nil t)
(font-lock-flush (line-beginning-position) (line-end-position))))))
(defun rasmus/org-prettify-src ()
"Hide src options via `prettify-symbols-mode'.
`prettify-symbols-mode' is used because it has uncollpasing. It's
may not be efficient."
(let* ((case-fold-search t)
(at-src-block (save-excursion
(beginning-of-line)
(looking-at "^[ \t]*#\\+begin_src[ \t]+[^ \f\t\n\r\v]+[ \t]*"))))
;; Test if we moved out of a block.
(when (or (and rasmus/org-at-src-begin
(not at-src-block))
;; File was just opened.
(eq rasmus/org-at-src-begin -1))
(rasmus/org-prettify-src--update))
;; Remove composition if at line; doesn't work properly.
;; (when at-src-block
;; (with-silent-modifications
;; (remove-text-properties (match-end 0)
;; (1+ (line-end-position))
;; '(composition))))
(setq rasmus/org-at-src-begin at-src-block)))
;; This function helps to produce a single glyph out of a
;; string. The glyph can then be used in prettify-symbols-alist.
;; This function was provided by Ihor in the org-mode mailing list.
(defun yant/str-to-glyph (str)
"Transform string into glyph, displayed correctly."
(let ((composition nil))
(dolist (char (string-to-list str)
(nreverse (cdr composition)))
(push char composition)
(push '(Br . Bl) composition))))
(defun rasmus/org-prettify-symbols ()
(mapc (apply-partially 'add-to-list 'prettify-symbols-alist)
(cl-reduce 'append
(mapcar (lambda (x) (list x (cons (upcase (car x)) (cdr x))))
`(("#+begin_src" . ?⎡) ;; ⎡ ➤ 🖝 ➟ ➤ ✎
;; multi-character strings can be used with something like this:
;; ("#+begin_src" . ,(yant/str-to-glyph "```"))
("#+end_src" . ?⎣) ;; ⎣ ✐
("#+header:" . ,rasmus/ob-header-symbol)
("#+begin_quote" . ?«)
("#+end_quote" . ?»)))))
(turn-on-prettify-symbols-mode)
(add-hook 'post-command-hook 'rasmus/org-prettify-src t t))
(add-hook 'org-mode-hook #'rasmus/org-prettify-symbols))Drawers
https://orgmode.org/manual/Drawers.html
State Change Log
Logs updates can bleed into the notes. Sticking them in a drawer works as a better escape then indentations.
(setq org-log-into-drawer t)Clock drawers
(setq org-clock-into-drawer t)Roam
I use org-roam v2 for most of my note taking. TODO expand this section.
Dailies Templates
(setq org-roam-dailies-capture-templates
'(("l" "Log" entry "* %T %?"
:target (file+head+olp "%<%Y-%m-%d>.org"
"#+title: %<%Y-%m-%d>\n#+filetags: %<:%Y:%B:daily:>\n\n* Goals\n* Logs"
("Logs")))
("g" "Goal" entry "* TODO %?"
:target (file+head+olp "%<%Y-%m-%d>.org"
"#+title: %<%Y-%m-%d>\n#+filetags: %<:%Y:%B::daily>\n\n* Goals\n* Logs"
("Goals")))))Keybinds
These were declared in Roam Keybinds section above. See there for more details.
Mermaid
MermaidJS is a diagramming and charting tool similar to Dot/Graphviz, but significantly prettier with less boilerplate. We'll likely only ever want to modify it in the context of org-mode so we'll want ob-mermaid.
Add the following the packages.el
(package! ob-mermaid)Babel stuff
Babel execute can be tweaked per the syntax see orgmode docs here.
Src blocks
These are grabbed from gtrun's configuration.'
(setq org-src-fontify-natively t
org-src-preserve-indentation t
org-src-tab-acts-natively t
org-src-window-setup 'current-window)Diff
The snippet below is largely pulled from John Kitchin Stackexchange Post.
(defun org-babel-execute:diff (body params)
"Applies diff patches. Use with care.
See https://emacs.stackexchange.com/questions/63517/org-mode-evaluate-diff-code-block"
(with-temp-buffer
(insert body "\n")
(shell-command-on-region (point-min) (point-max) "patch --strip=1" "*patch*")
(prog1
(with-current-buffer "*patch*" (buffer-string))
(kill-buffer "*patch*"))))As an sample:
#+BEGIN_SRC org :tangle a.org 1 2 #+END_SRC #+BEGIN_SRC org :tangle b.org 1 3 #+END_SRC #+begin_src diff --- a.org 2021-02-21 20:20:27.000000000 -0500 +++ b.org 2021-02-21 20:20:27.000000000 -0500 @@ -1,2 +1,2 @@ 1 -2 +3 #+end_src #+RESULTS: : patching file a.org #+BEGIN_SRC sh cat a.org #+END_SRC #+RESULTS: | 1 | | 3 |
Solaire
;(add-hook! 'org-mode-hook #'solaire-mode)
;(add-hook 'mixed-pitch-mode-hook #'solaire-mode-reset)ChatGPT
ChatGPT is good for creating short summaries about technical subjects. Its may be incorrect & does not produce citations, and is effectively just cargo culting, but may help me fill out some Roam docs quickly among other things.
We will be using the joshcho/ChatGPT.el package
To install this
(package! chatgpt
:recipe (:host github :repo "joshcho/ChatGPT.el" :files ("dist" "*.el")))
Logic for this will be found in $DOOMDIR/+chatGPT.el
(load! "+chatGPT")
Then use use-package! to configure. C-c q is the bind for this.
(use-package! chatgpt
:defer t
:config
(unless (boundp 'python-interpreter)
(defvaralias 'python-interpreter 'python-shell-interpreter))
(setq chatgpt-repo-path (expand-file-name "straight/repos/ChatGPT.el/" doom-local-dir))
(set-popup-rule! (regexp-quote "*ChatGPT*")
:side 'bottom :size .5 :ttl nil :quit t :modeline nil)
:bind ("C-c q" . chatgpt-query))
This runs the chatgpt.py file. There are a couple of dependencies, to install run the following:
pip install sexpdata==0.0.3
pip install epc
pip install git+https://github.com/mmabrouk/chatgpt-wrapper
chatgpt installContent Stolen From
A large amount of the details listed here have been lifted from: