[nongnu] elpa/subatomic-theme a9c9fa8 38/58: support Structured Haskell Mode faces

[ELPA Syncer]

branch: elpa/subatomic-theme
commit a9c9fa85eaddfb81a4cd0899652893cee907ea59
Author: Артур Файзрахманов <heraldhoi@gmail.com>
Commit: John Olsson <john@cryon.se>

    support Structured Haskell Mode faces
    
    added support for SHM
    defined new pallete colour for dark red backgrounds
    
    replaced tabs with spaces
---
 subatomic-theme.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/subatomic-theme.el b/subatomic-theme.el
index 2a326d7..cb96f0f 100644
--- a/subatomic-theme.el
+++ b/subatomic-theme.el
@@ -46,6 +46,7 @@ The theme has to be reloaded after changing anything in this 
group."
       (midnight-1        "#2e3043")
       (midnight-2        "#2a2c3e")
       (midnight-3        "#232533")
+      (midnight-red      "#421d17")
       (mystic-blue       "#696e92")
       (victory-blue      "#8aa6bc")
       (victory-blue+1    "#9dbbd3")
@@ -107,7 +108,7 @@ The theme has to be reloaded after changing anything in 
this group."
 
    `(mode-line
      ((t (:background ,midnight-3 :foreground ,full-white :weight bold
-                     :box (:line-width 1 :style released-button)))))
+                      :box (:line-width 1 :style released-button)))))
 
    `(powerline-active1
      ((t (:background ,midnight-2))))
@@ -789,6 +790,14 @@ The theme has to be reloaded after changing anything in 
this group."
 
    `(company-scrollbar-fg
      ((t (:background ,mystic-blue))))
+
+   ;; structured-haskell-mode
+
+   `(shm-current-face
+     ((t (:background ,midnight-3))))
+
+   `(shm-quarantine-face
+     ((t (:background ,midnight-red))))
    ))
 
 ;;;###autoload