forked from germedeb/IconToaster
64 lines
1.3 KiB
Bash
64 lines
1.3 KiB
Bash
|
#!/bin/bash
|
||
|
|
||
|
# This file is part of missing-icon-reporter
|
||
|
# and it's AGPLv3 licensed.
|
||
|
|
||
|
desktopsearch () {
|
||
|
cat /usr/share/applications/*.desktop | perl -ne '/^Icon=(?:-|\w|\.)+$/ and print' | sed s/Icon=//
|
||
|
|
||
|
}
|
||
|
|
||
|
iconsearch () {
|
||
|
local icon_pack=$1
|
||
|
if [ -z $icon_pack ]; then
|
||
|
echo "iconsearch requires a icon pack." 1>&2
|
||
|
exit 1;
|
||
|
fi
|
||
|
for icon in $(find ~/.icons/$icon_pack -name '*.png');
|
||
|
do
|
||
|
if [[ -f "${icon}" ]]; then
|
||
|
icon=$(basename ${icon} .png)
|
||
|
echo ${icon}
|
||
|
fi
|
||
|
done
|
||
|
}
|
||
|
|
||
|
compare_desktop_and_icons() {
|
||
|
local icon_pack=$1
|
||
|
if [ -z $icon_pack ]; then
|
||
|
echo "iconsearch requires a icon pack." 1>&2
|
||
|
exit 1;
|
||
|
fi
|
||
|
perl <(cat <<'EOF'
|
||
|
use v5.30.0;
|
||
|
|
||
|
use strict;
|
||
|
use warnings;
|
||
|
|
||
|
my $desktop_search_file = $ARGV[0];
|
||
|
my $icon_search_file = $ARGV[1];
|
||
|
|
||
|
my %desktop_relation;
|
||
|
open my $desktop_filehandle, '<', $desktop_search_file;
|
||
|
while (my $line = <$desktop_filehandle>) {
|
||
|
chomp $line;
|
||
|
$desktop_relation{$line} = 0;
|
||
|
}
|
||
|
close $desktop_filehandle;
|
||
|
|
||
|
open my $icon_filehandle, '<', $icon_search_file;
|
||
|
while (my $line = <$icon_filehandle>) {
|
||
|
chomp $line;
|
||
|
$desktop_relation{$line} = 1;
|
||
|
}
|
||
|
close $icon_filehandle;
|
||
|
|
||
|
for my $key (keys %desktop_relation) {
|
||
|
unless ($desktop_relation{$key}) {
|
||
|
say qq($key is missing);
|
||
|
}
|
||
|
}
|
||
|
EOF
|
||
|
) <(desktopsearch) <(iconsearch $icon_pack)
|
||
|
}
|