Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Provide a renderer type

  • Loading branch information...
commit 2f313d996d4f2e91e2f08d427345d8db0913dbbf 1 parent 7739f62
@VictorNicollet authored
Showing with 15 additions and 1 deletion.
  1. +12 −0 src/html.ml
  2. +3 −1 src/html.mli
View
12 src/html.ml
@@ -82,6 +82,18 @@ module Convenience = struct
end
+type renderer =
+ ?css:string list
+ -> ?js:string list
+ -> ?head:string
+ -> ?favicon:string
+ -> ?body_classes:string list
+ -> title:string
+ -> writer
+ -> JsCode.t
+ -> string
+
+
let print_page ?(css=[]) ?(js=[]) ?(head="") ?favicon ?(body_classes=[]) ~title writer more_js =
let html = create () in
View
4 src/html.mli
@@ -27,7 +27,7 @@ module Convenience : sig
end
-val print_page :
+type renderer =
?css:string list
-> ?js:string list
-> ?head:string
@@ -37,3 +37,5 @@ val print_page :
-> writer
-> JsCode.t
-> string
+
+val print_page : renderer
Please sign in to comment.
Something went wrong with that request. Please try again.