mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(look-and-feel): Font-size based on host

Browse source 
My desktop is currently connected to a 4K screen and needs *slightly*
larger fonts for readability.
This commit is contained in:
Vincent Ambo 2017-12-03 18:36:19 +01:00
parent 5b946a930c
commit 443e8ea995
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
init/look-and-feel.el
View file

@ -17,10 +17,14 @@
(blink-cursor-mode -1))
;; Configure editor fonts
(setq default-frame-alist '((font-backend . "xft")
(font . "Input Mono-12")))
(set-frame-font "Input Mono 12" t t)
;; Determine fontsize based on machine (4K display on stallo):
(letrec ((hostname (s-trim (f-read "/etc/hostname")))
(font-size (if (equal hostname "stallo") 38 12))
(font (format "Input Mono-%d" font-size)))
(setq default-frame-alist `((font-backend . "xft")
(font . ,font)))
(set-frame-font font t t))
(defun configure-new-frame (frame)
"Configuration settings to run whenever a new frame is created."