Author: sparky Date: Fri Nov 11 21:29:03 2005 GMT
Module: vfmg Tag: DEVEL
---- Log message:
- colors in ASCII
---- Files affected:
vfmg:
vfmg (1.73.2.37 -> 1.73.2.38)
---- Diffs:
================================================================
Index: vfmg/vfmg
diff -u vfmg/vfmg:1.73.2.37 vfmg/vfmg:1.73.2.38
--- vfmg/vfmg:1.73.2.37 Thu Nov 10 14:26:02 2005
+++ vfmg/vfmg Fri Nov 11 22:28:58 2005
@@ -820,7 +820,8 @@
}
sub ASCII { # {{{
- my ($no, $level)[EMAIL PROTECTED];
+ my ($no, $level, $cnum)[EMAIL PROTECTED];
+ my $cnext = $cnum + 1;
my @apps;
my @tmp = ();
@tmp = %{$menu[$no]} if defined %{$menu[$no]};
@@ -832,22 +833,22 @@
if($menu[$no]{$entry} < 0) {
push @apps, $$d[LOCALENAME];
} else {
- my $step = " \033(0\017x\033(B ";
- if ($num >= $all and ( $#apps <= 0 )) {
+ my $step = " \033[${cnum}m\033(0\017x\033(B\033[0m ";
+ if ($num >= $all and ( $#apps < 0 )) {
$step = " ";
- print "$level
\033(0mq\033(B[$$d[LOCALENAME]]\n";
+ print "$level
\033[${cnum}m\033(0mq\033(B\033[${cnext}m\033[1m[$$d[LOCALENAME]]\033[0m\n";
} else {
- print "$level
\033(0tq\033(B[$$d[LOCALENAME]]\n";
+ print "$level
\033[${cnum}m\033(0tq\033(B\033[${cnext}m\033[1m[$$d[LOCALENAME]]\033[0m\n";
}
- ASCII($menu[$no]{$entry},$level.$step);
+ ASCII($menu[$no]{$entry},$level.$step, $cnext);
}
}
$num = 0;
foreach my $app (@apps) {
if ($num >= $#apps) {
- print "$level \033(0\017mq\033(B$app\n";
+ print "$level
\033[${cnum}m\033(0\017mq\033(B\033[${cnext}m$app\033[0m\n";
} else {
- print "$level \033(0\017tq\033(B$app\n";
+ print "$level
\033[${cnum}m\033(0\017tq\033(B\033[${cnext}m$app\033[0m\n";
}
$num++;
}
@@ -1281,8 +1282,8 @@
# WM case {{{
if ( $o_output eq "ASCII" ) {
- print "\n[Menu]\n";
- ASCII($opt{strip},"");
+ print "\n\033[31m\033[1m[Menu]\033[0m\n";
+ ASCII($opt{strip},"", 31);
}
elsif ( $o_output eq "DR17" ) { # {{{
die "Enlightenment DR17 requires icons scaling\n"
================================================================
---- CVS-web:
http://cvs.pld-linux.org/vfmg/vfmg?r1=1.73.2.37&r2=1.73.2.38&f=u
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
