2005-12-01 00:53:12 -05:00
|
|
|
IN: help
|
2005-12-22 18:38:10 -05:00
|
|
|
USING: arrays gadgets-listener gadgets-presentations hashtables
|
|
|
|
|
io kernel namespaces parser sequences words ;
|
2005-12-01 00:53:12 -05:00
|
|
|
|
2005-12-28 20:25:17 -05:00
|
|
|
: (help) ( topic -- )
|
2005-12-19 02:12:40 -05:00
|
|
|
default-style [
|
2005-12-31 20:51:58 -05:00
|
|
|
[ article-content print-element ] with-nesting* terpri*
|
2005-12-19 02:12:40 -05:00
|
|
|
] with-style ;
|
2005-12-01 00:53:12 -05:00
|
|
|
|
2005-12-28 20:25:17 -05:00
|
|
|
DEFER: $heading
|
2005-12-01 00:53:12 -05:00
|
|
|
|
2005-12-28 20:25:17 -05:00
|
|
|
: help ( topic -- )
|
|
|
|
|
dup article-title $heading (help) ;
|
|
|
|
|
|
|
|
|
|
: glossary ( name -- ) <term> help ;
|
