solarized-emacs

commit 40b72d56ea93f50f12f85da6c9ecc38f9a4d4ed4
parent 8271679a627148c96ad894f960cec9b1abfb1e6c
Author: Nathan McCarty <nathan@mccarty.io>
Date:   Tue, 13 Jul 2021 22:06:44 -0400

Add option to scale markdown headers

Diffstat:
M
README.md
 | 
3
+++
M
solarized-faces.el
 | 
16
++++++++++++----
M
solarized.el
 | 
5
+++++

3 files changed, 20 insertions(+), 4 deletions(-)
diff --git a/README.md b/README.md
@@ -94,6 +94,9 @@ elisp code:
 ;; Don't change size of org-mode headlines (but keep other size-changes)
 (setq solarized-scale-org-headlines nil)
 
+;; Change the size of markdown-mode headlines (off by default)
+(setq solarized-scale-markdown-headlines t)
+
 ;; Avoid all font-size changes
 (setq solarized-height-minus-1 1.0)
 (setq solarized-height-plus-1 1.0)
diff --git a/solarized-faces.el b/solarized-faces.el
@@ -1180,10 +1180,18 @@
      `(markdown-footnote-face ((,class (:inherit default))))
      `(markdown-header-delimiter-face ((,class (:foreground ,base01))))
      `(markdown-header-face ((,class (:foreground ,blue))))
-     `(markdown-header-face-1 ((,class (:inherit markdown-header-face))))
-     `(markdown-header-face-2 ((,class (:inherit markdown-header-face))))
-     `(markdown-header-face-3 ((,class (:inherit markdown-header-face))))
-     `(markdown-header-face-4 ((,class (:inherit markdown-header-face))))
+     `(markdown-header-face-1 ((,class (:inherit markdown-header-face
+                                                 ,@(when solarized-scale-markdown-headlines
+                                                     (list :height solarized-height-plus-4))))))
+     `(markdown-header-face-2 ((,class (:inherit markdown-header-face
+                                                 ,@(when solarized-scale-markdown-headlines
+                                                     (list :height solarized-height-plus-3))))))
+     `(markdown-header-face-3 ((,class (:inherit markdown-header-face
+                                                 ,@(when solarized-scale-markdown-headlines
+                                                     (list :height solarized-height-plus-2))))))
+     `(markdown-header-face-4 ((,class (:inherit markdown-header-face
+                                                 ,@(when solarized-scale-markdown-headlines
+                                                     (list :height solarized-height-plus-1))))))
      `(markdown-header-face-5 ((,class (:inherit markdown-header-face))))
      `(markdown-header-face-6 ((,class (:inherit markdown-header-face))))
      `(markdown-header-rule-face ((,class (:foreground ,base01))))
diff --git a/solarized.el b/solarized.el
@@ -107,6 +107,11 @@ Related discussion: https://github.com/bbatsov/solarized-emacs/issues/158"
   :type 'boolean
   :group 'solarized)
 
+(defcustom solarized-scale-markdown-headlines nil
+  "Whether `markdown-mode' headlines should be scaled."
+  :type 'boolean
+  :group 'solarized)
+
 (defcustom solarized-scale-outline-headlines t
   "Whether `outline-mode' headlines should be scaled."
   :type 'boolean