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

Update packages, set modeline font

Browse source
This commit is contained in:
Maciej 2021-03-30 08:21:32 +03:00
parent 1e763e685c
commit 6dc31b3338
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
2 changed files with 23 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

3
themes/themes.el
View file

@ -45,7 +45,8 @@
"Set font to NAME and its SIZE to X pixels."
(interactive "sNew font: \nnEnter size for font %s: ")
(set-face-attribute 'default nil :font (format "%s %d" name size))
(set-face-attribute 'mode-line 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))))
(defun set-font-to-screen ()
"Automatically set font size to suit the monitor."