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

Add script for RSS feed updates

Browse source
This commit is contained in:
jultty 2024-05-19 19:14:39 -03:00
commit 0076b63ee8
6 changed files with 76 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

6
posts/gen.ml
View file

@ -3,12 +3,14 @@
let args = "--css ../../assets/style.css -s --to html5 " ^
"--highlight-style zenburn " ^ "--lua-filter filters/title.lua "
let vert md = begin
let filename_split = String.split_on_char '.' md in
Sys.command (
"pandoc " ^ args ^ " markdown/" ^ md ^ " -o html/" ^ md ^ ".html "
"pandoc " ^ args ^ " md/" ^ md ^ " -o " ^ List.nth filename_split 0
)
end ;;
let contents = Sys.readdir "./markdown/"
let contents = Sys.readdir "./md/"
|> Array.to_list
|> List.map vert