package quill
Interactive notebook for OCaml data science
Install
Dune Dependency
Authors
Maintainers
Sources
raven-1.0.0.alpha0.tbz
sha256=a9a8a9787f8250337187bb7b21cb317c41bfd2ecf08bcfe0ab407c7b6660764d
sha512=fe13cf257c487e41efe2967be147d80fa94bac8996d3aab2b8fd16f0bbbd108c15e0e58c025ec9bf294d4a0d220ca2ba00c3b1b42fa2143f758c5f0ee4c15782
doc/src/quill.server/template_index.ml.html
Source file template_index.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30#1 "quill/src/server/template_index.eml" let render ~(files : string list) = let ___eml_buffer = Buffer.create 4096 in (Buffer.add_string ___eml_buffer "<!DOCTYPE html>\n<html lang=\"en\">\n\n<head>\n <meta charset=\"UTF-8\">\n <meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">\n <title>Quill</title>\n <link rel=\"stylesheet\" href=\"/asset/styles.css\">\n</head>\n\n<body>\n <h1>Quill Documents</h1>\n "); #14 "quill/src/server/template_index.eml" if List.length files = 0 then ( (Buffer.add_string ___eml_buffer "\n <p>No Markdown (.md) files found in this directory.</p>\n "); #16 "quill/src/server/template_index.eml" ) else ( (Buffer.add_string ___eml_buffer "\n <ul>\n "); #18 "quill/src/server/template_index.eml" files |> List.iter begin fun filename_md -> (Buffer.add_string ___eml_buffer "\n <li><a href=\"/"); (Printf.bprintf ___eml_buffer "%s" (Dream.html_escape ( #19 "quill/src/server/template_index.eml" filename_md ))); (Buffer.add_string ___eml_buffer "\">"); (Printf.bprintf ___eml_buffer "%s" (Dream.html_escape ( #19 "quill/src/server/template_index.eml" filename_md ))); (Buffer.add_string ___eml_buffer "</a></li>\n "); #20 "quill/src/server/template_index.eml" end; (Buffer.add_string ___eml_buffer "\n </ul>\n "); #22 "quill/src/server/template_index.eml" ); (Buffer.add_string ___eml_buffer "\n</body>\n\n</html>"); (Buffer.contents ___eml_buffer)