From 04db460623e1f235e7239f08fdcc2d0ef72636af Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Sl=C3=A1vek=20Banko?= Date: Mon, 20 Oct 2014 04:19:46 +0200 Subject: [PATCH] Fix automake icons installation MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Slávek Banko --- am_edit | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/am_edit b/am_edit index 98e3a83..6513778 100644 --- a/am_edit +++ b/am_edit @@ -1528,11 +1528,12 @@ sub tag_ICON() my $type = $prefix; $type =~ s/^.*-([^-]+)$/$1/; $prefix =~ s/^(.*)-[^-]+$/$1/; - + my %type_hash = ( 'action' => 'actions', 'app' => 'apps', + 'category' => 'categories', 'device' => 'devices', 'filesys' => 'places', 'mime' => 'mimetypes' @@ -1580,15 +1581,16 @@ sub tag_ICON() print STDERR "unknown icon prefix $prefix in $printname\n"; next; } - + my $dir = $dir_hash{$prefix} . "/" . $type_hash{$type}; - if ($newfile =~ /-[^\.]/) { - my $tmp = $newfile; - $tmp =~ s/^([^-]+)-.*$/$1/; - $dir = $dir . "/" . $tmp; - $newfile =~ s/^[^-]+-//; - } - + #-- does not convert from dashes to folders inside icon names + #if ($newfile =~ /-[^\.]/) { + # my $tmp = $newfile; + # $tmp =~ s/^([^-]+)-.*$/$1/; + # $dir = $dir . "/" . $tmp; + # $newfile =~ s/^[^-]+-//; + #} + if (!defined $directories{$dir}) { $install .= "\t\$(mkinstalldirs) \$(DESTDIR)\$($destdir)/$dir\n"; $directories{$dir} = 1;