#!/usr/bin/perl use strict; # Command to lauch files with my $cmd = "pcmanfm"; 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 "". "\n\t". "\n\t\t$cmd '$path'". "\n\t". "\n\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/&/&/g; $name =~ s/&/&/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/&/&/g; $name =~ s/&/&/g; # Follow symlinks instead of opening links in rox. return "<menu id=\"$path/$name\" label=\"$name\" execute=\"$0 $path/$name\" />\n"; =cut return "". "\n\t". "\n\t\t$cmd '$path/$name'". "\n\t" . "\n\n"; =cut } sub mk_file_element { my ($path, $name) = @_; my $label = $name; # escape ampersand in pathnames $path =~ s/&/&/g; $name =~ s/&/&/g; return "". "\n\t". "\n\t\t$cmd '$path/$name'". "\n\t" . "\n\n"; }

#!/bin/sh

case "$1" in
    set)
    killall xcompmgr
    sed -i 's/^[# ]*xcompmgr.*$/xcompmgr \&/g;s/^xcompmgr.*$/xcompmgr \&/g' ~/.config/openbox/autostart
    xcompmgr &
    ;;
    unset)
    sed -i 's/^xcompmgr.*$/#xcompmgr \&/g' ~/.config/openbox/autostart
    killall xcompmgr
    ;;
    setshaded)
    killall xcompmgr
    sed -i 's/^[# ]*xcompmgr.*$/xcompmgr -CfF \&/g;s/^xcompmgr.*$/xcompmgr -CfF \&/g' ~/.config/openbox/autostart
    xcompmgr -CfF &
    ;;
    setshadowshade)
    killall xcompmgr
    sed -i 's/^[# ]*xcompmgr.*$/xcompmgr -CcfF \&/g;s/^xcompmgr.*$/xcompmgr -CcFf \&/g' ~/.config/openbox/autostart
    xcompmgr -CcfF &
    ;;
    *)
        echo 'This script accepts the following arguments: set, setshaded, setshadowshade, unset'
    ;;
esac