[nongnu] elpa/spacemacs-theme bd0c0ee967 038/336: Customizable comments background

[ELPA Syncer]

branch: elpa/spacemacs-theme
commit bd0c0ee9678a15708c13595a311b6c4a46651f28
Author: nashamri <designernasser@gmail.com>
Commit: nashamri <designernasser@gmail.com>

    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))))