home

commit 52c6a956ac52426f721d6eaf47fabffffc1c5c28
parent 1de4acf6e83a7b1ce6f047625c82602267a12478
Author: Vincent Demeester <vincent@sbr.pm>
Date:   Mon,  7 Sep 2020 14:23:35 +0100

tools/emacs: appearance changes 👼

- Do not specify :height elsewhere that default face (it does
something really weird with modus themes)
- Update modus theme options
- update comment on color identifier mode

Signed-off-by: Vincent Demeester <vincent@sbr.pm>

Diffstat:
M
tools/emacs/config/config-appearance.el
 | 
4
+---
M
tools/emacs/config/config-editing.el
 | 
3
++-
M
tools/emacs/early-init.el
 | 
22
+++++++++++++++-------

3 files changed, 18 insertions(+), 11 deletions(-)
diff --git a/tools/emacs/config/config-appearance.el b/tools/emacs/config/config-appearance.el
@@ -18,12 +18,10 @@
                           :family font-family-mono
                           :height font-height)
       (set-face-attribute 'fixed-pitch nil
-                          :family font-family-mono
-                          :height font-height))
+                          :family font-family-mono))
     (when (member font-family-sans (font-family-list))
       (set-face-attribute 'variable-pitch nil
                           :family font-family-sans
-                          :height font-height
                           :weight 'regular))))
 ;; -TypeFaceConfiguration
 
diff --git a/tools/emacs/config/config-editing.el b/tools/emacs/config/config-editing.el
@@ -51,7 +51,8 @@
       (dolist (face faces)
         (face-remap-add-relative face '((:foreground "" :weight normal :slant normal)))))
     (face-remap-add-relative 'font-lock-keyword-face '((:weight bold :slant normal :foreground "#666666")))
-    (face-remap-add-relative 'font-lock-comment-face '((:slant italic)))
+    (face-remap-add-relative 'font-lock-comment-face '((:slant italic :weight bold :foreground "#333333")))
+    (face-remap-add-relative 'font-lock-comment-delimiter-face '((:slant italic :weight bold :foreground "#333333")))
     (face-remap-add-relative 'font-lock-builtin-face '((:weight bold :foreground "#666666")))
     (face-remap-add-relative 'font-lock-preprocessor-face '((:weight bold)))
     (face-remap-add-relative 'font-lock-function-name-face '((:underline t)))
diff --git a/tools/emacs/early-init.el b/tools/emacs/early-init.el
@@ -96,14 +96,24 @@
 This is used internally by `vde/modus-themes-toggle'."
   (setq modus-operandi-theme-slanted-constructs t
         modus-operandi-theme-bold-constructs t
-        modus-operandi-theme-visible-fringes nil
-        modus-operandi-theme-3d-modeline t
         modus-operandi-theme-subtle-diffs t
-        modus-operandi-theme-distinct-org-blocks nil
-        modus-operandi-theme-proportional-fonts nil
         modus-operandi-theme-rainbow-headings t
         modus-operandi-theme-section-headings nil
         modus-operandi-theme-scale-headings nil
+        modus-operandi-theme-fringes 'subtle ; {nil,'subtle,'intense}
+        modus-operandi-theme-mode-line '3d ; {nil,'3d,'moody}
+        modus-operandi-theme-3d-modeline t
+        modus-operandi-theme-faint-syntax nil
+        modus-operandi-theme-intense-hl-line t
+        modus-operandi-theme-intense-paren-match t
+        modus-operandi-theme-prompts 'subtle ; {nil,'subtle,'intense}
+        modus-operandi-theme-completions 'opinionated ; {nil,'moderate,'opinionated}
+        modus-operandi-theme-diffs 'desaturated ; {nil,'desaturated,'fg-only}
+        modus-operandi-theme-org-blocks 'greyscale ; {nil,'greyscale,'rainbow}
+        modus-operandi-theme-variable-pitch-headings t
+        modus-operandi-theme-rainbow-headings t
+        modus-operandi-theme-section-headings nil
+        modus-operandi-theme-scale-headings t
         modus-operandi-theme-scale-1 1.05
         modus-operandi-theme-scale-2 1.1
         modus-operandi-theme-scale-3 1.15
@@ -147,12 +157,10 @@ This is used internally by `vde/modus-themes-toggle'."
                       :family font-family-mono
                       :height font-height)
   (set-face-attribute 'fixed-pitch nil
-                      :family font-family-mono
-                      :height font-height))
+                      :family font-family-mono))
 (when (member font-family-sans (font-family-list))
   (set-face-attribute 'variable-pitch nil
                       :family font-family-sans
-                      :height font-height
                       :weight 'regular))
 
 ;; Ignore X resources; its settings would be redundant with the other settings