emacs: fix face attribute setting

This commit is contained in:
Jeremy Baxter 2024-07-19 13:56:16 +12:00
parent 9978a833db
commit 13205c7a27

View file

@ -225,20 +225,21 @@ value `italic'."
(require 'cus-edit) ; custom faces (require 'cus-edit) ; custom faces
(let (let
((fixedpt "Roboto Mono") ((fixedpt "Roboto Mono")
( varpt "Roboto")) ( varpt "Roboto")
( accent "#89b4fa"))
(add-to-list 'default-frame-alist (cons 'font fixedpt)) (add-to-list 'default-frame-alist (cons 'font fixedpt))
(set-face-attributes (set-face-attributes
'((default :height 140) `((default :height 140)
(fixed-pitch :family fixedpt) (fixed-pitch :family ,fixedpt)
(variable-pitch :family varpt) (variable-pitch :family ,varpt)
(fixed-pitch :family fixedpt :weight regular) (fixed-pitch :family ,fixedpt :weight regular)
(font-lock-comment-face :slant italic) (font-lock-comment-face :slant italic)
(font-lock-keyword-face :slant italic) (font-lock-keyword-face :slant italic)
(link :foreground "#89b4fa" :underline t) (link :foreground ,accent :underline t)
(help-key-binding (help-key-binding
:family fixedpt :family ,fixedpt
:background "#181825" :background "#181825"
:foreground "#89b4fa" :foreground ,accent
:box (:line-width (-1 . -1) :color "#11111b" :style nil)) :box (:line-width (-1 . -1) :color "#11111b" :style nil))
(widget-field (widget-field
:extend t :extend t
@ -253,8 +254,8 @@ value `italic'."
:box (:line-width (1 . 1) :color "#11111b")) :box (:line-width (1 . 1) :color "#11111b"))
(info-xref :inherit link (info-xref :inherit link
:background "#181825" :background "#181825"
:foreground "#cdd6f4") :foreground ,accent)
(anzu-mode-line :foreground "#89b4fa")))) (anzu-mode-line :foreground ,accent))))
;; custom ;; custom
(setq custom-file "~/.emacs.d/custom.el") (setq custom-file "~/.emacs.d/custom.el")