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

;; Place your private configuration here! 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")

(setq doom-theme 'doom-darkmatter)
(setq display-line-numbers-type "relative")
(setq org-directory "~/org/")

(after! org
  (add-to-list 'org-capture-templates
               '("b" "Bookmark" entry (file "bookmarks.org")
                 "* [[%^{URL}][%^{Title}]] %^g\n:PROPERTIES:\n:ADDED: %U\n:END:\n%?"
                 :empty-lines 1)))

;; ZNC password: read from `pass' (gpg-encrypted), cached in memory per session
(require 'auth-source-pass)

(defvar my/znc-pass-entry "irc/znc"
  "Entry in the password store holding the ZNC password.")

(defvar my/znc--password nil)

(defun my/znc-password (&rest _)
  (or my/znc--password
      (setq my/znc--password
            (or (auth-source-pass-get 'secret my/znc-pass-entry)
                (user-error "No ZNC password in pass entry %s" my/znc-pass-entry)))))

(defun my/znc-pass (client)
  "Build ZNC server password for CLIENT."
  (concat "stevedylandev_@" client "/libera:" (my/znc-password)))

;; Prompt before connecting, not mid-handshake
(defadvice! my/irc-ask-password-a (&rest _)
  :before #'+irc/connect
  (my/znc-password))

(set-irc-server! "znc"
  `(:host "138.197.115.89"
    :port 6697
    :tls t
    :nick "stevedylandev_"
    :pass ,(lambda (&rest _) (my/znc-pass "emacs"))))

;; ERC: same ZNC bouncer, separate client id so sessions don't collide with circe
(after! erc
  (setq erc-server "138.197.115.89"
        erc-port 6697
        erc-nick "stevedylandev_"
        erc-user-full-name "Steve Simkins"
        erc-prompt-for-password nil
        erc-track-shorten-start 8
        erc-kill-buffer-on-part t
        erc-kill-queries-on-quit t
        erc-hide-list '("JOIN" "PART" "QUIT")))

(defun my/erc-znc ()
  "Connect ERC to ZNC over TLS."
  (interactive)
  (erc-tls :server "138.197.115.89"
           :port 6697
           :nick "stevedylandev_"
           :password (my/znc-pass "erc")))

(after! elfeed-org
  (setq rmh-elfeed-org-files (list "~/org/elfeed.org")))

(defvar my/dashboard-banner-file (expand-file-name "banner.txt" doom-user-dir)
  "Text file holding the ASCII banner for the Doom dashboard.")

(defun my/file-ascii-banner ()
  (if (file-readable-p my/dashboard-banner-file)
      (propertize
       (with-temp-buffer
         (insert-file-contents my/dashboard-banner-file)
         (string-trim-right (buffer-string)))
       'face '+dashboard-banner)
    (+dashboard-draw-ascii-banner-fn)))

(setq +dashboard-ascii-banner-fn #'my/file-ascii-banner)

 (custom-set-faces!
    `(+dashboard-banner :foreground ,(doom-color 'white)))

(setq +dashboard-functions
        '(+dashboard-widget-banner
          +dashboard-widget-loaded))

(add-to-list 'load-path "/opt/homebrew/share/emacs/site-lisp/mu/mu4e")
(load! "scripts/posts")

;; Make GUI Emacs see Homebrew binaries (mbsync, msmtp, pass, gpg)
(when (memq window-system '(mac ns))
  (exec-path-from-shell-initialize))   ; needs the exec-path-from-shell package

(require 'mu4e)

(setq user-mail-address "contact@stevedylan.dev"
      user-full-name "Steve Simkins"

      ;; Fetching
      mu4e-get-mail-command "mbsync -a"
      mu4e-update-interval 300
      mu4e-change-filenames-when-moving t   ; required with mbsync

      ;; Folders (adjust to match `mbsync -l local`)
      mu4e-sent-folder   "/local/Sent"
      mu4e-drafts-folder "/local/Drafts"
      mu4e-trash-folder  "/local/Trash"
      mu4e-refile-folder "/local/Archive"

      ;; Sending via msmtp
      sendmail-program (executable-find "msmtp")
      send-mail-function #'sendmail-send-it
      message-send-mail-function #'message-send-mail-with-sendmail
      message-sendmail-envelope-from 'header
      message-kill-buffer-on-exit t
      mu4e-maildir-shortcuts
      '((:maildir "/local/Inbox"   :key ?i)
        (:maildir "/local/Sent"    :key ?s)
        (:maildir "/local/Drafts"  :key ?d)
        (:maildir "/local/Archive" :key ?a)
        (:maildir "/local/Trash"   :key ?t)))

(after! gptel
  (setq gptel-model 'claude-sonnet-5-5
        gptel-backend
        (gptel-make-anthropic "Claude"
          :stream t
          :key #'gptel-api-key
          :models '(claude-sonnet-5-5 claude-opus-5-5 claude-haiku-4-5-20251001))))

(after! jabber
  (setq jabber-account-list
        `(("stevedylandev@xmpp.is"
           (:password . ,(auth-source-pass-get 'secret "xmpp/stevedylandev@xmpp.is")))))
  (jabber-modeline-mode 1)
  (map! :leader "o j" #'jabber-roster)) ; optional binding