+
+
+
+
+
+
+
+
+ |
+ Title
+ |
+
+ Authors
+ |
+
+ Year
+ |
+
+ Tags
+ |
+
+ Description
+ |
+
+
+
+ <%s! List.map render_paper_col papers |> String.concat "" %>
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/preview/lib/ood_preview_web/templates/success_stories_template.eml b/preview/lib/ood_preview_web/templates/success_stories_template.eml
new file mode 100644
index 0000000..6f5e066
--- /dev/null
+++ b/preview/lib/ood_preview_web/templates/success_stories_template.eml
@@ -0,0 +1,21 @@
+let render_story (story : Ood_preview.Success_story.t) =
+ let open Ood_preview.Success_story in
+
+
+
+
+
+
+
+ <%s! story.body %>
+
+
+
+let render success_stories =
+ <%s! Header_section_template.render "Success Stories" %>
+
+ <%s! List.map render_story success_stories |> String.concat "" %>
+
diff --git a/preview/script/watch.sh b/preview/script/watch.sh
new file mode 100755
index 0000000..f3c2026
--- /dev/null
+++ b/preview/script/watch.sh
@@ -0,0 +1,20 @@
+#!/usr/bin/env bash
+
+source_dirs="preview/lib preview/bin preview/asset preview/config lib/ data/"
+args=${*:-"preview/bin/server.exe run"}
+cmd="dune exec ${args}"
+
+function sigint_handler() {
+ kill "$(jobs -pr)"
+ exit 1
+}
+
+trap sigint_handler SIGINT
+
+while true; do
+ make build
+ $cmd &
+ fswatch -r -1 $source_dirs
+ printf "\nRestarting server.exe due to filesystem change\n"
+ kill "$(jobs -pr)"
+done
\ No newline at end of file
diff --git a/preview/test/ood_preview_web/dune b/preview/test/ood_preview_web/dune
new file mode 100644
index 0000000..57a0535
--- /dev/null
+++ b/preview/test/ood_preview_web/dune
@@ -0,0 +1,4 @@
+(test
+ (name page_handler_test)
+ (modules page_handler_test)
+ (libraries alcotest ood_preview_web))
diff --git a/preview/test/ood_preview_web/page_handler_test.ml b/preview/test/ood_preview_web/page_handler_test.ml
new file mode 100644
index 0000000..0948f16
--- /dev/null
+++ b/preview/test/ood_preview_web/page_handler_test.ml
@@ -0,0 +1,16 @@
+(** Test suite for the Utils module. *)
+
+let test_case n = Alcotest.test_case n `Quick
+
+let () =
+ Alcotest.run
+ "ood-preview"
+ [ ( "GET /"
+ , [ test_case "returns successfully" (fun () ->
+ let req = Dream.request ~method_:`GET "/" in
+ let res = Dream.test Ood_preview_web.Handlers.Page.index req in
+ Dream.status res
+ |> Dream.status_to_int
+ |> Alcotest.(check int) "is 200" 200)
+ ] )
+ ]
+