maciej/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update fonts and packages

Browse source
This commit is contained in:
Maciej 2021-06-08 08:29:11 +03:00
parent 712cc94395
commit 3d7c1b2f0d
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
2 changed files with 33 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

9
pkg/fonts.el
View file

@ -21,7 +21,9 @@
(set-face-attribute 'mode-line-inactive nil :font
(format "%s %d" name (- size 1))))
(defconst +custom-font "JetBrains Mono")
;; (defconst +custom-font "Iosevka Term")
;; (defconst +custom-font "JetBrains Mono")
(defconst +custom-font "IBM Plex Mono")
(defun set-font-to-screen ()
"Automatically set font size to suit the monitor."
@ -29,10 +31,13 @@
;; If display is set to emulate FullHD resultion or less, make the font
;; smaller.
(cond ((eq (x-display-list) nil)) ()
;; built-in screen
((>= 1050 (x-display-pixel-height)) (set-font +custom-font 14))
((>= 1080 (x-display-pixel-height)) (set-font +custom-font 13))
;; 4K screen
((>= 1080 (x-display-pixel-height)) (set-font +custom-font 14))
((>= 1120 (x-display-pixel-height)) (set-font +custom-font 14))
((>= 1440 (x-display-pixel-height)) (set-font +custom-font 16))
;; 4K screen on Windows
((>= 2160 (x-display-pixel-height)) (set-font +custom-font 20))
(t (set-font +custom-font 16))))