[dev] [wmii] Add/Remove all windows with n tag to/from the current view [code snippet plan9]

[Ruben Gonzalez Arnau]

Hello,
A simple task to view all windows from ntag to current view. If it's 
useful for someone, I will try to put on wiki.


Ex: $MODKEY-Control-[1-9] adds ntga windows, if pressed again, removes 
ntag windows.

Any help is appreciated :)


Thank you!


fn getcurtag {
        wmiir read /tag/sel/ctl | sed 1q
}

fn getclientsntag {
        wmiir read /tag/$1/index | awk '/0x[a-fA-F0-9]/ { print $2 }'
}

fn viewntag {
        ntag = $1
        curtag = `{getcurtag}
        cmatch = 0

        if(! ~ $ntag $curtag && ! ~ $#ntag 0) {
                for(c in `{getclientsntag $ntag}) {
                        for(cc in `{getclientsntag $curtag}) {
                                if(~ $c $cc)
                                        cmatch = 1
                        }
                        if(test $cmatch -eq 1)
                                wmiir xwrite /client/$c/tags $ntag-$curtag
                        if not
                                wmiir xwrite /client/$c/tags $ntag+$curtag
                }
        }
}

# Switch to named view by number
fn keynum {
        echo `{echo $1 | sed 's/.*-//'}
}
fn tagnum {
        echo `{wi_tags | sed -n $1^p}
}

# Add/Remove all windows with ntag to/from the view
for(i in `{seq 1 9}) {
        fn Key-$MODKEY-Control-$i {
                viewntag `{tagnum `{keynum $1}}
        }
}