From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 17 Nov 2008 23:30:47 +0000 (-0600)
Subject: Fix help search again
X-Git-Tag: 0.94~2304^2~52^2~2
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=b50d4c9b36621be6e96eff3d935d48454e49c39f

Fix help search again
---

diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor
index 82e83e60e0..6b90ba6937 100644
--- a/basis/help/html/html.factor
+++ b/basis/help/html/html.factor
@@ -115,10 +115,10 @@ M: result link-href href>> ;
     [ [ title>> ] compare ] sort ;
 
 : article-apropos ( string -- results )
-    "docs/articles.idx" temp-file offline-apropos ;
+    "articles.idx" offline-apropos ;
 
 : word-apropos ( string -- results )
-    "docs/words.idx" temp-file offline-apropos ;
+    "words.idx" offline-apropos ;
 
 : vocab-apropos ( string -- results )
-    "docs/vocabs.idx" temp-file offline-apropos ;
+    "vocabs.idx" offline-apropos ;
diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor
index c209fe222e..3072f5d024 100644
--- a/extra/webapps/help/help.factor
+++ b/extra/webapps/help/help.factor
@@ -18,9 +18,11 @@ TUPLE: help-webapp < dispatcher ;
 
             help-dir set-current-directory
 
-            "search" value article-apropos "articles" set-value
-            "search" value word-apropos "words" set-value
-            "search" value vocab-apropos "vocabs" set-value
+            help-dir [
+                "search" value article-apropos "articles" set-value
+                "search" value word-apropos "words" set-value
+                "search" value vocab-apropos "vocabs" set-value
+            ] with-directory
 
             { help-webapp "search" } <chloe-content>
         ] >>submit ;