#!/usr/bin/perl -pi.bak -w

# This does a partial substitution of the really
# mechanical bits of our fonts in help content.

    # make sure that Albany and Arial are preferred over Helvetica
    s/(Helvetica\,.*)Albany\,/Albany\,$1/;
    s/(Helvetica\,.*)Arial\,/Arial\,$1/;

    # add AMT fonts
    s/Albany,/Albany AMT,Albany,/g;
    s/Thorndale,/Thorndale AMT,Thorndale,/g;
    s/Cumberland,/Cumberland AMT,Cumberland,/g;

    # add URW fonts
    s/Arial,/Arial,Nimbus Sans L,/g;
    s/Times New Roman,/Times New Roman,Nimbus Roman No9 L,/g;
    s/Courier New,/Courier New,Nimbus Mono L,/g;

    # prune duplicates
    s/Albany AMT,(.*)Albany AMT,/Albany AMT,$1/;
    s/Thorndale AMT,(.*)Thorndale AMT,/Thorndale AMT,$1/;
    s/Cumberland AMT,(.*)Cumberland AMT,/Cumberland AMT,$1/;

    s/Nimbus Sans L,(.*)Nimbus Sans L,/Nimbus Sans L,$1/;
    s/Nimbus Roman No9 L,(.*)Nimbus Roman No9 L,/Nimbus Roman No9 L,$1/;
    s/Nimbus Mono L,(.*)Nimbus Mono L,/Nimbus Mono L,$1/;

# font size
    s/font-size:.*18pt;/font-size: 22pt;/g;
    s/font-size:.*14pt;/font-size: 18pt;/g;
    s/font-size:.*12pt;/font-size: 15pt;/g;
    s/font-size:.*10pt;/font-size: 12pt;/g;
    s/font-size:.*9pt;/font-size: 11pt;/g;
