diff --git a/.config/guix/manifests/emacs.scm b/.config/guix/manifests/emacs.scm index f1bf267..f111384 100644 --- a/.config/guix/manifests/emacs.scm +++ b/.config/guix/manifests/emacs.scm @@ -5,7 +5,6 @@ "ripgrep" "emacs-vterm" "hledger" - "imagemagick" "font-gnu-freefont" "font-gnu-unifont" "emacs-telega-sever" diff --git a/.emacs.d/modules/sqrt-ai.el b/.emacs.d/modules/sqrt-ai.el index 4dcecf9..8a4ed9c 100644 --- a/.emacs.d/modules/sqrt-ai.el +++ b/.emacs.d/modules/sqrt-ai.el @@ -19,6 +19,7 @@ "qwen2.5:32b" "qwen2.5-coder:32b" "qwen3:30b" "qwen3:32b" "eva-qwen2.5-q4_k_l-32b:latest" + "gpt-oss" (gemma3:27b :capabilities (media) :mime-types ("image/jpeg" "image/png"))))) @@ -46,6 +47,10 @@ "C-" 'gptel-send "M-o" #'gptel-menu)) +(defun my/gptel-add-current-file () + (interactive) + (gptel-context-add-file (buffer-file-name))) + (use-package ellama :straight t :init diff --git a/.emacs.d/modules/sqrt-dap.el b/.emacs.d/modules/sqrt-dap.el index c019be1..be5eea0 100644 --- a/.emacs.d/modules/sqrt-dap.el +++ b/.emacs.d/modules/sqrt-dap.el @@ -1,7 +1,6 @@ ;;; -*- lexical-binding: t -*- (use-package dap-mode :straight t - :if (not (or my/remote-server my/is-termux)) :commands (dap-debug) :init (setq lsp-enable-dap-auto-configure nil) diff --git a/.emacs.d/modules/sqrt-dired.el b/.emacs.d/modules/sqrt-dired.el index 8ed82bc..7e903c1 100644 --- a/.emacs.d/modules/sqrt-dired.el +++ b/.emacs.d/modules/sqrt-dired.el @@ -351,6 +351,14 @@ file (read-from-minibuffer (format "Description for %s: " file)))))) +(defun my/dired-attach-to-gptel (files) + (interactive + (list (dired-get-marked-files nil nil #'dired-nondirectory-p))) + (unless files + (user-error "No (non-directory) files selected")) + (dolist (file files) + (gptel-context-add-file file))) + (with-eval-after-load 'dired (general-define-key :states '(normal) @@ -358,7 +366,8 @@ "a" nil "at" #'my/dired-attach-to-telega "am" #'my/dired-attach-to-notmuch - "ai" #'my/dired-attach-to-ement + "ae" #'my/dired-attach-to-ement + "ai" #'my/dired-attach-to-gptel "an" #'my/dired-attach-to-mastodon)) (with-eval-after-load 'telega diff --git a/.emacs.d/modules/sqrt-discord.el b/.emacs.d/modules/sqrt-discord.el index 4ef6765..f179f89 100644 --- a/.emacs.d/modules/sqrt-discord.el +++ b/.emacs.d/modules/sqrt-discord.el @@ -31,8 +31,8 @@ (string= (system-name) "violet") (string= (system-name) "eminence") (string= (system-name) "iris")) - (not my/remote-server) (not my/nested-emacs)) + :disabled t :config (setq elcord-buffer-details-format-function #'my/elcord-buffer-details-format-functions) (advice-add 'elcord--try-update-presence :filter-args #'my/elcord-update-presence-mask-advice) diff --git a/.emacs.d/modules/sqrt-elfeed.el b/.emacs.d/modules/sqrt-elfeed.el index 8221f9a..5b57771 100644 --- a/.emacs.d/modules/sqrt-elfeed.el +++ b/.emacs.d/modules/sqrt-elfeed.el @@ -1,7 +1,6 @@ ;;; -*- lexical-binding: t -*- (use-package elfeed :straight (:repo "SqrtMinusOne/elfeed" :host github) - :if (not (or my/is-termux my/remote-server)) :commands (elfeed) :init (my-leader-def "ae" #'elfeed-summary) @@ -108,7 +107,6 @@ (use-package elfeed-sync :straight (:host github :repo "SqrtMinusOne/elfeed-sync") - :if (not my/remote-server) :after elfeed :config (elfeed-sync-mode) diff --git a/.emacs.d/modules/sqrt-emms.el b/.emacs.d/modules/sqrt-emms.el index 255cef1..95d2b47 100644 --- a/.emacs.d/modules/sqrt-emms.el +++ b/.emacs.d/modules/sqrt-emms.el @@ -1,7 +1,6 @@ ;;; -*- lexical-binding: t -*- (use-package emms :straight t - :if (not (or my/remote-server my/is-termux)) :commands (emms-smart-browse emms-browser emms-add-url diff --git a/.emacs.d/modules/sqrt-general-org.el b/.emacs.d/modules/sqrt-general-org.el index 4f67476..747b667 100644 --- a/.emacs.d/modules/sqrt-general-org.el +++ b/.emacs.d/modules/sqrt-general-org.el @@ -56,7 +56,6 @@ :repo "https://git.sr.ht/~bzg/org-contrib" :build t) :after (org) - :if (not my/remote-server) :config (require 'ox-extra) (ox-extras-activate '(latex-header-blocks ignore-headlines))) @@ -280,7 +279,6 @@ With ARG, repeats or can move backward if negative." (use-package org-present :straight (:host github :repo "rlister/org-present") - :if (not my/remote-server) :commands (org-present) :config (general-define-key diff --git a/.emacs.d/modules/sqrt-general-ui.el b/.emacs.d/modules/sqrt-general-ui.el index 98cabd9..18a0f55 100644 --- a/.emacs.d/modules/sqrt-general-ui.el +++ b/.emacs.d/modules/sqrt-general-ui.el @@ -73,9 +73,6 @@ :config (setq doom-themes-enable-bold t doom-themes-enable-italic t) - ;; (if my/remote-server - ;; (load-theme 'doom-gruvbox t) - ;; (load-theme 'doom-palenight t)) (doom-themes-visual-bell-config) (setq doom-themes-treemacs-theme "doom-colors") (doom-themes-treemacs-config)) diff --git a/.emacs.d/modules/sqrt-mail.el b/.emacs.d/modules/sqrt-mail.el index 4e1fcf3..eb86e71 100644 --- a/.emacs.d/modules/sqrt-mail.el +++ b/.emacs.d/modules/sqrt-mail.el @@ -1,8 +1,7 @@ ;;; -*- lexical-binding: t -*- -(unless (or my/remote-server) - (let ((mail-file (expand-file-name "mail.el" user-emacs-directory))) - (if (file-exists-p mail-file) - (load-file mail-file) - (message "Can't load mail.el")))) +(let ((mail-file (expand-file-name "mail.el" user-emacs-directory))) + (if (file-exists-p mail-file) + (load-file mail-file) + (message "Can't load mail.el"))) (provide 'sqrt-mail) diff --git a/.emacs.d/modules/sqrt-misc-internet.el b/.emacs.d/modules/sqrt-misc-internet.el index 80c4b1b..a26a5dc 100644 --- a/.emacs.d/modules/sqrt-misc-internet.el +++ b/.emacs.d/modules/sqrt-misc-internet.el @@ -46,7 +46,6 @@ (use-package google-translate :straight t - :if (not my/remote-server) :functions (my-google-translate-at-point google-translate--search-tkk) :commands (google-translate-at-point google-translate-at-point-reverse diff --git a/.emacs.d/modules/sqrt-org-export.el b/.emacs.d/modules/sqrt-org-export.el index e948405..193c67d 100644 --- a/.emacs.d/modules/sqrt-org-export.el +++ b/.emacs.d/modules/sqrt-org-export.el @@ -1,19 +1,16 @@ ;;; -*- lexical-binding: t -*- (use-package ox-hugo :straight t - :if (not my/remote-server) :after ox) (use-package ox-ipynb :straight (:host github :repo "jkitchin/ox-ipynb") - :if (not my/remote-server) :disabled t :after ox) (use-package htmlize :straight t :after ox - :if (not my/remote-server) :config (setq org-html-htmlize-output-type 'css)) diff --git a/.emacs.d/modules/sqrt-org-literate.el b/.emacs.d/modules/sqrt-org-literate.el index cfb35c5..e79622e 100644 --- a/.emacs.d/modules/sqrt-org-literate.el +++ b/.emacs.d/modules/sqrt-org-literate.el @@ -1,8 +1,7 @@ ;;; -*- lexical-binding: t -*- (use-package jupyter :straight t - :after (org) - :if (not (or my/remote-server my/is-termux))) + :after (org)) (defun my/jupyter-refresh-kernelspecs () "Refresh Jupyter kernelspecs" @@ -23,7 +22,6 @@ (use-package ob-hy :after (org) - :if (not my/remote-server) :straight t) (setq my/org-view-html-tmp-dir "/tmp/org-html-preview/") @@ -51,7 +49,6 @@ (add-to-list 'org-src-lang-modes '("plantuml" . plantuml))) (use-package restclient - :if (not my/remote-server) :straight t :mode ("\\.http\\'" . restclient-mode) :config @@ -69,7 +66,6 @@ (use-package ob-restclient :after (org restclient) - :if (not my/remote-server) :straight t) (with-eval-after-load 'org diff --git a/.emacs.d/modules/sqrt-org-productivity.el b/.emacs.d/modules/sqrt-org-productivity.el index 2e61b5f..d5ef69d 100644 --- a/.emacs.d/modules/sqrt-org-productivity.el +++ b/.emacs.d/modules/sqrt-org-productivity.el @@ -241,7 +241,6 @@ (use-package org-ql :after (org) - :if (not my/remote-server) :straight t :config (setq org-ql-ask-unsafe-queries nil) @@ -844,7 +843,6 @@ KEYS is a list of cons cells like (