···77-}
8899import Html exposing (Html)
1010+import Html.Attributes as A
101111121213···1617slab :
1718 (List (Html.Attribute msg) -> List (Html msg) -> Html msg)
1819 -> List (Html.Attribute msg)
1919- -> List (Html.Attribute msg)
2020+ -> List String
2021 -> List (Html msg)
2122 -> Html msg
2223slab typ attributes stylingAttributes children =
2324 typ
2424- (List.append
2525- stylingAttributes
2626- attributes
2727- )
2525+ (A.class (String.join " " stylingAttributes) :: attributes)
2826 children
292730283129slaby :
3230 (List (Html.Attribute msg) -> List (Html msg) -> Html msg)
3331 -> List (Html.Attribute msg)
3434- -> List (Html.Attribute msg)
3232+ -> List String
3533 -> Html msg
3634 -> Html msg
3735slaby a b c =
···4240-- 2
434144424545-brick : List (Html.Attribute msg) -> List (Html.Attribute msg) -> List (Html msg) -> Html msg
4343+brick : List (Html.Attribute msg) -> List String -> List (Html msg) -> Html msg
4644brick =
4745 slab Html.div
484649475050-bricky : List (Html.Attribute msg) -> List (Html.Attribute msg) -> Html msg -> Html msg
4848+bricky : List (Html.Attribute msg) -> List String -> Html msg -> Html msg
5149bricky a b =
5250 List.singleton >> brick a b
5351···5654-- 3
575558565959-chunk : List (Html.Attribute msg) -> List (Html msg) -> Html msg
5757+chunk : List String -> List (Html msg) -> Html msg
6058chunk =
6159 brick []
626063616464-chunky : List (Html.Attribute msg) -> Html msg -> Html msg
6262+chunky : List String -> Html msg -> Html msg
6563chunky a =
6664 List.singleton >> chunk a
676568666969-inline : List (Html.Attribute msg) -> List (Html msg) -> Html msg
6767+inline : List String -> List (Html msg) -> Html msg
7068inline =
7169 slab Html.span []
7270