14 lines
413 B
OCaml
Executable file
14 lines
413 B
OCaml
Executable file
#!/usr/bin/env utop
|
|
|
|
let pandoc_params = "--css ../../assets/style.css -s --to html5 " ^
|
|
"--metadata pagetitle='basename' --highlight-style zenburn "
|
|
|
|
let vert md = begin
|
|
let cmd = ("pandoc " ^ pandoc_params ^ md ^ " -o html/" ^ md ^ ".html ") in
|
|
ignore( Sys.command cmd )
|
|
end ;;
|
|
|
|
let contents = Sys.readdir "."
|
|
|> Array.to_list
|
|
|> List.filter (fun e -> e <> "gen.ml" && e <> "html")
|
|
|> List.map vert
|