maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(wpcarro/emacs): Define constants-osx?

Browse source 
We need build-time branching and run-time branching to support OSX and Linux.

Change-Id: Ie8de39f8ce34004d8fb3acf5bb5f2ba0b5f2e3d8
Reviewed-on: https://cl.tvl.fyi/c/depot/+/7316
Reviewed-by: wpcarro <wpcarro@gmail.com>
Autosubmit: wpcarro <wpcarro@gmail.com>
Tested-by: BuildkiteCI
This commit is contained in:
William Carroll 2022-11-20 19:16:52 -08:00 • committed by wpcarro
parent 8fd9b91d29
commit 355e08cf3b
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
users/wpcarro/emacs/.emacs.d/wpc/constants.el
View file

@ -20,7 +20,10 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst constants-ci? (maybe-some? (getenv "CI"))
"Encoded as t when Emacs is running in CI.")
"Defined as t when Emacs is running in CI.")
(defconst constants-osx? (eq system-type 'darwin)
"Defined as t when OSX is running.")
(provide 'constants)
;;; constants.el ends here

2
users/wpcarro/emacs/.emacs.d/wpc/wpc-ui.el
View file

@ -166,7 +166,7 @@
(when window-system
;; On OSX, JetBrainsMono is installed as "JetBrains Mono", and I'm
;; not sure how to change that.
(let ((font (if (memq window-system '(ns)) "JetBrains Mono" "JetBrainsMono")))
(let ((font (if constants-osx? "JetBrains Mono" "JetBrainsMono")))
(fonts-set font)
;; Some themes (e.g. doom-acario-*) change the font for comments. This
;; should prevent that.