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)