Structure font setting code a little better
This commit is contained in:
parent
9b80622cfe
commit
c75ab37f5a
27
config.org
27
config.org
|
@ -31,18 +31,21 @@ The provided default ~config.el~
|
||||||
;;
|
;;
|
||||||
;; See 'C-h v doom-font' for documentation and more examples of what they
|
;; See 'C-h v doom-font' for documentation and more examples of what they
|
||||||
;; accept. For example:
|
;; accept. For example:
|
||||||
;;
|
|
||||||
(if (string= (system-name) "wsl")
|
;; Figure out what the name and size of the font are going to be based on the system type and
|
||||||
(setq doom-font (font-spec :family "Iosevka" :size 16 :weight 'semi-light)
|
;; hostname
|
||||||
doom-unicode-font (font-spec :family "Iosevka" :size 16 :weight 'semi-light)
|
(let ((nm/font-name (cond ((eq system-type 'darwin) "Iosevka Nerd Font")
|
||||||
doom-variable-pitch-font (font-spec :family "Iosevka Sans Quasi" :size 19))
|
(t "Iosevka")))
|
||||||
(if (string= (system-name) "extremophile")
|
(nm/font-size (cond ((eq system-type 'darwin) 11)
|
||||||
(setq doom-font (font-spec :family "Iosevka Nerd Font" :size 11 :weight 'semi-light)
|
((string= (system-name) "wsl") 16)
|
||||||
doom-unicode-font (font-spec :family "Iosevka Nerd Font" :size 11 :weight 'semi-light)
|
(t 13)))
|
||||||
doom-variable-pitch-font (font-spec :family "Iosevka Sans Quasi" :size 13))
|
(nm/variable-font-size (cond ((eq system-type 'darwin) 13)
|
||||||
(setq doom-font (font-spec :family "Iosevka" :size 13 :weight 'semi-light)
|
((string= (system-name) "wsl") 19)
|
||||||
doom-unicode-font (font-spec :family "Iosevka" :size 13 :weight 'semi-light)
|
(t 15))))
|
||||||
doom-variable-pitch-font (font-spec :family "Iosevka Sans Quasi" :size 15))))
|
(setq doom-font (font-spec :family nm/font-name :size nm/font-size :weight 'semi-light)
|
||||||
|
doom-unicode-font (font-spec :family nm/font-name :size nm/font-size :weight 'semi-light)
|
||||||
|
doom-variable-pitch-font (font-spec :family "Iosevka Sans Quasi" :size nm/variable-font-size)))
|
||||||
|
|
||||||
;;
|
;;
|
||||||
;; If you or Emacs can't find your font, use 'M-x describe-font' to look them
|
;; If you or Emacs can't find your font, use 'M-x describe-font' to look them
|
||||||
;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to
|
;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to
|
||||||
|
|
Loading…
Reference in New Issue