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

Initial commit

Browse source
This commit is contained in:
jultty 2024-02-23 20:00:34 -03:00
commit 93330ddc28
9 changed files with 145 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
posts/gen.ml Executable file
View file

@ -0,0 +1,11 @@
#!/usr/bin/env utop
let pandoc_params = "--css ../../assets/style.css -s --to html5 --metadata pagetitle='basename' "
let vert md = begin
if md <> "gen.ml" && md <> "html" then
ignore( Sys.command ("pandoc " ^ pandoc_params ^ md ^ " -o html/" ^ md ^ ".html ") )
end ;;
let contents = Array.to_list (Sys.readdir ".") in
List.map vert contents ;;