Pekwm is a young WindowManager that aims to be lean and mean and look attractive at the same time, without being sold on EyeCandy at the cost of Bloat. Features include:
The WindowManager also has basic support for WindowMaker dock applications.
With all of this, it still attempts to concentrate on its task, and not offer features that can be had by way of using external tools.
See also:
Entry = "Info" {
Actions = "Exec \
ID=\$( xprop -root '\$0' _NET_ACTIVE_WINDOW | cut -f2 -d ) \ ( \
xprop -id \$ID \ echo '--------------------' \ xwininfo -id \$ID | tail +4 \
) | xmessage -center -buttons close -title 'xprop / xwininfo' -file - &"
}
This will give you a new window menu entry called Info which brings up a box with the information and properties of the associated window.
#
#
#
#
#
#
use warnings "all"; use strict;
my $paper_changer = "feh --bg-scale";
if (scalar(@ARGV) == 1) { # Specifying a directory
print("Dynamic {\n"); &listpic($ARGV[0?); # Call the subroutines with the dir as arg print("}\n");
}
sub listpic {
my $dir = $_[0?;
opendir(DIR, "$dir") || die "Can't opendir $dir: $!"; my @papers = readdir(DIR); # Put all files/dirs into the @papers array closedir DIR;
foreach my $x (@papers) {
if(-d "$dir/$x" && !("." = /$x/ || ".." = /$x/)) {
- Run recursively through all sub directories
print("Submenu = \"$x\" {\n"); &listpic("$dir/$x"); print("}\n");
} elsif (!-d "$dir/$x") {
my @file = grep { (! /^\./) && ( /^.*\.[pPjJgG?[nNpPiI?[gGfF?/ )} $x; print("Entry = \"@file\" { Actions = \"Exec $paper_changer $dir/@file\" }\n");
}
}
}
Submenu = "Wallpapers" {
Entry { Actions = "Dynamic pekwm_wp_menu.pl /path/to/wallpapers/" }
}
Enjoy.
Part of CategoryWindowManager
lib/plugin/WlugLicense.php:99: Warning: Invalid argument supplied for foreach()
lib/plugin/WlugLicense.php:111: Warning: in_array() [<a href='function.in-array'>function.in-array</a>]: Wrong datatype for second argument