From ea2a725e9d5d758495b556631c3280de9d97fa0a Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Wed, 10 Apr 2024 14:05:08 +0200 Subject: init --- app/Pretty/Color.hs | 58 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 58 insertions(+) create mode 100644 app/Pretty/Color.hs (limited to 'app/Pretty') diff --git a/app/Pretty/Color.hs b/app/Pretty/Color.hs new file mode 100644 index 0000000..e8e48dd --- /dev/null +++ b/app/Pretty/Color.hs @@ -0,0 +1,58 @@ +{-# OPTIONS_GHC -fno-warn-unused-top-binds #-} + +module Pretty.Color + ( Color (..), + toRgb, + Intensity (..), + ) +where + +data Color + = Black + | Red + | Green + | Yellow + | Blue + | Magenta + | Cyan + | White + deriving (Show, Eq, Ord) + +toRgb :: (Intensity, Color) -> String +toRgb (Dull, Black) = base00 -- color0 +toRgb (Dull, Red) = base08 -- color1 +toRgb (Dull, Green) = base0B -- color2 +toRgb (Dull, Yellow) = base0A -- color3 +toRgb (Dull, Blue) = base0D -- color4 +toRgb (Dull, Magenta) = base0E -- color5 +toRgb (Dull, Cyan) = base0C -- color6 +toRgb (Dull, White) = base05 -- color7 +toRgb (Vivid, Black) = base03 -- color8 +toRgb (Vivid, Red) = base08 -- color9 +toRgb (Vivid, Green) = base0B -- color10 +toRgb (Vivid, Yellow) = base0A -- color11 +toRgb (Vivid, Blue) = base0D -- color12 +toRgb (Vivid, Magenta) = base0E -- color13 +toRgb (Vivid, Cyan) = base0C -- color14 +toRgb (Vivid, White) = base07 -- color15 + +data Intensity = Vivid | Dull + deriving (Show, Eq, Ord) + +base00, base01, base02, base03, base04, base05, base06, base07, base08, base09, base0A, base0B, base0C, base0D, base0E, base0F :: String +base00 = "#263238" +base01 = "#2E3C43" +base02 = "#314549" +base03 = "#546E7A" +base04 = "#B2CCD6" +base05 = "#EEFFFF" +base06 = "#EEFFFF" +base07 = "#FFFFFF" +base08 = "#F07178" +base09 = "#F78C6C" +base0A = "#FFCB6B" +base0B = "#C3E88D" +base0C = "#89DDFF" +base0D = "#82AAFF" +base0E = "#C792EA" +base0F = "#FF5370" -- cgit v1.2.3