[Openbox Script] Recursive directory listing

[nightm4re]

Hi all,

miqorz suggested I get in gear and make another script, so hey I did. This one takes a directory parameter and outputs a listing from that directory. Subdirs are displayed first, and recursively call the script to generate its submenus (yes, i trimmed the . and ..).

CONFIG OPTIONS (set in the file itself):
- MIME TYPE ACTIONS. Read the script, there's a lot of documentation about what you can do with it. I'm pretty happy with how it came out.
- whether or not it displays file sizes
- whether or not to display files/dirs starting with .

Preview
Script (current version 1.3)

REQUIRES MIME::Types CPAN package. emerge search dev-perl/MIME-Types

Changelog:
Bumped to 1.3, changed title, bug fix (thnx), MIME type actions!
Bumped to 1.2, added protection from & signs in files.
Bumped to 1.1, added .file hider.

Post bug reports, feature suggestions, whatever. Enjoy!

[miqorz]

This thing kicks ass. Excellent work man.

[denstark]

Sweet script. Added here.

[seank]

You should have a way to open different programs for different types of files. I want to open XMMS for mp3s and I want to open mplayer for for mpegs, etc... There are many differen't types of files, so that config could get big -- Then it would be cool to make a config generator that would check for programs on the user's machine to try to find good defaults for them. Kinda like fluxbox-generate-menu.

[nightm4re]

You should have a way to open different programs for different types of files. I want to open XMMS for mp3s and I want to open mplayer for for mpegs, etc... There are many differen't types of files, so that config could get big -- Then it would be cool to make a config generator that would check for programs on the user's machine to try to find good defaults for them. Kinda like fluxbox-generate-menu.

yeah, i was trying to figure out a good way to do that. I suppose I could just do an extension matching pattern, but I'd rather not do that, as it's a bit clumsy and tedious listing a ton of stuff. A better way would be to look into detecting mime types. I don't know how that's handled in Perl, but in PHP a lot of it is automatic. I'll check it out later today.

[seank]

I'm pretty sure there is a module for it on CPAN.

[dub.wav]

yeah, i was trying to figure out a good way to do that. I suppose I could just do an extension matching pattern, but I'd rather not do that, as it's a bit clumsy and tedious listing a ton of stuff. A better way would be to look into detecting mime types. I don't know how that's handled in Perl, but in PHP a lot of it is automatic. I'll check it out later today.

Gnome has a program called gnome-open which will open a file with the default handler. For KDE, I think kfmclient exec ... might do the job.

[miqorz]

yeah, i was trying to figure out a good way to do that. I suppose I could just do an extension matching pattern, but I'd rather not do that, as it's a bit clumsy and tedious listing a ton of stuff. A better way would be to look into detecting mime types. I don't know how that's handled in Perl, but in PHP a lot of it is automatic. I'll check it out later today.

Gnome has a program called gnome-open which will open a file with the default handler. For KDE, I think kfmclient exec ... might do the job.

What about those of us who don't have either installed?

[nightm4re]

What about those of us who don't have either installed?

prolly a combo of some sort is in order. I checked out the module on CPAN already, not bad, im just gonna figure out how i want to set up the config for everything. I'll prolly make it a config option to use the gnome/kde handlers.

[seank]

When I tried to use "/" as my directory, it gave me this error:

Code: Select all

Modification of non-creatable array value attempted, subscript -1 at .config/openbox/scripts/dirlist.pl line 77.

I fixed the error by changing line 76 (@chunks = split /\//, $dir;) to

Code: Select all

if ($dir eq "/") {
        $chunks[0] = "/";
} else {
        @chunks = split /\//, $dir;
}

EDIT: I modified the fix a little

[placeholder]

In python you could just branch off with:

Code: Select all

if "png" in foo:
           command = "foo"

Then you could have the variable command be what the file gets opened with. In perl I am not sure of the syntax, but the concept should help.

[miqorz]

In python you could just branch off with:

Code: Select all

if "png" in foo:
           command = "foo"

Then you could have the variable command be what the file gets opened with. In perl I am not sure of the syntax, but the concept should help.

Hm, what about if I had a file called Knopng for some reason?

[seank]

In python you could just branch off with:

Code: Select all

if "png" in foo:
           command = "foo"

Then you could have the variable command be what the file gets opened with. In perl I am not sure of the syntax, but the concept should help.

Linux doesn't rely on extensions. It would be best to check the mime type. And what if my filename was png.txt?

[nightm4re]

When I tried to use "/" as my directory, it gave me this error:

Code: Select all

Modification of non-creatable array value attempted, subscript -1 at .config/openbox/scripts/dirlist.pl line 77.

I fixed the error by changing line 76 (@chunks = split /\//, $dir;) to

Code: Select all

if ($dir eq "/") {
        $chunks[0] = "/";
} else {
        @chunks = split /\//, $dir;
}

EDIT: I modified the fix a little

hehe, alright i'll throw that in there. didn't think about that.

and ya, mime types are the way to go, however, the CPAN module that deals with them really just deals with extensions, from what I saw in the code. I'll give that a look at in a few minutes.

[placeholder]

In python you could just branch off with:

Code: Select all

if "png" in foo:
           command = "foo"

Then you could have the variable command be what the file gets opened with. In perl I am not sure of the syntax, but the concept should help.

Hm, what about if I had a file called Knopng for some reason?

Then.....

Code: Select all

if ".png" in foo:
           command = "foo"

[slarti`]

app-misc/run-mailcap is installed on virtually all Gentoo systems. It uses /etc/mailcap. It would be a good, standardised way to handle associations. That /etc/mailcap file is a bit lacking though...

[nightm4re]

app-misc/run-mailcap is installed on virtually all Gentoo systems. It uses /etc/mailcap. It would be a good, standardised way to handle associations. That /etc/mailcap file is a bit lacking though...

it.. doesn't have extensions tho. just mime types and what to do with them.

[nightm4re]

1.3 released, grab it from top thread. This adds support for actions based on MIME types.

I'm real happy with how this came out, it makes things really cool.

It replaces "%1" in your action string with the file, meaning your command doesn't have to be just a prefix, the file can be anywhere in the action. You can even make it run a script by just making the action %1, or do nothing by leaving %1 out of it "true".

First, a default action should be defined. My example uses "gedit %1", but you could set it to another editor or just "true" for unrecognized types.

Second, scroll down a bit, you'll see where to define mime types. You can define them specific (text/plain) or as a range (video/*). Be aware, specific take precendence over ranged, so you can open all text/* files in gedit, but open text/comma-separated-values in gnumeric. The third param (run in terminal) to define a mime type is optional, just set it to 1 if you want it to do so.

That should be all, use it, find some bugs

[seank]

I found a small bug. It doesn't work with directories that have a space in their name.

[nightm4re]

yep, i see the problem. the argument to the script needs to be quoted. i'll add it sometime tonight.