2006-01-20 01:26:50 -05:00
|
|
|
! Copyright (C) 2006 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
IN: help-responder
|
2006-01-23 20:05:39 -05:00
|
|
|
USING: cont-responder hashtables help html kernel namespaces
|
|
|
|
|
sequences ;
|
2006-01-20 01:26:50 -05:00
|
|
|
|
|
|
|
|
: help-responder ( filename -- )
|
2006-01-23 20:05:39 -05:00
|
|
|
[
|
|
|
|
|
"topic" "query" get hash
|
|
|
|
|
dup empty? [ drop "handbook" ] when
|
|
|
|
|
dup article-title
|
|
|
|
|
[ [ (help) ] with-html-stream ] html-document
|
|
|
|
|
] show-final ;
|
