From 85e1ad0e004abb5ebc7d436f6bb96c2c599015c9 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 3 Oct 2011 11:09:12 -0700
Subject: [PATCH] webapps.help: changing <alloy> to only apply to search
 responder (for performance).

---
 extra/webapps/help/help.factor                    | 11 ++++++-----
 extra/websites/concatenative/concatenative.factor |  4 ++--
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor
index 38a1895f37..17d3d361c6 100644
--- a/extra/webapps/help/help.factor
+++ b/extra/webapps/help/help.factor
@@ -34,16 +34,17 @@ M: result link-href href>> ;
     <page-action>
         { help-webapp "help" } >>template ;
 
-: <help-webapp> ( help-dir -- webapp )
+:: <help-webapp> ( help-dir help-db -- webapp )
     help-webapp new-dispatcher
         <main-action> "" add-responder
-        over <search-action> "search" add-responder
-        swap <static> "content" add-responder
+        help-dir <search-action> help-db [ <alloy> ] when* "search" add-responder
+        help-dir <static> "content" add-responder
         "resource:basis/definitions/icons/" <static> "icons" add-responder ;
 
 : run-help-webapp ( -- )
-    "resource:temp/docs" <help-webapp>
-    "resource:help.db" <sqlite-db> <alloy>
+    "resource:temp/docs"
+    "resource:help.db" <sqlite-db>
+    <help-webapp>
         main-responder set-global
     8080 httpd drop ;
 
diff --git a/extra/websites/concatenative/concatenative.factor b/extra/websites/concatenative/concatenative.factor
index a079ce97ef..792dee293f 100644
--- a/extra/websites/concatenative/concatenative.factor
+++ b/extra/websites/concatenative/concatenative.factor
@@ -89,7 +89,7 @@ SYMBOLS: key-password key-file dh-file ;
         <pastebin> <factor-recaptcha> <login-config> <factor-boilerplate> "pastebin" add-responder
         <planet> <login-config> <factor-boilerplate> "planet" add-responder
         <mason-app> <login-config> <factor-boilerplate> "mason" add-responder
-        "/tmp/docs/" <help-webapp> "docs" add-responder
+        "/tmp/docs/" f <help-webapp> "docs" add-responder
     website-db <alloy>
     main-responder set-global ;
 
@@ -108,7 +108,7 @@ SYMBOLS: key-password key-file dh-file ;
         <pastebin> <factor-recaptcha> <login-config> <factor-boilerplate> website-db <alloy> "paste.factorcode.org" add-responder
         <planet> <login-config> <factor-boilerplate> website-db <alloy> "planet.factorcode.org" add-responder
         <mason-app> <login-config> <factor-boilerplate> website-db <alloy> "builds.factorcode.org" add-responder
-        home "docs" append-path <help-webapp> website-db <alloy> "docs.factorcode.org" add-responder
+        home "docs" append-path website-db <help-webapp> "docs.factorcode.org" add-responder
         home "cgi" append-path <gitweb> "gitweb.factorcode.org" add-responder
     main-responder set-global ;
 
-- 
2.34.1