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

Add RBS mode

Browse source
This commit is contained in:
Maciej 2022-03-25 13:06:25 +02:00
parent 32f0c52a0c
commit c556cdee38
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
6 changed files with 44 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

14
pkg/fonts.el
View file

@ -58,19 +58,19 @@
(cond ((eq (x-display-list) nil))
;; built-in screen
((>= 1050 (x-display-pixel-height)) (set-font +custom-font 14))
((>= 1050 (x-display-pixel-height)) (set-font +custom-font +custom-font-size))
;; 4K screen on a Mac
((>= 1080 (x-display-pixel-height)) (set-font +custom-font 14))
((>= 1080 (x-display-pixel-height)) (set-font +custom-font +custom-font-size))
;; Other screens
((>= 1120 (x-display-pixel-height)) (set-font +custom-font 14))
((>= 1440 (x-display-pixel-height)) (set-font +custom-font 17))
((>= 1920 (x-display-pixel-height)) (set-font +custom-font 14))
((>= 1120 (x-display-pixel-height)) (set-font +custom-font +custom-font-size))
((>= 1440 (x-display-pixel-height)) (set-font +custom-font (+ +custom-font-size 3)))
((>= 1920 (x-display-pixel-height)) (set-font +custom-font +custom-font-size))
;; 4K screen on Windows
((>= 2160 (x-display-pixel-height)) (set-font +custom-font 20))
(t (set-font +custom-font 16))))
((>= 2160 (x-display-pixel-height)) (set-font +custom-font (+ +custom-font-size 6)))
(t (set-font +custom-font (+ +custom-font-size 2)))))
;; Do it automatically on startup
(set-font-to-screen)