Author: sparky
Date: Sun Dec 3 04:50:01 2006
New Revision: 8051
Modified:
vfmg/trunk/vfmg
Log:
- use desktop file name as icon name if no icon specified
Modified: vfmg/trunk/vfmg
==============================================================================
--- vfmg/trunk/vfmg (original)
+++ vfmg/trunk/vfmg Sun Dec 3 04:50:01 2006
@@ -311,8 +311,9 @@
my $file = $_;
open F_IN, $file or warn "$File::Find::name: $!\n" and return;
+ /(.*)\.desktop$/;
my %tags = (
- file => $file,
+ file => $1,
Icon => '',
Categories => '',
Type => '',
@@ -361,6 +362,7 @@
s/%2/$tags{Exec}/g;
$tags{Exec} = $_;
}
+ $tags{Icon} = $tags{file} unless $tags{Icon};
if ( $opt{icons_ext} ) {
my $exists = 0;
ALLDIRS: foreach my $dir (@icondirs) {
@@ -412,7 +414,6 @@
$tags{$tag_name} = $tags{$first};
}
}
- $tags{file} =~ s/\.desktop$//;
unless ($tags{Name}) {
$tags{Name} = $tags{file};
warn "$File::Find::name: missing Name tag! using $tags{Name}\n";
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
