mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
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:
@@ -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 "/")
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user