From 9d16162371373a884d0cb4e2745f42632199be2c Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 3 Mar 2020 11:09:11 -0800 Subject: [PATCH] pdf.values: fix names for some fonts. --- extra/pdf/values/values.factor | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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 , ">>" , -- 2.34.1