2 # Defoma configuration script for fontconfig
3 # Copyright © 2003 Angus Lees <gus@debian.org>
4 # This file is hereby placed into the public domain.
6 @ACCEPT_CATEGORIES = qw(type1 truetype cid);
7 # .. and any other categories supported by freetype
11 use Debian::Defoma::Common;
12 use Debian::Defoma::Id;
13 use Debian::Defoma::Subst;
18 my $PkgDir = "$ROOTDIR/fontconfig.d";
22 $Id ||= defoma_id_open_cache() or return 1;
23 $Sb ||= defoma_subst_open(rulename => 'fontconfig',
25 idobject => $Id) or return 1;
32 my $hints = parse_hints_start(@_);
34 return 1 unless $hints->{FontName};
36 my $priority = $hints->{Priority} || 20;
37 my ($fontname) = split / +/, $hints->{FontName};
38 my @alias = split / +/, $hints->{Alias} if $hints->{Alias};
40 defoma_id_register($Id, type => 'real', font => $font,
41 id => $fontname, priority => $priority,
42 hints => join(' ', @_));
44 foreach my $alias (@alias) {
45 defoma_id_register($Id, type => 'alias', font => $font,
46 id => $alias, priority => $priority,
50 defoma_subst_register($Sb, $font, $fontname);
57 defoma_subst_unregister($Sb, $font);
58 defoma_id_unregister($Id, type => 'alias', font => $font);
59 defoma_id_unregister($Id, type => 'real', font => $font);
67 my $dir = $PkgDir . '/' . substr($id, 0, 1);
68 my $ext = $font =~ m|\.([^/.]+)$| ? ".$1" : '';
69 my $file = $id . $ext;
72 symlink $font, "$dir/$file" or return 1;
81 my $dir = $PkgDir . '/' . substr($id, 0, 1);
82 my $ext = $font =~ m|\.([^/.]+)$| ? ".$1" : '';
83 my $file = $id . $ext;
85 unlink "$dir/$file" or return 1;
86 rmdir $dir; # ignore failure
94 open my $fh, '>', "$PkgDir/fonts.conf" or return 1;
98 <!DOCTYPE fontconfig SYSTEM "/etc/fonts/fonts.dtd">
99 <!-- autogenerated by fontconfig.defoma -->
105 foreach (defoma_id_get_font($Id, installed => type => 'SaI')) {
108 <family>$Id->{e_id}->[$_]</family>
109 <accept><family>$Id->{e_depid}->[$_]</family></accept>
115 foreach (defoma_id_get_font($Id, installed => type => 'SSI')) {
118 <family>$Id->{e_id}->[$_]</family>
119 <default><family>$Id->{e_depid}->[$_]</family></default>
124 print $fh "</fontconfig>\n";
128 defoma_subst_close($Sb);
129 defoma_id_close_cache($Id);
131 system('fc-cache', $PkgDir);
139 if ($cmd eq 'init') {
141 } elsif ($cmd eq 'register') {
143 } elsif ($cmd eq 'unregister') {
144 return unregister(@_);
145 } elsif ($cmd eq 'do-install-real') {
146 return do_install_real(@_);
147 } elsif ($cmd eq 'do-remove-real') {
148 return do_remove_real(@_);
149 } elsif ($cmd eq 'term') {