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

Update docs and MarkdownCodec plugin to latest elm-markdown.

Browse Source
This commit is contained in:
Dillon Kearns 2021-08-20 20:05:57 -07:00
parent 4e5a764365
commit 85bec30edd
2 changed files with 25 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/docs/elm.json
View File

@ -13,7 +13,7 @@
"avh4/elm-color": "1.0.0",
"danyx23/elm-mimetype": "4.0.1",
"dillonkearns/elm-bcp47-language-tag": "1.0.1",
"dillonkearns/elm-markdown": "6.0.1",
"dillonkearns/elm-markdown": "7.0.0",
"dillonkearns/elm-oembed": "1.0.0",
"dillonkearns/elm-rss": "2.0.2",
"dillonkearns/elm-sitemap": "1.0.2",

32
plugins/MarkdownCodec.elm
View File

@ -233,11 +233,11 @@ codec =
Block.HtmlBlock html ->
encodeHtmlBlock html
Block.UnorderedList listItems ->
encodeUnorderedList listItems
Block.UnorderedList listSpacing listItems ->
encodeUnorderedList listSpacing listItems
Block.OrderedList int lists ->
encodeOrderedList int lists
Block.OrderedList listSpacing int lists ->
encodeOrderedList listSpacing int lists
Block.BlockQuote blocks ->
encodeBlockQuote blocks
@ -256,8 +256,8 @@ codec =
)
|> S.variant0 Block.ThematicBreak
|> S.variant1 Block.HtmlBlock htmlCodec
|> S.variant1 Block.UnorderedList (S.list listItemCodec)
|> S.variant2 Block.OrderedList S.int (S.list (S.list inlineCodec))
|> S.variant2 Block.UnorderedList listSpacingCodec (S.list listItemCodec)
|> S.variant3 Block.OrderedList listSpacingCodec S.int (S.list (S.list (S.lazy (\() -> codec))))
|> S.variant1 Block.BlockQuote (S.list (S.lazy (\() -> codec)))
|> S.variant2 Block.Heading headingCodec (S.list inlineCodec)
|> S.variant1 Block.Paragraph (S.list inlineCodec)
@ -271,6 +271,22 @@ codec =
|> S.finishCustomType
listSpacingCodec : S.Codec e Block.ListSpacing
listSpacingCodec =
S.customType
(\vLoose vTight value ->
case value of
Block.Loose ->
vLoose
Block.Tight ->
vTight
)
|> S.variant0 Block.Loose
|> S.variant0 Block.Tight
|> S.finishCustomType
tableHeaderCodec :
S.Codec
Never
@ -419,7 +435,7 @@ htmlAttributeCodec =
|> S.finishRecord
listItemCodec : S.Codec Never (Block.ListItem Block.Inline)
listItemCodec : S.Codec Never (Block.ListItem Block.Block)
listItemCodec =
S.customType
(\encodeListItem value ->
@ -427,7 +443,7 @@ listItemCodec =
Block.ListItem task children ->
encodeListItem task children
)
|> S.variant2 Block.ListItem taskCodec (S.list inlineCodec)
|> S.variant2 Block.ListItem taskCodec (S.list (S.lazy (\() -> codec)))
|> S.finishCustomType