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