[nongnu] elpa/moe-theme 6c30256505 105/352: Apply color-palettes on MMM-mode

[ELPA Syncer]

branch: elpa/moe-theme
commit 6c3025650546ae0978428a1f07a1f5cd65ec5857
Author: kuanyui <azazabc123@gmail.com>
Commit: kuanyui <azazabc123@gmail.com>

    Apply color-palettes on MMM-mode
---
 moe-dark-theme.el  | 10 +++++++++-
 moe-light-theme.el | 10 +++++++++-
 2 files changed, 18 insertions(+), 2 deletions(-)

diff --git a/moe-dark-theme.el b/moe-dark-theme.el
index 8b2e40260c..70ae0c5ba3 100644
--- a/moe-dark-theme.el
+++ b/moe-dark-theme.el
@@ -428,8 +428,16 @@ Moe, moe, kyun!")
    `(flymake-warnline ((,class (:underline ,orange-2))))
    `(flymake-errline ((,class (:underline ,red-2))))
 
-   ;; mmm-mode
+   ;; MMM-Mode
+   `(mmm-cleanup-submode-face ((,class (:background ,orange-00))))
+   `(mmm-code-submode-face ((,class (:background ,blue-00))))
+   `(mmm-comment-submode-face ((,class (:background ,blue-0))))
+   `(mmm-declaration-submode-face ((,class (:background ,cyan-1))))
    `(mmm-default-submode-face ((,class (:background ,yellow-00))))
+   `(mmm-delimiter-face ((,class (:background nil :foreground ,white-0))))
+   `(mmm-init-submode-face ((,class (:background ,magenta-0))))
+   `(mmm-output-submode-face ((,class (:background ,purple-00))))
+   `(mmm-special-submode-face ((,class (:background ,green-00))))
 
    ;; Clojure
    `(clojure-test-failure-face ((,class (:underline ,orange-2))))
diff --git a/moe-light-theme.el b/moe-light-theme.el
index 351a77b072..cdbde45f97 100644
--- a/moe-light-theme.el
+++ b/moe-light-theme.el
@@ -429,8 +429,16 @@ Moe, moe, kyun!")
    `(flymake-errline ((,class (:underline ,red-2))))
    
    ;; MMM-Mode
+   `(mmm-cleanup-submode-face ((,class (:background ,orange-00))))
+   `(mmm-code-submode-face ((,class (:background ,blue-00))))
+   `(mmm-comment-submode-face ((,class (:background ,blue-0))))
+   `(mmm-declaration-submode-face ((,class (:background ,cyan-1))))
    `(mmm-default-submode-face ((,class (:background ,yellow-00))))
-
+   `(mmm-delimiter-face ((,class (:background nil :foreground ,black-5))))
+   `(mmm-init-submode-face ((,class (:background ,magenta-0))))
+   `(mmm-output-submode-face ((,class (:background ,purple-00))))
+   `(mmm-special-submode-face ((,class (:background ,green-00))))
+   
    ;; Clojure
    `(clojure-test-failure-face ((,class (:underline ,orange-2))))
    `(clojure-test-error-face ((,class (:underline ,red-2))))