1 files changed, 102 insertions, 0 deletions
diff --git a/_config/openbox/scripts/pipemenu-places.pl b/_config/openbox/scripts/pipemenu-places.pl
new file mode 100755
index 0000000..812eb27
--- /dev/null
+++ b/_config/openbox/scripts/pipemenu-places.pl
@@ -0,0 +1,102 @@
+#!/usr/bin/env perl
+# Recursively browse filesystem through openbox3 pipe menus
+#### Usage: add
+# <menu id="browse" label="Browse" execute="obpipemenu-places ~" />
+# to your .config/openbox/menu.xml
+#### CAVEAT ####
+# This script was hacked on exclusively in stints between the hours of
+# 4 and 5 in the morning. Quality may have suffered.
+####
+# Script by dircha from ob list on 05/17/04
+# suggested improvements by John Russell on 05/17/04 implemented
+# a year later by Kacper Wysocki.
+# 05/30/05 - Kacper Wysocki
+# - opens files with 'rox', which launches appropriate file handler
+# - hidden directories now stay hidden
+# - spaces, ampersands in dir- and filenames are escaped
+# - newlines at each entry to make output a little readable
+# 06/04/05 - Kacper Wysocki
+# - use $0 for scriptname
+# - use $ENV{'HOME'} as default path
+# - now follows symlinks
+
+use strict;
+
+# Command to lauch files with
+my $cmd = "thunar";
+
+my $path = $ARGV[0];
+$path = "$ENV{'HOME'}" if $path eq "";
+my @files = split /\n/, `ls -1p '$path'`;
+mk_menu_element($path, @files);
+
+sub mk_menu_element {
+    my ($path, @files) = @_;
+
+    print "<openbox_pipe_menu>\n";
+
+    # "Browse here..." lauches this dir
+    print "<item label=\"Browse here..\">".
+           "\n\t<action name=\"Execute\">".
+           "\n\t\t<execute>$cmd '$path'</execute>".
+           "\n\t</action>".
+           "\n</item>\n".
+           "<separator />";
+
+    foreach $_ (@files) {
+        my $length = length $_;
+        my $last_c = substr $_, $length - 1, 1;
+
+        if ($last_c eq "/") {
+            print mk_dir_element($path, substr $_, 0, $length - 1);
+        } elsif ($last_c eq "@") {
+            print mk_sym_element($path, substr $_, 0, $length - 1);
+        } else {
+            print mk_file_element($path, $_);
+        }
+    }
+    print "</openbox_pipe_menu>\n";
+}
+
+sub mk_dir_element {
+    my ($path, $name) = @_;
+    # escape ampersand and space in pathnames
+    $path =~ s/&/&amp;/g;
+    $name =~ s/&/&amp;/g;
+    $path =~ s/ /\\ /g;
+    $name =~ s/ /\\ /g;
+
+    return "<menu id=\"$path/$name\" label=\"$name\" execute=\"$0 $path/$name\" />\n";
+}
+
+sub mk_sym_element {
+    my ($path, $name) = @_;
+    # escape ampersand in pathnames
+    $path =~ s/&/&amp;/g;
+    $name =~ s/&/&amp;/g;
+
+    # Follow symlinks instead of opening links in rox.
+    return "<menu id=\"$path/$name\" label=\"$name\" execute=\"$0 $path/$name\" />\n";
+=cut
+    return "<item label=\"$name\">".
+           "\n\t<action name=\"Execute\">".
+           "\n\t\t<execute>$cmd '$path/$name'</execute>".
+           "\n\t</action>"
+           . "\n</item>\n";
+=cut
+}
+
+sub mk_file_element {
+    my ($path, $name) = @_;
+    my $label = $name;
+    # escape ampersand in pathnames
+    $path =~ s/&/&amp;/g;
+    $name =~ s/&/&amp;/g;
+
+    return "<item label=\"$name\">".
+           "\n\t<action name=\"Execute\">".
+           "\n\t\t<execute>$cmd '$path/$name'</execute>".
+           "\n\t</action>"
+           . "\n</item>\n";
+}
+