1
#!/usr/bin/perl -pi.bak -w
3
# This does a partial substitution of the really
4
# mechanical bits of our fonts.
6
# make sure that the MS compatible fonts like Albany, Arial are preferred
7
# over the Bitstream Vera fonts
9
s/(Bitstream Vera Sans;.*)Albany;/Albany;$1/;
10
s/(Bitstream Vera Sans;.*)Arial;/Arial;$1/;
11
s/(Bitstream Vera Sans Mono;.*)Cumberland;/Cumberland;$1/;
12
s/(Bitstream Vera Sans Mono;.*)Courier New;/Courier New;$1/;
13
s/(Bitstream Vera Serif;.*)Thorndale;/Thorndale;$1/;
14
s/(Bitstream Vera Serif;.*)Times New Roman;/Times New Roman;$1/;
17
s/Albany;/Albany AMT;Albany;/g;
18
s/albany;/albanyamt;albany;/g;
19
s/Thorndale;/Thorndale AMT;Thorndale;/g;
20
s/thorndale;/thorndaleamt;thorndale;/g;
21
s/Cumberland;/Cumberland AMT;Cumberland;/g;
22
s/cumberland;/cumberlandamt;cumberland;/g;
23
s/comicsansms;/andymt;comicsansms;/g;
24
s/kidprint;/andy;kidprint;/g;
29
s/Arial;/Arial;Nimbus Sans L;/g;
30
s/arial;/arial;nimbussansl;/g;
31
s/Times New Roman;/Times New Roman;Nimbus Roman No9 L;/g;
32
s/timesnewroman;/timesnewroman;nimbusromanno9l;/g;
33
s/Courier New;/Courier New;Nimbus Mono L;/g;
34
s/couriernew;/couriernew;nimbusmonol;/g;
37
s/nimbussansl;\(.*\)nimbussansl;/nimbussansl;$1/;
38
s/nimbusmonol;\(.*\)nimbusmonol;/nimbusmonol;$1/;
39
s/nimbusromanno9l;\(.*\)nimbusromanno9l;/nimbusromanno9l;$1/;
41
# Some RedHat CJK bits
44
s/方正宋体;/方正宋体;ZYSong18030;AR PL SungtiL GB;/g;
46
s/方正明體;/方正明體;AR PL Mingti2L Big5;/g;
49
s/SunGulim;/SunGulim;Baekmuk Gulim;/g;
50
s/SunBatang;/SunBatang;Baekmuk Batang;/g;
51
s/SunDotum;/SunDotum;Baekmuk Dotum;/g;
53
# The bitstream fonts never make sense _at all_ they are so metrically odd.
54
s/Bitstream Vera Sans;//g;
55
s/Bitstream Vera Sans Mono;//g;
56
s/Bitstream Vera Serif;//g;
60
# push SansSerif to the end of the list, some Tamil fonts don't
61
# have all ISO-8859-1 characters defined
62
s/SansSerif;(.*)</$1;SansSerif</;
64
if ($ENV{OOO_VENDOR} =~ /Ubuntu/) {
65
# prefer DejaVu as UI font
66
if ($uisans) { s/<value>/<value>DejaVuSans;/; };
67
if (/UI_SANS/) { $uisans = 1; } else { $uisans = 0; };
68
if ($uifixed) { s/<value>/<value>DejaVuMonoSans;/; };
69
if (/UI_FIXED/) { $uifixed = 1; } else { $uifixed = 0; };
71
# prefer DejaVu for the Help
72
if ($helpsans) { s/font-family: */font-family: DejaVuSans,/; };
73
if (/^body/) { $helpsans = 1; } else { $helpsans = 0; };
74
if ($helpfixed) { s/font-family: */font-family: DejaVuMonoSans,/; };
75
if (/^\.code/) { $helpfixed = 1; } else { $helpfixed = 0; };