From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 3 Mar 2020 19:09:11 +0000 (-0800)
Subject: pdf.values: fix names for some fonts.
X-Git-Tag: 0.99~3396
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=9d16162371373a884d0cb4e2745f42632199be2c

pdf.values: fix names for some fonts.
---

diff --git a/extra/pdf/values/values.factor b/extra/pdf/values/values.factor
index c41e66d1fb..33f0797baf 100644
--- 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 ,
         ">>" ,