#!/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