fix(emacs): increase os font portability and readability
Signed-off-by: Lucas Sta Maria <lucas@priime.dev>
This commit is contained in:
parent
ebe45bbc24
commit
ef6fa3e980
1 changed files with 20 additions and 13 deletions
|
@ -49,22 +49,29 @@
|
||||||
(load-theme 'nano t)
|
(load-theme 'nano t)
|
||||||
(nano-light)
|
(nano-light)
|
||||||
|
|
||||||
(defvar priime-fixed-font
|
(defvar priime-fixed-font nil)
|
||||||
(cond ((eq system-type 'gnu/linux) "JetBrains Mono SemiBold")
|
(defvar priime-variable-font nil)
|
||||||
((eq system-type 'darwin) "Menlo")
|
(defvar priime-font-size nil)
|
||||||
(t "Roboto Mono")))
|
(defvar priime-fixed-height nil)
|
||||||
(defvar priime-variable-font
|
|
||||||
(cond ((eq system-type 'gnu/linux) "Newsreader")
|
(cond ((eq system-type 'gnu/linux)
|
||||||
((eq system-type 'darwin) "Verdana")
|
(setf priime-fixed-font "JetBrains Mono SemiBold")
|
||||||
(t "Arial")))
|
(setf priime-variable-font "Newsreader")
|
||||||
|
(setf priime-font-size 10)
|
||||||
|
(setf priime-fixed-height 0.8))
|
||||||
|
((eq system-type 'darwin)
|
||||||
|
(setf priime-fixed-font "Menlo")
|
||||||
|
(setf priime-variable-font "Verdana")
|
||||||
|
(setf priime-font-size 11)
|
||||||
|
(setf priime-fixed-height 1))
|
||||||
|
(t
|
||||||
|
(setf priime-fixed-font "Roboto Mono")
|
||||||
|
(setf priime-variable-font "Roboto")
|
||||||
|
(setf priime-font-size 10)
|
||||||
|
(setf priime-fixed-height 0.8)))
|
||||||
|
|
||||||
(add-to-list 'default-frame-alist `(font . ,(format "%s-10" priime-fixed-font)))
|
(add-to-list 'default-frame-alist `(font . ,(format "%s-10" priime-fixed-font)))
|
||||||
(defvar priime-font-size 10)
|
|
||||||
(set-frame-font (format "%s %d" priime-fixed-font priime-font-size))
|
(set-frame-font (format "%s %d" priime-fixed-font priime-font-size))
|
||||||
(defvar priime-fixed-height
|
|
||||||
(cond ((eq system-type 'gnu/linux) 0.8)
|
|
||||||
((eq system-type 'darwin) 1)
|
|
||||||
(t 1)))
|
|
||||||
|
|
||||||
(custom-set-faces
|
(custom-set-faces
|
||||||
'(region ((t (:inherit nano-subtle :background "#EBE5F5"))))
|
'(region ((t (:inherit nano-subtle :background "#EBE5F5"))))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue