Add Lua filter for title string

This commit is contained in:
jultty 2024-02-24 15:22:51 -03:00
commit b4c4074e49
4 changed files with 22 additions and 11 deletions

View file

@ -1,14 +1,14 @@
#!/usr/bin/env utop
let args css = "--css " ^ css ^ " -s --to html5 --highlight-style zenburn "
let args = "--css ../../assets/style.css -s --to html5 " ^
"--highlight-style zenburn " ^ "--lua-filter filters/title.lua "
let vert md = begin
Sys.command (
"pandoc " ^ args "../../assets/style.css" ^ md ^ " -o html/" ^ md ^ ".html "
"pandoc " ^ args ^ " markdown/" ^ md ^ " -o html/" ^ md ^ ".html "
)
end ;;
let contents = Sys.readdir "."
let contents = Sys.readdir "./markdown/"
|> Array.to_list
|> List.filter (fun e -> e <> "gen.ml" && e <> "html")
|> List.map vert