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

(use-package magit

  :defer t)

(use-package diff-hl

  :hook ((after-init . global-diff-hl-mode)

         (dired-mode . diff-hl-dired-mode)

         (magit-pre-refresh . diff-hl-magit-pre-refresh)

         (magit-post-refresh . diff-hl-magit-post-refresh))

  :custom

  (diff-hl-margin-symbols-alist

   '((insert . "+") (delete . "-") (change . "~")

     (unknown . "?") (ignored . "i") (reference . " ")))

  (diff-hl-draw-borders nil)

  :config

  (diff-hl-flydiff-mode 1)

  (diff-hl-margin-mode 1)

  ;; base16-theme already defines these faces, so the theme file can't

  ;; override them; set them here instead.

  (custom-set-faces

   '(diff-hl-insert ((t (:foreground "#fbcb97" :background "#fbcb97"))))

   '(diff-hl-change ((t (:foreground "#e78a53" :background "#e78a53"))))

   '(diff-hl-delete ((t (:foreground "#aa6c6c" :background "#aa6c6c"))))

   ;; margin text: color the symbol only, no filled background

   '(diff-hl-margin-insert ((t (:foreground "#fbcb97" :background unspecified :weight bold))))

   '(diff-hl-margin-change ((t (:foreground "#e78a53" :background unspecified :weight bold))))

   '(diff-hl-margin-delete ((t (:foreground "#aa6c6c" :background unspecified :weight bold))))))

(use-package elfeed

  :defer t

  :config

  (setq-default elfeed-search-filter "@6-months-ago")

  (defvar my/elfeed-feeds-url "https://feeds.stevedylan.dev/feeds?format=json"

    "Endpoint returning my subscriptions as JSON.")

  (defun my/elfeed-refresh-feeds ()

    "Replace `elfeed-feeds' with the list from `my/elfeed-feeds-url'.

Keeps the current list if the fetch fails."

    (interactive)

    (condition-case err

        (let ((buf (url-retrieve-synchronously my/elfeed-feeds-url t t 10)))

          (unless buf (error "no response"))

          (with-current-buffer buf

            (goto-char (point-min))

            (re-search-forward "\n\n")

            (let* ((data (json-parse-buffer :object-type 'alist :array-type 'list))

                   (urls (mapcar (lambda (s) (alist-get 'url s))

                                 (alist-get 'subscriptions data))))

              (kill-buffer buf)

              (setq elfeed-feeds urls)

              (message "elfeed: loaded %d feeds" (length urls)))))

      (error (message "elfeed: feed refresh failed (%s), keeping existing list"

                      (error-message-string err)))))

  (advice-add 'elfeed-update :before #'my/elfeed-refresh-feeds)

  (defun my/elfeed-show-font ()

    (face-remap-add-relative 'variable-pitch :family "BerkeleyMono Nerd Font Mono" :height 140)

    (face-remap-add-relative 'default :family "BerkeleyMono Nerd Font Mono" :height 140))

  (add-hook 'elfeed-show-mode-hook #'my/elfeed-show-font))

(use-package ob-go

  :defer t)

(use-package org

  :ensure nil

  :defer t

  :config

  (require 'ob-go)

  (org-babel-do-load-languages

   'org-babel-load-languages

   '((js    . t)

     (shell . t)

     (go    . t)))

  (setq org-directory "~/org/"

        org-default-notes-file (expand-file-name "inbox.org" org-directory)

        org-capture-templates

        '(("t" "Todo" entry (file+headline "inbox.org" "Tasks")

           "* TODO %?\n%i\n%a" :empty-lines 1)

          ("n" "Note" entry (file+headline "inbox.org" "Notes")

           "* %?\n%U\n%i" :empty-lines 1)

          ("j" "Journal" entry (file+olp+datetree "journal.org")

           "* %U %?\n%i" :empty-lines 1)

          ("b" "Bookmark" entry (file "bookmarks.org")

           "* [[%^{URL}][%^{Title}]] %^g\n:PROPERTIES:\n:ADDED: %U\n:END:\n%?"

           :empty-lines 1))))

(use-package dired

  :ensure nil

  :custom

  (dired-kill-when-opening-new-dired-buffer t)  ; reuse one buffer

  (dired-dwim-target t)

  :hook (dired-mode . dired-omit-mode)          ; hide dotfiles by default

  :config

  (require 'dired-x)

  (setq dired-omit-files "\\`[.][^.]")          ; dotfiles, but keep ".."

  (evil-collection-define-key 'normal 'dired-mode-map

    "." 'dired-omit-mode                        ; toggle dotfiles

    "h" 'dired-up-directory

    "l" 'dired-find-file

    "q" 'quit-window))

(autoload 'posts-compose "posts" nil t)

(autoload 'uguu-upload-file "uguu" nil t)

(autoload 'uguu-upload-clipboard "uguu" nil t)

(defgroup openrouter nil

  "OpenRouter backend for gptel."

  :group 'gptel)

(defcustom openrouter-pass-entry "openrouter/openrouter-api-key"

  "Name of the `pass' entry holding the API key."

  :type 'string

  :group 'openrouter)

(defun openrouter--api-key ()

  "Return the OpenRouter API key from password-store."

  (require 'auth-source-pass)       ; autoloaded in Emacs 28+, but cheap to be explicit

  (let ((key (auth-source-pass-get 'secret openrouter-pass-entry)))

    (or (and key (string-trim key))

        (user-error "No pass entry `%s'" openrouter-pass-entry))))

(use-package gptel

  :defer t

  :config

  (setq gptel-backend

        (gptel-make-openai "OpenRouter"

          :host "openrouter.ai"

          :endpoint "/api/v1/chat/completions"

          :stream t

          :key #'openrouter--api-key

          :request-params '(:tools [(:type "openrouter:web_search")

                                    (:type "openrouter:web_fetch")])

          :models '(z-ai/glm-5.3

                    z-ai/glm-5.3-flash

                    z-ai/glm-5.3-flashx))))

(defun gptel-model (model)

  "Set the gptel model in the current buffer."

  (interactive

   (list (intern (completing-read "Model: "

                                  '("z-ai/glm-5.3"

                                    "z-ai/glm-5.3-flash"

                                    "z-ai/glm-5.3-flashx")))))

  (setq-local gptel-model model))

(use-package markdown-mode

  :defer t)

(provide 'init-tools)