vfmg: VFMG/e16_out.pm (NEW), VFMG/enlightenment_out.pm (NEW) - enl...

[sparky]

Author: sparky                       Date: Sat Dec  2 00:09:54 2006 GMT
Module: vfmg                          Tag: HEAD
---- Log message:
- enlightenment / e16 backend

---- Files affected:
vfmg/VFMG:
   e16_out.pm (NONE -> 1.1)  (NEW), enlightenment_out.pm (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: vfmg/VFMG/e16_out.pm
diff -u /dev/null vfmg/VFMG/e16_out.pm:1.1
--- /dev/null	Sat Dec  2 01:09:54 2006
+++ vfmg/VFMG/e16_out.pm	Sat Dec  2 01:09:49 2006
@@ -0,0 +1,50 @@
+package VFMG::Output;
+
+use strict;
+use warnings;
+
+sub destdir {
+	if ( $main::o_output eq "enlightenment" ) {
+		return "$ENV{'HOME'}/.enlightenment/menus";
+	} else {
+		return "$ENV{'HOME'}/.e16/menus";
+	}
+}
+
+sub icons_dir {
+	if ( $main::o_output eq "enlightenment" ) {
+		return "$ENV{'HOME'}/.enlightenment/icons";
+	} else {
+		return "$ENV{'HOME'}/.e16/icons";
+	}
+}
+
+sub e16 {
+	my ($no, $mfile, $title)=@_;
+	my $F_OUT;
+	open $F_OUT, ">> $main::opt{destdir}/$mfile.menu"
+		or warn "$main::opt{destdir}/$mfile.menu: $!\n";
+	print $F_OUT qq("$title"\n);
+	my $apps = "";
+	foreach my $entry (sort main::cmpdname keys %{$main::menu[$no]}) {
+		my $d = $main::desktop[$entry];
+		my $name = main::encode($main::opt{encoding},$$d{Name});
+		$name=~s/\"/\'/g;
+		my $icon = "";
+		$icon = main::scale_icon($$d{Icon}) if $main::opt{icons};
+		if ($main::menu[$no]{$entry} < 0) {
+			$apps .= qq("$name" "$icon" exec "$$d{Exec}"\n);
+		} else {
+			print $F_OUT qq("$name" "$icon" menu "$main::opt{destdir}/$$d{file}.menu"\n);
+			e16( $main::menu[$no]{$entry}, $$d{file}, $name);
+		}
+	}
+	print $F_OUT $apps;
+	close $F_OUT;
+}
+
+sub do_menu() {
+	e16( $main::opt{strip}, "index", "Enlightenment");
+}
+
+1;

================================================================
Index: vfmg/VFMG/enlightenment_out.pm
diff -u /dev/null vfmg/VFMG/enlightenment_out.pm:1.1
--- /dev/null	Sat Dec  2 01:09:54 2006
+++ vfmg/VFMG/enlightenment_out.pm	Sat Dec  2 01:09:49 2006
@@ -0,0 +1,50 @@
+package VFMG::Output;
+
+use strict;
+use warnings;
+
+sub destdir {
+	if ( $main::o_output eq "enlightenment" ) {
+		return "$ENV{'HOME'}/.enlightenment/menus";
+	} else {
+		return "$ENV{'HOME'}/.e16/menus";
+	}
+}
+
+sub icons_dir {
+	if ( $main::o_output eq "enlightenment" ) {
+		return "$ENV{'HOME'}/.enlightenment/icons";
+	} else {
+		return "$ENV{'HOME'}/.e16/icons";
+	}
+}
+
+sub e16 {
+	my ($no, $mfile, $title)=@_;
+	my $F_OUT;
+	open $F_OUT, ">> $main::opt{destdir}/$mfile.menu"
+		or warn "$main::opt{destdir}/$mfile.menu: $!\n";
+	print $F_OUT qq("$title"\n);
+	my $apps = "";
+	foreach my $entry (sort main::cmpdname keys %{$main::menu[$no]}) {
+		my $d = $main::desktop[$entry];
+		my $name = main::encode($main::opt{encoding},$$d{Name});
+		$name=~s/\"/\'/g;
+		my $icon = "";
+		$icon = main::scale_icon($$d{Icon}) if $main::opt{icons};
+		if ($main::menu[$no]{$entry} < 0) {
+			$apps .= qq("$name" "$icon" exec "$$d{Exec}"\n);
+		} else {
+			print $F_OUT qq("$name" "$icon" menu "$main::opt{destdir}/$$d{file}.menu"\n);
+			e16( $main::menu[$no]{$entry}, $$d{file}, $name);
+		}
+	}
+	print $F_OUT $apps;
+	close $F_OUT;
+}
+
+sub do_menu() {
+	e16( $main::opt{strip}, "index", "Enlightenment");
+}
+
+1;
================================================================