branch: elpa/spacemacs-theme
commit 6f1e11cb0f6dc74dd08ecd0e23d7bf676dc0d603
Author: nashamri <[email protected]>
Commit: nashamri <[email protected]>
Add option to toggle org highlight
---
README.md | 6 +++++-
spacemacs-common.el | 13 +++++++++----
2 files changed, 14 insertions(+), 5 deletions(-)
diff --git a/README.md b/README.md
index 3d90100f7d..f7c3a2f26b 100644
--- a/README.md
+++ b/README.md
@@ -50,4 +50,8 @@ This toggles a background color for the comment lines.
* `spacemacs-theme-org-height`:
-This toggles the use of varying headings heights.
+This toggles the use of varying org headings heights.
+
+* `spacemacs-theme-org-highlight`:
+
+This toggles highlighting of org headings.
diff --git a/spacemacs-common.el b/spacemacs-common.el
index 5cfac74308..78f361ba02 100644
--- a/spacemacs-common.el
+++ b/spacemacs-common.el
@@ -48,6 +48,11 @@
:type 'boolean
:group 'spacemacs-theme)
+(defcustom spacemacs-theme-org-highlight t
+ "Highlight org headings."
+ :type 'boolean
+ :group 'spacemacs-theme)
+
(defun create-spacemacs-theme (variant theme-name)
(let ((class '((class color) (min-colors 89))) ;; ~~ Dark
~~ ~~ Light ~~
;; GUI
TER GUI TER
@@ -411,10 +416,10 @@
`(org-ellipsis ((,class (:foreground ,builtin))))
`(org-footnote ((,class (:underline t :foreground ,base))))
`(org-hide ((,class (:foreground ,base))))
- `(org-level-1 ((,class (:bold t :foreground ,inf :height ,(if
spacemacs-theme-org-height 1.3 1.0) :background ,org-h1-bg :overline t))))
- `(org-level-2 ((,class (:bold t :foreground ,str :height ,(if
spacemacs-theme-org-height 1.2 1.0) :background ,org-h2-bg))))
- `(org-level-3 ((,class (:bold nil :foreground ,green :height ,(if
spacemacs-theme-org-height 1.1 1.0) :background ,org-h3-bg))))
- `(org-level-4 ((,class (:bold nil :foreground ,yellow :background
,org-h4-bg))))
+ `(org-level-1 ((,class (:bold t :foreground ,inf :height ,(if
spacemacs-theme-org-height 1.3 1.0) :background ,(when
spacemacs-theme-org-highlight org-h1-bg) :overline t))))
+ `(org-level-2 ((,class (:bold t :foreground ,str :height ,(if
spacemacs-theme-org-height 1.2 1.0) :background ,(when
spacemacs-theme-org-highlight org-h2-bg)))))
+ `(org-level-3 ((,class (:bold nil :foreground ,green :height ,(if
spacemacs-theme-org-height 1.1 1.0) :background ,(when
spacemacs-theme-org-highlight org-h3-bg)))))
+ `(org-level-4 ((,class (:bold nil :foreground ,yellow :background ,(when
spacemacs-theme-org-highlight org-h4-bg)))))
`(org-level-5 ((,class (:bold nil :foreground ,inf))))
`(org-level-6 ((,class (:bold nil :foreground ,str))))
`(org-level-7 ((,class (:bold nil :foreground ,green))))
