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

Update 2021-04-21

Browse source
This commit is contained in:
Maciej 2021-04-19 08:52:43 +03:00
parent 6dc31b3338
commit eb6b5fb740
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
5 changed files with 84 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

18
themes/themes.el
View file

@ -46,7 +46,11 @@
(interactive "sNew font: \nnEnter size for font %s: ")
(set-face-attribute 'default nil :font (format "%s %d" name size))
;; Set modeline font to be 1 pixel point smaller than the general font
(set-face-attribute 'mode-line nil :font (format "%s %d" name (- size 1))))
(set-face-attribute 'mode-line nil :font (format "%s %d" name (- size 1)))
(set-face-attribute 'mode-line-inactive nil :font
(format "%s %d" name (- size 1))))
(defconst +custom-font "JetBrains Mono")
(defun set-font-to-screen ()
"Automatically set font size to suit the monitor."
@ -54,12 +58,12 @@
;; If display is set to emulate FullHD resultion or less, make the font
;; smaller.
(cond ((eq (x-display-list) nil)) ()
((>= 1050 (x-display-pixel-height)) (set-font "IBM Plex Mono" 14))
((>= 1080 (x-display-pixel-height)) (set-font "IBM Plex Mono" 13))
((>= 1120 (x-display-pixel-height)) (set-font "IBM Plex Mono" 14))
((>= 1440 (x-display-pixel-height)) (set-font "IBM Plex Mono" 16))
((>= 2160 (x-display-pixel-height)) (set-font "IBM Plex Mono" 20))
(t (set-font "IBM Plex Mono" 16))))
((>= 1050 (x-display-pixel-height)) (set-font +custom-font 14))
((>= 1080 (x-display-pixel-height)) (set-font +custom-font 13))
((>= 1120 (x-display-pixel-height)) (set-font +custom-font 14))
((>= 1440 (x-display-pixel-height)) (set-font +custom-font 16))
((>= 2160 (x-display-pixel-height)) (set-font +custom-font 20))
(t (set-font +custom-font 16))))
;; Do it automatically on startup
(set-font-to-screen)