Commit 5d552efa9c82

Vincent Demeester <vincent@sbr.pm>
2024-07-04 18:10:38
tools/emacs: cleanup config-appearance a bit.
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
1 parent 3c593aa
Changed files (1)
tools
tools/emacs/config/config-appearance.el
@@ -4,93 +4,12 @@
 ;;; Code:
 
 (use-package emacs
-  :defer 3
-  :bind ("C-c f r" . mu-reset-fonts)
-  :commands (mu-reset-fonts)
-  :hook (after-init . mu-reset-fonts)
   :config
-  ;; For displaying emojies ๐Ÿ˜›๐Ÿฆ
-  (set-fontset-font t 'symbol "Apple Color Emoji")
-  (set-fontset-font t 'symbol "Noto Color Emoji" nil 'append)
-  (set-fontset-font t 'symbol "Segoe UI Emoji" nil 'append)
-  (set-fontset-font t 'symbol "Symbola" nil 'append)
-  (defun mu-reset-fonts ()
-    "Reset fonts to my preferences."
-    (interactive)
-    (when (member font-family-mono (font-family-list))
-      (set-face-attribute 'default nil
-                          :family font-family-mono
-                          :height font-height)
-      (set-face-attribute 'fixed-pitch nil
-                          :family font-family-mono))
-    (when (member font-family-sans (font-family-list))
-      (set-face-attribute 'variable-pitch nil
-                          :family font-family-sans
-                          :weight 'regular))
-    (set-fontset-font t 'symbol "Apple Color Emoji")
-    (set-fontset-font t 'symbol "Noto Color Emoji" nil 'append)
-    (set-fontset-font t 'symbol "Segoe UI Emoji" nil 'append)
-    (set-fontset-font t 'symbol "Symbola" nil 'append))
   (set-face-attribute 'fill-column-indicator nil
                       :foreground "#717C7C" ; katana-gray
 		      )
   (global-display-fill-column-indicator-mode 1))
 
-(use-package fontaine
-  ;; :if window-system
-  :bind (("C-c f s" . fontaine-set-preset)
-	 ("C-c f S" . fontaine-set-face-font))
-  :init
-  ;; Use some global constant (from `early-init.el')
-  (setq fontaine-presets
-	'((small
-	   :default-family font-family-mono
-	   :default-height 110
-	   :variable-pitch-family "Ubuntu Nerd Font")
-	  (regular) ; like this it uses all the fallback values and is named `regular'
-	  (medium
-	   :default-weight semilight
-	   :default-height 130
-	   :bold-weight extrabold)
-	  (large
-	   :inherit medium
-	   :default-height 140)
-	  (presentation
-	   :inherit medium
-	   :default-weight light
-	   :default-height 180)
-	  (t
-	   ;; I keep all properties for didactic purposes, but most can be
-	   ;; omitted.  See the fontaine manual for the technicalities:
-	   ;; <https://protesilaos.com/emacs/fontaine>.
-	   :default-family font-family-mono
-	   :default-weight regular
-	   :default-height 130
-	   :fixed-pitch-family nil ; falls back to :default-family
-	   :fixed-pitch-weight nil ; falls back to :default-weight
-	   :fixed-pitch-height 1.0
-	   :fixed-pitch-serif-family nil ; falls back to :default-family
-	   :fixed-pitch-serif-weight nil ; falls back to :default-weight
-	   :fixed-pitch-serif-height 1.0
-	   :variable-pitch-family "Ubuntu Nerd Font"
-	   :variable-pitch-weight nil
-	   :variable-pitch-height 1.0
-	   :bold-family nil ; use whatever the underlying face has
-	   :bold-weight bold
-	   :italic-family nil
-	   :italic-slant italic
-	   :line-spacing nil)))
-
-  ;; Set last preset or fall back to desired style from `fontaine-presets'.
-  (fontaine-set-preset (or (fontaine-restore-latest-preset) 'medium))
-
-  ;; The other side of `fontaine-restore-latest-preset'.
-  (add-hook 'kill-emacs-hook #'fontaine-store-latest-preset)
-
-  ;; Persist font configurations while switching themes.  The
-  ;; `enable-theme-functions' is from Emacs 29.
-  (add-hook 'enable-theme-functions #'fontaine-apply-current-preset))
-
 (use-package emacs
   :config
   (setq-default use-file-dialog nil
@@ -136,6 +55,7 @@
                        cursor-in-non-selected-windows))
         (kill-local-variable `,local))
       (blink-cursor-mode -1))))
+
 (use-package emacs
   :config
   (setq-default custom-safe-themes t)