icewm/icewm-menu-bookmarks

   1 #!/usr/bin/env perl
   2
   3 $\ = "\n";
   4
   5 #print "menuprogreload \"Aktuális Könyvtárak\" folder 2 icewm-menu-cwds";
   6
   7 open $f, '<', $ENV{"HOME"}."/.gtk-bookmarks";
   8 while(<$f>)
   9 {
  10         if(s{^file://(\S+).*\n}{$1})
  11         {
  12                 s/%(..)/chr hex $1/ge;  # decode url-encoded chars
  13                 s/[""\\]/\\$&/g;  # escape for icewm menu parser
  14                 print "prog \"$_\" folder rox \"$_\"";
  15         }
  16 }
  17
  18 print "separator";
  19 print "prog Szerkesztés /usr/share/icons/gnome/48x48/apps/text-editor substenv mimeopen-gui \$HOME/.gtk-bookmarks";