2005-12-01 00:53:12 -05:00
|
|
|
IN: help
|
2005-12-01 01:09:52 -05:00
|
|
|
USING: arrays gadgets-presentations hashtables io kernel
|
|
|
|
|
namespaces parser sequences words ;
|
2005-12-01 00:53:12 -05:00
|
|
|
|
|
|
|
|
: help ( topic -- )
|
2005-12-19 02:12:40 -05:00
|
|
|
default-style [
|
|
|
|
|
dup article-title $heading
|
|
|
|
|
article-content print-element
|
2005-12-19 23:18:15 -05:00
|
|
|
terpri*
|
2005-12-19 02:12:40 -05:00
|
|
|
] with-style ;
|
2005-12-01 00:53:12 -05:00
|
|
|
|
2005-12-01 01:09:52 -05:00
|
|
|
: glossary ( name -- ) <term> help ;
|
2005-12-01 00:53:12 -05:00
|
|
|
|
2005-12-17 19:03:11 -05:00
|
|
|
"Show word documentation" [ word? ] [ help ] define-command
|
2005-12-19 02:12:40 -05:00
|
|
|
"Show term definition" [ term? ] [ help ] define-default-command
|
|
|
|
|
"Show article" [ link? ] [ help ] define-default-command
|
2005-12-01 00:53:12 -05:00
|
|
|
|
2005-12-01 01:09:52 -05:00
|
|
|
H{ } clone articles global set-hash
|
|
|
|
|
H{ } clone terms global set-hash
|
