contrib/httpd/help-responder.factor

   1 ! Copyright (C) 2006 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 IN: help-responder
   4 USING: hashtables help html httpd io kernel namespaces sequences ;
   5
   6 : help-topic
   7     "topic" query-param dup empty? [ drop "handbook" ] when ;
   8
   9 : help-responder ( -- )
  10     serving-html
  11     help-topic dup article-title [
  12         [ help ] with-html-stream
  13     ] html-document ;