SVN: vfmg/trunk: VFMG/sawfish_out.pm vfmgrc

[sparky]

Author: sparky
Date: Tue Dec  5 08:44:08 2006
New Revision: 8069

Added:
   vfmg/trunk/VFMG/sawfish_out.pm   (contents, props changed)
Modified:
   vfmg/trunk/vfmgrc
Log:
- sawfish support


Added: vfmg/trunk/VFMG/sawfish_out.pm
==============================================================================
--- (empty file)
+++ vfmg/trunk/VFMG/sawfish_out.pm	Tue Dec  5 08:44:08 2006
@@ -0,0 +1,34 @@
+package VFMG::Output;
+
+use strict;
+use warnings;
+
+sub sawfish($$);
+sub sawfish($$) {
+	my ($no, $file) = @_;
+	my $apps = "";
+	my $this_menu = "(defvar $file\n\t`(\n";
+
+	foreach my $entry (sort main::cmpdname keys %{$main::menu[$no]}) {
+		my $d = $main::desktop[$entry];
+		if ($main::menu[$no]{$entry} < 0) {
+			( my $name = $$d{Name} ) =~ s/\"/\\\"/g;
+			( my $exec = $$d{Exec} ) =~ s/\"/\\\"/g;
+			$apps .= qq/\t\t("$name" (system "$exec &"))\n/;
+		} else {
+			( my $fname = $$d{file} ) =~ s/\s+/_/g;
+			( my $name = $$d{Name} ) =~ s/\"/\\\"/g;
+			$this_menu .= qq/\t\t("$name" . $file-$fname)\n/;
+			sawfish($main::menu[$no]{$entry}, "$file-$fname");
+		}
+	}
+	print $this_menu . $apps . "\t)\n)\n\n";
+}
+
+sub do_menu() {
+	sawfish($main::opt{strip}, "apps-menu");
+}
+
+1;
+
+# vi: ts=4 sw=4 noet fdm=marker

Modified: vfmg/trunk/vfmgrc
==============================================================================
--- vfmg/trunk/vfmgrc	(original)
+++ vfmg/trunk/vfmgrc	Tue Dec  5 08:44:08 2006
@@ -257,6 +257,17 @@
 #strip	= 1
 
 
+[sawfish]
+# no icons support
+icons	= 0
+icons_full	= 0
+icons_scale	= 0
+# requires utf-8
+utf	= 1
+# strip depends how you use it, normally usefull
+strip	= 1
+
+
 [qvwm]
 # requires icons scaling
 icons_scale	= 1