From 00f639319cec1fee50df300aa9f8d1c42fc32dff Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 21 Jan 2022 17:41:18 -0600 Subject: Update elfeed-update.el --- early-init.el | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'early-init.el') diff --git a/early-init.el b/early-init.el index 40edbe5..8ceb74f 100644 --- a/early-init.el +++ b/early-init.el @@ -76,18 +76,18 @@ See `no-littering' for examples.") ;;; Fonts (+with-ensure-after-init - ;; Set default faces - (+with-message "Setting default faces" - (let ((font-name machine-default-font) - (font-size machine-default-height) - (variable-font-name machine-variable-pitch-font) - (variable-font-size machine-variable-pitch-height)) - (set-face-attribute 'default nil :family font-name - :height font-size :weight 'book) - (set-face-attribute 'italic nil :family font-name - :height font-size :slant 'italic) - (set-face-attribute 'variable-pitch nil :family variable-font-name - :height variable-font-size))) + (unless noninteractive ;; Set default faces + (+with-message "Setting default faces" + (let ((font-name machine-default-font) + (font-size machine-default-height) + (variable-font-name machine-variable-pitch-font) + (variable-font-size machine-variable-pitch-height)) + (set-face-attribute 'default nil :family font-name + :height font-size :weight 'book) + (set-face-attribute 'italic nil :family font-name + :height font-size :slant 'italic) + (set-face-attribute 'variable-pitch nil :family variable-font-name + :height variable-font-size)))) ;; Emoji fonts (+with-message "Adding emoji fonts" -- cgit 1.4.1-21-gabe81