From a18f6b5a5eddfdcfadc868ef5384f74c473d6066 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 23 Nov 2008 03:55:43 -0600 Subject: [PATCH] help.html doesn't depend on html.components, reduces mason.test load time --- basis/help/html/html.factor | 6 +----- extra/webapps/help/help.factor | 6 +++++- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor index 6b90ba6937..a9df0bea81 100644 --- a/basis/help/html/html.factor +++ b/basis/help/html/html.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: io.encodings.utf8 io.encodings.ascii io.encodings.binary -io.files html.streams html.elements html.components help kernel +io.files html.streams html.elements help kernel assocs sequences make words accessors arrays help.topics vocabs tools.vocabs tools.vocabs.browser namespaces prettyprint io vocabs.loader serialize fry memoize unicode.case math.order @@ -104,10 +104,6 @@ MEMO: load-index ( name -- index ) TUPLE: result title href ; -M: result link-title title>> ; - -M: result link-href href>> ; - : offline-apropos ( string index -- results ) load-index swap >lower '[ [ drop _ ] dip >lower subseq? ] assoc-filter diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor index 6f2c4f0042..96401b6afd 100644 --- a/extra/webapps/help/help.factor +++ b/extra/webapps/help/help.factor @@ -2,11 +2,15 @@ ! See http://factorcode.org/license.txt for BSD license. USING: kernel accessors http.server.dispatchers http.server.static furnace.actions furnace.redirection urls -validators locals io.files html.forms help.html ; +validators locals io.files html.forms html.components help.html ; IN: webapps.help TUPLE: help-webapp < dispatcher ; +M: result link-title title>> ; + +M: result link-href href>> ; + :: ( help-dir -- action ) { help-webapp "search" } >>template