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

fonts: turn hardcoded font names and sizes into constants

db4
Björn Lindqvist 2015-10-24 14:29:12 +02:00
parent f2f7fd0b94
commit 594eb3774d
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
basis/fonts/fonts.factor
View File

@ -1,8 +1,14 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! 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 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 TUPLE: font
name name
size size
@ -42,18 +48,18 @@ italic?
: serif-font ( -- font ) : serif-font ( -- font )
<font> <font>
"serif" >>name default-serif-font-name >>name
12 >>size ; default-font-size >>size ;
: sans-serif-font ( -- font ) : sans-serif-font ( -- font )
<font> <font>
"sans-serif" >>name default-sans-serif-font-name >>name
12 >>size ; default-font-size >>size ;
: monospace-font ( -- font ) : monospace-font ( -- font )
<font> <font>
"monospace" >>name default-monospace-font-name >>name
12 >>size ; default-font-size >>size ;
: strip-font-colors ( font -- font' ) : strip-font-colors ( font -- font' )
clone f >>background f >>foreground ; clone f >>background f >>foreground ;