dot/.config/doom/README.org

#+Title: Phil's Doom Emacs Config
#+STARTUP: indent

* Intro

This is my personal [[https://github.com/doomemacs/doomemacs][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 [[https://gitlab.com/dwt1/configuring-emacs/][DT's Configuring Emacs config files]], as well as [[https://github.com/novoid/dot-emacs][Karl Voit's Emacs config.]]

* config.el
** Basic settings
*** Author/ personal info
#+begin_src emacs-lisp :tangle config.el
(setq user-full-name "Phil Bajsicki")

#+end_src
*** Global settings
#+begin_src emacs-lisp :tangle config.el
;; 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)
#+END_SRC

#+RESULTS:
: t

*** Langtool

Note that for this functionality you do need some resources, namely:
- some kind of Java runtime (OpenJRE for instance)
- [[https://languagetool.org/][LanguageTool]]

This command only sets up the path to your java runtime binary.
#+begin_src emacs-lisp :tangle config.el
(setq langtool-java-bin "/usr/bin/java")
#+end_src

#+RESULTS:
: /usr/bin/java

*** Theming and prettifying
#+begin_src emacs-lisp :tangle config.el
(after! counsel
  (setq counsel-outline-display-style 'title))
#+end_src
**** Doom Theme
#+begin_src emacs-lisp :tangle config.el
(load-theme 'doom-one t)
(doom-themes-neotree-config)
(doom-themes-org-config)
#+end_src
**** Fonts
#+begin_src emacs-lisp :tangle config.el
  (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")
#+end_src

#+RESULTS:
: #<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.
#+begin_src emacs-lisp :results value format: pp :tangle no
(print (font-family-list))
#+end_src

**** Ligature.el
#+begin_src emacs-lisp :tangle config.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)

#+end_src

**** Transparency
#+begin_src emacs-lisp :tangle config.el
(set-frame-parameter nil 'alpha-background 85)
(add-to-list 'default-frame-alist '(alpha-background . 85))
#+end_src
**** Helpers for text editing
#+begin_src emacs-lisp :tangle config.el
(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)
#+end_src
*** set start of week to Monday (not sunday) http://sunsite.univie.ac.at/textbooks/emacs/emacs_33.html
#+BEGIN_SRC emacs-lisp :tangle config.el
(setq-default calendar-week-start-day 1)
#+END_SRC

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

#+begin_src emacs-lisp :tangle config.el
(global-set-key "\C-g" 'keyboard-quit)
(global-set-key "\C-cu" 'browse-url-chrome)
#+end_src

** Package settings
*** Straight
#+begin_src emacs-lisp :tangle config.el
(setq straight-repository-branch "develop")
#+end_src
*** [disabled] copilot.el
#+begin_src emacs-lisp :tangle no
;; 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)))
#+end_src
*** pdf-tools
#+begin_src emacs-lisp :tangle config.el
(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))))

#+end_src

#+RESULTS:
| doom--setq-evil-normal-state-cursor-for-pdf-view-mode-h | (lambda nil (interactive (display-line-numbers-mode))) | pdf-tools-enable-minor-modes |

*** emojify-mode
#+begin_src emacs-lisp :tangle no
(global-emojify-mode)
(global-emojify-mode-line-mode)
#+end_src

*** 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
#+begin_src emacs-lisp :tangle config.el
(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)
#+end_src

#+RESULTS:
: t
***** my-org-tree-to-indirect-buffer
#+begin_quote
This beautiful piece of code was done by [[https://www.reddit.com/user/github-alphapapa][alphapapa]] and published on
[[https://www.reddit.com/r/orgmode/comments/dbsngi/finally_solving_the_lack_of_a_treeview_navigation/f26qpzr/][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.
#+end_quote
--Karl Voit

#+BEGIN_SRC emacs-lisp :tangle config.el
(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)
#+END_SRC


***** my-org-retrieve-url-from-point → C-c o
#+begin_quote
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 [[https://emacs.stackexchange.com/a/3990][on this page]] which I bind to previously unused =C-c o=:
#+end_quote
--Karl Voit

#+BEGIN_SRC emacs-lisp :tangle no
(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))))
#+END_SRC

#+BEGIN_SRC emacs-lisp :tangle no
(global-set-key (kbd "C-c o") 'my-org-retrieve-url-from-point)
#+END_SRC
***** 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.

#+BEGIN_SRC emacs-lisp :tangle config.el
(setq org-element--cache-self-verify nil)
#+END_SRC

#+RESULTS:

***** Theming
:PROPERTIES:
:ID:       b663a9ef-f08e-436f-913d-98e4234cf2cd
:END:
#+begin_src emacs-lisp config.el
(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))
#+end_src
https://www.emacswiki.org/emacs/TruncateLines =M-x toggle-truncate-lines=
#+BEGIN_SRC emacs-lisp
;; (setq-default truncate-lines t)
(setq org-src-fontify-natively t)
(setq org-hide-leading-stars t)


#+END_SRC

****** Set the width of inline images:
#+BEGIN_SRC emacs-lisp :tangle config.el
  (setq org-image-actual-width '(600))
#+END_SRC

****** org-modern
#+begin_src emacs-lisp :tangle config.el
(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)

#+end_src

#+RESULTS:
: t
****** Directory to org

#+begin_src elisp :tangle config.el
(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)))


#+end_src

#+RESULTS:
: my-mass-conversion

***** Dependencies
#+begin_src emacs-lisp :tangle config.el
(setq-default org-enforce-todo-dependencies t)
(setq org-enforce-todo-checkbox-dependencies t)
#+END_SRC
***** org-auto-tangle
#+begin_src emacs-lisp :tangle config.el
(require 'org-auto-tangle)
(add-hook 'org-mode-hook 'org-auto-tangle-mode)
#+end_src
***** auto-tangle-mode
#+begin_src emacs-lisp :tangle yes

#+end_src
**** Hooks
***** append and update time-stamps for =Time-stamp: <>= in headers:
#+begin_src emacs-lisp :tangle config.el
(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)))
          #+end_src
***** expand macros inline

#+begin_src emacs-lisp :tangle config.el

	(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)))))))

 #+end_src

 #+RESULTS:

**** Keybinds

#+begin_src emacs-lisp :tangle config.el
(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)
#+end_src
***** 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.
#+begin_src emacs-lisp :tangle config.el
(global-set-key "\C-cia"  '(lambda ()(interactive)
                               (org-time-stamp '(16))))
(global-set-key "\C-cii"  '(lambda () (interactive)
                               (org-time-stamp-inactive '(16))))
#+end_src

***** 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.

#+begin_src emacs-lisp :tangle config.el
(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)
            )))

#+end_src

#+RESULTS:


**** Todo keywords
#+begin_src emacs-lisp :tangle config.el
(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)))
#+end_src

#+RESULTS:
| 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
- https://lists.gnu.org/archive/html/emacs-orgmode/2007-03/msg00179.html
#+BEGIN_SRC emacs-lisp :tangle no
(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)))))
#+END_SRC



**** Capture templates

#+begin_src emacs-lisp :tangle config.el
(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:")))
#+end_src

#+RESULTS:
| 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:

#+begin_quote
Preserve the hierarchy when archiving: [[https://fuco1.github.io/2017-04-20-Archive-subtrees-under-the-same-hierarchy-as-original-in-the-archive-files.html][blog article]], [[https://gist.github.com/Fuco1/e86fb5e0a5bb71ceafccedb5ca22fcfb][source code (GitHub gist)]]
#+end_quote

#+BEGIN_SRC emacs-lisp :tangle config.el
(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 don’t 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))))))))
#+END_SRC
**** my-dired-insert-lfile-link-list-to-other-org-window()

#+begin_quote
| 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

[[https://emacs.stackexchange.com/questions/60359/is-there-a-quicker-way-to-create-links-to-attachments][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]]
#+end_quote


#+begin_src emacs-lisp :results none :tangle no
  (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)))
#+end_src


**** link colors
#+begin_quote
| 2021-01-11 | moved commands to =my-set-linkcolors= and defined 3 categories of colors |

- I got the idea from: https://www.reddit.com/r/emacs/comments/hywxef/visually_differentiate_between_links_to_files_and/
- possible values for faces: https://kitchingroup.cheme.cmu.edu/blog/2016/11/04/New-link-features-in-org-9/
  - and =add-face-text-property=: https://www.gnu.org/software/emacs/manual/html_node/elisp/Faces.html#Faces
- Emacs colors: http://www.raebear.net/computers/emacs-colors/
- If you are interested in taking this any further: https://github.com/stardiviner/org-link-beautify
#+end_quote


#+BEGIN_SRC emacs-lisp :tangle config.el
(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
#+END_SRC

- test links
  - file: [[file:foo/bar.txt]] [[file:foo/bar.txt][description]]
  - tsfile: [[tsfile:foo/bar.txt]] [[tsfile:foo/bar.txt][description]]
  - lfile: [[lfile:foo/bar.txt]] [[tsfile:foo/bar.txt][description]]
  - pdf: pdf:foo.pdf [[pdf:foo.pdf][description]]

  - http: http://Karl-Voit.at [[http://Karl-Voit.at][description]]
  - https: https://Karl-Voit.at [[https://Karl-Voit.at][description]]

  - id: id:foo-bar [[id:foo-bar][description]]
  - contact: [[contact:example]] [[contact:example][description]]
  - message-id: [[messageid:foobar@example.com][Email link]]

  - EPA: [[EPA:1234]] [[EPA:1234][description]]
  - EPAAFO: [[EPAAFO:1234]] [[EPAAFO:1234][description]]
  - JAFO: [[JAFO:1234]] [[JAFO:1234][description]]
  - DAKEPA: [[DAKEPA:1234]] [[DAKEPA:1234][description]]
  - BMTSK: [[BMTSK:1234]] [[BMTSK:1234][description]]

- as of [2021-01-11 Mon] (before unifying color concept):
  - Org links had: snow3
  - File links: DarkSeaGreen, wheat2
  - Web links: DeepSkyBlue
*** org-edna
https://www.nongnu.org/org-edna-el/
#+begin_src emacs-lisp :tangle config.el


#+end_src
*** mu4e
#+begin_src elisp :tangle config.el
(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)

#+end_src

#+RESULTS:


*** sly

#+begin_src emacs-lisp :tangle config.el
;; (load (expand-file-name "~/.roswell/helper.el"))

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

#+RESULTS:
: sbcl --dynamic-space-size 8192 -Q -l ~/.sbclrc

*** multiple-cursors
#+begin_src emacs-lisp :tangle config.el
(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)
#+end_src

#+RESULTS:
: mc/mark-all-like-this

*** org-transclusion
#+begin_src emacs-lisp :tangle config.el
(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))
#+end_src

#+RESULTS:
: org-transclusion

*** org-babel
#+begin_src emacs-lisp :tangle config.el
(add-hook 'org-babel-after-execute-hook 'org-display-inline-images)
#+end_src

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

#+BEGIN_SRC emacs-lisp :tangle no
(add-hook 'org-babel-after-execute-hook 'org-display-inline-images)
#+END_SRC

#+BEGIN_SRC emacs-lisp :tangle no
(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)))))))
#+END_SRC


*** org-export*** LaTeX
#+begin_src emacs-lisp :tangle config.el
(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}"))))

#+end_src

#+begin_src emacs-lisp :tangle no

(print org-latex-classes)

#+end_src

#+RESULTS:
| memoir        | \documentclass{memoir}               | (\chapter{%s} . \chapter*{%s}) | (\section{%s} . \section*{%s})       | (\subsection{%s} . \subsection*{%s})       | (\subsubsection{%s} . \subsubsection*{%s}) |                                            |
| article       | \documentclass[11pt]{article}        | (\section{%s} . \section*{%s}) | (\subsection{%s} . \subsection*{%s}) | (\subsubsection{%s} . \subsubsection*{%s}) | (\paragraph{%s} . \paragraph*{%s})         | (\subparagraph{%s} . \subparagraph*{%s})   |
| report        | \documentclass[11pt]{report}         | (\part{%s} . \part*{%s})       | (\chapter{%s} . \chapter*{%s})       | (\section{%s} . \section*{%s})             | (\subsection{%s} . \subsection*{%s})       | (\subsubsection{%s} . \subsubsection*{%s}) |
| book          | \documentclass[11pt]{book}           | (\part{%s} . \part*{%s})       | (\chapter{%s} . \chapter*{%s})       | (\section{%s} . \section*{%s})             | (\subsection{%s} . \subsection*{%s})       | (\subsubsection{%s} . \subsubsection*{%s}) |
| tufte-handout | \documentclass[nobib]{tufte-handout} |                                |                                      |                                            |                                            |                                            |

#+begin_src


(setq org-latex-default-class "tufte-handout"
      org-latex-pdf-process '("latexmk -pdf -bibtex-cond -f -outdir=%o %f"))
#+end_src

#+RESULTS:
| latexmk -pdf -bibtex-cond -f -outdir=%o %f |

*** org-super-links

***** Quick related link function
#+begin_src emacs-lisp :tangle config.el
(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

#+end_src

***** Keybinds
:PROPERTIES:
:ID:       86ac73be-4cf1-4262-8aa8-e03c519b5b6e
:END:
Replace org-store-link and org-insert-link with org-super-links alternatives.
#+begin_src emacs-lisp :tangle config.el
(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)
#+end_src

#+RESULTS:
: org-super-links-delete-link

*** org-super-agenda
#+begin_src emacs-lisp :tangle no
(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")
      ))
            #+end_src



*** Org-wild-notifier
This lets me get desktop notifications for TODO items.

#+begin_src emacs-lisp :tangle config.el

  (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
        )
#+end_src

#+RESULTS:
: 50

*** org-id
**** my-id-get-or-generate
Straight from Karl Voit's config.

#+BEGIN_SRC emacs-lisp :tangle no
(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
)


#+END_SRC

*** Org-refile

#+begin_src emacs-lisp :tangle config.el
(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)
#+end_src

(setq find-file-visit-truename t)
*** org-contacts
#+begin_src emacs-lisp :tangle config.el
(setq org-contacts-files '("~/enc/org/people.org"))
#+end_src
*** org-roam

**** org-roam
#+begin_src emacs-lisp :tangle config.el
(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)))
#+end_src

**** Keybinds
#+begin_src emacs-lisp :tangle config.el
(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)
#+end_src

*** org-agenda
**** Keybinds
#+begin_src  emacs-lisp :tangle config.el
(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)
#+end_src

**** Settings
#+begin_src emacs-lisp :tangle config.el
(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)))
#+end_src

#+RESULTS:
| (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
#+BEGIN_SRC emacs-lisp  :tangle config.el
(setq org-agenda-skip-deadline-if-done t)
#+END_SRC

Remove completed scheduled tasks from the agenda view
#+BEGIN_SRC emacs-lisp  :tangle config.el
(setq org-agenda-skip-scheduled-if-done t)
#+END_SRC

Remove completed items from search results
#+BEGIN_SRC emacs-lisp :tangle no
(setq org-agenda-skip-timestamp-if-done t)
#+END_SRC

Include agenda archive files when searching for things
#+BEGIN_SRC emacs-lisp  :tangle config.el
(setq org-agenda-text-search-extra-files (quote (agenda-archives)))
#+END_SRC

show state changes in log-mode of agenda
#+BEGIN_SRC emacs-lisp  :tangle config.el
(setq org-agenda-log-mode-items (quote (state)))
#+END_SRC

do not search for time in heading when displaying a date-stamp
#+BEGIN_SRC emacs-lisp :tangle config.el
(setq org-agenda-search-headline-for-time nil)
#+END_SRC

add diary entries in agenda view
http://orgmode.org/org.html#Weekly_002fdaily-agenda
#+BEGIN_SRC emacs-lisp :tangle config.el
(setq org-agenda-include-diary t)
#+END_SRC

Show all future entries for repeating tasks
#+BEGIN_SRC emacs-lisp :tangle config.el
(setq org-agenda-repeating-timestamp-show-all t)
#+END_SRC

Show all agenda dates - even if they are empty
#+BEGIN_SRC emacs-lisp :tangle config.el
(setq org-agenda-show-all-dates t)
#+END_SRC

Sorting order for tasks on the agenda
#+BEGIN_SRC emacs-lisp :tangle config.el
(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))))
#+END_SRC

#+RESULTS:
| 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
#+BEGIN_SRC emacs-lisp :tangle config.el
(setq org-agenda-start-on-weekday nil)
#+END_SRC

Non-nil means skip timestamp line if same entry shows because of deadline.
#+BEGIN_SRC emacs-lisp :tangle config.el
(setq org-agenda-skip-timestamp-if-deadline-is-shown t)
#+END_SRC

Enable display of the time grid so we can see the marker for the current time
#+BEGIN_SRC emacs-lisp :tangle no
(setq org-agenda-time-grid
      ((daily today remove-match)
       #("----------------" 0 16
         (org-heading t))
       (800 1000 1200 1400 1600 1800 2000)))
#+END_SRC

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.
#+BEGIN_SRC emacs-lisp :tangle no
(setq org-agenda-sticky t)
#+END_SRC

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.

#+BEGIN_SRC emacs-lisp :tangle config.el
(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)
#+END_SRC

From [[https://www.reddit.com/r/orgmode/comments/e4stk2/adding_a_separator_line_between_days_in_emacs/][reddit]]: Adding a separator line between days.
Disabled 2020-01-03 because I usually see one single day only.
#+BEGIN_SRC emacs-lisp :tangle config.el
(setq org-agenda-format-date (lambda (date) (concat "\n"
        (make-string (window-width) 9472)
        "\n"
        (org-agenda-format-date-aligned date))))
#+END_SRC


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

#+BEGIN_SRC emacs-lisp :tangle no
(setq org-export-initial-scope 'subtree)
#+END_SRC

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.

#+BEGIN_SRC emacs-lisp :tangle config.el
(setq org-export-with-broken-links t)
#+END_SRC
***** Org-Reveal - generate nice presentations out of Org-mode
https://github.com/yjwen/org-reveal
#+BEGIN_QUOTE
- =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 [[http://lab.hakim.se/reveal-js/#/][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.
#+END_QUOTE

#+BEGIN_SRC emacs-lisp :tangle no
(use-package ox-reveal
  :ensure t
  ;;:if (my-system-type-is-windows)
  :defer 110
  :config)
#+END_SRC

***** 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)

#+BEGIN_SRC emacs-lisp :tangle config.el
(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))))
#+END_SRC

Debugging:

#+BEGIN_SRC emacs-lisp :tangle no
(setq region "/foo/ *bar* https://example.com baz")
(org-export-string-as region 'md t '(:with-toc nil))
#+END_SRC

**** org-habits
#+begin_src emacs-lisp :tangle config.el
(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)
#+end_src

#+RESULTS:
: t

**** org-habit-stats
#+begin_src emacs-lisp :tangle config.el
(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)
#+end_src

#+RESULTS:
| org-habit-stats-update-properties |

**** org-download
this is here as a reminder of the config options, so no tangling
#+begin_src emacs-lisp :tangle no
(setq-default org-download-image-dir "~/enc/org/.attach")
;; can also set for the individual buffer
;; -*- mode: Org; org-download-image-dir: "~/Pictures/foo"; -*-

#+end_src


*** yasnippets
#+begin_src emacs-lisp :tangle config.el
(setq doom-snippets-enable-short-helpers t)

#+end_src
*** dired-open
#+begin_src emacs-lisp :tangle config.el
(setq dired-open-extensions '(("gif" . "sxiv")
                              ("jpg" . "sxiv")
                              ("png" . "sxiv")
                              ("mkv" . "mpv")
                              ("mp4" . "mpv")))

#+end_src
*** mode-icons
#+begin_src emacs-lisp :tangle config.el
(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)
#+end_src
*** csv-mode
#+begin_src emacs-lisp :tangle config.el
(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)
#+end_src
*** whisper.el (S2T; speech to text)

- https://github.com/natrys/whisper.el

#+BEGIN_QUOTE
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.
#+END_QUOTE

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.

#+BEGIN_SRC emacs-lisp :results none :tangle no
(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
)
#+END_SRC

*** hledger-mode
#+begin_src emacs-lisp :tangle config.el
;; 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)
#+end_src

*** gptel
#+begin_src emacs-lisp :tangle config.el
(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)
#+end_src

#+RESULTS:
: t
*** erc
**** config
#+begin_src emacs-lisp :tangle config.el
;; 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"))
#+end_src

#+RESULTS:
: erc/libera

* 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.
#+begin_src emacs-lisp :tangle no
(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.
 )
#+end_src
* 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.

#+begin_src emacs-lisp :tangle init.el
;;; 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))

#+end_src

#+RESULTS:

* 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:
#+begin_src emacs-lisp :tangle no
(package! some-package)
#+end_src


*** Install a package directly from git repo:
Specify a ~:recipe~. [[https://github.com/raxod502/straight.el#the-recipe-format][Documentation.]]
#+begin_src emacs-lisp :tangle no
(package! another-package :recipe (:host github
  :repo "username/repo"))
#+end_src
If there is no PACKAGENAME.el file, or it's in a subdirectory, specify ~:files~ in the ~:recipe~:
#+begin_src emacs-lisp :tangle no
(package! this-package
  :recipe (:host github :repo "username/repo"
           :files ("some-file.el" "src/lisp/*.el")))
#+end_src

*** Disable packages included with Doom Emacs:
#+begin_src emacs-lisp :tangle no
~(package! builtin-package :disable t)~
#+end_src
*** Override package recipe:
If a property in a ~:recipe~ isn't specified, it will use defaults from Doom/MELPA/ELPA/Emacsmirror.
#+begin_src emacs-lisp :tangle no
(package! builtin-package :recipe (:nonrecursive t))
(package! builtin-package-2 :recipe (:repo "myfork/package"))
#+end_src
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.
#+begin_src emacs-lisp :tangle no
(package! builtin-package :recipe (:branch "develop"))
#+end_src
*** Install a specific commit:
You can set ~:pin~.
#+begin_src emacs-lisp :tangle no
(package! builtin-package :pin "1a2b3c4d5e")
#+end_src
*** 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.
#+begin_src emacs-lisp :tangle no
(unpin! pinned-package)
(unpin! pinned-package another-pinned-package)
(unpin! t)
#+end_src
** Packages:
*** Core
#+begin_src emacs-lisp :tangle packages.el
;; -*- no-byte-compile: t; -*-
;;; $DOOMDIR/packages.el

(unpin! straight)
(package! beacon)
(package! counsel)
(package! deft)
#+end_src
*** Themes
#+begin_src emacs-lisp :tangle packages.el
(package! all-the-icons)
(package! all-the-icons-dired)

(package! doom-themes)
#+end_src
*** Modes:
#+begin_src emacs-lisp :tangle packages.el
(package! battle-haxe)
(package! fish-mode)
(package! typescript-mode)
(package! terraform-mode)
(package! wc-mode)
(package! plantuml-mode)
(package! csv-mode)
#+end_src
*** dired
#+begin_src emacs-lisp :tangle packages.el
(package! dired-open)
#+end_src
*** various?
#+begin_src emacs-lisp :tangle packages.el
;; (package! helm-xref)
#+end_src
*** pdf-tools
#+begin_src emacs-lisp :tangle packages.el
(package! pdf-tools)
#+end_src

*** Org
#+begin_src emacs-lisp :tangle packages.el
;; 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)
#+end_src
*** Yasnippet
#+begin_src emacs-lisp :tangle packages.el

#+end_src

*** Org-depend
Ensure task dependencies are met.
#+begin_src emacs-lisp :tangle no
(package! org-depend
 :recipe (
          :host github
                :repo "fgeller/org-mode"
                :files ("contrib/lisp/org-depend.el")))
#+end_src
*** org-edna
:PROPERTIES:
:ID:       a6c4440f-10b5-4353-acc9-bfcab0a089a3
:END:
#+begin_src emacs-lisp :tangle packages.el
(package! org-edna)
(package! org-super-links
  :recipe (
           :type git
                 :host github
                 :repo "toshism/org-super-links"
                 :branch "develop"
           ))
#+end_src
*** Elgantt
:PROPERTIES:
:ID:       2d5897d1-6e8c-4163-a131-42daef5856cb
:END:
Pretty Gantt chart for your agenda.
#+begin_src emacs-lisp :tangle packages.el
(package! elgantt
  :recipe (:host github :repo "legalnonsense/elgantt"))
#+end_src
*** mode-icons
#+begin_src emacs-lisp :tangle packages.el
(package! mode-icons)
#+end_src
*** qrencode
#+begin_src emacs-lisp :tangle packages.el
(package! qrencode)
#+end_src
*** hledger
#+begin_src emacs-lisp :tangle packages.el
(package! hledger-mode)
#+end_src
*** copilot.el
#+begin_src emacs-lisp :tangle no
(package! copilot
  :recipe (:host github :repo "zerolfx/copilot.el" :files ("*.el" "dist")))
#+end_src
*** elpher
#+begin_src emacs-lisp :tangle packages.el
(package! elpher)
#+end_src
*** multiple-cursors
#+begin_src emacs-lisp :tangle packages.el
(package! multiple-cursors)

#+end_src
*** gptel
#+begin_src emacs-lisp :tangle packages.el
(package! gptel
  :recipe (:host github
		 :repo "karthink/gptel"
		 :files ("*.el")))
#+end_src