scaffold-help deosnt need the vocab-root
parent
177de0bf0b
commit
d5d94a6bcd
|
@ -13,8 +13,7 @@ HELP: help.
|
|||
{ $description "Prints out scaffold help markup for a given word." } ;
|
||||
|
||||
HELP: scaffold-help
|
||||
{ $values
|
||||
{ "vocab-root" "a vocabulary root string" } { "string" string } }
|
||||
{ $values { "string" string } }
|
||||
{ $description "Takes an existing vocabulary and creates a help file with scaffolded help for each word. This word only works if no help file yet exists." } ;
|
||||
|
||||
HELP: scaffold-undocumented
|
||||
|
|
|
@ -217,9 +217,9 @@ PRIVATE>
|
|||
: help. ( word -- )
|
||||
[ (help.) ] [ nl vocabulary>> link-vocab ] bi ;
|
||||
|
||||
: scaffold-help ( vocab-root string -- )
|
||||
: scaffold-help ( string -- )
|
||||
[
|
||||
check-vocab
|
||||
[ find-vocab-root ] [ check-vocab ] bi
|
||||
prepare-scaffold
|
||||
[ "-docs.factor" scaffold-path ] dip
|
||||
swap [ set-scaffold-help-file ] [ 2drop ] if
|
||||
|
|
Loading…
Reference in New Issue