From b7ba1b19972c94858a939ccddd47d01b51a2cfc3 Mon Sep 17 00:00:00 2001 From: jultty Date: Sat, 24 Feb 2024 14:15:35 -0300 Subject: [PATCH] Refactor gen.ml for brevity --- posts/gen.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/posts/gen.ml b/posts/gen.ml index f39ed29..be6dae3 100755 --- a/posts/gen.ml +++ b/posts/gen.ml @@ -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 "."