/extra/fonts/syntax/syntax.factor

http://github.com/abeaumont/factor · Factor · 16 lines · 12 code · 4 blank · 0 comment · 3 complexity · 7d30a059fc1e1bd2615e890c104b876f MD5 · raw file 

    

  1. USING: accessors arrays variants combinators io.styles
    2. 

  2. kernel math parser sequences fry ;
    3. 

  3. IN: fonts.syntax
    4. 

  4. 

  5. VARIANT: fontname serif monospace ;
    6. 

  6. 

  7. : install ( object quot -- quot/? ) over [ curry ] [ 2drop [ ] ] if ;
    8. 

  8. 

  9. : >>name* ( object fontname -- object ) name>> >>name ;
    10. 

  10. 

  11. SYNTAX: FONT: \ ; parse-until {
    12. 

  12.     [ [ number? ] find nip [ >>size ] install ]
    13. 

  13.     [ [ italic = ] find nip [ >>italic? ] install ]
    14. 

  14.     [ [ bold = ] find nip [ >>bold? ] install ]
    15. 

  15.     [ [ fontname? ] find nip [ >>name* ] install ]
    16. 

  16. } cleave 4array concat '[ dup font>> @ drop ] append! ;
    17.