From d7be39cd8a16e22f6f8784fdae06c223df5864c1 Mon Sep 17 00:00:00 2001
From: Chris Wells <chris@mathematicaster.org>
Date: Tue, 12 Nov 2024 10:42:21 -0600
Subject: Writing some basic scaffolding for colors

---
 src/WWW/Colors/Hex.hs | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 src/WWW/Colors/Hex.hs

(limited to 'src/WWW/Colors/Hex.hs')

diff --git a/src/WWW/Colors/Hex.hs b/src/WWW/Colors/Hex.hs
new file mode 100644
index 0000000..1773e66
--- /dev/null
+++ b/src/WWW/Colors/Hex.hs
@@ -0,0 +1,34 @@
+{-# LANGUAGE TemplateHaskell #-}
+module WWW.Colors.Hex
+    ( HexColor
+    ) where
+
+import Data.Colour
+import Digrams.Attributes
+import Language.Haskell.TH.Quote
+
+
+newtype HexColor = HexColor ByteString
+    deriving (Eq, Generic, Ord)
+
+instance Bounded HexColor where
+    maxBound = HexColor "\255\255\255"
+    minBound = HexColor "\NUL\NUL\NUL"
+
+
+instance Color HexColor where
+
+
+
+
+hex :: QuasiQuoter
+hex = QuasiQuoter
+    { quoteExp = parseit
+    , quotePat = failure "quotePat"
+    , quoteType = failure "quoteType"
+    , quoteDec = failure "quoteDec"
+    } where
+        failure s = const $ fail $ "No " <> s <> " defined for the hexcolor quasiquoter."
+        parseit s = case undefined of
+                      Nothing -> fail $ "Can't understand " <> s <> " as a valid hex color."
+                      Just h -> h `seq` [|h|]
-- 
cgit v1.2.3