steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add $related-subsections

factor-shell
Cat Stevens 2018-02-04 12:20:57 -05:00 committed by John Benediktsson
parent e4d6ea40ca
commit 7c22e764f9
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/help/help-docs.factor
View File

@ -195,7 +195,14 @@ HELP: $subsections
{ $markup-example { $subsections "sequences" nth each } } { $markup-example { $subsections "sequences" nth each } }
} ; } ;
{ $subsection $subsections $link } related-words HELP: $related-subsections
{ $values { "children" "a " { $link sequence } " of one or more " { $link topic } "s" } }
{ $description "A version of " { $link $subsections } " which also calls " { $link related-words } " on " { $snippet "children" } ", relating its contents together." }
{ $examples
{ $markup-example { $related-subsections keep + } }
} ;
{ $subsection $subsections $related-subsections $link $vocab-subsection } related-words
HELP: $vocab-subsection HELP: $vocab-subsection
{ $values { "element" "a markup element of the form " { $snippet "{ title vocab }" } } } { $values { "element" "a markup element of the form " { $snippet "{ title vocab }" } } }

5
basis/help/markup/markup.factor
View File

@ -251,6 +251,11 @@ PRIVATE>
: $subsections ( children -- ) : $subsections ( children -- )
[ $subsection* ] each ($blank-line) ; [ $subsection* ] each ($blank-line) ;
DEFER: related-words
: $related-subsections ( children -- )
[ related-words ] [ $subsections ] bi ;
: $subsection ( element -- ) : $subsection ( element -- )
check-first $subsection* ; check-first $subsection* ;