Add Lua filter for title string
This commit is contained in:
parent
40a96a81a7
commit
b4c4074e49
4 changed files with 22 additions and 11 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue