desck 0.4.2

package/src/Palette.elm

@@ -0,0 +1,302 @@
+module Palette exposing (..)
+
+import Html as H exposing (Html)
+import Html.Attributes as HA exposing (style)
+import Html.Events as E
+
+
+type Color
+    = Black
+    | White
+    | Red
+    | Orange
+    | Yellow
+    | Green
+    | Cyan
+    | Blue
+    | Violet
+    | Pink
+    | DarkGray
+    | MidGray
+    | LightGray
+    | Transparent
+
+
+colorAsString : Color -> String
+colorAsString c =
+    case c of
+        Black ->
+            "black"
+
+        White ->
+            "white"
+
+        Red ->
+            "red"
+
+        Orange ->
+            "orange"
+
+        Yellow ->
+            "yellow"
+
+        Green ->
+            "green"
+
+        Cyan ->
+            "cyan"
+
+        Blue ->
+            "blue"
+
+        Violet ->
+            "violet"
+
+        Pink ->
+            "pink"
+
+        DarkGray ->
+            "darkGray"
+
+        MidGray ->
+            "midGray"
+
+        LightGray ->
+            "lightGray"
+
+        Transparent ->
+            "transparent"
+
+
+colorFromString : String -> Color
+colorFromString s =
+    case s of
+        "black" ->
+            Black
+
+        "white" ->
+            White
+
+        "red" ->
+            Red
+
+        "orange" ->
+            Orange
+
+        "yellow" ->
+            Yellow
+
+        "green" ->
+            Green
+
+        "cyan" ->
+            Cyan
+
+        "blue" ->
+            Blue
+
+        "violet" ->
+            Violet
+
+        "pink" ->
+            Pink
+
+        "darkGray" ->
+            DarkGray
+
+        "midGray" ->
+            MidGray
+
+        "lightGray" ->
+            LightGray
+
+        "transparent" ->
+            Transparent
+
+        _ ->
+            Pink
+
+
+type alias Palette =
+    { black : String
+    , white : String
+    , red : String
+    , orange : String
+    , yellow : String
+    , green : String
+    , cyan : String
+    , blue : String
+    , violet : String
+    , pink : String
+    , darkGray : String
+    , midGray : String
+    , lightGray : String
+    }
+
+
+paletteAsList : Palette -> List ( Color, String )
+paletteAsList palette =
+    [ ( Black, palette.black )
+    , ( DarkGray, palette.darkGray )
+    , ( MidGray, palette.midGray )
+    , ( LightGray, palette.lightGray )
+    , ( White, palette.white )
+    , ( Red, palette.red )
+    , ( Orange, palette.orange )
+    , ( Yellow, palette.yellow )
+    , ( Green, palette.green )
+    , ( Cyan, palette.cyan )
+    , ( Blue, palette.blue )
+    , ( Violet, palette.violet )
+    , ( Pink, palette.pink )
+    ]
+
+
+getColor : Palette -> Color -> String
+getColor palette color =
+    case color of
+        Black ->
+            palette.black
+
+        White ->
+            palette.white
+
+        Red ->
+            palette.red
+
+        Orange ->
+            palette.orange
+
+        Yellow ->
+            palette.yellow
+
+        Green ->
+            palette.green
+
+        Cyan ->
+            palette.cyan
+
+        Blue ->
+            palette.blue
+
+        Violet ->
+            palette.violet
+
+        Pink ->
+            palette.pink
+
+        DarkGray ->
+            palette.darkGray
+
+        MidGray ->
+            palette.midGray
+
+        LightGray ->
+            palette.lightGray
+
+        Transparent ->
+            "#00000000"
+
+
+setPaletteColor : Palette -> Color -> String -> Palette
+setPaletteColor p c v =
+    case c of
+        Black ->
+            { p | black = v }
+
+        White ->
+            { p | white = v }
+
+        Red ->
+            { p | red = v }
+
+        Orange ->
+            { p | orange = v }
+
+        Yellow ->
+            { p | yellow = v }
+
+        Green ->
+            { p | green = v }
+
+        Cyan ->
+            { p | cyan = v }
+
+        Blue ->
+            { p | blue = v }
+
+        Violet ->
+            { p | violet = v }
+
+        Pink ->
+            { p | pink = v }
+
+        DarkGray ->
+            { p | darkGray = v }
+
+        MidGray ->
+            { p | midGray = v }
+
+        LightGray ->
+            { p | lightGray = v }
+
+        Transparent ->
+            p
+
+
+colorPicker : Bool -> Palette -> (String -> msg) -> Color -> Html msg
+colorPicker addTransparent palette message current =
+    let
+        sections : List (List ( Color, String ))
+        sections =
+            [ [ Red, Orange, Yellow, Green, Cyan, Blue, Violet ]
+            , [ Transparent, Black, DarkGray, MidGray, LightGray, White, Pink ]
+            ]
+                |> List.map (\s -> List.map (\c -> ( c, getColor palette c )) s)
+
+        colorButton : Int -> ( Color, String ) -> Html msg
+        colorButton i ( color, c ) =
+            let
+                name =
+                    colorAsString color
+            in
+            H.button
+                ([ style "background-color" c
+                 , style "color" c
+                 , HA.title name
+                 , HA.class "palette-color"
+                 , HA.class name
+                 , HA.class
+                    (if color == current then
+                        "palette-color-selected"
+
+                     else
+                        ""
+                    )
+                 ]
+                    ++ (if color /= Transparent || addTransparent then
+                            [ E.onClick <| message name
+                            ]
+
+                        else
+                            [ style "opacity" <| String.fromFloat 0.0 ]
+                       )
+                )
+                []
+    in
+    sections
+        |> List.indexedMap
+            (\i colors ->
+                List.indexedMap
+                    (\j c -> colorButton (i * 7 + j) c)
+                    colors
+                    |> H.div
+                        [ HA.class "color-palette"
+                        ]
+            )
+        |> H.span []
+
+
+colorPickerWithTransparent : Palette -> (String -> msg) -> Color -> Html msg
+colorPickerWithTransparent =
+    colorPicker True