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

Set font more progressively

Browse source
This commit is contained in:
Maciej 2020-11-28 18:40:38 +02:00
parent b0b29418dd
commit f36b68b043
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
themes/themes.el
View file

@ -48,10 +48,10 @@
(interactive)
;; If display is set to emulate FullHD resultion or less, make the font
;; smaller.
(if (>= 1080 (x-display-pixel-height))
(set-font "Hack" 13)
;; Else, set to default size.
(set-font "Hack" 16)))
(cond ((>= 1050 (x-display-pixel-height)) (set-font "Hack" 14))
((>= 1080 (x-display-pixel-height)) (set-font "Hack" 13))
((>= 1440 (x-display-pixel-height)) (set-font "Hack" 16))
(t (set-font "Hack" 16))))
;; Do it automatically on startup
(set-font-to-screen)