1 ! Copyright (C) 2005, 2006 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
4 USING: furnace help html kernel sequences words strings ;
6 : string>topic ( string -- topic )
7 " " split dup length 1 = [ first ] when ;
9 : show-help ( topic -- )
11 [ help ] with-html-stream
15 { "topic" "handbook" v-default string>topic }
18 "help" "show-help" "contrib/furnace" web-app
20 M: link browser-link-href
21 link-name [ \ f ] unless* dup word? [
24 dup [ string? ] all? [ " " join ] when
25 [ show-help ] curry quot-link