checkpoint

This commit is contained in:
Nathan McCarty 2025-02-23 17:05:28 -05:00
parent 75a21b8da6
commit 7ef90867f2
10 changed files with 124 additions and 17 deletions

View file

@ -8,17 +8,19 @@
<h5>Level 5 Heading</h5>
<h6>Level 6 Heading</h6>
<p>####### Level 7 Not a Heading</p>
<h1>A heading that spans multiple lines</h1>
<h1>Heading</h1>
<p># A heading that spans multiple lines</p>
<p># Heading</p>
<p>Some content</p>
<h2>A sub heading</h2>
<p>## A sub heading</p>
<p>Even more content</p>
<h1>Back up</h1>
<p># Back up</p>
<p>Some final content</p>
<h1>A Multiline Heading</h1>
<h2>A Level 2 Multiline Heading</h2>
<p>## Heading ### Not a heading</p>
<p>### Heading ## Not a heading</p>
<p>## A Level 2 ## Multiline Heading</p>
<h2>Heading</h2>
<p>### Not a heading</p>
<h3>Heading</h3>
<h2>Not a heading</h2>
<h1>A Multiline Heading</h1>
<h2>A Level 2 Multiline Heading</h2>
<h1>A Multiline Heading</h1>

View file

@ -0,0 +1,16 @@
module Main
import SSG.Djot
import SSG.HTML
import System
import System.File
main : IO ()
main = do
Right contents <- readFile "test.dj"
| Left err => do
printLn err
exitFailure
let parsed = djot contents
putStr . render . renderHtml $ parsed

View file

@ -0,0 +1,22 @@
<!DOCTYPE HTML>
<html lang=en>
<body>
<blockquote>
<p>A single line block quote</p>
</blockquote>
<blockquote>
<p>This is a multi-line blockquote With no linebreaks</p>
</blockquote>
<blockquote>
<p>This is a multi-line block quote with</p>
<p>A line break</p>
</blockquote>
<blockquote>
<p>
This is a block quote with a
<br>
hard break in it
</p>
</blockquote>
</body>
</html>

View file

@ -0,0 +1,6 @@
rm -rf build/
flock "$1" pack -q install-deps test.ipkg
pack -q run test.ipkg
rm -rf build/

View file

@ -0,0 +1,11 @@
> A single line block quote
> This is a multi-line blockquote
> With no linebreaks
> This is a multi-line block quote with
>
> A line break
> This is a block quote with a \
> hard break in it

View file

@ -0,0 +1,7 @@
package a-test
depends = SSG
main = Main
executable = test