TyphoonMentat

Group: Members
Posts: 183
Joined: Oct. 2003 |
 |
Posted: July 03 2004,17:27 |
 |
Well, I wrote a Flux to Icewm converter:
Code Sample | #!/usr/bin/perl $inp = `cat $ARGV[0]`; @i = split("\n", $inp); open(FH, ">$ARGV[0].icewm"); foreach $elem (@i) { if ($elem=~/#/) { next; } if ($elem=~/\[submenu\] \((.+)\)/) { unless ($1 eq "Styles") {print FH "menu \"$1\" \"folder\" {\n"}; } if ($elem=~/\[end\]/) { print FH "}\n"; } if ($elem=~/\[exec\] \((.+)\) \{(.+)\}/) { print FH "prog \"$1\" \"-\" $2\n"; } } close (FH);
|
Just give it the name of your Fluxbox menu file and it will output that file with the ".icewm" extension appended.
|