Add script for RSS feed updates

2024-05-19 19:14:39 -03:00 · 2024-05-19 19:14:39 -03:00 · 0076b63ee8
commit 0076b63ee8
parent ab9496a92b
6 changed files with 76 additions and 19 deletions
--- a/posts/html/.gitattributes
+++ b/posts/html/.gitattributes
--- a/posts/gen.ml
+++ b/posts/gen.ml
@ -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
--- a/posts/markdown/scripts-em-ocaml.md
+++ b/posts/markdown/scripts-em-ocaml.md
--- a/posts/html/scripts-em-ocaml.md.html
+++ b/posts/html/scripts-em-ocaml.md.html