upRootNutrition/website
1
0
Fork 0
mirror of https://gitlab.com/upRootNutrition/website.git synced 2025-06-16 04:25:11 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: fixed markdown parser

Browse source
This commit is contained in:
Nick 2024-12-27 14:49:27 -06:00
parent e6f3a09919
commit 185d922ffb
1 changed files with 14 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

54
frontend/src/Config/Helpers/Markdown.elm
View file

@ -57,32 +57,19 @@ articleImage pic =
renderDeviceMarkdown : String -> Element msg renderDeviceMarkdown : String -> Element msg
renderDeviceMarkdown markdown = renderDeviceMarkdown markdown =
case case renderMarkdown markdown of
markdown Ok ( toc, renderedMarkdown ) ->
|> String.split "\n" paragraph []
|> List.map String.trimRight [ column
|> String.join "\n" [ width fill
|> Markdown.Parser.parse , centerX
of , spacing 10
Ok ast -> ]
case Markdown.Renderer.render elmUiRenderer ast of (tocView toc :: renderedMarkdown)
Ok rendered -> ]
column
[ width fill
, centerX
, spacing 10
]
rendered
Err errors ->
text errors
Err error -> Err error ->
text E.text error
(error
|> List.map Markdown.Parser.deadEndToString
|> String.join "\n"
)
renderMarkdown : String -> Result String ( TableOfContents, List (Element msg) ) renderMarkdown : String -> Result String ( TableOfContents, List (Element msg) )
@ -102,11 +89,7 @@ renderMarkdown markdown =
Err errors Err errors
Err error -> Err error ->
Err Err (error |> List.map Markdown.Parser.deadEndToString |> String.join "\n")
(error
|> List.map Markdown.Parser.deadEndToString
|> String.join "\n"
)
renderDeviceMarkdownNoToc : String -> Element msg renderDeviceMarkdownNoToc : String -> Element msg
@ -376,18 +359,9 @@ elmUiRenderer =
, B.color colourTheme.backgroundLightGrey , B.color colourTheme.backgroundLightGrey
, paragraphFontSize , paragraphFontSize
, width fill , width fill
, E.spacing 10 , spacing 10
] ]
(List.map children
(\child ->
E.paragraph
[ width fill
, E.spacing 5
]
[ child ]
)
children
)
, unorderedList = , unorderedList =
\items -> \items ->
E.column E.column