···173173 , lineBreak
174174 , text "add one so you can play some music "
175175 , inline
176176- [ C.align_middle, C.inline_block, C.minus_mt_px ]
176176+ [ C.align_middle, C.inline_block, C.neg_mt_px ]
177177 [ Icons.add 14 Inherit ]
178178 ]
179179 ]
···77-}
8899import Html exposing (Html)
1010-import Html.Attributes exposing (class)
111012111312···1716slab :
1817 (List (Html.Attribute msg) -> List (Html msg) -> Html msg)
1918 -> List (Html.Attribute msg)
2020- -> List String
1919+ -> List (Html.Attribute msg)
2120 -> List (Html msg)
2221 -> Html msg
2323-slab typ attributes classes children =
2222+slab typ attributes stylingAttributes children =
2423 typ
2524 (List.append
2626- (if List.isEmpty classes then
2727- []
2828-2929- else
3030- [ classes
3131- |> String.join " "
3232- |> class
3333- ]
3434- )
2525+ stylingAttributes
3526 attributes
3627 )
3728 children
···4031slaby :
4132 (List (Html.Attribute msg) -> List (Html msg) -> Html msg)
4233 -> List (Html.Attribute msg)
4343- -> List String
3434+ -> List (Html.Attribute msg)
4435 -> Html msg
4536 -> Html msg
4637slaby a b c =
···5142-- 2
524353445454-brick : List (Html.Attribute msg) -> List String -> List (Html msg) -> Html msg
4545+brick : List (Html.Attribute msg) -> List (Html.Attribute msg) -> List (Html msg) -> Html msg
5546brick =
5647 slab Html.div
574858495959-bricky : List (Html.Attribute msg) -> List String -> Html msg -> Html msg
5050+bricky : List (Html.Attribute msg) -> List (Html.Attribute msg) -> Html msg -> Html msg
6051bricky a b =
6152 List.singleton >> brick a b
6253···6556-- 3
665767586868-chunk : List String -> List (Html msg) -> Html msg
5959+chunk : List (Html.Attribute msg) -> List (Html msg) -> Html msg
6960chunk =
7061 brick []
716272637373-chunky : List String -> Html msg -> Html msg
6464+chunky : List (Html.Attribute msg) -> Html msg -> Html msg
7465chunky a =
7566 List.singleton >> chunk a
766777687878-inline : List String -> List (Html msg) -> Html msg
6969+inline : List (Html.Attribute msg) -> List (Html msg) -> Html msg
7970inline =
8071 slab Html.span []
8172
+11-18
src/Library/Chunky/Styled.elm
···6677-}
8899+import Html as RegularHtml
910import Html.Styled as Html exposing (Html)
1010-import Html.Styled.Attributes exposing (class)
1111+import Html.Styled.Attributes
111212131314···1718slab :
1819 (List (Html.Attribute msg) -> List (Html msg) -> Html msg)
1920 -> List (Html.Attribute msg)
2020- -> List String
2121+ -> List (RegularHtml.Attribute msg)
2122 -> List (Html msg)
2223 -> Html msg
2323-slab typ attributes classes children =
2424+slab typ attributes stylingAttributes children =
2425 typ
2526 (List.append
2626- (if List.isEmpty classes then
2727- []
2828-2929- else
3030- [ classes
3131- |> String.join " "
3232- |> class
3333- ]
3434- )
2727+ (List.map Html.Styled.Attributes.fromUnstyled stylingAttributes)
3528 attributes
3629 )
3730 children
···4033slaby :
4134 (List (Html.Attribute msg) -> List (Html msg) -> Html msg)
4235 -> List (Html.Attribute msg)
4343- -> List String
3636+ -> List (RegularHtml.Attribute msg)
4437 -> Html msg
4538 -> Html msg
4639slaby a b c =
···5144-- 2
524553465454-brick : List (Html.Attribute msg) -> List String -> List (Html msg) -> Html msg
4747+brick : List (Html.Attribute msg) -> List (RegularHtml.Attribute msg) -> List (Html msg) -> Html msg
5548brick =
5649 slab Html.div
575058515959-bricky : List (Html.Attribute msg) -> List String -> Html msg -> Html msg
5252+bricky : List (Html.Attribute msg) -> List (RegularHtml.Attribute msg) -> Html msg -> Html msg
6053bricky a b =
6154 List.singleton >> brick a b
6255···6558-- 3
665967606868-chunk : List String -> List (Html msg) -> Html msg
6161+chunk : List (RegularHtml.Attribute msg) -> List (Html msg) -> Html msg
6962chunk =
7063 brick []
716472657373-chunky : List String -> Html msg -> Html msg
6666+chunky : List (RegularHtml.Attribute msg) -> Html msg -> Html msg
7467chunky a =
7568 List.singleton >> chunk a
766977707878-inline : List String -> List (Html msg) -> Html msg
7171+inline : List (RegularHtml.Attribute msg) -> List (Html msg) -> Html msg
7972inline =
8073 slab Html.span []
8174