diff --git a/core/core-ui.el b/core/core-ui.el index 21ca9e83e..d53775a6d 100644 --- a/core/core-ui.el +++ b/core/core-ui.el @@ -351,9 +351,9 @@ frame's window-system, the theme will be reloaded.") ((display-graphic-p) (setq doom-font (face-attribute 'default :font)))) (when doom-serif-font - (set-face-attribute 'fixed-pitch-serif t :font doom-serif-font)) + (set-face-attribute 'fixed-pitch-serif nil :font doom-serif-font)) (when doom-variable-pitch-font - (set-face-attribute 'variable-pitch t :font doom-variable-pitch-font)) + (set-face-attribute 'variable-pitch nil :font doom-variable-pitch-font)) ;; Fallback to `doom-unicode-font' for Unicode characters (when (fontp doom-unicode-font) (set-fontset-font t nil doom-unicode-font nil 'append))) diff --git a/modules/app/write/autoload.el b/modules/app/write/autoload.el index 46ebe462b..8a2f21044 100644 --- a/modules/app/write/autoload.el +++ b/modules/app/write/autoload.el @@ -20,3 +20,24 @@ "Initializes `org-mode' specific settings for `+write-mode'." (when (eq major-mode 'org-mode) (+org-pretty-mode (if +write-mode +1 -1)))) + +;;;###autoload +(defun +write|init-line-numbers () + (display-line-numbers-mode (if +write-mode +1 -1))) + +;;;###autoload +(defun +write|init-mixed-pitch () + (mixed-pitch-mode (if +write-mode +1 -1))) + +;;;###autoload +(defun +write|init-visual-fill-column () + (visual-fill-column-mode (if +write-mode +1 -1))) + +;;;###autoload +(add-hook! '+write-mode-hook + #'(flyspell-mode + visual-line-mode + +write|init-mixed-pitch + +write|init-visual-fill-column + +write|init-line-numbers + +write|init-org-mode)) diff --git a/modules/app/write/config.el b/modules/app/write/config.el index ecb6adc01..a4b5e23bb 100644 --- a/modules/app/write/config.el +++ b/modules/app/write/config.el @@ -6,24 +6,6 @@ (defvar +write-line-spacing nil "What to set `line-spacing' in `+write-mode'.") -(defun +write|init-line-numbers () - (display-line-numbers-mode (if +write-mode +1 -1))) - -(defun +write|init-mixed-pitch () - (mixed-pitch-mode (if +write-mode +1 -1))) - -(defun +write|init-visual-fill-column () - (visual-fill-column-mode (if +write-mode +1 -1))) - -(add-hook! '+write-mode-hook - #'(flyspell-mode - visual-line-mode - +write|init-mixed-pitch - +write|init-visual-fill-column - +write|init-line-numbers - +write|init-org-mode)) - - ;; ;; Packages diff --git a/modules/editor/format/autoload/format.el b/modules/editor/format/autoload/format.el index 4113effd5..23042b1de 100644 --- a/modules/editor/format/autoload/format.el +++ b/modules/editor/format/autoload/format.el @@ -101,7 +101,7 @@ Stolen shamelessly from go-mode" (defun +format*probe (orig-fn) "Use `+format-with' instead, if it is set." (if +format-with - (cons +format-with t) + (list +format-with t) (funcall orig-fn))) ;;;###autoload