acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Change fonts

This commit is contained in:
Case Duckworth 2021-09-23 17:10:56 -05:00
parent 10b8c20978
commit 95abd1a389
1 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
early-init.el
View File

@ -82,22 +82,33 @@ say, `tool-bar-mode' once to toggle the tool bar back on."
(defun after-make-frame@setup (&rest args)
(ignore args)
(let ((monospace-faces
(acdw/system
(:work '((:font "Consolas" :height 110)
(:font "DejaVu Sans Mono" :height 110)
(:font "monospace" :height 110)))
(_ '((:font "DejaVu Sans Mono" :height 100)
(:font "Consolas" :height 100)
(:font "monospace" :height 100))))))
;; (acdw/system
;; (:work '((:font "Consolas" :height 110)
;; (:font "DejaVu Sans Mono" :height 110)
;; (:font "monospace" :height 110)))
;; (_ '((:font "DejaVu Sans Mono" :height 100)
;; (:font "Consolas" :height 100)
;; (:font "monospace" :height 100))))
'((:font "Fantasque Sans Mono" :height 110)
(:font "Go Mono" :height 100)
(:font "DejaVu Sans Mono" :height 110)
(:font "monospace" :height 100))))
(acdw/set-first-face-attribute 'default monospace-faces)
(acdw/set-first-face-attribute 'fixed-pitch monospace-faces)
(acdw/set-first-face-attribute 'variable-pitch
'((:font "Inter" :height 120)
'((:font "Comic Neue" :height 125)
(:font "Inter" :height 120)
(:font "Go" :height 120)
(:font "sans-serif"
:height 100))))
(acdw/set-emoji-fonts "Segoe UI Emoji"
"Noto Color Emoji"
(acdw/set-emoji-fonts "Noto Color Emoji"
"Noto Emoji"
"Segoe UI Emoji"
"Apple Color Emoji"
"FreeSans"
"FreeMono"
"FreeSerif"
"Unifont"
"Symbola")
(acdw/set-fringes '((left-curly-arrow [#b01100000
#b00110000