enlightenment - 0.16.7.1

[Bobby Spark]

On Thu, Oct 07, 2004 at 11:42:05AM +0200, Tomasz Pala wrote:
> On Thu, Oct 07, 2004 at 11:24:17 +0200, Bobby Spark wrote:
> 
> > > A co w vfmg nie działa?
> > może trzeba go uruchomiś z jakimiś parametrami ale tak to mi dał menu
> > gorsze niż normalnie w enlightenment
> 
> #define gorsze or die
ja nie chcę umierać :(
więc za vfmg się wziąłem, i jest super :D
tylko to decode($enc,$name) za **** nie chce działać
zmieniłem na `iconv` i nie mam z tym żadnych problemów

no i ikonki do enlightenmenta...
GoTaR, mam nadzieję że naprawisz to co zepsułem :D
poprostu nie mam pojęcia jak w perlu działają zmienne globalne, ale tak
jak jest działa

aha, jedna uwaga, bez opcji -s do menu Applications jest to menu
dodawane, co powoduje śliczną pentelkę :D


po{zdrowi,wodz}enia ;)
-- 
 ____      Sparky{PI]                 _   ___   _   _
/____)  ___   ___   _ _  ||          |   | _ \ | |   |
\____\ | -_) '___|  ||^' ||// \\//  <    |  _/ | |   |
(____/ ||    (_-_|_ ||   ||\\  ||    |_  |_|   |_|  _|
-------------- następna część ---------
--- vfmg-0.9.18/vfmg.orig	2004-10-08 03:26:55.762010760 +0200
+++ vfmg-0.9.18/vfmg	2004-10-08 03:37:18.859285576 +0200
@@ -192,7 +192,20 @@
 				next;
 			}
 			$exists=1;
-			$icon="$dir$icon" if $o_full;
+			if($o_output eq "enlightenment") {
+				my $eicon="";
+				$icon="$dir$icon";
+				
+				$eicon = $icon;
+				$eicon =~ s/^.*\///;
+				$eicon =~ s/\..*$//;
+				$eicon = "$ENV{'HOME'}/.enlightenment/icons/$eicon.png";
+				system("convert -geometry 18x18 $icon $eicon");
+				$icon = $eicon
+			} else {
+				$icon="$dir$icon" if $o_full;
+			}
+			
 			last;
 		}
 		$icon="" unless $exists;
@@ -218,7 +231,9 @@
 				setlocale(&POSIX::LC_ALL,$old_locale);
 			}
 		}
-		$utfname=decode($enc,$name);
+		my $to_enc="";
+		$to_enc="-t $o_enc" if $o_enc;	
+		$utfname=`echo -n "$name" | iconv -f $enc $to_enc`;
 		unless($utfname) {
 			warn "$File::Find::name: wrong encoding!\n";
 			$utfname=$name;
@@ -502,13 +517,28 @@
 						next;
 					}
 					$exists=1;
-					$icon="$dir$icon" if $o_full;
+					if($o_output eq "enlightenment") {
+						my $eicon="";
+						$icon="$dir$icon";
+
+						$eicon = $icon;
+						$eicon =~ s/^.*\///;
+						$eicon =~ s/\..*$//;
+						$eicon = "$ENV{'HOME'}/.enlightenment/icons/$eicon.png";
+						system("convert -geometry 18x18 $icon $eicon");
+						$icon = $eicon
+					} else {
+						$icon="$dir$icon" if $o_full;
+					}
+
 					last;
 				}
 				$icon="" unless $exists;
 			}
 			if($name ne "") {
-				my $utfname=decode($enc,$name);
+				my $to_enc="";
+				$to_enc="-t $o_enc" if $o_enc;
+				my $utfname=`echo -n "$name" | iconv -f $enc $to_enc`;
 				unless($utfname) {
 					warn "$tmp$dir: wrong encoding!\n";
 					$utfname=$name;