diff options
author | Thanos Apollo <[email protected]> | 2024-10-14 19:39:44 +0300 |
---|---|---|
committer | Thanos Apollo <[email protected]> | 2024-10-14 19:39:44 +0300 |
commit | 14fe279bc11409d9ae709bc2af977bbe49751fb2 (patch) | |
tree | 6e6339311a9607bdd9a2eb5d8534e2d9646b3348 /.config/emacs | |
parent | fe7ef7d0b3b00f1bf91103ba576f0105b4833c03 (diff) |
emacs: Adjust for uranus
Diffstat (limited to '.config/emacs')
-rw-r--r-- | .config/emacs/init.el | 128 |
1 files changed, 71 insertions, 57 deletions
diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 5133715..0f4b5bc 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -41,6 +41,7 @@ (defvar is-zeus (string= (system-name) "zeus")) (defvar is-hermes (string= (system-name) "hermes")) (defvar is-phone (string= (system-name) "localhost")) +(defvar is-uranus (string= (system-name) "uranus")) ;; Font (custom-set-faces @@ -49,7 +50,8 @@ '(variable-pitch ((t (:inherit t :height 140 :family "Iosevka Aile")))) '(org-modern-symbol ((t (:inherit t :family "Iosevka Aile"))))) -(set-fontset-font t 'greek (font-spec :family "Iosevka Aile" :size 20)) +(unless (or is-uranus is-phone) + (set-fontset-font t 'greek (font-spec :family "Iosevka Aile" :size 20))) ;; Autoinsert (auto-insert-mode 1) @@ -57,10 +59,13 @@ (setq auto-insert-alist '((python-mode . "python.template")) auto-insert-directory (locate-user-emacs-file "insert")) +;; Completions (add-to-list 'completion-styles 'initials t) - (setf tab-always-indent 'complete) +;; Search +(setf search-default-mode #'char-fold-to-regexp) ;; make it easier to search Greek chars + ;; xref (setf xref-show-xrefs-function #'consult-xref xref-show-definitions-function #'consult-xref) @@ -413,60 +418,61 @@ (use-package org-roam-ui :defer t) -(use-package modus-themes - :straight t - :config - (setf modus-themes-italic-constructs nil - modus-themes-bold-constructs nil - modus-themes-mixed-fonts nil - modus-themes-variable-pitch-ui nil - modus-themes-custom-auto-reload t - modus-themes-disable-other-themes t - modus-themes-prompts '(italic) - modus-themes-completions '((matches . (extrabold)) - (selection . (semibold italic text-also underline))) - modus-themes-org-blocks 'tinted-background) - ;; Palette overrides - (setf modus-themes-common-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 "#0C0C0C") ;; random black - ;; (bg-main "#171717") ;; badger - ;; (overline-heading-1 gold) - (fg-heading-1 red-warmer) - ;; (bg-heading-1 bg-blue-nuanced) - (bg-line-number-inactive unspecified) - (bg-line-number-active unspecified) - (bg-paren-match bg-magenta-intense) - (underline-paren-match fg-main) - (underline-err red-intense) - (underline-warning yellow-faint) - (underline-note cyan-faint) - (string "#86B187") - (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) - (cursor slate) - (prose-todo green-intense) - (prose-done bg-term-white) - (fg-prompt yellow-faint) - ,@modus-themes-preset-overrides-intense)) - ;; Headings - (setf modus-themes-headings - '((1 . (ultrabold 1.35)) - (2 . (semibold 1.2)) - (agenda-date . (1.3)) - (agenda-structure . (variable-pitch light 1.8)) - (t . (1.15)))) - ;; Load modus - (load-theme 'modus-vivendi t)) +(unless (or is-phone is-uranus) + (use-package modus-themes + :straight t + :config + (setf modus-themes-italic-constructs nil + modus-themes-bold-constructs nil + modus-themes-mixed-fonts nil + modus-themes-variable-pitch-ui nil + modus-themes-custom-auto-reload t + modus-themes-disable-other-themes t + modus-themes-prompts '(italic) + modus-themes-completions '((matches . (extrabold)) + (selection . (semibold italic text-also underline))) + modus-themes-org-blocks 'tinted-background) + ;; Palette overrides + (setf modus-themes-common-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 "#0C0C0C") ;; random black + ;; (bg-main "#171717") ;; badger + ;; (overline-heading-1 gold) + (fg-heading-1 red-warmer) + ;; (bg-heading-1 bg-blue-nuanced) + (bg-line-number-inactive unspecified) + (bg-line-number-active unspecified) + (bg-paren-match bg-magenta-intense) + (underline-paren-match fg-main) + (underline-err red-intense) + (underline-warning yellow-faint) + (underline-note cyan-faint) + (string "#86B187") + (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) + (cursor slate) + (prose-todo green-intense) + (prose-done bg-term-white) + (fg-prompt yellow-faint) + ,@modus-themes-preset-overrides-intense)) + ;; Headings + (setf modus-themes-headings + '((1 . (ultrabold 1.35)) + (2 . (semibold 1.2)) + (agenda-date . (1.3)) + (agenda-structure . (variable-pitch light 1.8)) + (t . (1.15)))) + ;; Load modus + (load-theme 'modus-vivendi t))) (use-package vertico :ensure t @@ -662,6 +668,9 @@ rss.xml" anna piracy) corfu-echo-mode t) (setf indent-tabs-mode nil)) +(when (or is-phone is-uranus) + (use-package corfu-terminal)) + (defun insert-brackets (&optional arg) "Insert ARG brackets." (interactive "P") @@ -1282,7 +1291,8 @@ Create a temporary frame to execute BODY, which will then be deleted." (add-variable-watcher 'wallpaper-current #'thanos/wallpaper-watcher) ;; Set wallpaper -(thanos/wallpaper-startup) +(when (or is-zeus is-hermes) + (thanos/wallpaper-startup)) (defvar-keymap thanos/applications-map :doc "Thanos commonly used programs" @@ -1360,6 +1370,10 @@ Create a temporary frame to execute BODY, which will then be deleted." (dotimes (i (1+ (- end str))) (insert (format "%s" (+ i str))) (org-return))) + +(use-package greek-polytonic + :straight (greek-polytonic :local-repo "~/Dev/emacs-lisp/greek-polytonic")) + (require 'server) (unless (server-running-p) (server-start)) |