Allow svg icons.

This commit is contained in:
Peter J. Holzer 2014-08-28 12:24:42 +02:00
parent 90812cb89b
commit b46b9d985f
1 changed files with 1 additions and 0 deletions

View File

@ -64,6 +64,7 @@ sub icon_file {
my ($name) = @_; my ($name) = @_;
for ("$ENV{HOME}/icons/$name.png", for ("$ENV{HOME}/icons/$name.png",
"$ENV{HOME}/icons/$name.jpg") { "$ENV{HOME}/icons/$name.jpg") {
"$ENV{HOME}/icons/$name.svg") {
return $_ if -f $_; return $_ if -f $_;
} }
return "xterm-color_48x48"; return "xterm-color_48x48";