steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/pdf/values/values.factor
View File

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