dot/.config/doom
2024-08-30 15:16:27 +02:00
..
config Yes this is a mess, but I want it up and backed up just in case. This *works*, as ugly as the files are. 2023-09-21 02:46:05 +02:00
config.el Update 2024.08.30 15:16:03 CEST 2024-08-30 15:16:27 +02:00
init.el Update 2024.08.30 15:16:03 CEST 2024-08-30 15:16:27 +02:00
packages.el hey 2024-06-06 01:26:00 +02:00
README.el hey 2024-06-06 01:26:00 +02:00
README.org Update 2024.08.30 15:16:03 CEST 2024-08-30 15:16:27 +02:00

Phil's Doom Emacs Config

Intro

This is my personal Doom Emacs config. The important bit is that I have some additional keybinds. This file is a catch-all for all the files in $DOOMDIR - you can use org-babel-tangle to tangle them into their respective files.

Some of the comments are from the default config.el file that ships with Doom Emacs.

You can extract all the source/ config files from here by running Emacs and hitting C-c C-v t.

A lot of these are swiped from DT's Configuring Emacs config files, as well as Karl Voit's Emacs config.

config.el

Basic settings

Author/ personal info

(setq user-full-name "Phil Bajsicki")

Global settings

;; must be set before `org` is loaded
(setq org-directory "~/enc/org/")
(setq org-agenda-files (directory-files-recursively "~/enc/org/" ".org$"))

(setq global-auto-revert-mode t)
(setq auth-sources '("~/.authinfo"))
(setq-default backup-inhibited t)

(setq locale-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-clipboard-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
(setq-default indent-tabs-mode t)
t

Langtool

Note that for this functionality you do need some resources, namely:

  • some kind of Java runtime (OpenJRE for instance)
  • LanguageTool

This command only sets up the path to your java runtime binary.

(setq langtool-java-bin "/usr/bin/java")
/usr/bin/java

Theming and prettifying

(after! counsel
  (setq counsel-outline-display-style 'title))
Doom Theme
(load-theme 'doom-one t)
(doom-themes-neotree-config)
(doom-themes-org-config)
Fonts
  (setq doom-themes-enable-bold t
        doom-themes-enable-italic t
        doom-font (font-spec :family "Iosevka" :size 14)
        doom-big-font (font-spec :family "Iosevka" :size 16)
        ;; doom-variable-pitch-font (font-spec :family "Iosevka" :size 14)
        doom-unicode-font (font-spec :family "Iosevka"))
        ;; doom-serif-font (font-spec :family "IBM Plex Mono" :size 10 :weight 'light))

;; (set-face-attribute 'default nil :family "Iosevka")
;; (set-face-attribute 'variable-pitch nil :family "Iosevka Aile")
;; (set-face-attribute 'org-modern-symbol nil :family "Iosevka")
#<font-spec nil nil Iosevka nil nil nil nil nil nil nil nil nil nil>
Font Family List

This is a simple command that outputs the fonts you have available in Emacs.

(print (font-family-list))
Ligature.el
(ligature-set-ligatures 't '("www"))
;; Enable traditional ligature support in eww-mode, if the
;; `variable-pitch' face supports it
(ligature-set-ligatures 'eww-mode '("ff" "fi" "ffi"))
;; Enable all Cascadia Code ligatures in programming modes
(ligature-set-ligatures 'org-mode '("|||>" "<|||" "<==>" "<!--" "####" "~~>" "***" "||=" "||>"
                                     ":::" "::=" "=:=" "===" "==>" "=!=" "=>>" "=<<" "=/=" "!=="
                                     "!!." ">=>" ">>=" ">>>" ">>-" ">->" "->>" "-->" "---" "-<<"
                                     "<~~" "<~>" "<*>" "<||" "<|>" "<$>" "<==" "<=>" "<=<" "<->"
                                     "<--" "<-<" "<<=" "<<-" "<<<" "<+>" "</>" "###" "#_(" "..<"
                                     "..." "+++" "/==" "///" "_|_" "www" "&&" "^=" "~~" "~@" "~="
                                     "~>" "~-" "**" "*>" "*/" "||" "|}" "|]" "|=" "|>" "|-" "{|"
                                     "[|" "]#" "::" ":=" ":>" ":<" "$>" "==" "=>" "!=" "!!" ">:"
                                     ">=" ">>" ">-" "-~" "-|" "->" "--" "-<" "<~" "<*" "<|" "<:"
                                     "<$" "<=" "<>" "<-" "<<" "<+" "</" "#{" "#[" "#:" "#=" "#!"
                                     "##" "#(" "#?" "#_" "%%" ".=" ".-" ".." ".?" "+>" "++" "?:"
                                     "?=" "?." "??" ";;" "/*" "/=" "/>" "//" "__" "~~" "(*" "*)"
                                     "\\\\" "://"))
;; Enables ligature checks globally in all buffers.  You can also do it
;; per mode with `ligature-mode'.
(global-ligature-mode t)
Transparency
(set-frame-parameter nil 'alpha-background 85)
(add-to-list 'default-frame-alist '(alpha-background . 85))
Helpers for text editing
(setq display-line-numbers-type 'relative)
(setq next-screen-context-lines 4)
(setq-default global-visual-line-mode t)
(setq x-stretch-cursor t)
(setq column-number-mode t)

set start of week to Monday (not sunday) http://sunsite.univie.ac.at/textbooks/emacs/emacs_33.html

(setq-default calendar-week-start-day 1)

Global Keybinds

Setting this here because I experiment with these occasionally and want them reset properly eaach time.

(global-set-key "\C-g" 'keyboard-quit)
(global-set-key "\C-cu" 'browse-url-chrome)

Package settings

Straight

(setq straight-repository-branch "develop")

[disabled] copilot.el

;; accept completion from copilot and fallback to company
(use-package! copilot
  :hook (prog-mode . copilot-mode)
  :bind (:map copilot-completion-map
              ("<tab>" . 'copilot-accept-completion)
              ("TAB" . 'copilot-accept-completion)
              ("C-TAB" . 'copilot-accept-completion-by-word)
              ("C-<tab>" . 'copilot-accept-completion-by-word)))

pdf-tools

(use-package! pdf-tools
  :defer t
  :commands (pdf-loader-install)
  :mode "\\.pdf\\'"
  :bind (:map pdf-view-mode-map
	      ("n" . pdf-view-next-line-or-next-page)
	      ("p" . pdf-view-previous-line-or-previous-page)
	      ("C-=" . pdf-view-enlarge)
	      ("C--" . pdf-view-shrink))
  :init (pdf-loader-install)
  :config (add-to-list 'revert-without-query ".pdf"))

(add-hook 'pdf-view-mode-hook #'(lambda () (interactive (display-line-numbers-mode))))
doomsetq-evil-normal-state-cursor-for-pdf-view-mode-h (lambda nil (interactive (display-line-numbers-mode))) pdf-tools-enable-minor-modes

emojify-mode

(global-emojify-mode)
(global-emojify-mode-line-mode)

org-mode

If you use `org' and don't want your org files in the default location below, change `org-directory'. It must be set before org loads! Make .org file automatically open in org-mode.

org
Basic settings
(add-to-list 'auto-mode-alist
           '("\\.org\\'" . org-mode))

(setq org-image-actual-width nil)
(setq org-enforce-todo-dependencies t)
(setq org-reverse-note-order nil)
(setq org-deadline-warning-days 7)
(setq org-blank-before-new-entry (quote ((heading . t)
					 (plain-list-item . nil))))
(setq org-num-mode t)
(setq org-todo-repeat-to-state "LOOP")
(setq org-remove-highlights-with-change nil)
(setq org-read-date-prefer-future t)
(setq org-special-ctrl-a/e t)
(setq org-special-ctrl-k t)
(setq org-yank-adjusted-subtrees t)
(setq org-M-RET-may-split-line (quote (default . t)))
(setq org-log-done (quote time))
(setq org-log-into-drawer t)
(setq org-catch-invisible-edits "smart")
(setq org-use-property-inheritance nil)
(setq org-duration-format 'h:mm)
(setq org-hierarchical-todo-statistics t)
t
my-org-tree-to-indirect-buffer

This beautiful piece of code was done by alphapapa and published on reddit. Its purpose is to provide more than one indirect buffer when using org-tree-to-indirect-buffer() (via C-c C-x b). Further more, it has a different way of naming these buffers.

Using an advice, the original function gets overwritten.

Karl Voit

(defun my-org-tree-to-indirect-buffer (&optional arg)
  "Create indirect buffer and narrow it to current subtree.
The buffer is named after the subtree heading, with the filename
appended.  If a buffer by that name already exists, it is
selected instead of creating a new buffer."
  (interactive "P")
  (let* ((new-buffer-p)
         (pos (point))
         (buffer-name (let* ((heading (org-get-heading t t))
                             (level (org-outline-level))
                             (face (intern (concat "outline-" (number-to-string level))))
                             (heading-string (propertize (org-link-display-format heading)
                                                         'face face)))
                        (concat heading-string "::" (buffer-name))))
         (new-buffer (or (get-buffer buffer-name)
                         (prog1 (condition-case nil
                                    (make-indirect-buffer (current-buffer) buffer-name 'clone)
                                  (error (make-indirect-buffer (current-buffer) buffer-name)))
                           (setq new-buffer-p t)))))
    (switch-to-buffer new-buffer)
    (when new-buffer-p
      ;; I don't understand why setting the point again is necessary, but it is.
      (goto-char pos)
      (rename-buffer buffer-name)
      (org-narrow-to-subtree))))

(advice-add 'org-tree-to-indirect-buffer :override 'my-org-tree-to-indirect-buffer)
my-org-retrieve-url-from-point → C-c o

I wanted a function that does not open an web URL within Org mode (via C-c C-o) but rather copies its URL to the system clipboard for non-Emacs apps to paste.

Lucky me, I found the ready-to-use solution on this page which I bind to previously unused C-c o:

Karl Voit

(defun my-org-retrieve-url-from-point ()
  (interactive)
  (let* ((link-info (assoc :link (org-context)))
         (text (when link-info
                 ;; org-context seems to return nil if the current element
                 ;; starts at buffer-start or ends at buffer-end
                 (buffer-substring-no-properties (or (cadr link-info) (point-min))
                                                 (or (caddr link-info) (point-max))))))
    (if (not text)
        (error "Not in org link")
      (add-text-properties 0 (length text) '(yank-handler (my-yank-org-link)) text)
      (kill-new text))))
(global-set-key (kbd "C-c o") 'my-org-retrieve-url-from-point)
org-element cache verification

2022-01-16: This has a positive impact on the performance as long as you would not need it for consistency warnings. Re-enable it if something is fishy and you want the self-check functionality again.

(setq org-element--cache-self-verify nil)
Theming
(setq org-fontify-todo-headline t)
(setq org-footnote-section nil)
(setq org-table-duration-hour-zero-padding nil)
(setq org-superstar-headline-bullets-list
      '("⁖" "◉" "○" "✸" "✿"))
(setq org-use-property-inheritance '(category columns archive logging))

https://www.emacswiki.org/emacs/TruncateLines M-x toggle-truncate-lines

;; (setq-default truncate-lines t)
(setq org-src-fontify-natively t)
(setq org-hide-leading-stars t)
Set the width of inline images:
  (setq org-image-actual-width '(600))
org-modern
(package-initialize)
(menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)
;; (modus-themes-load-operandi)

;; Choose some fonts
;; (set-face-attribute 'default nil :family "Iosevka")
;; (set-face-attribute 'variable-pitch nil :family "Iosevka Aile")
;; (set-face-attribute 'org-modern-symbol nil :family "Iosevka")

;; Add frame borders and window dividers
(modify-all-frames-parameters
 '((right-divider-width . 0)
   (internal-border-width . 0)))
(dolist (face '(window-divider
                window-divider-first-pixel
                window-divider-last-pixel))
  (face-spec-reset-face face)
  (set-face-foreground face (face-attribute 'default :background)))
(set-face-background 'fringe (face-attribute 'default :background))

(setq
 ;; Edit settings
 org-auto-align-tags nil
 org-tags-column 0
 org-catch-invisible-edits 'show-and-error
 org-special-ctrl-a/e t
 org-insert-heading-respect-content t

 ;; Org styling, hide markup etc.
 org-hide-emphasis-markers t
 org-pretty-entities t

 ;; Agenda styling
 org-agenda-tags-column 0
 org-agenda-block-separator ?─
 org-agenda-time-grid
 '((daily today require-timed)
   (800 1000 1200 1400 1600 1800 2000)
   " ┄┄┄┄┄ " "┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄")
 org-agenda-current-time-string
 "◀── now ─────────────────────────────────────────────────")

;; Ellipsis styling
;; (setq org-ellipsis "…")
;; (set-face-attribute 'org-ellipsis nil :inherit 'default :box nil)

(global-org-modern-mode)
t
Directory to org
(defun my-dir-to-org (dir org-file)
  "Create a file ORG-FILE which has all txt files in DIR as linked headlines
and the contents of the files below the headlines."
  (interactive "DDirectory to convert: \nFFilename: ")
  (let ((files (directory-files
                dir t ".*\\.txt\\'")))
    (with-temp-file org-file
      (dolist (file files)
        (insert (concat "* " (file-name-nondirectory file) "\n\n"))
        (insert-file-contents file)
        (goto-char (point-max))
        (insert "\n")))))

(defun my-dir-to-org-with-links (dir org-file)
  "Create a file ORG-FILE which has all txt files in DIR as linked headlines
and the contents of the files below the headlines."
  (interactive "DDirectory to convert: \nFFilename: ")
  (let ((files (directory-files
                dir t ".*\\.txt\\'")))
    (with-temp-file org-file
      (dolist (file files)
        (insert (concat "* " "[[" file "][" (file-name-nondirectory file) "]]\n\n"))
        (insert-file-contents file)
        (goto-char (point-max))
        (insert "\n")))))


(defun my-mass-conversion (source-dir target-dir)
  "Create one org file per directory of SOURCE-DIR inside TARGET-DIR."
  (interactive "DDirectory to convert: \nDTarget Directory:")
  (let ((dirs-full
         (remove-if-not #'file-directory-p
                        (directory-files
                         source-dir t
                         directory-files-no-dot-files-regexp))))

    (mapc (lambda (dir)
            (my-dir-to-org dir
                           (concat target-dir
                                   (file-name-base dir) ".org")))
          dirs-full)))
my-mass-conversion
Dependencies
(setq-default org-enforce-todo-dependencies t)
(setq org-enforce-todo-checkbox-dependencies t)
org-auto-tangle
(require 'org-auto-tangle)
(add-hook 'org-mode-hook 'org-auto-tangle-mode)
auto-tangle-mode
Hooks
append and update time-stamps for Time-stamp: <> in headers:
(add-hook 'write-file-hooks 'time-stamp)
(add-hook 'org-mode-hook
          (lambda ()
            ;; yasnippet
            ;;disabled;            (make-variable-buffer-local 'yas/trigger-key)
            ;;disabled;            (org-set-local 'yas/trigger-key [tab])
            ;;disabled;            (define-key yas/keymap [tab] 'yas/next-field-group)
            ;; flyspell mode for spell checking everywhere
            ;;disabled; (flyspell-mode 1)
            ;; auto-fill mode on
            (auto-fill-mode 1)))
expand macros inline
	(add-to-list 'font-lock-extra-managed-props 'display)

(font-lock-add-keywords
 'org-mode
 '(("\\({{{[a-zA-Z#%)(_-+0-9]+}}}\\)" 0
    `(face nil display
           ,(format "%s"
                    (let* ((input-str (match-string 0))
                          (el (with-temp-buffer
                                (insert input-str)
                                (goto-char (point-min))
                                (org-element-context)))
                          (text (org-macro-expand el org-macro-templates)))
                      (if text
                          text
                        input-str)))))))
Keybinds
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ch" 'counsel-org-link)
(global-set-key "\C-cne" 'elgantt-open)
(global-set-key "\C-cnn" 'org-capture)
Timestamp keybinds

Inserts timestamps in the proper format. '(16) stands for two universal arguments, keeping the command from prompting for the time. Two keybinds here, which insert an active or inactive timestamp.

(global-set-key "\C-cia"  '(lambda ()(interactive)
                               (org-time-stamp '(16))))
(global-set-key "\C-cii"  '(lambda () (interactive)
                               (org-time-stamp-inactive '(16))))
Automated timestamps in headings

I need this because hitting the above is tedious.

For the files whose paths match the strings in the function, it will advise the org-insert-heading function to insert an inactive timestamp into the new heading.

This turns making new entries from C-<return> C-i i into just C-<return>. Much easier, and I don't have to think about this any more.

(after! org-mode
  (add-hook! 'org-insert-heading-hook
            (if
                (or
                 (string-match-p "journal.org" buffer-file-name)
                 (string-match-p "money" buffer-file-name)
                 (string-match-p "therapy.org" buffer-file-name))
                ((lambda ()
                   (interactive)
                   (org-time-stamp-inactive '(16))
                   (newline)))
              (setq org-insert-heading-hook nil)
            )))
Todo keywords
(setq org-todo-keywords
      '((sequence
         "INBOX(i!)"
         "TASK(t!)"  ; A task that needs doing & is ready to do
         "PROJ(p!)"  ; A project, which usually contains other tasks
         "LOOP(r!)"  ; A recurring task
         "WAIT(w!)"  ; Something external is holding up this task
         "HOLD(h!)"  ; This task is paused/on hold because of me
         "|"
         "DONE(d!@)"  ; Task successfully completed
         "KILL(k!@)") ; Task was cancelled, aborted or is no longer applicable
        (sequence
         "DECIDE()"   ; for making decisions
         "|"
         "OKAY(o!)"    ; okay as-is
         "YES(y!)"     ; take action
         "NO(n!)"))    ; don't take action
      org-todo-keyword-faces
      '(
        ("INBOX"     :foreground "cyan"   :weight bold)
        ("TASK"      :foreground "purple"   :weight bold)
        ("PROJ"      :foreground "violet"         :weight bold)
        ("LOOP"      :foreground "magenta"      :weight bold)
        ("WAIT"      :foreground "yellow"       :weight bold)
        ("HOLD"      :foreground "orange"       :weight bold)
        ("DONE"      :foreground "green" :weight bold)
        ("KILL"      :foreground "grey"   :weight bold)))
INBOX :foreground cyan :weight bold
TASK :foreground purple :weight bold
PROJ :foreground violet :weight bold
LOOP :foreground magenta :weight bold
WAIT :foreground yellow :weight bold
HOLD :foreground orange :weight bold
DONE :foreground green :weight bold
KILL :foreground grey :weight bold

Change font for DONE tasks

(setq org-fontify-done-headline t)
(custom-set-faces
 '(org-done ((t (:foreground "PaleGreen"
                 :weight normal
                 :strike-through t))))
 '(org-headline-done
            ((((class color) (min-colors 16) (background dark))
               (:foreground "LightSalmon" :strike-through t)))))
Capture templates
(setq org-capture-templates '(("t" "inbox" entry (file+headline "~/enc/org/agenda.org" "Inbox") "* %i%?")
                              ("i" "idea" entry (file+headline "~/enc/org/agenda.org" "Ideas") "* %?")
                              ("d" "reminder" entry (file+headline "~/enc/org/agenda.org" "Reminders") "* %i%? \n %U")
                              ("p" "person" entry (file+headline "~/enc/org/people.org" "Sort")
                               "* %(org-contacts-template-name)
:PROPERTIES:
:EMAIL: %(org-contacts-template-email)
:PHONE:
:ALIAS:
:NICKNAME:
:IGNORE:
:ICON:
:NOTE:
:ADDRESS:
:BIRTHDAY:
:END:")))
t inbox entry (file+headline ~/enc/org/agenda.org Inbox) * %i%?
i idea entry (file+headline ~/enc/org/agenda.org Ideas) * %?
d reminder entry (file+headline ~/enc/org/agenda.org Reminders) * %i%?
preserving all heading levels when archiving

Karl Voit:

Preserve the hierarchy when archiving: blog article, source code (GitHub gist)

(setq org-archive-default-command #'org-archive-subtree-hierarchically)

(defun org-archive-subtree-hierarchically (&optional prefix)
  (interactive "P")
  (let* ((fix-archive-p (and (not prefix)
                             (not (use-region-p))))
         (afile  (car (org-archive--compute-location
                       (or (org-entry-get nil "ARCHIVE" 'inherit) org-archive-location))))
         (buffer (or (find-buffer-visiting afile) (find-file-noselect afile))))
    (org-archive-subtree prefix)
    (when fix-archive-p
      (with-current-buffer buffer
        (goto-char (point-max))
        (while (org-up-heading-safe))
        (let* ((olpath (org-entry-get (point) "ARCHIVE_OLPATH"))
               (path (and olpath (split-string olpath "/")))
               (level 1)
               tree-text)
          (when olpath
            (org-mark-subtree)
            (setq tree-text (buffer-substring (region-beginning) (region-end)))
            (let (this-command (inhibit-message t)) (org-cut-subtree)) ; we dont want to see "Cut subtree" messages
            (goto-char (point-min))
            (save-restriction
              (widen)
              (-each path
                (lambda (heading)
                  (if (re-search-forward
                       (rx-to-string
                        `(: bol (repeat ,level "*") (1+ " ") ,heading)) nil t)
                      (org-narrow-to-subtree)
                    (goto-char (point-max))
                    (unless (looking-at "^")
                      (insert "\n"))
                    (insert (make-string level ?*)
                            " "
                            heading
                            "\n"))
                  (cl-incf level)))
              (widen)
              (org-end-of-subtree t t)
              (org-paste-subtree level tree-text))))))))
my-dired-insert-lfile-link-list-to-other-org-window()
2022-06-20 I had this idea and implemented it

Development task: id:2022-06-20-implement-add-lfile-links-to-buffer-with-marked-dired-files

This stackexchange snippet had the almost exactly perfect code which I adapted.

The idea of the process is:

  1. I have an Org-mode buffer and a dired buffer side-by-side (which is my usual setup).
  2. I place the cursor in the Org-mode buffer so that I may add a list.
  3. I switch to the dired buffer and mark one or more files.
  4. I invoke this function.

This results in a list that gets added to the Org-mode buffer similar to:

- [[lfile:This is an example.odt][This is an example.odt]]
- [[lfile:2022-06-20 an image.png][2022-06-20 an image.png]]
  (defun my-dired-insert-lfile-link-list-to-other-org-window (files)
    ;; adapted by Karl Voit from https://emacs.stackexchange.com/a/60369
    (interactive
     (list (dired-get-marked-files)))
    (unless (eq major-mode 'dired-mode)
      (user-error "This command must be triggered in a dired buffer"))
    (let ((dired-win (selected-window))
          (orgmode-win
           (get-window-with-predicate
            (lambda (window)
              (with-current-buffer (window-buffer window)
                (eq major-mode 'org-mode))))))
      (unless orgmode-win
        (user-error
         "Can't attach to subtree.  No window displaying an Org buffer"))
      (select-window orgmode-win)
      (dolist (file files)
        (let* ((fname (file-name-nondirectory file))
               (link (format "lfile:%s" fname))
               (desc fname))
          ;;(push (list link desc) org-stored-links) ;; original idea was to insert to this buffer in order to paste via C-c C-l
          (insert (format "%s" (concat "- [[" link "][" desc "]]\n")))
      ))
      (select-window dired-win)))
link colors
2021-01-11 moved commands to my-set-linkcolors and defined 3 categories of colors
(setq my-linkcolor-org "wheat3")
(setq my-linkcolor-file "MediumSeaGreen")
(setq my-linkcolor-web "DeepSkyBlue")

(defun my-set-linkcolors ()
  "Defines the colors of various link colors"
  (interactive)

  ;; Org links --------------------------------------------------------------------------

  (org-link-set-parameters "id" :face `(:foreground ,my-linkcolor-org :underline t))
  (org-link-set-parameters "contact" :face `(:foreground ,my-linkcolor-org :underline t))

  ;; File links --------------------------------------------------------------------------

  (org-link-set-parameters "file" :face `(:foreground ,my-linkcolor-file :underline t))
  ;; defined elsewhere;; (org-link-set-parameters "tsfile" :face '`(:foreground "DarkSeaGreen" :underline t))
  (org-link-set-parameters "pdf" :face `(:foreground ,my-linkcolor-file :underline t))

  (org-link-set-parameters "EPA" :face `(:foreground ,my-linkcolor-file :underline t))
  (org-link-set-parameters "EPAAFO" :face `(:foreground ,my-linkcolor-file :underline t))
  (org-link-set-parameters "JAFO" :face `(:foreground ,my-linkcolor-file :underline t))
  (org-link-set-parameters "DAKEPA" :face `(:foreground ,my-linkcolor-file :underline t))
  (org-link-set-parameters "BMTSK" :face `(:foreground ,my-linkcolor-file :underline t))
  (org-link-set-parameters "ISO" :face `(:foreground ,my-linkcolor-file :underline t))

  (org-link-set-parameters "gemSpec_DS_Anbieter"
                           :face `(:foreground ,my-linkcolor-file :underline t))
  (org-link-set-parameters "gemSpec_Net"
                           :face `(:foreground ,my-linkcolor-file :underline t))
  (org-link-set-parameters "gemSpec_PKI"
                           :face `(:foreground ,my-linkcolor-file :underline t))
  (org-link-set-parameters "gemSpec_IDP_Dienst"
                           :face `(:foreground ,my-linkcolor-file :underline t))

  (org-link-set-parameters "messageid"
                           :face `(:foreground ,my-linkcolor-file :underline t))

  ;; Web links --------------------------------------------------------------------------

  (org-link-set-parameters "http" :face `(:foreground ,my-linkcolor-web :underline t))
  (org-link-set-parameters "https" :face `(:foreground ,my-linkcolor-web :underline t))

)

(defun my-set-linkcolors ()
  "Defines the colors of various link colors"
  (interactive)

  ;; Org links --------------------------------------------------------------------------

  (org-link-set-parameters "id" :face '(:foreground "wheat3" :underline t))
  (org-link-set-parameters "contact" :face '(:foreground "wheat3" :underline t))

  ;; File links --------------------------------------------------------------------------

  (org-link-set-parameters "file" :face '(:foreground "MediumSeaGreen" :underline t))
  ;; defined elsewhere;; (org-link-set-parameters "tsfile" :face ''(:foreground "DarkSeaGreen" :underline t))
  (org-link-set-parameters "pdf" :face '(:foreground "MediumSeaGreen" :underline t))

  (org-link-set-parameters "EPA" :face '(:foreground "MediumSeaGreen" :underline t))
  (org-link-set-parameters "EPAAFO" :face '(:foreground "MediumSeaGreen" :underline t))
  (org-link-set-parameters "JAFO" :face '(:foreground "MediumSeaGreen" :underline t))
  (org-link-set-parameters "DAKEPA" :face '(:foreground "MediumSeaGreen" :underline t))
  (org-link-set-parameters "BMTSK" :face '(:foreground "MediumSeaGreen" :underline t))

  (org-link-set-parameters "gemSpec_DS_Anbieter"
                           :face '(:foreground "MediumSeaGreen" :underline t))
  (org-link-set-parameters "gemSpec_Net"
                           :face '(:foreground "MediumSeaGreen" :underline t))
  (org-link-set-parameters "gemSpec_PKI"
                           :face '(:foreground "MediumSeaGreen" :underline t))
  (org-link-set-parameters "gemSpec_IDP_Dienst"
                           :face '(:foreground "MediumSeaGreen" :underline t))

  (org-link-set-parameters "messageid"
                           :face '(:foreground "MediumSeaGreen" :underline t))

  ;; Web links --------------------------------------------------------------------------

  (org-link-set-parameters "http" :face '(:foreground "DeepSkyBlue" :underline t))
  (org-link-set-parameters "https" :face '(:foreground "DeepSkyBlue" :underline t))

)

(my-set-linkcolors) ;; set colors when loading

mu4e

(add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e/")

(setq mu4e-change-filenames-when-moving t)
(setq mu4e-update-interval (* 10 60))
(setq mu4e-get-mail-command "mbsync -a")
(setq mu4e-maildir "~/enc/.mail")

(setq mu4e-drafts-folder "/Drafts")
(setq mu4e-sent-folder "/Sent")
(setq mu4e-refile-folder "/Refile")
(setq mu4e-trash-folder "/Trash")

(mu4e t)

sly

;; (load (expand-file-name "~/.roswell/helper.el"))

(setq inferior-lisp-program "sbcl --dynamic-space-size 8192 -Q -l ~/.sbclrc")
sbcl --dynamic-space-size 8192 -Q -l ~/.sbclrc

multiple-cursors

(global-set-key (kbd "C-S-c C-S-c") 'mc/edit-lines)
(global-set-key (kbd "C->") 'mc/mark-next-like-this)
(global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
(global-set-key (kbd "C-c C-<") 'mc/mark-all-like-this)
mc/mark-all-like-this

org-transclusion

(use-package! org-transclusion
             :after org
              :init
              (map!
               :map global-map "<f12>" #'org-transclusion-add
               :leader
               :prefix "n"
               :desc "Org Transclusion Mode" "t" #'org-transclusion-mode))
org-transclusion

org-babel

(add-hook 'org-babel-after-execute-hook 'org-display-inline-images)

When some code generates an image file, display it in the results:

2022-01-16: this has some performance impact because it affects all babel blocks of the current file

(add-hook 'org-babel-after-execute-hook 'org-display-inline-images)
(add-hook 'org-babel-after-execute-hook
  (lambda ()
  (unless (eq this-command 'org-babel-tangle)
    (org-display-inline-images nil nil
                               ;; 2023-02-08: org-back...-or-point-min doesn't exist any more: (save-excursion (org-back-to-heading-or-point-min t))
                               (save-excursion (org-back-to-heading t))
                               (save-excursion (or (outline-next-heading) (point-max)))))))

org-export*** LaTeX

(with-eval-after-load 'ox-latex
   (add-to-list 'org-latex-classes
		'("tufte-handout"
                  "\\documentclass[nobib]{tufte-handout}
                   \\usepackage{nicefrac}
                   \\usepackage{units}
                   [NO-DEFAULT-PACKAGES]
                   [EXTRA]"
                  ("\\section{%s}" . "\\section*{%s}")
                  ("\\subsection{%s}" . "\\subsection*{%s}")
                  ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
                  ("\\paragraph{%s}" . "\\paragraph*{%s}")
                  ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
		'("memoir"
                  "\\documentclass{memoir}"
                  ("\\chapter{%s}" . "\\chapter*{%s}")
                  ("\\section{%s}" . "\\section*{%s}")
                  ("\\subsection{%s}" . "\\subsection*{%s}")
                  ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))))
(print org-latex-classes)
memoir \documentclass{memoir} (\chapter{%s} . \chapter*{%s}) (§ion{%s} . §ion*{%s}) (⊂section{%s} . ⊂section*{%s}) (⊂subsection{%s} . ⊂subsection*{%s})
article \documentclass[11pt]{article} (§ion{%s} . §ion*{%s}) (⊂section{%s} . ⊂section*{%s}) (⊂subsection{%s} . ⊂subsection*{%s}) (¶graph{%s} . ¶graph*{%s}) (⊂paragraph{%s} . ⊂paragraph*{%s})
report \documentclass[11pt]{report} (\part{%s} . \part*{%s}) (\chapter{%s} . \chapter*{%s}) (§ion{%s} . §ion*{%s}) (⊂section{%s} . ⊂section*{%s}) (⊂subsection{%s} . ⊂subsection*{%s})
book \documentclass[11pt]{book} (\part{%s} . \part*{%s}) (\chapter{%s} . \chapter*{%s}) (§ion{%s} . §ion*{%s}) (⊂section{%s} . ⊂section*{%s}) (⊂subsection{%s} . ⊂subsection*{%s})
tufte-handout \documentclass[nobib]{tufte-handout}
(setq org-latex-default-class "tufte-handout"
      org-latex-pdf-process '("latexmk -pdf -bibtex-cond -f -outdir=%o %f"))
latexmk -pdf -bibtex-cond -f -outdir=%o %f

org-super-links

Quick related link function
(defun org-super-links-quick-related ()
  (interactive)
  (let ((org-super-links-link-prefix "\nrelated: "))
    (org-super-links-link)))

(setq org-super-links-related-into-drawer t)
(setq org-super-links-related-drawer-default-name "RELATED"
  	org-super-links-link-prefix 'org-super-links-link-prefix-timestamp)

(setq org-export-with-broken-links t) ;; avoiding error on export
Keybinds

Replace org-store-link and org-insert-link with org-super-links alternatives.

(global-unset-key (kbd "C-c l"))
(global-set-key (kbd "C-c l l") 'org-super-links-link)
(global-set-key (kbd "C-c l s") 'org-super-links-store-link)
(global-set-key (kbd "C-c l i") 'org-super-links-insert-drawer-link)
(global-set-key (kbd "C-c l r") 'org-super-links-quick-related)
(global-set-key (kbd "C-c l d") 'org-super-links-delete-link)
org-super-links-delete-link

org-super-agenda

(org-super-agenda-mode)
(setq super-agenda-groups
      '(;; Each group has an implicit boolean OR operator between its selectors.
            (:name "Today"  ; Optionally specify section name
                   :time-grid t  ; Items that appear on the time grid
                   )
            (:name "DEADLINES" :deadline t :order 1)
            (:name "Focus | [A]" :tag "Focus" :priority "A" :order 2 :face (:append t :weight bold))
    ;;        (:name "Important" :priority "A" :order 4)
    ;;        (:name "Habits" :habit t :order 3)
    ;;        (:name "Shopping" :tag "Besorgung" :order 8)
                   ;; Boolean AND group matches items that match all subgroups
                   ;;  :and (:tag "shopping" :tag "@town")
                   ;; Multiple args given in list with implicit OR
                   ;;  :tag ("food" "dinner"))
                   ;;  :habit t
                   ;;  :tag "personal")
            (:name "Started" :and (:todo "TASK" :not (:tag "someday") :not (:priority "C") :not (:priority "B") ) :order 10)
            ;;(:name "Space-related (non-moon-or-planet-related)"
            ;;       ;; Regexps match case-insensitively on the entire entry
            ;;       :and (:regexp ("space" "NASA")
            ;;                     ;; Boolean NOT also has implicit OR between selectors
            ;;                     :not (:regexp "moon" :tag "planet")))
            ;;(:name "BWG" :tag "@BWG" :order 16)
    ;;        (:name "read" :tag "2read" :order 22)
            ;; Groups supply their own section names when none are given
            (:name "Someday" :and ( :todo ("WAIT" "HOLD" "INBOX") :tag "someday" :not (:priority "C") :not (:priority "B"))
                   ;; Show this group at the end of the agenda (since it has the
                   ;; highest number). If you specified this group last, items
                   ;; with these todo keywords that e.g. have priority A would be
                   ;; displayed in that group instead, because items are grouped
                   ;; out in the order the groups are listed.
                   :order 25)

            ;; "other items": an auto-group with order 99 ----------------------------

            (:name "Prio ≤ B" :priority<= "B"
                         ;; Show this section after "Today" and "Important", because
                         ;; their order is unspecified, defaulting to 0. Sections
                         ;; are displayed lowest-number-first.
                         :order 105)
            (:name "reward"
                   :tag ("reward" "lp")
                   :order 110
                   )
            (:name "Waiting…" :todo "WAIT" :order 118)  ; Set order of this section
            )

  (defun my-super-agenda()
    "generates my super-agenda"
    (interactive)
    (org-super-agenda-mode)
    (let
        ((org-super-agenda-groups super-agenda-groups))
      (org-agenda nil "a")
      ))

Org-wild-notifier

This lets me get desktop notifications for TODO items.

  (org-wild-notifier-mode)
  (setq alert-default-style 'libnotify
        org-wild-notifier-alert-time '(0 5 15 60)
        org-wild-notifier-keyword-whitelist nil
        ;; good for testing
        org-wild-notifier--alert-severity 'high
        alert-fade-time 50
        )
50

org-id

my-id-get-or-generate

Straight from Karl Voit's config.

(defun my-id-get-or-generate()
"Returns the ID property if set or generates and returns a new one if not set.
 The generated ID is stripped off potential progress indicator cookies and
 sanitized to get a slug. Furthermore, it is prepended with an ISO date-stamp
 if none was found before."
    (interactive)
        (when (not (org-id-get))
            (progn
               (let* (
                      (my-heading-text (nth 4 (org-heading-components)));; retrieve heading string
                      (my-heading-text (replace-regexp-in-string "\\(\\[[0-9]+%\\]\\)" "" my-heading-text));; remove progress indicators like "[25%]"
                      (my-heading-text (replace-regexp-in-string "\\(\\[[0-9]+/[0-9]+\\]\\)" "" my-heading-text));; remove progress indicators like "[2/7]"
                      (my-heading-text (replace-regexp-in-string "\\(\\[#[ABC]\\]\\)" "" my-heading-text));; remove priority indicators like "[#A]"
                      (my-heading-text (replace-regexp-in-string "\\[\\[\\(.+?\\)\\]\\[" "" my-heading-text t));; removes links, keeps their description and ending brackets
;;                      (my-heading-text (replace-regexp-in-string "[<\\[][12][0-9]\\{3\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\( .*?\\)[>\\]]" "" my-heading-text t));; removes day of week and time from date- and time-stamps (doesn't work somehow)
                      (my-heading-text (replace-regexp-in-string "<[12][0-9]\\{3\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\( .*?\\)>" "" my-heading-text t));; removes day of week and time from active date- and time-stamps
                      (my-heading-text (replace-regexp-in-string "\\[[12][0-9]\\{3\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\( .*?\\)\\]" "" my-heading-text t));; removes day of week and time from inactive date- and time-stamps
                      (new-id (my-generate-sanitized-alnum-dash-string my-heading-text));; get slug from heading text
                      (my-created-property (assoc "CREATED" (org-entry-properties))) ;; nil or content of CREATED time-stamp
                     )
                   (when (not (string-match "[12][0-9][0-9][0-9]-[01][0-9]-[0123][0-9]-.+" new-id))
                           ;; only if no ISO date-stamp is found at the beginning of the new id:
                           (if my-created-property (progn
                               ;; prefer date-stamp of CREATED property (if found):
                               (setq my-created-datestamp (substring (org-entry-get nil "CREATED" nil) 1 11)) ;; returns "2021-12-16" or nil (if no CREATED property)
                               (setq new-id (concat my-created-datestamp "-" new-id))
                           )
                           ;; use today's date-stamp if no CREATED property is found:
                           (setq new-id (concat (format-time-string "%Y-%m-%d-") new-id))))
                   (org-set-property "ID" new-id)
                   )
                 )
        )
        (kill-new (concat "id:" (org-id-get)));; put ID in kill-ring
        (org-id-get);; retrieve the current ID in any case as return value
)

Org-refile

(setq org-refile-targets '((nil :maxlevel . 9)
                                (org-agenda-files :maxlevel . 9)))
(setq org-outline-path-complete-in-steps nil)
(setq org-refile-use-outline-path t)

(setq find-file-visit-truename t)

org-contacts

(setq org-contacts-files '("~/enc/org/people.org"))

org-roam

org-roam
(setq org-roam-v2-ack t)
(setq org-roam-completion-everywhere t)
(setq org-roam-directory
      (file-truename "~/enc/org/roam"))
(org-roam-db-autosync-mode)
(org-roam-db-autosync-enable)

(setq org-roam-capture-templates
      '(("n" "default" plain
         "%?"
        :if-new (file+head "${slug}.org" "#+title: ${title}\n#+category: ${title}\n#+filetags: \n")
        :empty-lines 1
        :unnarrowed t)
        ("j" "journal" plain
         "%?"
        :if-new (file+head "journal/journal-${slug}.org" "#+title: ${title}\n#+category: 📔${title}\n#+filetags: 📔\n")
         :empty-lines 1
         :unnarrowed t)
        ("t" "Therapy" plain
         "#+title: ${title}\n"
         :if-new (file+head "therapy/therapy-${slug}.org" "#+title: ${title}\n#+category: 📗 ${title}\n#+filetags: 📗\n")
         :empty-lines 1
         :unnarrowed)))
Keybinds
(define-prefix-command 'org-roam-map)
(global-set-key "\C-r" 'org-roam-map)
(define-key org-roam-map "o" 'org-roam-buffer-toggle)
(define-key org-roam-map "f" 'org-roam-node-find)
(define-key org-roam-map "i" 'org-roam-node-insert)
(define-key org-roam-map "n" 'org-roam-capture)

org-agenda

Keybinds
(global-set-key "\C-ca" 'org-agenda)
(define-prefix-command 'org-agenda-map)
(global-set-key "\C-a" 'org-agenda-map)
(define-key org-agenda-map "n" 'org-agenda-capture)
(define-key org-agenda-map "a" 'org-agenda)
Settings
(setq org-agenda-start-day nil
        org-agenda-span 'day
        org-agenda-dim-blocked-tasks t
        org-agenda-sorting-strategy
            '(time-up priority-up category-keep)
        org-deadline-warning-days 4
        org-log-into-drawer t
	org-treat-insert-todo-heading-as-state-change t
        org-clock-into-drawer t
        org-agenda-log-mode-items '(closed clock state)
        org-agenda-prefix-format '((agenda . " %l %i %c %s %t")
				  (todo . " %i %-12:c")
				  (tags . " %i $-12:c")
				  (search . " %i %-12:c"))
	org-agenda-compact-blocks nil
	org-agenda-use-tag-inheritance (quote (agenda));; agenda performance
	org-agenda-block-separator "---------")

(add-hook 'org-agenda-mode-hook '(lambda () (hl-line-mode 1)))
(lambda nil (hl-line-mode 1)) +org-habit-resize-graph-h org-fancy-priorities-mode
From Karl Voit

Remove completed deadline tasks from the agenda view

(setq org-agenda-skip-deadline-if-done t)

Remove completed scheduled tasks from the agenda view

(setq org-agenda-skip-scheduled-if-done t)

Remove completed items from search results

(setq org-agenda-skip-timestamp-if-done t)

Include agenda archive files when searching for things

(setq org-agenda-text-search-extra-files (quote (agenda-archives)))

show state changes in log-mode of agenda

(setq org-agenda-log-mode-items (quote (state)))

do not search for time in heading when displaying a date-stamp

(setq org-agenda-search-headline-for-time nil)

add diary entries in agenda view http://orgmode.org/org.html#Weekly_002fdaily-agenda

(setq org-agenda-include-diary t)

Show all future entries for repeating tasks

(setq org-agenda-repeating-timestamp-show-all t)

Show all agenda dates - even if they are empty

(setq org-agenda-show-all-dates t)

Sorting order for tasks on the agenda

(setq org-agenda-sorting-strategy
		(quote ((agenda time-up user-defined-up priority-down category-keep)
				(todo priority-down category-keep)
				(tags priority-down category-keep)
				(search category-keep))))
agenda time-up user-defined-up priority-down category-keep
todo priority-down category-keep
tags priority-down category-keep
search category-keep

Start the weekly agenda today

(setq org-agenda-start-on-weekday nil)

Non-nil means skip timestamp line if same entry shows because of deadline.

(setq org-agenda-skip-timestamp-if-deadline-is-shown t)

Enable display of the time grid so we can see the marker for the current time

(setq org-agenda-time-grid
      ((daily today remove-match)
       #("----------------" 0 16
         (org-heading t))
       (800 1000 1200 1400 1600 1800 2000)))

Sticky agendas remain opened in the background so that you don't need to regenerate them each time you hit the corresponding keystroke. This is a big time saver.

(setq org-agenda-sticky t)

Scrolling through agenda using C-p and C-n instead of PageUp/PageDown also in agenda. Default setting is C-p/C-n for scrolling one line at a time.

(define-key org-agenda-mode-map (kbd "C-p") 'my-scroll-down-half)
(define-key org-agenda-mode-map (kbd "C-n") 'my-scroll-up-half)

From reddit: Adding a separator line between days. Disabled 2020-01-03 because I usually see one single day only.

(setq org-agenda-format-date (lambda (date) (concat "\n"
        (make-string (window-width) 9472)
        "\n"
        (org-agenda-format-date-aligned date))))
Exports

Export subtree (by default) instead of whole buffer: http://orgmode.org/manual/The-Export-Dispatcher.html

(setq org-export-initial-scope 'subtree)

With a densly interconnected Org knowledge-base (e.g., see org-super-links) and a "few but large Org mode files" in combination with "I'm using export methods on sub-heading levels mostly", you end up with errors that are caused by links that link stuff which is outside of the sub-heading hierarchy which should be currently exported.

Therefore, you'll need this setting for preventing those errors. Please be aware that you won't get notified when links that should be part of the export result get broken because of a typo or similar.

(setq org-export-with-broken-links t)
Org-Reveal - generate nice presentations out of Org-mode

https://github.com/yjwen/org-reveal

  • Reveal.js is a tool for creating good-looking HTML presentations, authored by Hakim El Hattab.
  • For an example of a reveal.js presentation, see here.
  • Org-Reveal exports your Org documents to reveal.js presentations.
  • With Org-reveal, you can create beautiful presentations with 3D effects from simple but powerful Org contents.
(use-package ox-reveal
  :ensure t
  ;;:if (my-system-type-is-windows)
  :defer 110
  :config)
my-org-copy-region-as-markdown
2022-05-03 initial setup and disabled because of error

I've found this nugget on http://mbork.pl/2021-05-02_Org-mode_to_Markdown_via_the_clipboard.

I often work with tools that accept Markdown as input syntax. When I prefer Org-mode for authoring, I just have to mark the result in a region, invoke this snippet and paste in the other tool.

Please enable Markdown export as stated on https://lists.gnu.org/archive/html/emacs-orgmode/2022-05/msg00062.html

(require 'ox-md)
(defun my-org-copy-region-as-markdown ()
  "Copy the region (in Org) to the system clipboard as Markdown."
  (interactive)
  (if (use-region-p)
      (let* ((region
	      (buffer-substring-no-properties
		      (region-beginning)
		      (region-end)))
	     (markdown
	      (org-export-string-as region 'md t '(:with-toc nil))))
	(gui-set-selection 'CLIPBOARD markdown))))

Debugging:

(setq region "/foo/ *bar* https://example.com baz")
(org-export-string-as region 'md t '(:with-toc nil))
org-habits
(add-to-list 'org-modules 'habit)
(setq org-habit-following-days 2
      org-habit-preceding-days 7
      org-habit-show-all-today nil
      org-habit-show-habits-only-for-today t
      org-habit-show-habits t)
t
org-habit-stats
(define-key org-mode-map (kbd "C-c h") 'org-habit-stats-view-habit-at-point)
(define-key org-agenda-mode-map (kbd "H") 'org-habit-stats-view-habit-at-point-agenda)
(add-hook 'org-after-todo-state-change-hook 'org-habit-stats-update-properties)
org-habit-stats-update-properties
org-download

this is here as a reminder of the config options, so no tangling

(setq-default org-download-image-dir "~/enc/org/.attach")
;; can also set for the individual buffer
;; -*- mode: Org; org-download-image-dir: "~/Pictures/foo"; -*-

yasnippets

(setq doom-snippets-enable-short-helpers t)

dired-open

(setq dired-open-extensions '(("gif" . "sxiv")
                              ("jpg" . "sxiv")
                              ("png" . "sxiv")
                              ("mkv" . "mpv")
                              ("mp4" . "mpv")))

mode-icons

(mode-icons-mode)
(add-hook 'dired-mode-hook #'mode-icons--mode-disable) ;; with mode-icons, visiting a dir with dired takes up *lots* of CPU for =mode-icons-reset= (performance-issue)

csv-mode

(add-to-list 'auto-mode-alist '("\\.[Cc][Ss][Vv]\\'" . csv-mode))
(autoload 'csv-mode "csv-mode"
    "Major mode for editing comma-separated value files." t)

whisper.el (S2T; speech to text)

You will use these functions:

  • whisper-run : Toggle between recording from your microphone and transcribing
  • whisper-file : Same as before but transcribes a local file on disk

Invoking whisper-run with a prefix argument (C-u) has the same effect as whisper-file .

Both of these functions will automatically compile whisper.cpp dependency and download language model the first time they are run. When recording is in progress, invoking them stops it and starts transcribing. Otherwise if compilation, download (of model file) or transcription job is in progress, calling them again cancels that.

Use whisper-run once to start recording and a second time for start the translation process which puts the text into the buffer. This works offline (without cloud or network) and amazingly well for English.

(use-package whisper
  :load-path  (lambda () (expand-file-name (concat my-user-emacs-directory "contrib/whisper.el/")))
;;  :bind ("C-H-r" . whisper-run)
  :config
  (setq whisper-install-directory (concat my-user-emacs-directory "bin/")
        whisper-model "base"
        whisper-language "de"
        whisper-translate nil)
  :defer 110
)

hledger-mode

;; To open files with .journal extension in hledger-mode
(add-to-list 'auto-mode-alist '("\\.journal\\'" . hledger-mode))

;; Provide the path to you journal file.
;; The default location is too opinionated.
(setq hledger-jfile "~/enc/org/hledger/2023.journal")

;;; Auto-completion for account names
;; For company-mode users,
(add-to-list 'company-backends 'hledger-company)

gptel

(use-package! gptel
 :config
 (setq! gptel-api-key "thisisanapikey")
 (setq! gptel-max-tokens 8192)
 (setq gptel-model "model"
 gptel-backend (gptel-make-openai "llama-cpp"
		 :key "thisisanapikey"
                 :stream t
                 :protocol "http"
                 :host "localhost:6666"
                 :models '("model"))))
(gptel-make-openai "llama-cpp"          ;Any name
  :key "thisisanapikey"
  :stream t                             ;Stream responses
  :protocol "http"
  :host "localhost:6666"                ;Llama.cpp server location
  :models '("model")) ;Any names, doesn't matter for Llama

(setq gptel--debug t)
t

erc

config
;; Set our nickname & real-name as constant variables
(setq
 erc-nick "phil_bb"     ; Our IRC nick
 erc-user-full-name "Phil B.") ; Our /whois name

;; Define a function to connect to a server
(defun erc/libera ()
  (interactive)
  (erc :server "irc.libera.chat"
       :port   "6667"))
erc/libera

elfeed

(setq-default elfeed-search-filter "@1-week-ago +unread ")
@1-week-ago +unread

custom.el

Custom variables. Note that this file is generally set up automatically by Emacs" so I'm not exporting this block. I'm keeping the default warning commants in just for completion here.

(custom-set-variables)
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand"  you could mess it up"  so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one"  they won't work right.
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand"  you could mess it up"  so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one"  they won't work right.
 )

init.el

This is the state as of <2023-08-12 Sat>. I'm sure Doom Emacs will expand/ change/ add/ remove things over time" but this is what I use right now.

;;; init.el -*- lexical-binding: t; -*-

;; 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! :input
       ;;bidi              ; (tfel ot) thgir etirw uoy gnipleh
       ;;chinese
       ;;japanese
       ;;layout            ; auie" ctsrnm is the superior home row

       :completion
       (company +childframe)             ; the ultimate code completion backend
       ;;helm                ; the *other* search engine for love and life
       ;;ido               ; the other *other* search engine...
       ;;ivy               ; a search engine for love and life
       vertico           ; the search engine of the future

       :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 +iosevka +extra)         ; 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
       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 writing

       :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 indent

       :emacs
       dired             ; making dired pretty [functional]
       electric          ; smarter"  keyword-based electric-indent
       ;;ibuffer         ; interactive buffer management
       (undo +tree)              ; persistent"  smarter undo for your inevitable mistakes
       vc                ; version-control and Emacs"  sitting in a tree

       :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 Emacs

       :checkers
       syntax              ; tasing you for every semicolon you forget
       ;;(spell +flyspell) ; tasing you for misspelling mispelling
       grammar           ; tasing grammar mistake every you make

       :tools
       ansible
       ;;biblio            ; Writes a PhD for you (citation needed)
       ;;collab            ; buffers with friends
       debugger          ; 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
       lsp               ; M-x vscode
       magit             ; 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

       :os
       (:if IS-MAC macos)  ; improve compatibility with macOS
       ;;tty               ; improve the terminal Emacs experience

       :lang
       ;;agda              ; types of types of types of types...
       ;;beancount         ; mind the GAAP
       (cc +lsp)         ; C > C++ == 1
       (clojure +lsp)           ; 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 +lsp)         ; the hipster dialect
       ;;(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
       (java +lsp)       ; the poster child for carpal tunnel syndrome
       (javascript +lsp)        ; all(hope(abandon(ye(who(enter(here))))))
       (julia +lsp)             ; 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!"
       ;;ocaml             ; an objective camel
       (org +dragndrop +pandoc +pretty +gnuplot +roam2)               ; organize your plain life in plain text
       php               ; perl's insecure younger brother
       plantuml          ; diagrams for confusing people more
       ;;purescript        ; javascript"  but functional
       (python +lsp)            ; beautiful is better than ugly
       ;;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 +lsp)                ; she sells {ba" z" fi}sh shells on the C xor
       ;;sml
       ;;solidity          ; do you need a blockchain? No.
       ;;swift             ; who asked for emoji variables?
       ;;terra             ; Earth and Moon in alignment for performance.
       (web +lsp)               ; the tubes
       yaml              ; JSON"  but readable
       (zig +lsp)               ; C"  but simpler

       :email
       (mu4e +org +gmail)
       ;;notmuch
       ;;(wanderlust +gmail)

       :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/vnought

       :config
       ;;literate
       (default +bindings))

packages.el

Info from the included (default) comments:

To install a package with Doom you must declare them here and run 'doom sync' on the command line" then restart Emacs for the changes to take effect or use 'M-x doom/reload'.

Install from MELPA" ELPA or emacsmirror:

(package! some-package)

Install a package directly from git repo:

Specify a :recipe. Documentation.

(package! another-package :recipe (:host github
  :repo "username/repo"))

If there is no PACKAGENAME.el file" or it's in a subdirectory" specify :files in the :recipe:

(package! this-package
  :recipe (:host github :repo "username/repo"
           :files ("some-file.el" "src/lisp/*.el")))

Disable packages included with Doom Emacs:

~(package! builtin-package :disable t)~

Override package recipe:

If a property in a :recipe isn't specified" it will use defaults from Doom/MELPA/ELPA/Emacsmirror.

(package! builtin-package :recipe (:nonrecursive t))
(package! builtin-package-2 :recipe (:repo "myfork/package"))

You can override the recipe of a built in package without having to specify all the properties for `:recipe'. These will inherit the rest of its recipe from Doom or MELPA/ELPA/Emacsmirror:

Install package from specific branch:

You can set the :branch property. This is required for some packages.

(package! builtin-package :recipe (:branch "develop"))

Install a specific commit:

You can set :pin.

(package! builtin-package :pin "1a2b3c4d5e")

Unpin a commit:

Doom's packages are pinned to a specific commit and updated from release to release. You can unpin! them. Note (unpin! t) unpins all the packages and can break your Emacs.

(unpin! pinned-package)
(unpin! pinned-package another-pinned-package)
(unpin! t)

Packages:

Core

;; -*- no-byte-compile: t; -*-
;;; $DOOMDIR/packages.el

(unpin! straight)
(package! beacon)
(package! counsel)
(package! deft)

Themes

(package! all-the-icons)
(package! all-the-icons-dired)

(package! doom-themes)

Modes:

(package! battle-haxe)
(package! fish-mode)
(package! typescript-mode)
(package! terraform-mode)
(package! wc-mode)
(package! plantuml-mode)
(package! csv-mode)

dired

(package! dired-open)

various?

;; (package! helm-xref)

pdf-tools

(package! pdf-tools)

Org

;; Fix for org-roam link issue
(package! org-auto-tangle)
(package! ox-slack)
(package! ox-tufte)
(package! ox-gemini
  :recipe (
	   :host sourcehut
		 :repo "abrahms/ox-gemini"))
(package! org-special-block-extras)
(package! org-transclusion)
(package! org-modern)
(package! org-ql)
(package! org-sidebar
  :recipe (
           :host github
                 :repo "alphapapa/org-sidebar"
           ))
(package! org-contacts)
(package! org-bullets)
(package! org-download)
(package! org-cliplink)
(package! org-roam)
;; (package! org-super-agenda)
(package! org-wild-notifier)
(package! org-habit-stats)

Yasnippet

Org-depend

Ensure task dependencies are met.

(package! org-depend
 :recipe (
          :host github
                :repo "fgeller/org-mode"
                :files ("contrib/lisp/org-depend.el")))

org-edna

(package! org-edna)
(package! org-super-links
  :recipe (
           :type git
                 :host github
                 :repo "toshism/org-super-links"
                 :branch "develop"
           ))

Elgantt

Pretty Gantt chart for your agenda.

(package! elgantt
  :recipe (:host github :repo "legalnonsense/elgantt"))

mode-icons

(package! mode-icons)

qrencode

(package! qrencode)

hledger

(package! hledger-mode)

copilot.el

(package! copilot
  :recipe (:host github :repo "zerolfx/copilot.el" :files ("*.el" "dist")))

elpher

(package! elpher)

multiple-cursors

(package! multiple-cursors)

gptel

(package! gptel
  :recipe (:host github
		 :repo "karthink/gptel"
		 :files ("*.el")))