feat(ui): change macOS GUI font from Monaco to Menlo

Also force-disable bold font-weights, as they're a bit annoying.
This commit is contained in:
2021-06-17 20:22:41 +01:00
parent 49cef56c82
commit 639f813ab0
2 changed files with 15 additions and 1 deletions

View File

@@ -22,7 +22,7 @@
;; When running in GUI mode.
(when window-system
;; Set default font
(set-face-attribute 'default nil :family "Monaco" :height 120)
(set-face-attribute 'default nil :family "Menlo" :height 120)
;; Fix the default default-directory value.
(if (string= default-directory "/")

View File

@@ -10,5 +10,19 @@
"Root directory for Emacs Siren custom themes.")
(add-to-list 'custom-theme-load-path siren-themes-dir)
;; Globally disable setting face weight to bold.
(defvar siren-set-face-ignore-attributes '(:weight))
(defadvice set-face-attribute
(before ignore-attributes (face frame &rest args) activate)
(setq args
(apply 'nconc
(mapcar (lambda (i)
(let ((attribute (nth i args))
(value (nth (1+ i) args)))
(if (not (memq attribute
siren-set-face-ignore-attributes))
(list attribute value))))
(number-sequence 0 (1- (length args)) 2)))))
(provide 'siren-core-themes)
;;; siren-core-themes.el ends here