emacs: Adjust for uranus

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))