jutty/blog
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Refactor gen.ml for brevity

Browse source
This commit is contained in:
jultty 2024-02-24 14:15:35 -03:00
commit b7ba1b1997
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
posts/gen.ml
View file

@ -1,11 +1,11 @@
#!/usr/bin/env utop
let pandoc_params = "--css ../../assets/style.css -s --to html5 " ^
"--metadata pagetitle='basename' --highlight-style zenburn "
let args css = "--css " ^ css ^ " -s --to html5 --highlight-style zenburn "
let vert md = begin
let cmd = ("pandoc " ^ pandoc_params ^ md ^ " -o html/" ^ md ^ ".html ") in
ignore( Sys.command cmd )
Sys.command (
"pandoc " ^ args "../../assets/style.css" ^ md ^ " -o html/" ^ md ^ ".html "
)
end ;;
let contents = Sys.readdir "."