Idris/ssg
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix softbreak rendering

Browse source
This commit is contained in:
Nathan McCarty 2025-02-21 05:47:46 -05:00
parent 67a07a0523
commit 72418a0b88
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/SSG/Djot/Render.idr
View file

@ -7,24 +7,27 @@ import SSG.Djot.Block
import Data.String import Data.String
import Data.List1 import Data.List1
import Data.List
import Structures.Dependent.DList import Structures.Dependent.DList
-- Maybe because specifically Soft line breaks don't generate any html of their
-- own
export export
renderInline : Inline -> (type : String ** Html type) renderInline : Inline -> Maybe (type : String ** Html type)
renderInline HardLineBreak = renderInline HardLineBreak =
(_ ** Void "br" []) Just (_ ** Void "br" [])
renderInline SoftLineBreak = renderInline SoftLineBreak =
(_ ** Text "\n") Nothing
renderInline NonBreakingSpace = renderInline NonBreakingSpace =
(_ ** Text " ") Just (_ ** Text " ")
renderInline (Text c) = renderInline (Text c) =
(_ ** Text c) Just (_ ** Text c)
export export
renderInlines : List Inline -> (types : List String ** DList _ Html types) renderInlines : List Inline -> (types : List String ** DList _ Html types)
renderInlines xs = renderInlines xs =
fromList . map renderInline $ xs fromList . catMaybes . map renderInline $ xs
headingLevel : HeaderLevel -> (h : String ** IsNormal h) headingLevel : HeaderLevel -> (h : String ** IsNormal h)
headingLevel H1 = ("h1" ** IsH1) headingLevel H1 = ("h1" ** IsH1)