         }
         { snippet-style
             H{
-                { font-name "monospace" }
-                { font-size 36 }
+                { font-name $ default-monospace-font-name }
+                { font-size $[ default-font-size 3 * ] }
                 { foreground T{ rgba f 0.1 0.1 0.4 1 } }
             }
         }
         { table-content-style
-            H{ { wrap-margin 1000 } }
+            H{ { wrap-margin $[ default-font-size 83 * ] } }
         }
         { list-style
-            H{ { table-gap { 10 20 } } }
+            H{
+                { table-gap ${ default-font-size 5/6 *
+                               default-font-size 10/6 * }
+                }
+            }
         }
     }
 
 : $title ( string -- )
     [
         H{
-            { font-name "sans-serif" }
-            { font-size 48 }
+            { font-name $ default-sans-serif-font-name }
+            { font-size $[ default-font-size 4 * ] }
         } format
     ] ($block) ;
 

! Copyright (C) 2007, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays colors fry help.markup help.stylesheet
io.styles kernel math math.ranges models namespaces parser
sequences system ui ui.gadgets ui.gadgets.books ui.gadgets.panes
ui.gestures ui.pens.gradient ui.pens.solid ;
IN: slides

    [
        <gadget>
            divider-interior >>interior
            ${ default-font-size 67 * default-font-size 5/6 * } >>dim
            { 1 0 } >>orientation
        gadget.
    ] ($block) ;
