pdf.values: fix names for some fonts.

diff --git a/extra/pdf/values/values.factor b/extra/pdf/values/values.factor
index c41e66d1fbfa9fdbe1eec299d5b12af5b9e54586..33f0797baf30ec9ba8c505b9d3448b09a847412d 100644 (file)
--- a/extra/pdf/values/values.factor
+++ b/extra/pdf/values/values.factor
@@ -3,8 +3,8 @@
 
 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
 
@@ -52,6 +52,10 @@ M: font pdf-value
             [ [ 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 ,
         ">>" ,