Literate Dotfile Configuration

;;; tangle-moi.el --- Tangle the literate dotfiles config -*- lexical-binding: t; -*-

(require 'ob-tangle)
(require 'subr-x)

(defun tangle-moi--source-directory ()
  "Return the chezmoi source directory."
  (file-name-as-directory
   (string-trim (car (process-lines "chezmoi" "source-path")))))

(defun tangle-moi--config-file ()
  "Return the canonical config.org path."
  (file-truename
   (expand-file-name "config.org" (tangle-moi--source-directory))))

(defun tangle-moi-tangle ()
  "Tangle config.org while preserving any unsaved live Emacs buffer."
  (let* ((source-directory (tangle-moi--source-directory))
         (config-file (tangle-moi--config-file))
         (existing-buffer (find-buffer-visiting config-file)))
    (when (and existing-buffer (buffer-modified-p existing-buffer))
      (user-error "Refusing to tangle: config.org has unsaved Emacs changes"))
    (with-current-buffer (or existing-buffer (find-file-noselect config-file))
      (unless (verify-visited-file-modtime (current-buffer))
        (revert-buffer t t))
      (let ((default-directory source-directory))
        (save-restriction
          (widen)
          (org-babel-tangle))))))

(defun tangle-moi-tangle-batch ()
  "Tangle config.org and print the target files for batch callers."
  (condition-case error-data
      (progn
        (prin1 (tangle-moi-tangle))
        (terpri))
    (error
     (message "Tangle failed: %s" (error-message-string error-data))
     (kill-emacs 1))))

(defun tangle-moi--save-config-buffer ()
  "Save config.org when it has unsaved changes in Emacs."
  (when-let ((buffer (find-buffer-visiting (tangle-moi--config-file))))
    (when (buffer-modified-p buffer)
      (with-current-buffer buffer
        (save-buffer)))))

;;;###autoload
(defun tangle-moi ()
  "Tangle the literate dotfiles config, preview it, and ask to apply."
  (interactive)
  (tangle-moi--save-config-buffer)
  (message "Tangling Org file...")
  (tangle-moi-tangle)
  (message "Tangling complete. Previewing chezmoi changes...")
  (let ((diff (shell-command-to-string
               "chezmoi apply --dry-run --verbose --force")))
    (if (string-empty-p diff)
        (message "No changes to apply.")
      (with-output-to-temp-buffer "*chezmoi diff*"
        (princ diff))
      (if (y-or-n-p
           "Apply these changes, overwriting any drifted targets? ")
          (if (zerop
               (shell-command "chezmoi apply --verbose --force"))
              (message "Changes applied.")
            (message "Chezmoi apply failed; see *Shell Command Output*."))
        (message "Changes aborted.")))))

(provide 'tangle-moi)
;;; tangle-moi.el ends here

;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-

; Remember, you do not need to run 'doom sync' after modifying this file!

;; Some functionality uses this to identify you, e.g. GPG configuration, email
;; clients, file templates and snippets. It is optional.
;; (setq user-full-name "John Doe"
;;       user-mail-address "john@doe.com")

;; Doom exposes five (optional) variables for controlling fonts in Doom:
;;
;; - `doom-font' -- the primary font to use
;; - `doom-variable-pitch-font' -- a non-monospace font (where applicable)
;; - `doom-big-font' -- used for `doom-big-font-mode'; use this for
;;   presentations or streaming.
;; - `doom-symbol-font' -- for symbols
;; - `doom-serif-font' -- for the `fixed-pitch-serif' face
;;
;; See 'C-h v doom-font' for documentation and more examples of what they
;; accept. For example:
;;
;;(setq doom-font (font-spec :family "Fira Code" :size 12 :weight 'semi-light)
;;      doom-variable-pitch-font (font-spec :family "Fira Sans" :size 13))
;;
;; If you or Emacs can't find your font, use 'M-x describe-font' to look them
;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to
;; refresh your font settings. If Emacs still can't find your font, it likely
;; wasn't installed correctly. Font issues are rarely Doom issues!

(setopt
  user-full-name "Anton Bilbaeno"
  user-mail-address "antoaenono@pm.me"
  display-line-numbers-type 'relative
  mouse-drag-copy-region t
)

(setq
  doom-theme 'doom-monokai-machine
)

(setq
  projectile-project-search-path '("~/source/" "~/.local/share/chezmoi/")
  projectile-globally-ignored-directories '("node_modules" ".cache" "deps" "_build" "dist" ".elixir_ls" ".hex" ".mix")
  projectile-ignored-projects '("~/source/archive/")
)

(load! "lisp/tangle-moi")


;; 80 char limit encourages concise code. Respect to the early days.
;; note: in org files 80 chars is /on top/ of the spacing under the heading
(setq-default fill-column 80)
(global-display-fill-column-indicator-mode 1)

;; Rebind "quit" to Cmd-Shift-q to avoid conflict with M-q (fill-paragraph)
;; ...shouldn't be so easy to quit anyway!
(map! :g "M-Q" #'save-buffers-kill-terminal)
;; TODO the above doesn't work, it just adds a new binding, and Emacs Gui still captures Cmd+q


;; HASKELL
;; Hooks so haskell and literate haskell major modes trigger LSP setup
(add-hook 'haskell-mode-hook #'lsp)
(add-hook 'haskell-literate-mode-hook #'lsp)

;; TODO test if these are really needed after moving path to .zshenv (was in .zshrc)
;; Add haskell lsp to path for emacs subprocesses
(add-to-list 'exec-path (expand-file-name "~/.ghcup/bin"))
;; Add haskell tools to path for emacs environment
(setenv "PATH" (concat (expand-file-name "~/.ghcup/bin") ":" (getenv "PATH")))
;; hlint in local bin. Ensure ~/.local/bin is in Emacs's exec-path
;; TODO this didnt work emacs still can't find hlint
(setq exec-path (cons (expand-file-name "~/.local/bin") exec-path))

;; Counted normal-state j/k match relative buffer-line numbers across folds.
;; Uncounted motions and operator/visual-state bindings retain Evil's defaults.
(defcustom my/counted-motions-reveal nil
  "Whether counted j/k reveal a destination inside folded text."
  :type 'boolean
  :group 'evil)

(after! evil
  (defun my/move-buffer-lines (count)
    "Move COUNT buffer lines, resolving hidden destinations without guessing."
    (let ((line-move-visual nil)
          (line-move-ignore-invisible nil))
      (evil-line-move count))
    (when (invisible-p (point))
      (if my/counted-motions-reveal
          (cond ((derived-mode-p 'org-mode) (org-fold-reveal))
                ((derived-mode-p 'markdown-mode) (markdown-show-entry))
                (t (+fold/open)))
        ;; Leave folds closed and stop at the boundary in the motion direction.
        (while (and (invisible-p (point))
                    (if (> count 0) (not (eobp)) (not (bobp))))
          (goto-char
           (if (> count 0)
               (next-char-property-change (point) (point-max))
             (max (point-min)
                  (1- (previous-char-property-change (point) (point-min)))))))
        ;; Org can leave a visible newline at the end of a hidden span.
        (when (and (> count 0) (eolp) (not (eobp)))
          (forward-char 1))))
    (evil-adjust-cursor))

  (evil-define-motion my/next-line (count)
    "Move by buffer lines with COUNT and relative numbers, otherwise normally."
    :type line
    (if (and count (eq display-line-numbers 'relative))
        (my/move-buffer-lines count)
      (evil-next-line count)))

  (evil-define-motion my/previous-line (count)
    "Move up by buffer lines with COUNT and relative numbers, otherwise normally."
    :type line
    (if (and count (eq display-line-numbers 'relative))
        (my/move-buffer-lines (- count))
      (evil-previous-line count)))

  (define-key evil-normal-state-map "j" #'my/next-line)
  (define-key evil-normal-state-map "k" #'my/previous-line))

;; ORG ;;
(setopt org-directory "~/org/")

;; Restore Org's native folded -> children -> subtree TAB cycle. Doom's
;; evil-org integration otherwise replaces it with a two-state local toggle.
(after! evil-org
  (remove-hook 'org-tab-first-hook #'+org-cycle-only-current-subtree-h))

;; Disable org-element cache (Org 9.5+ bug): subtree and narrowed exports trigger
;; cache revalidation on the temp export buffer, causing an infinite loop / hang.
;; Full-document export is unaffected. Disabling the cache trades minor parse speed
;; for reliable export at any scope.
(setq org-element-use-cache nil)

;; (after! org
;;   ;; Add the 'titletoc' package to Org's list of LaTeX packages
;;   (add-to-list 'org-latex-packages-alist '("titletoc" nil t))

;;   ;; Use latexmk for PDF export
;;   ;; (setq org-latex-to-pdf-process (list "latexmk %f"))
;; )

;; more `<` tab completion templates aka "structure templates" -- orgmode.org/manual/Structure-Templates.html
;(after! org (add-to-list 'org-structure-template-alist
  ;("sh" . "src shell")))

;; custom syntax: !! to indicate key presses
;; add as a keyword in org-mode and draw a box around it
;; TODO export to <kbd>
(after! org
  (font-lock-add-keywords
   'org-mode
   '(("!!\\(.*?\\)!!"
      (1 '(face (:weight 'semi-bold
                           :box '(:line-width 2 :color "palegoldenrod"))))))))

;; automatically show magic behind point
(use-package! org-appear
  :after org
  :hook (org-mode . org-appear-mode)
  :config
  (setopt org-appear-autoemphasis t ; _/**/_
          org-appear-autolinks t ;; dun work on #+TRANSCLUSION directives. use `org-toggle-link-display`
          org-appear-autoentities t ;; \alpha for α
  )
)

; information teleport
(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))

; https://nobiot.github.io/org-transclusion/#:~:text=4.10%20Extensions,regain%20the%20indentation.
; this didn't seem to work, or i don't understand what it's supposed to be doing
; but i was trying to fix the issue where the source buffer loses indentation while transclusion is active
  ; :config
  ; ;; Enable org-transclusion-indent-mode extension
  ; (add-to-list 'org-transclusion-extensions 'org-transclusion-indent-mode)
  ; (require 'org-transclusion-indent-mode))

; roaman emacs... to gather
(setopt org-roam-directory "~/org/roam")
(org-roam-db-autosync-mode) ; docs say put this here[?]

;; CITATIONS (citar + org-cite)
(setq! citar-bibliography '("~/org/bib/references.bib")
       citar-library-paths '("~/org/pdfs/")
       citar-notes-paths '("~/org/roam/refs/"))

(after! oc
  (setq org-cite-global-bibliography '("~/org/bib/references.bib")
        org-cite-insert-processor 'citar
        org-cite-follow-processor 'citar
        org-cite-activate-processor 'citar))

;; bridge citar with org-roam for note management
(use-package! citar-org-roam
  :after (citar org-roam)
  :config
  (citar-org-roam-mode)
  (setq citar-org-roam-subdir "refs"
        citar-org-roam-note-title-template "${author}, ${title}"
        citar-org-roam-template-fields
        '((:citar-title   . ("title"))
          (:citar-author  . ("author" "editor"))
          (:citar-date    . ("date" "year" "issued"))
          (:citar-pages   . ("pages"))
          (:citar-type    . ("=type="))
          (:citar-file    . ("file"))))
  (add-to-list 'org-roam-capture-templates
               '("r" "reference" plain "%?"
                 :if-new (file+head "refs/${citar-citekey}.org"
                                    ":PROPERTIES:\n:NOTER_DOCUMENT: ${citar-file}\n:END:\n#+title: ${citar-title}\n#+DATE: %<%Y-%m-%d %a>\n#+PUBLISH: garden\n")
                 :immediate-finish t
                 :unnarrowed t))
  (setq citar-org-roam-capture-template-key "r"))

(defun my/citar-open-noter ()
  "Open roam note and start org-noter in a dedicated frame."
  (interactive)
  (select-frame (make-frame))
  (call-interactively #'citar-open-notes)
  (org-noter))

(map! :leader :desc "Open noter session" "n p" #'my/citar-open-noter)

(defun my/citar-close-noter ()
  "Save notes and PDF annotations, end org-noter session, and close frame."
  (interactive)
  (org-noter--with-valid-session
    (with-current-buffer (org-noter--session-notes-buffer session)
      (save-buffer))
    (with-current-buffer (org-noter--session-doc-buffer session)
      (save-buffer)))
  (org-noter-kill-session)
  (delete-frame))

(map! :leader :desc "Close noter session" "n q" #'my/citar-close-noter)

;; PDF ANNOTATION (org-noter)
(use-package! org-noter
  :after org
  :config
  (setq org-noter-always-create-frame nil
        org-noter-kill-frame-at-session-end nil
        org-noter-auto-save-last-location nil
        org-noter-doc-property-in-notes t
        org-noter-notes-window-location 'horizontal-split
        org-noter-highlight-selected-text t))

;; GLOSSARY / ACRONYMS
(setq org-link-descriptive t
      org-glossary-global-terms '("~/org/glossary.org"))
(use-package! org-glossary
  :after org
  :hook (org-mode . org-glossary-mode)
  :config
  (load! "lisp/org-glossary-export-fix"))

;; PEOPLE REFERENCES
(use-package! org-contacts
  :after org
  :config
  (setq org-contacts-files '("~/org/contacts.org")
        org-contacts-matcher "contact"
        org-contacts-tag "contact")
  (add-to-list 'org-tags-exclude-from-inheritance "contact")

  (defun my/org-contact-description (link _description)
    "Default LINK's local description to its nickname or initials."
    (let* ((name (org-link-unescape
                  (replace-regexp-in-string "\\`\\(?:org-contact\\|who\\):" "" link)))
           (contact (car (org-contacts-filter
                          (concat "\\`" (regexp-quote name) "\\'"))))
           (nickname (cdr (assoc-string "NICKNAME" (nth 2 contact)))))
      (if (and nickname (not (string-empty-p (string-trim nickname))))
          (string-trim nickname)
        (mapconcat (lambda (word) (upcase (substring word 0 1)))
                   (split-string name "[[:space:]-]+" t) ""))))

  (org-link-set-parameters "org-contact"
                           :insert-description #'my/org-contact-description)

  (defun my/org-contact-short-complete (&optional arg)
    "Complete a who: link using org-contacts."
    (concat "who:" (string-remove-prefix "org-contact:"
                                         (org-contacts-link-complete arg))))

  (org-link-set-parameters "who"
                           :follow #'org-contacts-link-open
                           :complete #'my/org-contact-short-complete
                           :insert-description #'my/org-contact-description)

  (require 'url-util)

  (defun my/org-contact-social-url (property value)
    "Resolve a GitHub or LinkedIn PROPERTY VALUE to its profile URL."
    (when-let ((template (cdr (assoc-string
                              property
                              '(("GITHUB" . "https://github.com/%s")
                                ("LINKEDIN" . "https://www.linkedin.com/in/%s/"))
                              t))))
      (let* ((value (string-trim value))
             (handle (string-remove-prefix "@" value)))
        (cond ((string-match-p "\\`https?://[^[:space:]]+\\'" value) value)
              ((string-match-p "\\`[[:alnum:]][[:alnum:]._-]*\\'" handle)
               (format template (url-hexify-string handle)))))))

  (defun my/org-open-contact-social-property (&rest _)
    "Open a GitHub or LinkedIn profile from the Org property at point."
    (when (derived-mode-p 'org-mode)
      (let ((property (org-element-context)))
        (when (eq (org-element-type property) 'node-property)
          (when-let ((url (my/org-contact-social-url
                          (org-element-property :key property)
                          (org-element-property :value property))))
            (browse-url url)
            t)))))

  (add-hook 'org-open-at-point-functions #'my/org-open-contact-social-property)
  (advice-add '+org/dwim-at-point :before-until #'my/org-open-contact-social-property))

(defun my/org-insert-contact-link ()
  "Select a contact using org-contacts and insert its default label."
  (interactive)
  (require 'org-contacts)
  (org-insert-link nil (my/org-contact-short-complete)))

(map! :leader :desc "Insert contact reference" "n P" #'my/org-insert-contact-link)

;; ORG HEADING FACES (levels 5-8 inherit outline-4/foreground by default)
(custom-set-faces!
  '(org-level-5 :foreground "#f92672")  ; pink
  '(org-level-6 :foreground "#fd971f")  ; orange
  '(org-level-7 :foreground "#ae81ff")  ; purple
  '(org-level-8 :foreground "#66d9ef")) ; teal

;; ROAM UI (graph visualization)
(use-package! org-roam-ui
  :after org-roam
  :config
  (setq org-roam-ui-sync-theme t
        org-roam-ui-follow t
        org-roam-ui-update-on-save t))

;; CAPTURE TEMPLATES
(after! org
  (setq org-capture-templates
        '(("t" "Task" entry (file+headline "~/org/inbox.org" "Tasks")
           "* TODO %?\n%U\n%a\n")
          ("n" "Note" entry (file+headline "~/org/inbox.org" "Notes")
           "* %?\n%U\n")
          ("r" "Reading Note" entry (file+headline "~/org/inbox.org" "Reading")
           "* %^{Title}\n%U\n%?\n")
          ("p" "Person" entry (file "~/org/contacts.org")
           "* %^{Name} :contact:\n:PROPERTIES:\n:ID: %(org-id-new)\n:NICKNAME: %^{Nickname}\n:PRIVATE: true\n:END:\n%?\n"))))

;; REFILE
(after! org
  (setq org-refile-targets '((nil :maxlevel . 3)
                             (org-agenda-files :maxlevel . 3))
        org-refile-use-outline-path 'file
        org-outline-path-complete-in-steps nil
        org-refile-allow-creating-parent-nodes 'confirm))

;; AGENDA (recursive - finds TODOs in all subdirs)
(setq org-agenda-files '("~/org/")
      org-agenda-file-regexp "\\`[^.].*\\.org\\'")
(setq org-agenda-custom-commands
      '(("d" "Dashboard"
         ((agenda "" ((org-agenda-span 14)))
          (todo "TODO" ((org-agenda-overriding-header "Tasks")))))))

(defun my/org-agenda-files-recursive ()
  "Build agenda file list recursively from ~/org/."
  (directory-files-recursively "~/org/" "\\.org$"))
(setq org-agenda-files (my/org-agenda-files-recursive))

(defun my/insert-site-file-header (publish-type)
  "Insert a dated draft site header routed to PUBLISH-TYPE."
  (let ((title
         (capitalize
          (string-replace
           "-" " "
           (file-name-base buffer-file-name)))))
    (insert
     (format "#+title: %s\n#+DATE: %s\n#+PUBLISH: %s\n#+DRAFT: true\n\n"
             title
             (format-time-string "<%Y-%m-%d %a>")
             publish-type))))

;; Publishing is metadata-driven, so source location and site destination can
;; vary independently. These rules provide the common directory defaults.
(set-file-template!
 (concat "\\`"
         (regexp-quote (expand-file-name "~/org/blog/"))
         "[^/]+\\.org\\'")
 :trigger (lambda () (my/insert-site-file-header "blog")))

(set-file-template!
 (concat "\\`"
         (regexp-quote (expand-file-name "~/org/now/"))
         "[^/]+\\.org\\'")
 :trigger (lambda () (my/insert-site-file-header "now")))

(set-file-template!
 (concat "\\`"
         (regexp-quote (expand-file-name "~/org/time/"))
         ".+\\.org\\'")
 :trigger (lambda () (my/insert-site-file-header "time")))

;; Whenever you reconfigure a package, make sure to wrap your config in an
;; `after!' block, otherwise Doom's defaults may override your settings. E.g.
;;
;;   (after! PACKAGE
;;     (setq x y))
;;
;; The exceptions to this rule:
;;
;;   - Setting file/directory variables (like `org-directory')
;;   - Setting variables which explicitly tell you to set them before their
;;     package is loaded (see 'C-h v VARIABLE' to look up their documentation).
;;   - Setting doom variables (which start with 'doom-' or '+').
;;
;; Here are some additional functions/macros that will help you configure Doom.
;;
;; - `load!' for loading external *.el files relative to this one
;; - `use-package!' for configuring packages
;; - `after!' for running code after a package has loaded
;; - `add-load-path!' for adding directories to the `load-path', relative to
;;   this file. Emacs searches the `load-path' when you load packages with
;;   `require' or `use-package'.
;; - `map!' for binding new keys
;;
;; To get information about any of these functions/macros, move the cursor over
;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k').
;; This will open documentation for it, including demos of how they are used.
;; Alternatively, use `C-h o' to look up a symbol (functions, variables, faces,
;; etc).
;;
;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
;; they are implemented.

;;; magit
(after! magit
  (setq magit-diff-refine-hunk 'all
        magit-diff-highlight-trailing nil
        magit-diff-paint-whitespace nil))

(custom-set-faces!
  '(magit-diff-added             :background unspecified)
  '(magit-diff-added-highlight   :background unspecified)
  '(magit-diff-removed           :background unspecified)
  '(magit-diff-removed-highlight :background unspecified))

;;; difftastic - AST-aware diffs, called on demand from magit
(use-package! difftastic
  :defer t
  :init
  (map! :leader
        :prefix "g"
        :desc "Difftastic show commit"   "D" #'difftastic-magit-show
        :desc "Difftastic diff range"    "T" #'difftastic-magit-diff)
  ;; Note: difftastic lands in doom's bottom popup (small). Press `C-w _` to
  ;; maximize the window vertically, or `C-w o` to fill the frame.
  )

brew "difftastic"

;;; org-glossary-export-fix.el --- Preserve only authored glossary breaks -*- lexical-binding: t; -*-

(require 'org-glossary)

(defun org-glossary-export-fix--trim-paragraph (value _backend _info)
  "Remove a single structural ending newline from inline glossary VALUE.
Work on a copied paragraph, preserving authored internal and explicit
line breaks.  Multi-paragraph and other block definitions are unchanged."
  (when (and (consp value)
             (null (cdr value))
             (eq (org-element-type (car value)) 'paragraph))
    (let* ((paragraph (org-element-copy (car value) t))
           (last-child (last (org-element-contents paragraph))))
      (when (and (stringp (car last-child))
                 (string-suffix-p "\n" (car last-child)))
        (setcar last-child (substring (car last-child) 0 -1))
        (list paragraph)))))

(defun org-glossary-export-fix--export-term (original entry info)
  "Export glossary ENTRY with ORIGINAL using an isolated copy of INFO.
Normalize only inline glossary paragraphs with preserved line breaks,
after existing parse-tree filters.  Keep the original export cache."
  (if (not (plist-get info :preserve-breaks))
      (funcall original entry info)
    (let ((export-info (copy-sequence info)))
      (setq export-info
            (plist-put
             export-info :filter-parse-tree
             (append
              (remq #'org-glossary-export-fix--trim-paragraph
                    (plist-get info :filter-parse-tree))
              (list #'org-glossary-export-fix--trim-paragraph))))
      (funcall original entry export-info))))

;; org-glossary exports a single paragraph's children inline.  With \n:t,
;; its structural ending newline otherwise becomes an HTML/LaTeX break.
(unless (advice-member-p #'org-glossary-export-fix--export-term
                        'org-glossary--export-term)
  (advice-add 'org-glossary--export-term :around
              #'org-glossary-export-fix--export-term))

(provide 'org-glossary-export-fix)
;;; org-glossary-export-fix.el ends here

;;; 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
       ;;(colemak +mod-dh)
       ;;bidi              ; (tfel ot) thgir etirw uoy gnipleh
       ;;chinese
       ;;japanese
       ;;layout            ; auie,ctsrnm is the superior home row

       :completion
       ;;company           ; the ultimate code completion backend
       ;;(corfu +orderless)  ; complete with cap(f), cape and a flying feather!
       ;;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
       indent-guides     ; highlighted indent columns
       ligatures         ; ligatures and symbols to make your code pretty again
       ;;minimap           ; show a map of the code on the side
       modeline          ; snazzy, Atom-inspired modeline, plus API
       nav-flash         ; blink cursor line after big motions
       ;;neotree           ; a project drawer, like NERDTree for vim
       ophints           ; highlight the region an operation acts on
       (popup +all +defaults)   ; tame sudden yet inevitable temporary windows
       ;;smooth-scroll     ; So smooth you won't believe it's not butter
       ;;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
       ;;eww               ; the internet is gross
       ;;ibuffer           ; interactive buffer management
       undo              ; 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)
       lookup              ; navigate your code and its documentation
       ;;llm               ; when I said you needed friends, I didn't mean...
       lsp               ; M-x vscode
       magit             ; a git porcelain for Emacs
       make              ; run make tasks from Emacs
       ;;pass              ; password manager for nerds
       (pdf +noter)      ; pdf enhancements with org-noter annotations
       ;;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 (featurep :system 'macos) macos)  ; improve compatibility with macOS
       ;;tty               ; improve the terminal Emacs experience

       :lang
       ;;ada               ; In strong typing we (blindly) trust
       ;;agda              ; types of types of types of types...
       ;;beancount         ; mind the GAAP
       (cc +lsp)         ; C > C++ == 1
       ;;clojure           ; java with a lisp
       ;;common-lisp       ; if you've seen one lisp, you've seen them all
       ;;coq               ; proofs-as-programs
       ;;crystal           ; ruby at the speed of c
       ;;csharp            ; unity, .NET, and mono shenanigans
       data              ; config/data formats
       ;;(dart +flutter)   ; paint ui and not much else
       ;;dhall
       elixir            ; erlang done right
       ;;elm               ; care for a cup of TEA?
       emacs-lisp        ; drown in parentheses
       ;;erlang            ; an elegant language for a more civilized age
       ;;ess               ; emacs speaks statistics
       ;;factor
       ;;faust             ; dsp, but you get to keep your soul
       ;;fortran           ; in FORTRAN, GOD is REAL (unless declared INTEGER)
       ;;fsharp            ; ML stands for Microsoft's Language
       ;;fstar             ; (dependent) types and (monadic) effects and Z3
       ;;gdscript          ; the language you waited for
       ;;(go +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
       ;;janet             ; Fun fact: Janet is me!
       ;;(java +lsp)       ; the poster child for carpal tunnel syndrome
       javascript        ; all(hope(abandon(ye(who(enter(here))))))
       ;;julia             ; a better, faster MATLAB
       ;;kotlin            ; a better, slicker Java(Script)
       latex             ; writing papers in Emacs has never been so fun
       ;;lean              ; for folks with too much to prove
       ;;ledger            ; be audit you can be
       ;;lua               ; one-based indices? one-based indices
       markdown          ; writing docs for people to ignore
       ;;nim               ; python + lisp at the speed of c
       ;;nix               ; I hereby declare "nix geht mehr!"
       ;;ocaml             ; an objective camel
       (org               ; organize your plain life in plain text
         +attach
         +babel
         +capture
         +export
         +roam
         ;; +present
       )
       ;; php               ; perl's insecure younger brother
       ;;plantuml          ; diagrams for confusing people more
       ;;graphviz          ; diagrams for confusing yourself even more
       ;;purescript        ; javascript, but functional
       python            ; 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                ; 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               ; the tubes
       yaml              ; JSON, but readable
       ;;zig               ; 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

       :config
       ;;literate
       (default +bindings +smartparens)) ; TODO +snippets +evil-commands

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

;; 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'.

;; To install SOME-PACKAGE from MELPA, ELPA or emacsmirror:
;; (package! some-package)

;; org
(package! org-appear)
(package! org-transclusion)
(package! org-contacts
  :recipe (:host github :repo "emacsmirror/org-contacts")
  :pin "7b93522b6f9d0f3343fd34e5fd1be2ce2f66b279")

;; citations and bibliography
(package! citar)
(package! citar-org-roam)

;; pdf annotation
(package! org-noter)

;; roam graph visualization
(package! org-roam-ui)

;; glossary and acronym management
(package! org-glossary
  :recipe (:host github :repo "tecosaur/org-glossary"))

;; structural (AST-aware) diffs on demand from magit
(package! difftastic)


;; To install a package directly from a remote git repo, you must specify a
;; `:recipe'. You'll find documentation on what `:recipe' accepts here:
;; https://github.com/radian-software/straight.el#the-recipe-format
;; (package! another-package
;;   :recipe (:host github :repo "username/repo"))

;; If the package you are trying to install does not contain a PACKAGENAME.el
;; file, or is located in a subdirectory of the repo, you'll need to specify
;; `:files' in the `:recipe':
;; (package! this-package
;;   :recipe (:host github :repo "username/repo"
;;            :files ("some-file.el" "src/lisp/*.el")))

;; If you'd like to disable a package included with Doom, you can do so here
;; with the `:disable' property:
;; (package! builtin-package :disable t)

;; 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:
;; (package! builtin-package :recipe (:nonrecursive t))
;; (package! builtin-package-2 :recipe (:repo "myfork/package"))

;; Specify a `:branch' to install a package from a particular branch or tag.
;; This is required for some packages whose default branch isn't 'master' (which
;; our package manager can't deal with; see radian-software/straight.el#279)
;; (package! builtin-package :recipe (:branch "develop"))

;; Use `:pin' to specify a particular commit to install.
;; (package! builtin-package :pin "1a2b3c4d5e")


;; Doom's packages are pinned to a specific commit and updated from release to
;; release. The `unpin!' macro allows you to unpin single packages...
;; (unpin! pinned-package)
;; ...or multiple packages
;; (unpin! pinned-package another-pinned-package)
;; ...Or *all* packages (NOT RECOMMENDED; will likely break things)
;; (unpin! t)