diff options
Diffstat (limited to '.config/emacs/init.el')
| -rw-r--r-- | .config/emacs/init.el | 77 |
1 files changed, 44 insertions, 33 deletions
diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 4b9c8a6..8213892 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -36,7 +36,7 @@ (setf copyright-names-regexp (format "%s <%s>" user-full-name user-mail-address)) -(defvar is-zeus (string= (system-name) "zeus")) +(defvar is-constantine (string= (system-name) "constantine")) (defvar is-hermes (string= (system-name) "hermes")) (defvar is-phone (string= (system-name) "localhost")) (defvar is-uranus (string= (system-name) "uranus")) @@ -45,7 +45,8 @@ (custom-set-faces (if is-hermes '(default ((t (:inherit nil :height 130 :family "Fira Mono")))) '(default ((t (:inherit nil :height 160 :family "Fira Mono"))))) - '(org-modern-symbol ((t (:inherit t :family "Iosevka Aile"))))) + '(org-modern-symbol ((t (:inherit t :family "Iosevka")))) + '(italic ((t (:inherit t :family "Iosevka"))))) ;; Autoinsert (auto-insert-mode 1) @@ -278,7 +279,7 @@ (use-package emacs :ensure nil :config - (if is-zeus + (if is-constantine (display-battery-mode 0) (display-battery-mode 1)) @@ -441,21 +442,22 @@ modus-themes-variable-pitch-ui nil modus-themes-custom-auto-reload t modus-themes-disable-other-themes t - modus-themes-prompts '(italic) + modus-themes-prompts '(semibold italic) modus-themes-completions '((matches . (underline)) - (selection . (semibold italic text-also underline)))) + (selection . (semibold text-also underline)))) ;; Palette overrides - (setf modus-themes-common-palette-overrides + (setf modus-vivendi-palette-overrides '((fg-line-number-active cyan-intense) ;; (bg-main "#1d2021") ;;grubox-hard ;; (bg-main "#191919") ;; 1337 ;; (bg-main "#1d1f21") ;; tomorrow night - (bg-main "#151515") ;; jazz + ;; (bg-main "#151515") ;; jazz ;; (bg-main "#0C0C0C") ;; random black + ;; (bg-main "#1b1d1e") ;; Iosevka + ;; (bg-main "#0D0E16") ;; Acario + ;; (bg-main "#1c1e1f") ;; molokai ;; (bg-main "#171717") ;; badger - ;; (overline-heading-1 gold) - (fg-heading-1 red-warmer) - ;; (bg-heading-1 bg-blue-nuanced) + (fg-heading-1 red) (bg-line-number-inactive unspecified) (bg-line-number-active unspecified) (bg-paren-match bg-magenta-intense) @@ -466,11 +468,7 @@ (string olive) (border-mode-line-active unspecified) (border-mode-line-inactive unspecified) - (bg-mode-line-active "#433F4f") ;; subtle lavender - (bg-mode-line-inactive "#1D1D1D") - ;; Set fg from badger theme - (fg-mode-line-active "#F6F3E8") - (bg-hl-line bg-dim) + (bg-mode-line-active bg-lavender) (cursor indigo) (prose-todo green-intense) (prose-done bg-term-white) @@ -505,10 +503,8 @@ :config (defun vc-git--commit-hash-at-point () "Return commit hash at point." - (let ((hash (thing-at-point 'word t))) - (and (stringp hash) - (string-match-p "^[0-9a-f]\\{7,40\\}$" hash) - hash))) + (let ((hash (log-view-current-entry nil t))) + (cadr hash))) (defun vc-git-reset-to-commit-at-point (&optional hash) "Reset the current branch to the commit at point in the vc log buffer." @@ -566,6 +562,12 @@ vc-prefix-map ("b d" . 'vc-git-delete-branch))) +(use-package magit + :defer t + :config + (setf magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1) + :bind ("C-x g" . magit)) + (when (or is-phone is-uranus) (use-package corfu-terminal)) @@ -743,7 +745,7 @@ (setf sudo-edit-local-method "sudo")) ;; My packages -(when (or is-zeus is-hermes) +(when (or is-constantine is-hermes) (use-package yeetube :init (define-prefix-command 'thanos/yeetube-map) :vc t @@ -869,7 +871,7 @@ :after org-gnosis :config (setf org-gnosis-ui-custom-theme - '((bg . "#1e1e1e") + '((bg . "#1b1d1e") (bg-alt . "#282a36") (fg . "#ffffff") (fg-alt . "#c6daff") @@ -914,16 +916,23 @@ torrentfreak piracy) ("https://www.science.org/action/showFeed?type=etoc&feed=rss&jc=sciimmunol" science) - ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.medscape.com%2Findex%2Flist_13470_0&url_selector=a.title&url_pattern=viewarticle%2F.*&content_selector=div.article__main-content&content_cleanup=&title_cleanup=+-+Index&limit=&format=Atom" medscape med) - ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.tovima.gr%2Flatest-news%2F&url_selector=a.columns&url_pattern=&content_selector=div.main-content&content_cleanup=div.wrap-facebook%2Cdiv.googlenews&title_cleanup=&limit=&format=Atom" tovima greek news) - ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.estianews.gr%2Feidiseis-arthra%2F&url_selector=h3.entry-title&url_pattern=&content_selector=div.col-lg-8&content_cleanup=&title_cleanup=&limit=&format=Atom" estia greek news) - ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.estianews.gr%2Fkentriko-thema%2F&url_selector=h3.entry-title&url_pattern=&content_selector=div.col-md-8&content_cleanup=&title_cleanup=&limit=&format=Atom" estia greek kyrio) - ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.estianews.gr%2Fapopseis%2F&url_selector=h3.entry-title&url_pattern=&content_selector=div.col-lg-8&content_cleanup=&title_cleanup=&limit=&format=Atom" estia greek opinions) - ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.reuters.com%2Fbusiness%2Fhealthcare-pharmaceuticals%2F&url_selector=a.basic-card__title__37xHl&url_pattern=&content_selector=div.article-body__wrapper__3IxHM&content_cleanup=svg.link__new-tab-symbol__3T19s%2C+div.toolbar__container__3kIkw%2C+div.article-body__row__dFOPA+article-body__element__2p5pI&title_cleanup=&limit=&format=Atom" reuters med news) + ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.medscape.com%2Findex%2Flist_13470_0&url_selector=a.title&url_pattern=viewarticle%2F.*&content_selector=div.article__main-content&content_cleanup=&title_cleanup=+-+Index&limit=&format=Atom" + medscape med) + ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.tovima.gr%2Flatest-news%2F&url_selector=a.columns&url_pattern=&content_selector=div.main-content&content_cleanup=div.wrap-facebook%2Cdiv.googlenews&title_cleanup=&limit=&format=Atom" + tovima greek news) + ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.estianews.gr%2Feidiseis-arthra%2F&url_selector=h3.entry-title&url_pattern=&content_selector=div.col-lg-8&content_cleanup=&title_cleanup=&limit=&format=Atom" + estia greek news) + ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.estianews.gr%2Fkentriko-thema%2F&url_selector=h3.entry-title&url_pattern=&content_selector=div.col-md-8&content_cleanup=&title_cleanup=&limit=&format=Atom" + estia greek kyrio) + ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.estianews.gr%2Fapopseis%2F&url_selector=h3.entry-title&url_pattern=&content_selector=div.col-lg-8&content_cleanup=&title_cleanup=&limit=&format=Atom" + estia greek opinions) + ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.reuters.com%2Fbusiness%2Fhealthcare-pharmaceuticals%2F&url_selector=a.basic-card__title__37xHl&url_pattern=&content_selector=div.article-body__wrapper__3IxHM&content_cleanup=svg.link__new-tab-symbol__3T19s%2C+div.toolbar__container__3kIkw%2C+div.article-body__row__dFOPA+article-body__element__2p5pI&title_cleanup=&limit=&format=Atom" + reuters med news) + ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.kathimerini.gr%2Ftag%2Fellinotoyrkika%2F&url_selector=div.media-content&url_pattern=&content_selector=div.p-3&content_cleanup=&title_cleanup=&limit=&format=Atom" + kath greek tk) ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.reuters.com%2Ftechnology%2Fcybersecurity%2F&url_selector=a.media-story-card__headline__tFMEu%2C+a.media-story-card__heading__eqhp9&url_pattern=&content_selector=article.article__container__2MUeZ&content_cleanup=div.info-content__toolbar__3AkHm%2C+svg.link__new-tab-symbol__3T19s%2C+div.article-body__row__dFOPA%2C+div.read-next-tablet-up__container__3MpHN%2C+div.author-bio__multiple-authors__5YGrG%2C+div.article__read-next__Kjxdw&title_cleanup=&limit=&format=Atom" reuters cybersec news) - ("https://annas-blog.org/ -rss.xml" anna piracy) - ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.ethnos.gr%2Ftag%2F842%2Fellhnotoyrkika&url_selector=a.single-title&url_pattern=&content_selector=div.content-section&content_cleanup=div.article-related-posts%2C+div.ReadMore%2C+script&title_cleanup=&limit=&format=Atom" greek ethnos ellinotourkika) + ("https://annas-blog.org/rss.xml" anna piracy) + ("http://localhost/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.ethnos.gr%2Ftag%2F842%2Fellhnotoyrkika&url_selector=a.single-title&url_pattern=&content_selector=div.content-section&content_cleanup=div.article-related-posts%2C+div.ReadMore%2C+script&title_cleanup=&limit=&format=Atom" greek ethnos tk) ("https://planet.emacslife.com/atom.xml" emacs emacslife) ("https://localmonero.co/static/rss/the-monero-standard/feed.xml" monero) ("https://devonzuegel.com/feed" devon) @@ -995,7 +1004,7 @@ rss.xml" anna piracy) (setq-default gptel-model "llama3.2:latest") (setq gptel-backend (gptel-make-ollama "Ollama" - :host (if is-zeus "localhost:11434" "zeus:11434") + :host (if is-constantine "localhost:11434" "constantine:11434") :stream t :models '("llama3.2:latest" "dolphin-phi" "dolphin-llama3:latest"))) @@ -1088,12 +1097,14 @@ rss.xml" anna piracy) ;; autosign messages (add-hook 'message-send-hook 'mml-secure-message-sign-pgpmime) +;; Signers +(setf mml-secure-openpgp-signers '("62B758D0F6719938BC09CECA339F736C3A720928")) ;; (use-package yasnippet ;; :ensure nil ;; :config -;; (when is-zeus (add-to-list 'yas-snippet-dirs "~/Dev/guile/guix/etc/snippets/yas"))) +;; (when is-constantine (add-to-list 'yas-snippet-dirs "~/Dev/guile/guix/etc/snippets/yas"))) (use-package emms :ensure t @@ -1283,7 +1294,7 @@ Create a temporary frame to execute BODY, which will then be deleted." (add-variable-watcher 'wallpaper-current #'thanos/wallpaper-watcher) ;; Set wallpaper -(when (or is-zeus is-hermes) +(when (or is-constantine is-hermes) (thanos/wallpaper-startup)) (defvar-keymap thanos/applications-map |