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