branch: elpa/spacemacs-theme
commit bd0c0ee9678a15708c13595a311b6c4a46651f28
Author: nashamri <[email protected]>
Commit: nashamri <[email protected]>
Customizable comments background
---
spacemacs-dark-theme.el | 17 ++++++++++++++---
spacemacs-light-theme.el | 15 +++++++++++++--
2 files changed, 27 insertions(+), 5 deletions(-)
diff --git a/spacemacs-dark-theme.el b/spacemacs-dark-theme.el
index 2eeece85b6..9fb6008d1b 100644
--- a/spacemacs-dark-theme.el
+++ b/spacemacs-dark-theme.el
@@ -25,6 +25,14 @@
;; This file is not part of Emacs.
+(defgroup spacemacs-dark nil
+ "Spacemacs-dark theme options"
+ :group 'faces)
+
+(defcustom comment-background nil
+ "Use background color for comments"
+ :type 'boolean
+ :group 'spacemacs-dark)
(deftheme spacemacs-dark)
(let ((class '((class color) (min-colors 89)))
@@ -41,7 +49,7 @@
(keyword (if (display-graphic-p) "#237fbf" "#268bd2"))
(const (if (display-graphic-p) "#a45bad" "#d75fd7"))
(comment (if (display-graphic-p) "#2aa198" "#2aa198"))
- (comment-bg (if (display-graphic-p) "#282a32" "#282a32"))
+ (comment-bg (if (display-graphic-p) "#293234" "#282a32"))
(func (if (display-graphic-p) "#bc6ec5" "#d75fd7"))
(str (if (display-graphic-p) "#2aa198" "#2aa198"))
(type (if (display-graphic-p) "#c56ec3" "#d75fd7"))
@@ -58,7 +66,10 @@
(active1 (if (display-graphic-p) "#222226" "#121212"))
(active2 (if (display-graphic-p) "#5d4d7a" "#444444"))
(inactive (if (display-graphic-p) "#5d4d7a" "#111111"))
- (highlight (if (display-graphic-p) "#333c45" "#444444")))
+ (highlight (if (display-graphic-p) "#333c45" "#444444"))
+
+ ;; customizable properties
+ (comment-bg (if comment-background (if (display-graphic-p) "#293234"
"#262626") nil)))
(custom-theme-set-faces
'spacemacs-dark
@@ -74,7 +85,7 @@
`(link ((,class (:foreground ,comment :underline t))))
`(link-visited ((,class (:foreground ,type :underline t))))
`(font-lock-builtin-face ((,class (:foreground ,builtin))))
- `(font-lock-comment-face ((,class (:foreground ,comment))))
+ `(font-lock-comment-face ((,class (:foreground ,comment :background
,comment-bg))))
`(font-lock-negation-char-face ((,class (:foreground ,const))))
`(font-lock-reference-face ((,class (:foreground ,const))))
`(font-lock-constant-face ((,class (:foreground ,const))))
diff --git a/spacemacs-light-theme.el b/spacemacs-light-theme.el
index 45ccb959a8..e08db076e6 100644
--- a/spacemacs-light-theme.el
+++ b/spacemacs-light-theme.el
@@ -25,6 +25,14 @@
;; This file is not part of Emacs.
+(defgroup spacemacs-light nil
+ "Spacemacs-light theme options"
+ :group 'faces)
+
+(defcustom comment-background nil
+ "Use background color for comments"
+ :type 'boolean
+ :group 'spacemacs-light)
(deftheme spacemacs-light)
(let ((class '((class color) (min-colors 89)))
@@ -58,7 +66,10 @@
(active1 (if (display-graphic-p) "#e7e5eb" "#d7dfff"))
(active2 (if (display-graphic-p) "#d3d3e7" "#afafd7"))
(inactive (if (display-graphic-p) "#9f8fbd" "#af87d7"))
- (highlight (if (display-graphic-p) "#d3d3e7" "#d7d7ff")))
+ (highlight (if (display-graphic-p) "#d3d3e7" "#d7d7ff"))
+
+ ;; customizable properties
+ (comment-bg (if comment-background (if (display-graphic-p) "#f6f5ec"
"#ffffff") nil)))
(custom-theme-set-faces
'spacemacs-light
@@ -74,7 +85,7 @@
`(link ((,class (:foreground ,comment :underline t))))
`(link-visited ((,class (:foreground ,type :underline t))))
`(font-lock-builtin-face ((,class (:foreground ,builtin))))
- `(font-lock-comment-face ((,class (:foreground ,comment))))
+ `(font-lock-comment-face ((,class (:foreground ,comment :background
,comment-bg))))
`(font-lock-negation-char-face ((,class (:foreground ,const))))
`(font-lock-reference-face ((,class (:foreground ,const))))
`(font-lock-constant-face ((,class (:foreground ,const))))
