USING: accessors arrays assocs calendar colors colors.gray
combinators combinators.short-circuit fonts formatting
-hashtables io kernel make math math.parser sequences strings
-xml.entities ;
+hashtables io kernel make math math.parser sequences splitting
+strings xml.entities ;
IN: pdf.values
[ [ bold?>> ] [ italic?>> ] bi or [ "-" append ] when ]
[ bold?>> [ "Bold" append ] when ]
[ italic?>> [ "Italic" append ] when ]
+ [
+ name>> { "sans-serif" "monospace" } member?
+ [ "Italic" "Oblique" replace ] when
+ ]
} cleave
"/BaseFont " prepend ,
">>" ,