pdf.values: fix names for some fonts.

master
John Benediktsson 2020-03-03 11:09:11 -08:00
parent 5a1b773899
commit 9d16162371
1 changed files with 6 additions and 2 deletions

View File

@ -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 ,
">>" ,