Openbox:Pipemenus:Dirsmenu
From Openbox
(Difference between revisions)
AaylaSecura (Talk | contribs) m |
AaylaSecura (Talk | contribs) |
||
Line 1: | Line 1: | ||
[[Image:Dirsmenuv2.jpg|thumb|right]] | [[Image:Dirsmenuv2.jpg|thumb|right]] | ||
− | |||
− | |||
− | |||
Another pipe menu for recursive directory listing. I tried to keep the code as simple and short as possible. It uses ''find'' to get the directories and the other files in the current directory and lists them in alphabetic order while making each directory a submenu. It escapes special characters and prints the underscore correctly (unlike ''obbrowser''). | Another pipe menu for recursive directory listing. I tried to keep the code as simple and short as possible. It uses ''find'' to get the directories and the other files in the current directory and lists them in alphabetic order while making each directory a submenu. It escapes special characters and prints the underscore correctly (unlike ''obbrowser''). | ||
Line 21: | Line 18: | ||
# when listing subdirectories, set the starting dir accordingly | # when listing subdirectories, set the starting dir accordingly | ||
if ( "$ARGV[0]" ne "" ) { $base_dir = "$ARGV[0]"; } | if ( "$ARGV[0]" ne "" ) { $base_dir = "$ARGV[0]"; } | ||
+ | |||
+ | # escape possible single quotes in filename when using find | ||
+ | my $tmp = $base_dir; | ||
+ | $base_dir =~ s/'/'"'"'/g; | ||
# list directories and links to such as submenus | # list directories and links to such as submenus | ||
Line 27: | Line 28: | ||
my @files = sort split /\n/, `find -L \'$base_dir\' -maxdepth 1 ! -type d`; | my @files = sort split /\n/, `find -L \'$base_dir\' -maxdepth 1 ! -type d`; | ||
− | # | + | $base_dir = $tmp; |
− | $base_dir =~ s/&/&/ | + | undef $tmp; |
− | $base_dir =~ s/</</ | + | |
− | $base_dir =~ s/ | + | # replace some special characters by their html codes |
+ | $base_dir =~ s/&/&/g; | ||
+ | $base_dir =~ s/"/"/g; | ||
+ | $base_dir =~ s/\$/$/g; | ||
+ | $base_dir =~ s/</</g; | ||
+ | $base_dir =~ s/=/=/g; | ||
+ | $base_dir =~ s/>/>/g; | ||
+ | $base_dir =~ s/\\/\/g; | ||
+ | # escape special characters in bash | ||
+ | $base_dir =~ s/(\ |"|'|`|!|^|&|\*|\(|\)|\[|\]|\{|\}|&#..)/\\$1/g; | ||
say "<openbox_pipe_menu>"; | say "<openbox_pipe_menu>"; | ||
say "<item label=\"Open in $browser\">"; | say "<item label=\"Open in $browser\">"; | ||
− | say " <action name=\"Execute\"><execute>$browser | + | say " <action name=\"Execute\"><execute>$browser $base_dir </execute></action>"; |
say "</item>"; | say "</item>"; | ||
say "<separator />"; | say "<separator />"; | ||
Line 40: | Line 50: | ||
# print directories first in alphabetic order (hidden first) | # print directories first in alphabetic order (hidden first) | ||
DIRS: foreach my $dir (@dirs) { | DIRS: foreach my $dir (@dirs) { | ||
− | $dir =~ s/&/&/ | + | $dir =~ s/&/&/g; |
− | $dir =~ s/</</ | + | $dir =~ s/"/"/g; |
− | $dir =~ s/ | + | $dir =~ s/\$/$/g; |
− | + | $dir =~ s/</</g; | |
− | + | $dir =~ s/=/=/g; | |
+ | $dir =~ s/>/>/g; | ||
+ | $dir =~ s/\\/\/g; | ||
# replace the underscore with a double underscore in the label to prevent openbox from interpreting it as a keyboard accelerator | # replace the underscore with a double underscore in the label to prevent openbox from interpreting it as a keyboard accelerator | ||
my $stripped_dir = basename($dir); | my $stripped_dir = basename($dir); | ||
− | $stripped_dir =~ s/_/__/ | + | $stripped_dir =~ s/_/__/g; |
− | say "<menu id=\"$dir\" label=\"$stripped_dir\" execute=\"$path/dirsmenu | + | # escape special characters in bash |
+ | $dir =~ s/(\ |"|'|`|!|^|&|\*|\(|\)|\[|\]|\{|\}|&#..)/\\$1/g; | ||
+ | # exclude . from directory list | ||
+ | if ( "$dir" eq "$base_dir" ) { next DIRS; } | ||
+ | say "<menu id=\"$dir\" label=\"$stripped_dir\" execute=\"$path/dirsmenu $dir\" />"; | ||
} | } | ||
# print files next in alphabetic order (hidden first) | # print files next in alphabetic order (hidden first) | ||
foreach my $file (@files) { | foreach my $file (@files) { | ||
− | $file =~ s/&/&/ | + | $file =~ s/&/&/g; |
− | $file =~ s/</</ | + | $file =~ s/"/"/g; |
− | $file =~ s/ | + | $file =~ s/\$/$/g; |
− | my $stripped_file = basename( | + | $file =~ s/</</g; |
− | $stripped_file =~ s/_/__/ | + | $file =~ s/=/=/g; |
+ | $file =~ s/>/>/g; | ||
+ | $file =~ s/\\/\/g; | ||
+ | # replace the underscore with a double underscore in the label to prevent openbox from interpreting it as a keyboard accelerator | ||
+ | my $stripped_file = basename($file); | ||
+ | $stripped_file =~ s/_/__/g; | ||
+ | # escape special characters in bash | ||
+ | $file =~ s/(\ |"|'|`|!|^|&|\*|\(|\)|\[|\]|\{|\}|&#..)/\\$1/g; | ||
say "<item label=\"$stripped_file\">"; | say "<item label=\"$stripped_file\">"; | ||
− | say " <action name=\"Execute\"><execute>xdg-open | + | say " <action name=\"Execute\"><execute>xdg-open $file </execute></action>"; |
say "</item>"; | say "</item>"; | ||
} | } | ||
say "</openbox_pipe_menu>"; | say "</openbox_pipe_menu>"; |
Revision as of 05:45, 10 June 2014
Another pipe menu for recursive directory listing. I tried to keep the code as simple and short as possible. It uses find to get the directories and the other files in the current directory and lists them in alphabetic order while making each directory a submenu. It escapes special characters and prints the underscore correctly (unlike obbrowser).
#!/usr/bin/perl # Openbox menu to recursively list directories and files. use File::Basename; sub say {print @_, "\n"} # set starting directory - this changes when the script is called with an argument (used for listing subdirectories) my $base_dir = '/'; # path to this script (needed as it calls itself to list subdirectories) my $path = "$ENV{HOME}/obmenus"; # your file browser my $browser = 'Thunar'; # when listing subdirectories, set the starting dir accordingly if ( "$ARGV[0]" ne "" ) { $base_dir = "$ARGV[0]"; } # escape possible single quotes in filename when using find my $tmp = $base_dir; $base_dir =~ s/'/'"'"'/g; # list directories and links to such as submenus my @dirs = sort split /\n/, `find -L \'$base_dir\' -maxdepth 1 -type d`; # include all other types in the file list (regular, block, character, broken links, etc as well as links to such) my @files = sort split /\n/, `find -L \'$base_dir\' -maxdepth 1 ! -type d`; $base_dir = $tmp; undef $tmp; # replace some special characters by their html codes $base_dir =~ s/&/&/g; $base_dir =~ s/"/"/g; $base_dir =~ s/\$/$/g; $base_dir =~ s/</</g; $base_dir =~ s/=/=/g; $base_dir =~ s/>/>/g; $base_dir =~ s/\\/\/g; # escape special characters in bash $base_dir =~ s/(\ |"|'|`|!|^|&|\*|\(|\)|\[|\]|\{|\}|&#..)/\\$1/g; say "<openbox_pipe_menu>"; say "<item label=\"Open in $browser\">"; say " <action name=\"Execute\"><execute>$browser $base_dir </execute></action>"; say "</item>"; say "<separator />"; # print directories first in alphabetic order (hidden first) DIRS: foreach my $dir (@dirs) { $dir =~ s/&/&/g; $dir =~ s/"/"/g; $dir =~ s/\$/$/g; $dir =~ s/</</g; $dir =~ s/=/=/g; $dir =~ s/>/>/g; $dir =~ s/\\/\/g; # replace the underscore with a double underscore in the label to prevent openbox from interpreting it as a keyboard accelerator my $stripped_dir = basename($dir); $stripped_dir =~ s/_/__/g; # escape special characters in bash $dir =~ s/(\ |"|'|`|!|^|&|\*|\(|\)|\[|\]|\{|\}|&#..)/\\$1/g; # exclude . from directory list if ( "$dir" eq "$base_dir" ) { next DIRS; } say "<menu id=\"$dir\" label=\"$stripped_dir\" execute=\"$path/dirsmenu $dir\" />"; } # print files next in alphabetic order (hidden first) foreach my $file (@files) { $file =~ s/&/&/g; $file =~ s/"/"/g; $file =~ s/\$/$/g; $file =~ s/</</g; $file =~ s/=/=/g; $file =~ s/>/>/g; $file =~ s/\\/\/g; # replace the underscore with a double underscore in the label to prevent openbox from interpreting it as a keyboard accelerator my $stripped_file = basename($file); $stripped_file =~ s/_/__/g; # escape special characters in bash $file =~ s/(\ |"|'|`|!|^|&|\*|\(|\)|\[|\]|\{|\}|&#..)/\\$1/g; say "<item label=\"$stripped_file\">"; say " <action name=\"Execute\"><execute>xdg-open $file </execute></action>"; say "</item>"; } say "</openbox_pipe_menu>";