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-06-15 01:21:16 -04:00
|
|
|
USING: hashtables help html httpd io kernel namespaces sequences ;
|
2006-01-20 01:26:50 -05:00
|
|
|
|
2006-06-15 01:21:16 -04:00
|
|
|
: help-topic
|
|
|
|
|
"topic" query-param dup empty? [ drop "handbook" ] when ;
|
|
|
|
|
|
|
|
|
|
: help-responder ( -- )
|
|
|
|
|
serving-html
|
|
|
|
|
help-topic dup article-title dup [
|
|
|
|
|
<h1> write </h1> [ help ] with-html-stream
|
|
|
|
|
] html-document ;
|
