Author: sparky Date: Mon Nov 7 01:05:22 2005 GMT
Module: vfmg Tag: DEVEL
---- Log message:
- added simple ascii output with VT graphics (may be useful for debugging)
---- Files affected:
vfmg:
vfmg (1.73.2.35 -> 1.73.2.36)
---- Diffs:
================================================================
Index: vfmg/vfmg
diff -u vfmg/vfmg:1.73.2.35 vfmg/vfmg:1.73.2.36
--- vfmg/vfmg:1.73.2.35 Sun Nov 6 03:20:24 2005
+++ vfmg/vfmg Mon Nov 7 02:05:17 2005
@@ -39,8 +39,8 @@
my $o_output;
$defopt{xterm}="$ENV{'VFMG_TERM'}" if $ENV{'VFMG_TERM'};
-my @wms = qw(DR17 aewm afterstep blackbox enlightenment fbpanel fluxbox fvwm
- fvwm2 icewm metisse olvwm openbox qvwm wmaker wmaker-old xfce4 xpde);
+my @wms = qw(ASCII DR17 aewm afterstep blackbox enlightenment fbpanel fluxbox
+ fvwm fvwm2 icewm metisse olvwm openbox qvwm wmaker wmaker-old xfce4
xpde);
# %destdir and %iconsdir should only contain directories propsed by WM
my %destdir = (
@@ -825,6 +825,40 @@
;
}
+sub ASCII { # {{{
+ my ($no, $level)[EMAIL PROTECTED];
+ my @apps;
+ my @tmp = ();
+ @tmp = %{$menu[$no]} if defined %{$menu[$no]};
+ my $all = ($#tmp + 1) / 2;
+ my $num = 0;
+ foreach my $entry (sort cmpdname keys %{$menu[$no]}) {
+ my $d = $desktop{$entry};
+ $num++;
+ if($menu[$no]{$entry} < 0) {
+ push @apps, $$d[LOCALENAME];
+ } else {
+ my $step = " \033(0\017x\033(B ";
+ if ($num >= $all and ( $#apps <= 0 )) {
+ $step = " ";
+ print "$level
\033(0mq\033(B[$$d[LOCALENAME]]\n";
+ } else {
+ print "$level
\033(0tq\033(B[$$d[LOCALENAME]]\n";
+ }
+ ASCII($menu[$no]{$entry},$level.$step);
+ }
+ }
+ $num = 0;
+ foreach my $app (@apps) {
+ if ($num >= $#apps) {
+ print "$level \033(0\017mq\033(B$app\n";
+ } else {
+ print "$level \033(0\017tq\033(B$app\n";
+ }
+ $num++;
+ }
+} # }}}
+
sub DR17 { # {{{
my ($no, $dir, $tab, $dr)[EMAIL PROTECTED];
my $dirs = "";
@@ -1252,7 +1286,11 @@
}
# WM case {{{
-if ( $o_output eq "DR17" ) { # {{{
+if ( $o_output eq "ASCII" ) {
+ print "\n[Menu]\n";
+ ASCII($opt{strip},"");
+}
+elsif ( $o_output eq "DR17" ) { # {{{
die "Enlightenment DR17 requires icons scaling\n"
unless $opt{icons_scale};
die "Enlightenment DR17 conflicts with icons fork\n"
================================================================
---- CVS-web:
http://cvs.pld-linux.org/vfmg/vfmg?r1=1.73.2.35&r2=1.73.2.36&f=u
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
