In my usual mode of posting my musings before I've finished musing on them, here is the refined version of the previous:

fn mode {
        @{
                . wmii.rc $"*
                cmd=$1; shift
                args=$*
                client=`{wmiir read /client/sel/ctl | sed 1q}

                fn Key-Escape { wi_cleankeys; exit }
                fn Key-$left { wmiir xwrite /tag/sel/ctl $cmd sel sel left 
$args }
                fn Key-$right { wmiir xwrite /tag/sel/ctl $cmd sel sel right 
$args }
                fn Key-$up { wmiir xwrite /tag/sel/ctl $cmd sel sel up $args }
                fn Key-$down { wmiir xwrite /tag/sel/ctl $cmd sel sel down 
$args }
                fn Event-DestroyClient {
                        if(~ $1 $client) Key-Escape
                }

                wi_eventloop
        }&
}

fn Key-$mod-g { mode grow }
fn Key-$mod-f { mode grow -1 }
fn Key-$mod-v { mode nudge }

--
Kris Maglione

If you want to get along, go along.

PGP: http://suckless.org/~jg/pubkey.pgp
SHA1 (pubkey.pgp) = 2d464f9dbb186bee6f4faa88e2f6c5802bcfd935

Attachment: pgp9uZaZ9MiBV.pgp
Description: PGP signature

Reply via email to