···2233import Chunky exposing (..)
44import Color
55-import Color.Ext as Color
65import Common exposing (Switch(..))
76import Conditional exposing (..)
87import Css.Classes as C
···11module UI.Kit exposing (..)
2233import Chunky exposing (..)
44-import Chunky.Styled
54import Color
66-import Color.Ext as Color
75import Color.Manipulate as Color
86import Conditional exposing (ifThenElse)
99-import Css
107import Css.Classes as C
118import Html exposing (Html)
129import Html.Attributes as A exposing (href, style)
···2233import Chunky exposing (..)
44import Color exposing (Color)
55-import Color.Ext as Color
55+66import Common
77import Css.Classes as C
88import Html exposing (Html, text)
+1-1
src/Applications/UI/Tracks/Scene/List.elm
···33import Browser.Dom as Dom
44import Chunky exposing (..)
55import Color exposing (Color)
66-import Color.Ext as Color
66+77import Color.Manipulate as Color
88import Conditional exposing (ifThenElse)
99import Coordinates
+1-1
src/Applications/UI/Tracks/View.elm
···2233import Chunky exposing (..)
44import Color exposing (Color)
55-import Color.Ext as Color
55+66import Common exposing (Switch(..))
77import Conditional exposing (ifThenElse)
88import Css.Classes as C
···11-module Chunky.Styled exposing (brick, bricky, chunk, chunky, inline, lineBreak, nothing, raw, rawy, slab, slaby)
22-33-{-| Chunks, blocks and slabs.
44-55-Convenience functions to build UIs with composable CSS classes.
66-77--}
88-99-import Html as RegularHtml
1010-import Html.Styled as Html exposing (Html)
1111-import Html.Styled.Attributes
1212-1313-1414-1515--- 1
1616-1717-1818-slab :
1919- (List (Html.Attribute msg) -> List (Html msg) -> Html msg)
2020- -> List (Html.Attribute msg)
2121- -> List (RegularHtml.Attribute msg)
2222- -> List (Html msg)
2323- -> Html msg
2424-slab typ attributes stylingAttributes children =
2525- typ
2626- (List.append
2727- (List.map Html.Styled.Attributes.fromUnstyled stylingAttributes)
2828- attributes
2929- )
3030- children
3131-3232-3333-slaby :
3434- (List (Html.Attribute msg) -> List (Html msg) -> Html msg)
3535- -> List (Html.Attribute msg)
3636- -> List (RegularHtml.Attribute msg)
3737- -> Html msg
3838- -> Html msg
3939-slaby a b c =
4040- List.singleton >> slab a b c
4141-4242-4343-4444--- 2
4545-4646-4747-brick : List (Html.Attribute msg) -> List (RegularHtml.Attribute msg) -> List (Html msg) -> Html msg
4848-brick =
4949- slab Html.div
5050-5151-5252-bricky : List (Html.Attribute msg) -> List (RegularHtml.Attribute msg) -> Html msg -> Html msg
5353-bricky a b =
5454- List.singleton >> brick a b
5555-5656-5757-5858--- 3
5959-6060-6161-chunk : List (RegularHtml.Attribute msg) -> List (Html msg) -> Html msg
6262-chunk =
6363- brick []
6464-6565-6666-chunky : List (RegularHtml.Attribute msg) -> Html msg -> Html msg
6767-chunky a =
6868- List.singleton >> chunk a
6969-7070-7171-inline : List (RegularHtml.Attribute msg) -> List (Html msg) -> Html msg
7272-inline =
7373- slab Html.span []
7474-7575-7676-7777--- 4
7878-7979-8080-raw : List (Html msg) -> Html msg
8181-raw =
8282- chunk []
8383-8484-8585-rawy : Html msg -> Html msg
8686-rawy =
8787- List.singleton >> raw
8888-8989-9090-9191--- 5
9292-9393-9494-nothing : Html msg
9595-nothing =
9696- Html.text ""
9797-9898-9999-lineBreak : Html msg
100100-lineBreak =
101101- Html.br [] []
-29
src/Library/Color/Ext.elm
···11-module Color.Ext exposing (setOpacity, toElmCssColor)
22-33-import Color exposing (Color)
44-import Css
55-66-77-88--- 🔱
99-1010-1111-setOpacity : Float -> Color -> Color
1212-setOpacity opacity color =
1313- color
1414- |> Color.toRgba
1515- |> (\c -> { c | alpha = opacity })
1616- |> Color.fromRgba
1717-1818-1919-toElmCssColor : Color -> Css.Color
2020-toElmCssColor color =
2121- color
2222- |> Color.toRgba
2323- |> (\{ red, green, blue, alpha } ->
2424- Css.rgba
2525- (round <| red * 255)
2626- (round <| green * 255)
2727- (round <| blue * 255)
2828- alpha
2929- )