help.markup: make sure lists wrap wider.

master
John Benediktsson 2020-02-26 12:02:20 -08:00
parent 95b695d664
commit 29054e53e8
2 changed files with 13 additions and 7 deletions

View File

@ -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

View File

@ -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 } }