contrib/furnace/tools/help.factor

   1 ! Copyright (C) 2005, 2006 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 IN: furnace:help
   4 USING: furnace help html kernel sequences words strings ;
   5
   6 : string>topic ( string -- topic )
   7     " " split dup length 1 = [ first ] when ;
   8
   9 : show-help ( topic -- )
  10     dup article-title [
  11         [ help ] with-html-stream
  12     ] html-document ;
  13
  14 \ show-help {
  15     { "topic" "handbook" v-default string>topic }
  16 } define-action
  17
  18 "help" "show-help" "contrib/furnace/tools" web-app
  19
  20 M: link browser-link-href
  21     link-name [ \ f ] unless* dup word? [
  22         browser-link-href
  23     ] [
  24         dup [ string? ] all? [ " " join ] when
  25         [ show-help ] curry quot-link
  26     ] if ;