17 lines
460 B
OCaml
Executable file
17 lines
460 B
OCaml
Executable file
#!/usr/bin/env utop
|
|
|
|
let args = "--css ../assets/css/style.css --standalone " ^
|
|
"--from markdown+yaml_metadata_block " ^ "--to html5 " ^
|
|
"--highlight-style zenburn " ^ "--template=template.html "
|
|
|
|
|
|
let vert md = begin
|
|
let filename_split = String.split_on_char '.' md in
|
|
Sys.command (
|
|
"pandoc " ^ args ^ " md/" ^ md ^ " -o " ^ List.nth filename_split 0 ^ ".html"
|
|
)
|
|
end ;;
|
|
|
|
let contents = Sys.readdir "./md/"
|
|
|> Array.to_list
|
|
|> List.map vert
|