dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-28 23:12:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix list styling.

Browse Source
This commit is contained in:
Dillon Kearns 2019-07-23 06:32:20 -07:00
parent c676bede0f
commit 1c5e2dcebe
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/MarkParser.elm
View File

@ -138,9 +138,9 @@ applyTuple fn ( one, two ) =
viewText : { a | bold : Bool, italic : Bool, strike : Bool } -> String -> Element msg
viewText styles string =
Element.el
Element.paragraph
(Element.width Element.fill :: stylesFor styles)
(Element.text string)
[ Element.text string ]
stylesFor : { a | bold : Bool, italic : Bool, strike : Bool } -> List (Element.Attribute b)
@ -316,7 +316,7 @@ renderList (Mark.Enumerated enum) =
in
-- group []
-- (List.map renderItem enum.items)
Element.textColumn []
Element.column []
(List.map renderItem enum.items)
@ -326,7 +326,7 @@ renderItem (Mark.Item item) =
-- [ Html.div [] item.content
-- , renderList item.children
-- ]
Element.paragraph [ Element.width Element.fill ]
Element.column [ Element.width Element.fill ]
[ Element.row [ Element.spacing 10 ]
[ Element.el [] (Element.text "•")
, Element.paragraph [ Element.width Element.fill ] item.content