diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor index b367551093..fc1a17ce64 100644 --- a/basis/help/markup/markup.factor +++ b/basis/help/markup/markup.factor @@ -305,15 +305,13 @@ PRIVATE> check-first dup "related" word-prop remove [ $see-also ] unless-empty ; -: ($grid) ( style quot -- ) - [ - table-content-style get [ - swap [ last-element off call ] tabular-output - ] with-style +: ($grid) ( style content-style quot -- ) + '[ + _ [ last-element off _ tabular-output ] with-style ] ($block) ; inline : $list ( element -- ) - list-style get [ + list-style get list-content-style get [ [ [ bullet get write-cell @@ -323,7 +321,7 @@ PRIVATE> ] ($grid) ; : $table ( element -- ) - table-style get [ + table-style get table-content-style get [ [ [ [ [ print-element ] with-cell ] each diff --git a/basis/help/stylesheet/stylesheet.factor b/basis/help/stylesheet/stylesheet.factor index ba03ef9804..71b9461a82 100644 --- a/basis/help/stylesheet/stylesheet.factor +++ b/basis/help/stylesheet/stylesheet.factor @@ -10,6 +10,9 @@ IN: help.stylesheet : wrap-margin-table-content ( -- n ) 32 default-font-size * ; +: wrap-margin-list-content ( -- n ) + 40 default-font-size * ; + : font-size-subsection ( -- n ) 14/12 default-font-size * >integer ; @@ -133,6 +136,11 @@ H{ { table-border $ table-border-color } } table-style set-global +SYMBOL: list-content-style +H{ + { wrap-margin $ wrap-margin-list-content } +} list-content-style set-global + SYMBOL: list-style H{ { table-gap { 5 5 } }