Skip to content
Browse files

Include top bar in static page

  • Loading branch information...
1 parent 4e21204 commit 730ea89ad481f08a3574076a09483fd4211aa1d8 @VictorNicollet committed Sep 25, 2012
Showing with 9 additions and 2 deletions.
  1. +2 −1 assets/static/page.htm
  2. +7 −1 ocaml/cStatic.ml
View
3 assets/static/page.htm
@@ -1,4 +1,5 @@
-<div id="static">{this|verbatim}</div>
+{head|Asset_Common_Title.render|ohm}
+<div id="static">{body|verbatim}</div>
<p class="static-foot">
{`Static_PoweredBy} <a href="/">Ohm Framework</a>
View
8 ocaml/cStatic.ml
@@ -5,6 +5,12 @@ open Ohm.Universal
open BatPervasives
let render =
- OhmStatic.wrap Asset_Static_Page.render |> OhmStatic.with_context (O.ctx `EN)
+
+ let page body = Asset_Static_Page.render (object
+ method body = body
+ method head = ()
+ end) in
+
+ OhmStatic.wrap page |> OhmStatic.with_context (O.ctx `EN)
let () = OhmStatic.export ~render ~server:O.server ~title:"Ohm Framework" Static.site

0 comments on commit 730ea89

Please sign in to comment.
Something went wrong with that request. Please try again.