BHW Emacs Configuration

;;---------------------------------------------------------------------------
(after! consult
  (require 'org-node)

  (defvar bhw/consult-source-filesystem
    `(:name     "Find"
      :narrow   ?f
      :category file
      :face     consult-file
      :history  file-name-history
      ;; Synchronously fetch the file list using fd.
      ;; NOTE: pass "~/" as an explicit path argument — without it, fd uses CWD
      ;; implicitly and the global ignore file (~/.config/fd/ignore) is not
      ;; applied, so Trash and other excluded dirs leak through.
      :items    ,(lambda ()
                   (when (executable-find "fdfind")
                     (let ((home (expand-file-name "~")))
                       ;; fd requires an explicit pattern before the path:
                       ;;   fdfind [opts] . /home/ben
                       ;; A bare path (no leading pattern) is parsed as the
                       ;; pattern and errors.  Without an explicit path fd
                       ;; uses CWD implicitly, which bypasses the global
                       ;; ignore file (~/.config/fd/ignore), causing Trash
                       ;; and other excluded dirs to appear.
                       ;; fd returns absolute paths when given an absolute
                       ;; search root, so strip the prefix before re-adding ~/
                       (mapcar (lambda (file)
                                 (concat "~/" (string-remove-prefix (concat home "/") file)))
                               (ignore-errors
                                 (process-lines "fdfind"
                                                "--follow"
                                                "--type" "f"
                                                "--hidden"
                                                "--exclude" ".git"
                                                "--color" "never"
                                                "." home))))))
      :action   ,#'consult--file-action))

  (defvar bhw/consult-source-project-maria
    `(:name     "Project-Maria rg"
      :narrow   ?m
      :category consult-grep
      :history  consult--grep-history
      :state    ,#'consult--grep-state
      :action   ,(lambda (c) (consult--jump (consult--grep-position c)))
      :async
      ,(consult--process-collection
           (consult--ripgrep-make-builder
            (list (expand-file-name "~/project-maria")))
         :transform
         (consult--grep-format
          (consult--ripgrep-make-builder
           (list (expand-file-name "~/project-maria"))))
         :file-handler t)))

  ;; (defvar bhw/consult-source-emacs-commands
  ;;   (list :name "Emacs Commands"
  ;;         :narrow ?e
  ;;         :category 'command
  ;;         :items (lambda ()
  ;;                  (let ((cmds))
  ;;                    (mapatoms (lambda (elt)
  ;;                                (when (commandp elt)
  ;;                                  (push (symbol-name elt) cmds))))
  ;;                    cmds))
  ;;         :action (lambda (cmd-str)
  ;;                   (command-execute (intern-soft cmd-str))))
  ;;   "A simple consult source for Emacs commands.")

  (defvar org-node-history nil
    "History list for org-node selections in `consult-buffer'. The `:history 'org-node-history` property in `bhw/consult-source-org-node` tells `consult` to record selections into the variable `org-node-history`. But that variable was never declared with `defvar`, so it was void. When `consult--multi` tried to call `(add-to-history org-node-history \"Ecclesiastes 3:1\")`, Emacs raised a `void-variable` error.")

  (defvar bhw/consult-source-org-node
    (list :name     "Org Node"
          :narrow   ?n
          :category 'org-node
          :face     'consult-file
          :history  'org-node-history
          :items    (lambda ()
                      (org-node-cache-ensure)
                      (hash-table-keys org-node--candidate<>entry))
          :action   (lambda (cand)
                      (require 'org-id)
                      (let ((node (gethash cand org-node--candidate<>entry)))
                        (if node
                            (org-node-goto node)
                          ;; Fallback if the user somehow selects a non-existent item
                          ;; though :new usually handles creation
                          (org-node-create cand (org-id-new)))))
          :new      (lambda (cand)
                      (require 'org-id)
                      ;; Handle blank input for creation specifically
                      (let ((title (if (string-blank-p cand)
                                       (funcall org-node-blank-input-title-generator)
                                     cand)))
                        (org-node-create title (org-id-new)))))
    "Source for `org-node' to be used in `consult-buffer'.")

  (setf consult-buffer-sources '(consult-source-buffer
                                 bhw/consult-source-org-node
                                 bhw/consult-source-project-maria
                                 bhw/consult-source-filesystem
                                 ;; bhw/consult-source-emacs-commands
                                 )))

  $ grep -E -b -o '^\(setq [^ ]+' ~/.config/emacs/.local/cache/savehist

  (setf history-length 25
        savehist-save-minibuffer-history nil
        savehist-autosave-interval nil
        kill-ring-max 200
        savehist-mode nil)
  (delq 'mark-ring savehist-additional-variables)
  (delq 'global-mark-ring savehist-additional-variables)
  (delq 'search-ring savehist-additional-variables)
  (delq 'regexp-search-ring savehist-additional-variables)
  (delq 'extended-command-history savehist-additional-variables)
  (delq 'kill-ring savehist-additional-variables)
  (put 'bibtex-completion-cache 'history-length 10)
  (push 'bibtex-completion-cache savehist-additional-variables)
  (push 'helm-ff-history savehist-additional-variables)
  (push 'org-clock-history savehist-additional-variables)
  ;; Emacs profiler shows `savehist-autosave' is very performance intensive.
  (add-hook 'kill-emacs-hook #'savehist-save) ; Savehist only on exit.

  ;; If bash $top shows high emacs memory usage, try the following.
  ;; Not sure if they work tbh.
  (pdf-cache-clear-data)
  (garbage-collect)

;;---------------------------------------------------------------------------
;; Disable evil-collection's pdf bindings so we have full control
;; over pdf-view-mode-map (same pattern used for ement below).
(after! evil-collection
  (setf evil-collection-mode-list (delq 'pdf evil-collection-mode-list)))

(map! :after pdf-tools
      :map pdf-view-mode-map
      :n "i"              #'org-noter-insert-note
      :n "M-i"            #'bhw/org-noter-insert-precise-quote
      :n "d"              #'pdf-view-scroll-up-or-next-page
      :n "u"              #'pdf-view-scroll-down-or-previous-page
      :n "s"              #'avy-goto-word-or-subword-1
      :n "f"              #'pdf-view-set-slice-from-bounding-box
      :n ";"              #'pdf-occur
      :n "q"              #'bhw/org-noter-quit
      :n "gt"             #'pdf-view-goto-page
      :n "w"              #'bhw/pdf-view-fit-width
      :n "y"              #'bhw/pdf-view-yank
      :n [down-mouse-1]   #'bhw/pdf-view-mouse-set-region
      :n [C-down-mouse-1] #'pdf-view-mouse-extend-region
      :n [M-down-mouse-1] #'pdf-view-mouse-set-region-rectangle)

;; Prevent Evil from entering visual-mode when pdf-view activates the
;; mark for text selection.  Without this, Evil hijacks the region and
;; tries to select the PDF image object, breaking click-drag selection.
;; (Mirrors evil-collection-pdf-disable-visual-mode.)
(add-hook! 'pdf-view-mode-hook
  (pdf-view-midnight-minor-mode)
  (run-at-time "0.1 sec" nil (lambda () (when (derived-mode-p 'pdf-view-mode)
                                          (pdf-view-redisplay t))))
  (remove-hook 'activate-mark-hook 'evil-visual-activate-hook t))

(defun bhw/pdf-view-fit-width ()
  "Fit PDF page width, re-displaying first to avoid stale image errors."
  (interactive)
  (pdf-view-redisplay t)
  (pdf-view-fit-width-to-window))

(defun bhw/pdf-view-mouse-set-region (event)
  "Start a PDF text selection, re-displaying first to avoid stale image errors."
  (interactive "@e")
  (pdf-view-redisplay t)
  (pdf-view-mouse-set-region event))

(defun bhw/pdf-view-yank ()
  "Yank the text of the active PDF region into the kill ring."
  (interactive)
  (pdf-view-assert-active-region)
  (let ((txt (pdf-view-active-region-text)))
    (pdf-view-deactivate-region)
    (kill-new (mapconcat #'identity txt "\n"))
    (message "Yanked %d characters." (length (car kill-ring)))))

;; Fix: `pdf-view-image-size' passes the raw display property to the C
;; primitive `image-size' when DISPLAYED-P is nil.  After slicing
;; (`pdf-view-set-slice-from-bounding-box'), the display property
;; becomes ((slice X Y W H) (image …)) — a compound form that the C
;; primitive `image-size' cannot handle (it expects (image …)).  This
;; advice unwraps the image spec from the sliced form so `image-size'
;; receives a bare (image …) descriptor.
(defadvice! bhw/pdf-view-image-size-handle-slice-a (fn &optional displayed-p window page)
  :around #'pdf-view-image-size
  (if displayed-p
      ;; `image-display-size' already handles the sliced compound form.
      (funcall fn displayed-p window page)
    ;; Replicate the display-prop lookup that `pdf-view-image-size' does
    ;; internally, but unwrap any slice wrapper before calling `image-size'.
    (let ((display-prop (if pdf-view-roll-minor-mode
                            (let ((w (if (windowp window) window (selected-window))))
                              (overlay-get (pdf-roll-page-overlay
                                            (or page (pdf-view-current-page w)) w)
                                           'display))
                          (image-get-display-property))))
      (image-size (if (eq (car-safe (car display-prop)) 'slice)
                      (cadr display-prop)   ; ((slice …) (image …)) → (image …)
                    display-prop)           ; already (image …)
                  t))))

(after! pdf-tools
  (setf pdf-view-use-scaling nil
        pdf-view-max-image-width 4800
        pdf-cache-image-limit 512
        pdf-cache-prefetch-delay 0.3
        ;; see also `pdf-view-midnight-minor-mode'
        pdf-view-midnight-invert nil
        pdf-tools-enabled-modes
        '(pdf-view-dark-minor-mode
          pdf-history-minor-mode
          pdf-isearch-minor-mode
          pdf-links-minor-mode
          pdf-misc-minor-mode
          pdf-misc-size-indication-minor-mode
          pdf-occur-global-minor-mode))
  (pdf-cache-prefetch-minor-mode -1))

  (setf
   pdf-view-use-scaling t
   pdf-view-display-size 'fit-width
   pdf-view-resize-factor 1.1
   image-cache-eviction-delay 128
   pdf-cache-image-limit 128
   pdf-view-restore-filename "~/.emacs.d/.cache/.pdf-view-restore")
  ;; Custom function to allow double page scrolling by calling
  ;; my-pdf-view-double-scroll-horizontal-view
  (defun my-pdf-view-double-scroll-up-or-next-page (&optional arg)
    "Scroll page up ARG lines if possible, else go to the next page.
  When `pdf-view-continuous' is non-nil, scrolling upward at the
  bottom edge of the page moves to the next page.  Otherwise, go to
  next page only on typing SPC (ARG is nil)."
    (interactive "P")
    (if (or pdf-view-continuous (null arg))
        (let ((hscroll (window-hscroll))
              (cur-page (pdf-view-current-page)))
          (when (or (= (window-vscroll) (image-scroll-up arg))
                    ;; Workaround rounding/off-by-one issues.
                    (memq pdf-view-display-size
                          '(fit-height fit-page)))
            (pdf-view-next-page 2)
            (when (/= cur-page (pdf-view-current-page))
              (image-bob)
              (image-bol 1))
            (set-window-hscroll (selected-window) hscroll)))
      (image-scroll-up arg)))
  (defun my-pdf-view-double-scroll-horizontal-view ()
    (interactive)
    (my-pdf-view-double-scroll-up-or-next-page)
    (other-window 1)
    (my-pdf-view-double-scroll-up-or-next-page)
    (other-window 1))
  ;; add spacemacs major mode keybind
  (spacemacs/set-leader-keys-for-major-mode 'pdf-view-mode "d" 'my-pdf-view-double-scroll-horizontal-view)
  ;; Allow rotating of sheet music in pdfs
  (defun pdf-view--rotate (&optional counterclockwise-p page-p)
    "Rotate PDF 90 degrees.  Requires pdftk to work.\n
  Clockwise rotation is the default; set COUNTERCLOCKWISE-P to
  non-nil for the other direction.  Rotate the whole document by
  default; set PAGE-P to non-nil to rotate only the current page.
  \nWARNING: overwrites the original file, so be careful!"
    ;; error out when pdftk is not installed
    (if (null (executable-find "pdftk"))
        (error "Rotation requires pdftk")
      ;; only rotate in pdf-view-mode
      (when (eq major-mode 'pdf-view-mode)
        (let* ((rotate (if counterclockwise-p "left" "right"))
               (file   (format "\"%s\"" (pdf-view-buffer-file-name)))
               (page   (pdf-view-current-page))
               (pages  (cond ((not page-p)                        ; whole doc?
                              (format "1-end%s" rotate))
                             ((= page 1)                          ; first page?
                              (format "%d%s %d-end"
                                      page rotate (1+ page)))
                             ((= page (pdf-info-number-of-pages)) ; last page?
                              (format "1-%d %d%s"
                                      (1- page) page rotate))
                             (t                                   ; interior page?
                              (format "1-%d %d%s %d-end"
                                      (1- page) page rotate (1+ page))))))
          ;; empty string if it worked
          (if (string= "" (shell-command-to-string
                           (format (concat "pdftk %s cat %s "
                                           "output %s.NEW "
                                           "&& mv %s.NEW %s")
                                   file pages file file file)))
              (pdf-view-revert-buffer nil t)
            (error "Rotation error!"))))))

  (defun pdf-view-rotate-clockwise (&optional arg)
    "Rotate PDF page 90 degrees clockwise.  With prefix ARG, rotate
  entire document."
    (interactive "P")
    (pdf-view--rotate nil (not arg)))

  (defun pdf-view-rotate-counterclockwise (&optional arg)
    "Rotate PDF page 90 degrees counterclockwise.  With prefix ARG,
  rotate entire document."
    (interactive "P")
    (pdf-view--rotate :counterclockwise (not arg)))

  (define-key spacemacs-pdf-view-mode-map (kbd "R") 'pdf-view-rotate-clockwise)

;;---------------------------------------------------------------------------
(after! magit
  (map! :map magit-status-mode-map
        "SPC" #'doom/leader
        "j" #'evil-next-line
        "k" #'evil-previous-line
        "h" #'evil-backward-char
        "l" #'evil-forward-char
        "p" #'magit-push
        "v" #'evil-visual-line
        "V" #'evil-visual-line
        "gg" #'evil-goto-first-line
        "G" #'evil-goto-line))

  (setf forge-owned-accounts '(("BenedictHW" :remote-name "origin"))
        magit-save-repository-buffers 'dontask)

;;---------------------------------------------------------------------------
(use-package! claude-code-ide
  :config
  (claude-code-ide-emacs-tools-setup)
  (add-to-list 'load-path (expand-file-name "private-packages" doom-user-dir))
  (require 'claude-code-ide-extensions)
  (claude-code-ide-extensions-setup)
  (defun bhw/claude-code-ide-start-or-toggle-window ()
    "Start claude-code-ide if needed; otherwise toggle the chat window."
    (interactive)
    (condition-case _
        (call-interactively #'claude-code-ide-toggle)
      (error (call-interactively #'claude-code-ide))))

  (map! :leader
        (:prefix-map ("d" . "claude-code-ide")
         :desc "claude-code-ide start/toggle window" "SPC" #'bhw/claude-code-ide-start-or-toggle-window
         :desc "claude-code-ide-insert-at-mentioned" "d" #'claude-code-ide-insert-at-mentioned
         :desc "claude-code-ide-menu" "m" #'claude-code-ide-menu)))

{
  "permissions": {
    "defaultMode": "bypassPermissions"
  }
}

  ssh oci-a1-flex
  mkdir /opt/llava
  cd /opt/llava
  curl "DOWNLOAD_LINK" -L -O
  chmod +x llava-v1.5-7b-q4.llamafile
  # https://github.com/Mozilla-Ocho/llamafile?tab=readme-ov-file#gotchas
  sudo wget -O /usr/bin/ape https://cosmo.zip/pub/cosmos/bin/ape-$(uname -m).elf
  sudo chmod +x /usr/bin/ape
  sudo sh -c "echo ':APE:M::MZqFpD::/usr/bin/ape:' >/proc/sys/fs/binfmt_misc/register"
  sudo sh -c "echo ':APE-jart:M::jartsr::/usr/bin/ape:' >/proc/sys/fs/binfmt_misc/register"

  [Unit]
  Description=Run Large Language Model locally through llama.cpp and Cosmopolitan Libc.

  [Service]
  Type=exec
  User=root
  WorkingDirectory=/opt/llava
  ExecStart=/opt/llava/llava-v1.5-7b-q4.llamafile -ngl 9999 --nobrowser --port 8090 --embedding
  Restart=on-failure
  RestartSec=30s

  [Install]
  WantedBy=multi-user.target

;;---------------------------------------------------------------------------
(use-package! claude-code-ide
  :config
  (defun bhw/claude-code-ide-start-or-toggle-window ()
    "Start claude-code-ide if needed; otherwise toggle the chat window."
    (interactive)
    (condition-case _
        (call-interactively #'claude-code-ide-toggle-recent)
      (error (call-interactively #'claude-code-ide))))

  (map! :leader
        (:prefix-map ("d" . "claude-code-ide")
         :desc "claude-code-ide start/toggle window" "SPC" #'bhw/claude-code-ide-start-or-toggle-window
         :desc "claude-code-ide-menu" "m" #'claude-code-ide-menu)))

  mkdir /home/ben/.stardict/
  ln -s /home/ben/project-jerome/400-philology/420-english-anglosaxon-languages/.stardict/dic /home/ben/.stardict/

;;---------------------------------------------------------------------------
(use-package! lexic
  :init
  (map! :leader
        :desc "lexic-search-word-at-point" "sx" #'lexic-search-word-at-point
        :desc "lexic-search"               "sX" #'lexic-search)
  :config
  (map! :after lexic
        :map lexic-mode-map
        "SPC" #'doom/leader
        "j"   #'evil-next-line
        "k"   #'evil-previous-line
        "h"   #'evil-backward-char
        "l"   #'evil-forward-char
        "q"   #'lexic-return-from-lexic
        "RET" #'lexic-search-word-at-point
        "a"   #'outline-show-all
        "h"   #'outline-hide-body
        "o"   #'lexic-toggle-entry
        "d"   #'lexic-next-entry
        "u"   #'lexic-previous-entry
        "p"   #'lexic-search-history-backwards
        "n"   #'lexic-search-history-forwards)
  (setf lexic-dictionary-specs '
        (("Webster's Revised Unabridged Dictionary (1913)"
          :short "===========================================================\n Webster's Revised Unabridged Dictionary (1913)\n==========================================================="
          :formatter lexic-format-webster
          :priority 1)
         ("Soule's Dictionary of English Synonyms"
          :short "===========================================================\n Soule's Dictionary of English Synonyms (1871)\n==========================================================="
          :formatter lexic-format-soule
          :priority 2)
         ("Online Etymology Dictionary"
          :short "===========================================================\n Online Etymology Dictionary (2000)\n==========================================================="
          :formatter lexic-format-online-etym
          :priority 3)
         ("Oxford English Dictionary 2nd Ed P1"
          :short "===========================================================\n Oxford English Dictionary 2nd Ed. (1989)\n==========================================================="
          :formatter lexic-format-online-etym
          :priority 4)
         ("Oxford English Dictionary 2nd Ed P2"
          :short "===========================================================\n Oxford English Dictionary 2nd Ed. (1989)\n==========================================================="
          :formatter lexic-format-online-etym
          :priority 5)
         ("latin-english"
          :short "===========================================================\n Latin > English\n==========================================================="
          :formatter lexic-format-online-etym
          :priority 6))))

;;---------------------------------------------------------------------------
(use-package! citar
  :config
  (setf
   citar-bibliography (list (concat +project-maria-dir+ "project-jerome.bib"))
   citar-notes-paths (list (concat +project-maria-dir+ "bibtex-notes"))
   citar-library-paths
   (let* ((base (expand-file-name "~/project-jerome"))
          (excluded (mapcar #'expand-file-name
                            '("~/project-jerome/email-archive"
                              "~/project-jerome/org-attach-data"
                              "~/project-jerome/keepass-database"))))
     (cl-remove-if (lambda (d) (cl-some (lambda (ex) (string-prefix-p ex d)) excluded))
                   (cons base (cl-remove-if-not #'file-directory-p
                                                (directory-files-recursively base "" t))))))
  (map! :leader
        :desc "citar-open" "s SPC" #'citar-open))

  # See expenses divided by month and accounts
  ledger -M register Income:* Expenses:*

  # See expenses divided by month and accounts
  ledger balance --real

;;---------------------------------------------------------------------------
(setf common-lisp-hyperspec-root
      (concat "file://" +project-jerome-dir+
              "000-generalities-information-computers/000-computer-science/HyperSpec/"))
;; https://emacs.stackexchange.com/questions/62536/what-does-making-browse-url
;; -browser-function-local-to-eww-while-let-bound-m
(advice-add 'hyperspec-lookup
            :around
            (lambda (orig-fun &rest args)
              (setq-local browse-url-browser-function 'eww-browse-url)
              (apply orig-fun args)))

;;---------------------------------------------------------------------------
(after! evil-org
  (remove-hook 'org-tab-first-hook #'+org-cycle-only-current-subtree-h))

(after! org
  (add-hook! 'org-mode-hook (electric-indent-local-mode -1))
  (add-hook! 'org-mode-hook
    (add-hook 'completion-at-point-functions #'cape-file -10 t))

  (advice-remove #'org-mark-ring-push #'doom-set-jump-a)
  (setf org-adapt-indentation nil
        org-startup-indented nil
        ;; Be strict about extensions: match ".org" and ".org.gpg" only.
        org-id-extra-files (directory-files-recursively +project-maria-dir+ "\\.org\\(\\.gpg\\)?$"))
  (require 'org-depend)
  (require 'cl-lib)

  (defun afs/org-replace-link-by-link-description ()
    "Replace an org link by its description or if empty its address"
    (interactive)
    (if (org-in-regexp org-link-bracket-re 1)
        (save-excursion
          (let ((remove (list (match-beginning 0) (match-end 0)))
                (description
                 (if (match-end 2)
                     (org-match-string-no-properties 2)
                   (org-match-string-no-properties 1))))
            (apply 'delete-region remove)
            (insert description)))))

  (map! :leader
        :desc "Agenda" "a" #'ben/default-custom-agenda))

;;---------------------------------------------------------------------------

  sudo apt install plantuml

  (setf plantuml-default-exec-mode 'jar
        plantuml-jar-path "/usr/share/plantuml/plantuml.jar"
        org-plantuml-jar-path "/usr/share/plantuml/plantuml.jar"
        plantuml-output-type "txt")
  (with-eval-after-load "org-mode"
    (add-to-list 'org-src-lang-modes '("plantuml" . plantuml)))

(lsp +peek)
(python +lsp +tree-sitter +uv)

;;---------------------------------------------------------------------------
;; lsp-mode ships a built-in ty client (ty-ls) at priority -1; promote it
;; so it wins over pyright/pylsp when ty is on PATH.
(after! lsp-python-ty
  (setf (lsp--client-priority (gethash 'ty-ls lsp-clients)) 1))

;;---------------------------------------------------------------------------
(require 'mu4e-contrib)
(use-package! mu4e
  :init
  (map! :leader
        :desc "Email"           "oe" #'mu4e)
  :config
  ;; https://mu-discuss.narkive.com/hXk7RbcH/set-from-address-depending-on-to-address-header
  (defun mu4e-compose-set-from-address-dwim ()
    "Set the From address based on the To address of the original. Added to
  `mu4e-compose-pre-hook'"
    (let ((msg mu4e-compose-parent-message))
      (when msg
        ;; In `mu4e-compose-set-from-address-dwim`, you are using `setf
        ;; user-mail-address`. This sets the *global* value. If you have
        ;; multiple compose buffers open, switching the account in one might
        ;; unexpectedly change the identity in another if they are not properly
        ;; isolated.
        (setq-local user-mail-address
                    (or (seq-find (lambda (addr)
                                    (mu4e-message-contact-field-matches msg :to addr))
                                  my/mu4e-address-routing)
                        my/default-mail-address)))))

  (evil-set-initial-state 'mu4e-headers-mode 'normal)
  (evil-set-initial-state 'mu4e-view-mode 'normal)
  (evil-set-initial-state 'mu4e-compose-mode 'insert)

  (setf mu4e-change-filenames-when-moving t  ; mbsync specific.
        ;; see an ASCII table for the character decimal codes

        mu4e-bookmarks '(("maildir:/INBOX" "Inbox" 105 )
                         ("\"maildir:/[Gmail]/All Mail\" and flag:unread" "Unread" 85)
                         ("\"maildir:/[Gmail]/All Mail\"" "All Mail" 97)
                         ("\"maildir:/[Gmail]/Sent Mail\"" "Sent Mail" 115))
        user-mail-address my/default-mail-address
        user-full-name "Ben H. W."
        ;; mu4e-compose-signature
        mail-user-agent 'mu4e-user-agent
        mu4e-attachment-dir "/mnt/c/Users/bened/Downloads/"
        mu4e-drafts-folder "/[Gmail]/Drafts"
        mu4e-sent-folder "/[Gmail]/Sent Mail"
        mu4e-trash-folder "/[Gmail]/Trash"
        mu4e-refile-folder "/[Gmail]/All Mail"
        send-mail-function 'smtpmail-send-it
        smtpmail-stream-type 'starttls
        smtpmail-default-smtp-server "smtp.gmail.com"
        smtpmail-smtp-server "smtp.gmail.com"
        smtpmail-smtp-service 587
        message-sendmail-f-is-evil t
        mu4e-index-update-in-background t
        mu4e-update-interval 3600
        mu4e-autorun-background-at-startup t
        mu4e-get-mail-command "mbsync -a"
        mu4e-hide-index-messages t
        mu4e-enable-mode-line nil
        ;; If this is enabled, prompts for new gpg fingerprints will not show up.
        ;; Instead emails will silently fail to send.
        mu4e-enable-async-operations nil
        mu4e-search-skip-duplicates t
        ;; Prefer text/plain over text/html in multipart/alternative messages.
        mm-discouraged-alternatives '("text/html" "text/richtext")
        gnus-blocked-images "."
        mu4e-org-link-query-in-headers-mode nil
        ;; mu4e-org-contacts-file (concat +project-maria-dir+ "contacts.org")
        message-kill-buffer-on-exit t
        mu4e-confirm-quit nil
        ;; mu4e-headers-time-format "%y/%m/%d %H:%M"
        ;; mu4e-headers-fields
        ;; '((:human-date . 14)
        ;;   (:from-or-to . 20)
        ;;   (:subject))
        mml-secure-openpgp-sign-with-sender t
        mml-secure-openpgp-signers '("06DDA93690F775E3715B628CCA949A6D46BC2BBE")
        mu4e-compose-complete-addresses t
        mu4e-compose-complete-only-after "2018-01-01"
        browse-url-filename-alist
        '(("^/\\(ftp@\\|anonymous@\\)?\\([^:/]+\\):/*" . "ftp://\\2/")
          ("^/\\([^:@/]+@\\)?\\([^:/]+\\):/*" . "ftp://\\1\\2/")
          ;; For gnus-article-browse-html-article on Windows Subsystem for Linux.
          ("^/+" . "file://///wsl$/Debian/"))
        mu4e-modeline-support nil
        mu4e-search-include-related nil)

  (add-hook 'mu4e-compose-pre-hook #'mu4e-compose-set-from-address-dwim)
  ;; (add-hook
  ;;  'mu4e-headers-mode-hook
  ;;  (lambda () (define-key evil-motion-state-map (kbd "RET") nil)))
  ;; (add-hook
  ;;  'mu4e-view-mode-hook
  ;;  (lambda () (define-key evil-normal-state-map (kbd "a") nil)))

  ;; (evil-define-key 'normal mu4e-headers-mode-map
  ;;   "RET" #'mu4e-headers-view-message
  ;;   "s" #'avy-goto-word-or-subword-1
  ;;   "e" #'mu4e-headers-flag-all-read
  ;;   "E" #'mu4e-headers-mark-all)
  (map! :after mu4e
        :map mu4e-headers-mode-map
        :n "RET" #'mu4e-headers-view-message
        :n "s"   #'avy-goto-word-or-subword-1
        :n "e"   #'mu4e-headers-flag-all-read
        :n "E"   #'mu4e-headers-mark-all
        :map mu4e-view-mode-map
        :n "RET" #'browse-url-at-point
        :n "s"   #'avy-goto-word-or-subword-1
        :n "L"   #'mu4e-view-save-url
        :n "A"   #'mu4e-view-save-url))

;; Forwarded HTML bodies can contain unbalanced `<`/`>` (e.g. inside
;; `<style>` blocks), which makes `forward-sexp' under `mml-syntax-table'
;; signal `scan-error' and abort sending. The CID-image rewriting this
;; function performs is only useful when local inline images are present,
;; so fall back to the original `cont' on failure.
(defun +mml-expand-html-into-multipart-related-safe-a (orig cont)
  (condition-case nil
      (funcall orig cont)
    (scan-error cont)))
(advice-add 'mml-expand-html-into-multipart-related :around
            #'+mml-expand-html-into-multipart-related-safe-a)

;; (require 'mu4e-send-delay)
;; (use-package! mu4e-send-delay
;;   :config
;;   (advice-remove 'org-msg-ctrl-c-ctrl-c #'mu4e-send-delay-org-msg-ctrl-c-ctrl-c)
;;   (add-hook! 'mu4e-main-mode-hook 'mu4e-send-delay-setup))

(after! recentf
  (add-to-list 'recentf-exclude "~/project-jerome/email-archive/")
  (add-to-list 'recentf-exclude "/tmp/"))

;;---------------------------------------------------------------------------
(use-package! consult-mu
  :after (mu4e consult)
  :init
  (map! :leader
        :desc "Search Email"    "se" #'consult-mu
        :desc "Search .emacs.d" "sE" #'+default/search-emacsd)
  :config
  (require 'consult-mu-embark)
  (require 'consult-mu-compose)
  (require 'consult-mu-compose-embark)
  (require 'consult-mu-contacts)
  (require 'consult-mu-contacts-embark)
  (consult-mu-compose-embark-bind-attach-file-key)
  (setf consult-mu-maxnum 200
        consult-mu-preview-key 'any
        consult-mu-mark-previewed-as-read nil
        consult-mu-mark-viewed-as-read t
        consult-mu-use-wide-reply 'ask
        consult-mu-headers-template
        (lambda () (concat "%f" (number-to-string (floor (* (frame-width) 0.15))) "%s" (number-to-string (floor (* (frame-width) 0.5))) "%d13" "%g" "%x"))
        consult-mu-saved-searches-async '("#flag:unread")
        consult-mu-saved-searches-dynamic '("flag:unread")
        consult-mu-compose-preview-key "M-o"
        consult-mu-embark-attach-file-key "C-a"
        consult-mu-contacts-ignore-list '("^.*no.*reply.*")
        consult-mu-contacts-ignore-case-fold-search t
        consult-mu-compose-use-dired-attachment 'in-dired))

;;---------------------------------------------------------------------------
(use-package! elfeed
  :init
  (map! :leader
        :desc "Web Feed - Elfeed" "ow" #'elfeed)
  :config

  (defun elfeed-mark-all-as-read ()
    "Marks entire buffer before tagging marked region as read"
    (interactive)
    (mark-whole-buffer)
    (elfeed-search-untag-all-unread))

  (defun ben/elfeed-search-browse-url (&optional use-generic-p)
    "Visit the current entry in your browser using `browse-url'.
  If there is a prefix argument, visit the current entry in the
  browser defined by `browse-url-generic-program'."
    (interactive "P")
    (let ((buffer (current-buffer))
          (entries (elfeed-search-selected)))
      (cl-loop for entry in entries
               for link = (elfeed-entry-link entry)
               do (elfeed-untag entry 'unread)
               when link
               do (if use-generic-p
                      (browse-url-generic link)
                    (eww link)))
      ;; `browse-url' could have switched to another buffer if eww or another
      ;; internal browser is used, but the remainder of the functions needs to
      ;; run in the elfeed buffer.
      (with-current-buffer buffer
        (mapc #'elfeed-search-update-entry entries)
        (unless (or elfeed-search-remain-on-entry (use-region-p))
          (forward-line)))))

  (defhydra ben/hydra-elfeed (:exit t)
    ("g" (elfeed-search-set-filter "@6-months-ago +unread +gbl") "Global News")
    ("l" (elfeed-search-set-filter "@6-months-ago +unread +lcl") "Local News")
    ("s" (elfeed-search-set-filter "@6-months-ago +unread +sci") "Science & Tech")
    ("c" (elfeed-search-set-filter "@6-months-ago +unread +rel") "Catholic")
    ("f" (elfeed-search-set-filter "@6-months-ago +unread +frm") "Forums")
    ("o" (elfeed-search-set-filter "@6-months-ago +unread +pod") "Podcasts")
    ("b" (elfeed-search-set-filter "@6-months-ago +unread +blog") "Misc Blogs")
    ("y" (elfeed-search-set-filter "@6-months-ago +unread +vid") "Youtube")
    ("a" (elfeed-search-set-filter "@6-months-ago +unread") "All")
    ("q" nil "quit" :color blue))

  (add-hook 'elfeed-search-mode-hook #'elfeed-update)

  (map! :after elfeed
        :map elfeed-search-mode-map
        :n "s"  #'avy-goto-word-or-subword-1
        :n "r"  #'elfeed-mark-all-as-read
        :n "S"  #'elfeed-search-live-filter
        :n "f"  #'ben/hydra-elfeed/body
        :n "b"  #'ben/elfeed-search-browse-url
        :n "B"  #'elfeed-search-browse-url
        :n "R"  #'elfeed-search-update--force
        :n ";"  #'consult-line
        :map elfeed-show-mode-map
        :n "s"  #'avy-goto-word-or-subword-1
        :n "b"  #'ben/elfeed-search-browse-url
        :n "B"  #'elfeed-search-browse-url
        :n ";"  #'consult-line))

;;---------------------------------------------------------------------------
(use-package! ement
  :init
  (map! :leader
        :desc "Ement"           "oc" #'ement-notifications
        :desc "Ement (Login)"   "oC" #'ement-connect
        :desc "ement-room-view" "sc" #'ement-room-view)
  :config
  (require 'org)
  (require 'url-util)

  (defun my/ement-schedule-message (time-str message)
    (interactive
     (let ((msg (if (derived-mode-p 'ement-room-compose-mode)
                    (buffer-substring-no-properties (point-min) (point-max))
                  (read-string "Message to schedule: "))))
       (list (org-read-date nil nil nil "Schedule for: ")
             msg)))
    (let ((room ement-room)
          (session ement-session)
          (time (org-time-string-to-time time-str)))
      (unless (and room session)
        (user-error "Not in an Ement room context"))
      (when (time-less-p time (current-time))
        (user-error "Scheduled time must be in the future"))
      (run-at-time time nil
                   (lambda (r s m)
                     (ement-room-send-message r s :body m))
                   room session message)
      (message "Message scheduled for %s" time-str)
      (when (derived-mode-p 'ement-room-compose-mode)
        (erase-buffer)
        (kill-buffer))))

  (defun my/ement-mark-all-read ()
    (interactive)
    (let ((count 0))
      (dolist (session-pair ement-sessions)
        (let ((session (cdr session-pair)))
          (dolist (room (ement-session-rooms session))
            (when (ement--room-unread-p room session)
              (let* ((timeline (ement-room-timeline room))
                     (latest-event (car (last timeline))))
                (when (and latest-event (ement-event-id latest-event))
                  (cl-incf count)
                  (ement-api session
                    (format "rooms/%s/receipt/m.read/%s"
                            (url-hexify-string (ement-room-id room))
                            (url-hexify-string (ement-event-id latest-event)))
                    :method 'post
                    :then (lambda (_)
                            (message "Read receipt confirmed for %s"
                                     (ement-room-display-name room)))
                    :else (lambda (plz-error)
                            (message "Error marking read: %s" plz-error)))))))))
      (if (> count 0)
          (message "Sending read receipts for %d rooms..." count)
        (message "No unread rooms found."))
      (when (derived-mode-p 'ement-room-list-mode)
        (ement-room-list))))

  ;; When closing the notifications buffer, mark everything read.
  ;; We run it on a 0-delay timer so it fires *after* the buffer is gone.
  (defun my/ement-notifications-run-after-kill ()
    (when (derived-mode-p 'ement-notifications-mode)
      (run-at-time 0 nil #'my/ement-mark-all-read)))

  (add-hook 'ement-notifications-mode-hook
            (lambda ()
              (add-hook 'kill-buffer-hook #'my/ement-notifications-run-after-kill nil t)))

  (map! :after ement-room
        :map ement-room-mode-map
        :n "RET"   #'ement-room-send-message
        :n "M-RET" #'ement-room-compose-message
        :n "s"     #'avy-goto-word-or-subword-1
        :n "r"     #'ement-room-write-reply
        :n "D"     #'ement-room-download-file
        :n ";"     #'ement-room-occur
        :n "gg"    #'ement-room-scroll-down-command
        :n "G"     #'ement-room-scroll-up-mark-read
        :n "m"     #'ement-room-mark-read
        :n "e"     #'ement-room-edit-message-prepare
        :n "a e"   #'ement-room-send-emote
        :n "a f"   #'ement-room-send-file
        :n "a i"   #'ement-room-send-image
        :n "a r"   #'ement-room-send-reaction)

  (add-hook 'ement-room-compose-hook 'ement-room-compose-org)
  (setf ement-save-sessions t
        ement-room-mark-rooms-read 'send
        ement-room-send-typing nil
        ement-auto-sync t
        ement-room-images t
        ement-room-image-thumbnail-height 1
        ement-room-image-thumbnail-height-min 1500)

  ;; Upstream ement-room-list crashes with (wrong-type-argument number-or-marker-p nil)
  ;; when unread_notifications is present but notification_count or highlight_count is nil.
  ;; Redefine the "Unread" column to coerce nil -> 0.
  (ement-room-list-define-column
    #("Unread" 0 6 (help-echo "Unread events (Notifications:Highlights)"))
    (:align 'right)
    (pcase-let* ((`[,(cl-struct ement-room unread-notifications) ,_session] item)
                 ((map notification_count highlight_count) unread-notifications)
                 (n (or notification_count 0))
                 (h (or highlight_count 0)))
      (if (or (not unread-notifications)
              (and (zerop n) (zerop h)))
          ""
        (concat (ement-propertize (number-to-string n)
                  'face (if (zerop h) 'default 'ement-room-mention))
                ":"
                (ement-propertize (number-to-string h)
                  'face 'highlight))))))

(after! evil-collection
  (setq evil-collection-mode-list (delq 'ement evil-collection-mode-list))
  (map! :map ement-notifications-mode-map
        :n "<return>" #'ement-notifications-jump
        :n "RET"      #'ement-notifications-jump ;; Bind both to be safe
        :n "r"          #'ement-notify-reply))

sudo apt install transmission-daemon -y
sudo systemctl start transmission-daemon

;;---------------------------------------------------------------------------
(use-package! transmission
  :after evil-collection
  :init
  (map! :leader
        :desc "transmission"    "oT" #'transmission)
  :config
  (evil-collection-transmission-setup)
  (map! :map transmission-mode-map
        :n "s" #'avy-goto-word-or-subword-1)
  (setf transmission-refresh-modes
        '(transmission-mode
          transmission-files-mode
          transmission-info-mode
          transmission-peers-mode)))

;;---------------------------------------------------------------------------
(add-to-list 'load-path "~/.config/emacs/.local/")
(require 'shannon-max)
(setq shannon-max-jar-file
      (expand-file-name "~/.config/emacs/.local/target/emacskeys-0.1.0-SNAPSHOT-standalone.jar"))
(shannon-max-start-logger)

;;---------------------------------------------------------------------------
(map! :leader
      :desc "gregorian calendar" "og" #'calendar)

;;---------------------------------------------------------------------------
(require 'anki-editor)

;;---------------------------------------------------------------------------
(use-package! biome
  :config
  (biome-def-preset meteorology-detroit-weather
    ((:name . "NOAA GFS & HRRR (U.S.)")
     (:group . "hourly")
     (:params
      ("hourly" "wind_speed_10m" "cloud_cover" "precipitation" "apparent_temperature")
      ("longitude" . -83.1386)
      ("latitude" . 42.4205))))
  (biome-def-preset meteorology-toronto-weather
    ((:name . "GEM (Canada)")
     (:group . "hourly")
     (:params
      ("hourly" "wind_speed_10m" "cloud_cover" "precipitation" "apparent_temperature")
      ("longitude" . -79.337021)
      ("latitude" . 43.856098))))
  (map! :leader
        :desc "biome" "om" #'meteorology-detroit-weather))

;;---------------------------------------------------------------------------
(use-package! casual-calc
  :config
  (dolist (m (list calc-mode-map calc-alg-map))
    (map! :map m "SPC" #'doom/leader)
    (keymap-set m "C-o" #'casual-calc-tmenu)))

;;---------------------------------------------------------------------------
;; (add-to-list 'load-path "/usr/local/src/emacs-reader/")
;; (require 'reader-saveplace)
;; (require 'reader)
;; (add-to-list 'auto-mode-alist '("\\.docx\\'" . reader-mode))
;; (define-key reader-mode-map (kbd "d") #'reader-scroll-down-or-next-page)
;; (define-key reader-mode-map (kbd "u") #'reader-scroll-up-or-prev-page)
;; (define-key reader-mode-map (kbd "gt") #'reader-goto-page)
;; (define-key reader-mode-map (kbd "q") #'reader-close-doc)
;; (spacemacs/set-leader-keys-for-major-mode 'reader-mode "fh" 'reader-fit-to-height)
;; (spacemacs/set-leader-keys-for-major-mode 'reader-mode "fw" 'reader-fit-to-width)
;; (spacemacs/set-leader-keys-for-major-mode 'reader-mode "o" 'reader-outline-show)
;; (spacemacs/set-leader-keys-for-major-mode 'reader-mode "ss" 'reader-search-mode)
;; (load! "private-packages/emacs-reader-noter.el")

   sudo apt update
   # Install build dependencies ./configure will tell you if a build dependency is missing.
   sudo apt install git build-essential libgtk-3-dev libgnutls28-dev \
    libtiff5-dev libgif-dev libjpeg-dev libpng-dev libxpm-dev \
    libncurses-dev texinfo autoconf libxml2-dev libwebp-dev \
    librsvg2-dev libsqlite3-dev liblcms2-dev libgpm-dev libotf-dev \
    libacl1-dev libjansson4 libjansson-dev libgccjit-12 libgccjit-12-dev \
    gcc-12 g++-12 libtree-sitter-dev
   export CC=/usr/bin/gcc-12 CXX=/usr/bin/gcc-12
   sudo git clone git://git.sv.gnu.org/emacs.git /usr/local/src/emacs
   cd /usr/local/src/emacs
   sudo ./autogen.sh
   # See ./configure --help for more options. "C-h v"
   # 'system-configuration-options' to see what your Emacs is built with.
   sudo ./configure --with-mailutils --with-wide-int --with-pgtk \
               --with-native-compilation=aot --with-json --with-tree-sitter
   # gconf is deprecated in favour of gsettings.
   # I have 4 threads.
   sudo make -j4
   # Default install in /usr/local/ and emacs-29.0.50 binary under
   # /usr/local/bin.
   sudo make install
   # If you keep your Emacs source folder around, it will know how to uninstall
   # or to git pull from master and rebuild.
   sudo make uninstall
   # sudo git clean -dfX in case of rebuild.