commit 5d552efa9c82b6f7c59aa82ee234f07ab5e896ee parent 3c593aa98fe509381710d141e1dfb52703bc9fd0 Author: Vincent Demeester <vincent@sbr.pm> Date: Thu, 4 Jul 2024 18:10:38 +0200 tools/emacs: cleanup config-appearance a bit. Signed-off-by: Vincent Demeester <vincent@sbr.pm> Diffstat:
| M | tools/emacs/config/config-appearance.el | | | 82 | +------------------------------------------------------------------------------ |
1 file changed, 1 insertion(+), 81 deletions(-)
diff --git a/tools/emacs/config/config-appearance.el b/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)