From aa0f7d0f7220633090cc26b5044cb198fde3541c Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 29 Sep 2011 12:10:27 -0700 Subject: [PATCH] help.html: don't display recent searches. Fixes #211. --- basis/help/html/html.factor | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor index eeaeaf7c41..360970ab91 100644 --- a/basis/help/html/html.factor +++ b/basis/help/html/html.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2008, 2010 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: io.encodings.utf8 io.encodings.binary -io.files io.files.temp io.directories html.streams help kernel +USING: io.encodings.utf8 io.encodings.binary io.files +io.files.temp io.directories html.streams help help.home kernel assocs sequences make words accessors arrays help.topics vocabs vocabs.hierarchy help.vocabs namespaces prettyprint io vocabs.loader serialize fry memoize unicode.case math.order @@ -69,7 +69,7 @@ M: topic url-of topic>filename ; [ drop help-stylesheet ] [ [ print-topic ] with-html-writer ] tri simple-page ; - + : generate-help-file ( topic -- ) dup topic>filename utf8 [ help>html write-xml ] with-file-writer ; @@ -95,9 +95,12 @@ M: topic url-of topic>filename ; all-words [ dup name>> ] { } map>assoc "words.idx" serialize-index all-vocabs-really [ dup vocab-name ] { } map>assoc "vocabs.idx" serialize-index ; -: generate-help-files ( -- ) +: (generate-help-files) ( -- ) all-topics [ '[ _ generate-help-file ] try ] each ; +: generate-help-files ( -- ) + f recent-searches [ (generate-help-files) ] with-variable ; + : generate-help ( -- ) "docs" temp-file [ make-directories ]