webapps.help: need boilerplate for t:style support

diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor
index cbd1d189729208c7172cb2d3184f99ebc2baeca1..819d2c8184bd18b180e921691b0dc9a02d418bb0 100644 (file)
--- a/extra/webapps/help/help.factor
+++ b/extra/webapps/help/help.factor
@@ -1,10 +1,10 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors assocs furnace.actions furnace.redirection
-help.html help.topics html.components html.forms http.server
-http.server.dispatchers http.server.static io.directories
-io.files.temp io.servers kernel locals namespaces sequences
-unicode urls ;
+USING: accessors assocs furnace.actions furnace.boilerplate
+furnace.redirection help.html help.topics html.components
+html.forms http.server http.server.dispatchers
+http.server.static io.directories io.files.temp io.servers
+kernel locals namespaces sequences unicode urls ;
 IN: webapps.help
 
 TUPLE: help-webapp < dispatcher ;
@@ -14,7 +14,6 @@ TUPLE: help-webapp < dispatcher ;
 
 :: <search-action> ( help-dir -- action )
     <page-action>
-        { help-webapp "search" } >>template
         [
             "search" param [ unicode:blank? ] trim [
                 help-dir [
@@ -26,7 +25,9 @@ TUPLE: help-webapp < dispatcher ;
             help-navbar "navbar" set-value
 
             { help-webapp "search" } <chloe-content>
-        ] >>display ;
+        ] >>display
+    <boilerplatee>
+        { help-webapp "search" } >>template ;
 
 : help-url ( topic -- url )
     topic>filename "$help-webapp/content/" prepend >url ;