From a2ff930ea2bcda10972e521d756639ec7aef2d4c Mon Sep 17 00:00:00 2001
From: cyfraeviolae <cyfraeviolae>
Date: Sat, 2 Jan 2021 11:56:39 -0500
Subject: grey

---
 src/Lib.hs       | 2 +-
 static/style.css | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Lib.hs b/src/Lib.hs
index 02ef79b..5188950 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -318,7 +318,7 @@ instance ToHtml HomeView where
                     input_ $ [type_ "checkbox", name_ "m", value_ tagm, id_ tagm] ++
                             [checked_ | tagm == "ReligiousArchitecture"] ++
                             [disabled_ "1" | disabled]
-                    label_ [for_ tagm] $ do
+                    label_ (for_ tagm : [class_ "disabled" | disabled]) $ do
                         span_ $ strong_ $ toHtml label <> ". "
                         if disabled
                            then span_ "Coming soon."
diff --git a/static/style.css b/static/style.css
index b46b683..315de10 100644
--- a/static/style.css
+++ b/static/style.css
@@ -107,3 +107,6 @@ p {
 	white-space: nowrap;
 }
 
+.disabled {
+	color: grey;
+}
-- 
cgit v1.2.3