sxlxc/readableFilter
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add a lua version

Browse Source
This commit is contained in:
Yu Cong
2025-10-09 19:51:29 +08:00
parent a6dc981e6b
commit a0aa9e611b
4 changed files with 37 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
output.html
View File

@@ -1,5 +1,6 @@
<p>Here’s the pandoc README:</p>
<div class="sourceCode" id="cb1" data-include="filter.hs"><pre
<div class="sourceCode" id="cb1" data-include="filter.hs"
style="background-color: red"><pre
class="sourceCode haskell"><code class="sourceCode haskell"><span id="cb1-1"><a href="#cb1-1" aria-hidden="true" tabindex="-1"></a><span class="dt">Foo</span><span class="ot">::</span> <span class="dt">Div</span> <span class="ot">-&gt;</span> <span class="dt">Div</span></span></code></pre></div>
<div data-include="filter.hs">
#!/usr/bin/env runhaskell
@@ -10,15 +11,15 @@ import qualified Data.Text as T
file2Block :: FilePath -&gt; IO [Block]
file2Block f = do
contents &lt;- TIO.readFile f
return [Plain [Str contents]]
contents &lt;- TIO.readFile f
return [Plain [Str contents]]
doInclude :: Block -&gt; IO Block
doInclude cb@(Div (id, classes, namevals) contents) =
case lookup (T.pack "include") namevals of
Just f -&gt; Div (id, classes, namevals) &lt;$&gt;
file2Block (T.unpack f)
Nothing -&gt; return cb
case lookup (T.pack "include") namevals of
Just f -&gt; Div (id, classes, namevals) &lt;$&gt; file2Block
(T.unpack f)
Nothing -&gt; return cb
doInclude x = return x
main :: IO ()