+ print "[user_themes] command (?=help) > ";
+ $input = <STDIN>;
+ $input =~ s/[\r\n]//g;
+ }
+}
+
+sub command_iconSets {
+ print "\nDefine the icon themes that you wish to use. If you have added\n";
+ print "a theme of your own, just follow the instructions (?) about\n";
+ print "how to add them. You can also change the default and fallback\n";
+ print "themes. The default theme will be used when no icon theme is\n";
+ print "set by the user. The fallback theme will be used if an icon\n";
+ print "cannot be found in the currently selected icon theme.\n\n";
+
+ print "Available icon themes:\n\n";
+
+ $count = 0;
+ while ( $count <= $#icon_theme_name ) {
+ if ( $count == $icon_theme_def ) {
+ print " d";
+ } else {
+ print " ";
+ }
+ if ( $count eq $icon_theme_fallback ) {
+ print "f ";
+ } else {
+ print " ";
+ }
+ if ( $count < 10 ) {
+ print " ";
+ }
+ $name = $icon_theme_name[$count];
+ $num_spaces = 35 - length($name);
+ for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
+ $name = $name . " ";
+ }
+
+ print " $count. $name";
+ print "($icon_theme_path[$count])\n";
+
+ $count++;
+ }
+
+ print "\n d = Default icon theme\n";
+ print " f = Fallback icon theme\n";
+ print "\n";
+ print ".------------------------------------.\n";
+ print "| t (detect icon themes) |\n";
+ print "| + (add icon theme) |\n";
+ print "| - N (remove icon theme) |\n";
+ print "| m N (mark default icon theme) |\n";
+ print "| f N (set fallback icon set) |\n";
+ print "| l (list icon themes) |\n";
+ print "| d (done) |\n";
+ print "`------------------------------------'\n";
+
+ print "\n[icon_themes] command (?=help) > ";
+ $input = <STDIN>;
+ $input =~ s/[\r\n]//g;
+ while ( $input ne "d" ) {
+ if ( $input =~ /^\s*l\s*/i ) {
+ $count = 0;
+ print "\n";
+ while ( $count <= $#icon_theme_name ) {
+ if ( $count == $icon_theme_def ) {
+ print " d";
+ } else {
+ print " ";
+ }
+ if ( $count eq $icon_theme_fallback ) {
+ print "f ";
+ } else {
+ print " ";
+ }
+ $name = $icon_theme_name[$count];
+ $num_spaces = 35 - length($name);
+ for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
+ $name = $name . " ";
+ }
+
+ print " $count. $name";
+ print "($icon_theme_path[$count])\n";
+
+ $count++;
+ }
+ print "\n d = Default icon theme\n";
+ print " f = Fallback icon theme\n\n";
+ } elsif ( $input =~ /^\s*m\s*[0-9]+/i ) {
+ $old_def = $icon_theme_def;
+ $icon_theme_def = $input;
+ $icon_theme_def =~ s/^\s*m\s*//;
+ if ( ( $icon_theme_default > $#icon_theme_name ) || ( $icon_theme_default < 0 ) ) {
+ print "Cannot set default icon theme to $icon_theme_default. That theme does not exist.\n";
+ $icon_theme_def = $old_def;
+ }
+ } elsif ( $input =~ /^\s*f\s*[0-9]+/i ) {
+ $old_fb = $icon_theme_fallback;
+ $icon_theme_fallback = $input;
+ $icon_theme_fallback =~ s/^\s*f\s*//;
+ if ( ( $icon_theme_fallback > $#icon_theme_name ) || ( $icon_theme_fallback < 0 ) ) {
+ print "Cannot set fallback icon theme to $icon_theme_fallback. That theme does not exist.\n";
+ $icon_theme_fallback = $old_fb;
+ }
+ } elsif ( $input =~ /^\s*\+/ ) {
+ print "What is the name of this icon theme? ";
+ $name = <STDIN>;
+ $name =~ s/[\r\n]//g;
+ $icon_theme_name[ $#icon_theme_name + 1 ] = $name;
+ print "Be sure to put ../images/themes/ before the filename.\n";
+ print "What directory is this icon theme stored in (ex: ../images/themes/my_theme/)? ";
+ $name = <STDIN>;
+ $name =~ s/[\r\n]//g;
+ $icon_theme_path[ $#icon_theme_path + 1 ] = $name;
+ } elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
+ if ( $input =~ /[0-9]+\s*$/ ) {
+ $rem_num = $input;
+ $rem_num =~ s/^\s*-\s*//g;
+ $rem_num =~ s/\s*$//;
+ } else {
+ $rem_num = $#icon_theme_name;
+ }
+ if ( $rem_num == $icon_theme_def ) {
+ print "You cannot remove the default icon theme!\n";
+ } elsif ( $rem_num == $icon_theme_fallback ) {
+ print "You cannot remove the fallback icon theme!\n";
+ } else {
+ $count = 0;
+ @new_theme_name = ();
+ @new_theme_path = ();
+ while ( $count <= $#icon_theme_name ) {
+ if ( $count != $rem_num ) {
+ @new_theme_name = ( @new_theme_name, $icon_theme_name[$count] );
+ @new_theme_path = ( @new_theme_path, $icon_theme_path[$count] );
+ }
+ $count++;
+ }
+ @icon_theme_name = @new_theme_name;
+ @icon_theme_path = @new_theme_path;
+ if ( $icon_theme_def > $rem_num ) {
+ $icon_theme_def--;
+ }
+ }
+ } elsif ( $input =~ /^\s*t\s*/i ) {
+ print "\nStarting detection...\n\n";
+
+ opendir( DIR, "../images/themes/" );
+ @files = readdir(DIR);
+ $cnt = 0;
+ while ( $cnt <= $#files ) {
+ $filename = "../images/themes/" . $files[$cnt] .'/';
+ if ( -d "../images/themes/" . $files[$cnt] && $files[$cnt] !~ /^\./ && $files[$cnt] ne "CVS" ) {
+ $found = 0;
+ for ( $x = 0 ; $x <= $#icon_theme_path ; $x++ ) {
+ if ( $icon_theme_path[$x] eq $filename ) {
+ $found = 1;
+ }
+ }
+ if ( $found != 1 ) {
+ print "** Found icon theme: $filename\n";
+ print " What is its name? ";
+ $nm = <STDIN>;
+ $nm =~ s/[\n\r]//g;
+ $icon_theme_name[ $#icon_theme_name + 1 ] = $nm;
+ $icon_theme_path[ $#icon_theme_path + 1 ] = $filename;
+ }
+ }
+ $cnt++;
+ }
+ print "\n";
+ for ( $cnt = 0 ; $cnt <= $#icon_theme_path ; $cnt++ ) {
+ $filename = $icon_theme_path[$cnt];
+ if ( $filename ne "none" && $filename ne "template" && ! -d $filename ) {
+ print " Removing $filename (file not found)\n";
+ $offset = 0;
+ @new_icon_theme_name = ();
+ @new_icon_theme_path = ();
+ for ( $x = 0 ; $x < $#icon_theme_path ; $x++ ) {
+ if ( $icon_theme_path[$x] eq $filename ) {
+ $offset = 1;
+ }
+ if ( $offset == 1 ) {
+ $new_icon_theme_name[$x] = $icon_theme_name[ $x + 1 ];
+ $new_icon_theme_path[$x] = $icon_theme_path[ $x + 1 ];
+ } else {
+ $new_icon_theme_name[$x] = $icon_theme_name[$x];
+ $new_icon_theme_path[$x] = $icon_theme_path[$x];
+ }
+ }
+ @icon_theme_name = @new_icon_theme_name;
+ @icon_theme_path = @new_icon_theme_path;
+ }
+ }
+ print "\nDetection complete!\n\n";
+
+ closedir DIR;
+ } elsif ( $input =~ /^\s*\?\s*/ ) {
+ print ".------------------------------------.\n";
+ print "| t (detect icon themes) |\n";
+ print "| + (add icon theme) |\n";
+ print "| - N (remove icon theme) |\n";
+ print "| m N (mark default icon theme) |\n";
+ print "| f N (set fallback icon set) |\n";
+ print "| l (list icon themes) |\n";
+ print "| d (done) |\n";
+ print "`------------------------------------'\n";
+ }
+ print "[icon_themes] command (?=help) > ";