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

Update ruby mode and change themes to white ones

Browse source
This commit is contained in:
Maciej 2021-07-09 19:52:37 +03:00
parent 1d35210c86
commit e1b64159ab
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
4 changed files with 20 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
pkg/fonts.el
View file

@ -14,7 +14,7 @@
;;;;;;;;;;;;;;;;;;;;;; Font configuration ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun set-font (name size)
"Set font to NAME and its SIZE to X pixels."
(interactive "sNew font: \nnEnter size for font %s: ")
(interactive "sNew font: \nnEnter size for %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)))
@ -27,16 +27,20 @@
(defun set-font-to-screen ()
"Automatically set font size to suit the monitor."
(interactive)
;; If display is set to emulate FullHD resultion or less, make the font
;; smaller.
(cond ((eq (x-display-list) nil)) ()
(cond ((eq (x-display-list) nil))
;; built-in screen
((>= 1050 (x-display-pixel-height)) (set-font +custom-font 14))
;; 4K screen
;; 4K screen on a Mac
((>= 1080 (x-display-pixel-height)) (set-font +custom-font 14))
;; Other screens
((>= 1120 (x-display-pixel-height)) (set-font +custom-font 14))
((>= 1440 (x-display-pixel-height)) (set-font +custom-font 16))
;; 4K screen on Windows
((>= 2160 (x-display-pixel-height)) (set-font +custom-font 20))
(t (set-font +custom-font 16))))
@ -44,6 +48,11 @@
;; Do it automatically on startup
(set-font-to-screen)
(defun set-font-size (size)
"Set font to a specified SIZE."
(interactive "nEnter size for font: ")
(set-font +custom-font size))
;; Remove ugly black line
(set-face-attribute 'vertical-border nil :foreground
(face-attribute 'fringe :background))