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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -305,15 +305,13 @@ PRIVATE>
check-first dup "related" word-prop remove check-first dup "related" word-prop remove
[ $see-also ] unless-empty ; [ $see-also ] unless-empty ;
: ($grid) ( style quot -- ) : ($grid) ( style content-style quot -- )
[ '[
table-content-style get [ _ [ last-element off _ tabular-output ] with-style
swap [ last-element off call ] tabular-output
] with-style
] ($block) ; inline ] ($block) ; inline
: $list ( element -- ) : $list ( element -- )
list-style get [ list-style get list-content-style get [
[ [
[ [
bullet get write-cell bullet get write-cell
@ -323,7 +321,7 @@ PRIVATE>
] ($grid) ; ] ($grid) ;
: $table ( element -- ) : $table ( element -- )
table-style get [ table-style get table-content-style get [
[ [
[ [
[ [ print-element ] with-cell ] each [ [ print-element ] with-cell ] each

8
basis/help/stylesheet/stylesheet.factor
View File

@ -10,6 +10,9 @@ IN: help.stylesheet
: wrap-margin-table-content ( -- n ) : wrap-margin-table-content ( -- n )
32 default-font-size * ; 32 default-font-size * ;
: wrap-margin-list-content ( -- n )
40 default-font-size * ;
: font-size-subsection ( -- n ) : font-size-subsection ( -- n )
14/12 default-font-size * >integer ; 14/12 default-font-size * >integer ;
@ -133,6 +136,11 @@ H{
{ table-border $ table-border-color } { table-border $ table-border-color }
} table-style set-global } table-style set-global
SYMBOL: list-content-style
H{
{ wrap-margin $ wrap-margin-list-content }
} list-content-style set-global
SYMBOL: list-style SYMBOL: list-style
H{ H{
{ table-gap { 5 5 } } { table-gap { 5 5 } }