help.markup: make sure lists wrap wider.

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

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