! Copyright (C) 2005, 2006 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
IN: furnace:help
USING: furnace help html kernel sequences words strings io ;

: show-help ( topic -- )
    dup article-title [
        [ help ] with-html-stream
        <br/>
        <a "search" =href a> "Search" write </a>
    ] html-document ;

: string>topic ( string -- topic )
    " " split dup length 1 = [ first ] when ;

\ show-help {
    { "topic" "handbook" v-default string>topic }
} define-action

M: link browser-link-href
    link-name [ \ f ] unless* dup word? [
        browser-link-href
    ] [
        dup [ string? ] all? [ " " join ] when
        [ show-help ] curry quot-link
    ] if ;

TUPLE: search terms ;

: search ( terms -- )
    <search> "search" "Search" render-page ;

\ search {
    { "terms" }
} define-action

"help" "show-help" "contrib/furnace/tools" web-app