about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--users/tazjin/emacs/config/look-and-feel.el11
1 files changed, 10 insertions, 1 deletions
diff --git a/users/tazjin/emacs/config/look-and-feel.el b/users/tazjin/emacs/config/look-and-feel.el
index 5a4d874f6f0d..8cca6e1bf08e 100644
--- a/users/tazjin/emacs/config/look-and-feel.el
+++ b/users/tazjin/emacs/config/look-and-feel.el
@@ -22,7 +22,16 @@
   (blink-cursor-mode -1))
 
 ;; Configure Emacs fonts.
-(let ((font (format "JetBrains Mono-%d" 12)))
+(let ((font (if (equal "frog" (s-trim (shell-command-to-string "hostname")))
+                ;; For unclear reasons, frog refuses to render the
+                ;; regular font weight - everything ends up bold,
+                ;; which makes it hard to distinguish e.g. read/unread
+                ;; emails.
+                ;;
+                ;; Semi-bold looks a little different than on vauxhall
+                ;; and other machines, but it's alright.
+                (format "JetBrains Mono Semi Light-%d" 12)
+              (format "JetBrains Mono-%d" 12))))
   (setq default-frame-alist `((font . ,font)))
   (set-frame-font font t t))