help.markup: make sure lists wrap wider.
parent
95b695d664
commit
29054e53e8
|
@ -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
|
||||
|
|
|
@ -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 } }
|
||||
|
|
Loading…
Reference in New Issue