fonts: turn hardcoded font names and sizes into constants

diff --git a/basis/fonts/fonts.factor b/basis/fonts/fonts.factor
index 311715ce44f282cb0dccb28728cbd22ad9bcd21b..5389fc73d10da0741ba3db2a59e4788e06caf307 100644 (file)
--- a/basis/fonts/fonts.factor
+++ b/basis/fonts/fonts.factor
@@ -1,8 +1,14 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel colors colors.constants accessors combinators math ;
+USING: accessors colors.constants combinators kernel math ;
 IN: fonts
 
+CONSTANT: default-serif-font-name "serif"
+CONSTANT: default-sans-serif-font-name "sans serif"
+CONSTANT: default-monospace-font-name "monospace"
+
+CONSTANT: default-font-size 12
+
 TUPLE: font
 name
 size
@@ -42,18 +48,18 @@ italic?
 
 : serif-font ( -- font )
     <font>
-        "serif" >>name
-        12 >>size ;
+        default-serif-font-name >>name
+        default-font-size >>size ;
 
 : sans-serif-font ( -- font )
     <font>
-        "sans-serif" >>name
-        12 >>size ;
+        default-sans-serif-font-name >>name
+        default-font-size >>size ;
 
 : monospace-font ( -- font )
     <font>
-        "monospace" >>name
-        12 >>size ;
+        default-monospace-font-name >>name
+        default-font-size >>size ;
 
 : strip-font-colors ( font -- font' )
     clone f >>background f >>foreground ;