blob: a1c291bee6c69b63711efe902d2ee174926daaa6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#!/bin/sh
# Copyright (C) 2003 Rupert Levene
# Author: Rupert Levene <r.levene@lancaster.ac.uk>
# List all groups and the windows in each group.
# we want to cope with spaces in group names
IFS='
'
#initialize our list
list=''
# Allow external scripts to tell it where ratpoison is
if [ -z "$RATPOISON" ]; then
RATPOISON=ratpoison
fi
GROUPLIST=$($RATPOISON -c groups)
SED_GET_NUM='s/^\([0-9]*\).*/\1/'
FIRSTGROUPNUM=$(echo "$GROUPLIST"|head -n 1|sed -e "$SED_GET_NUM")
LASTGROUP=$(echo "$GROUPLIST"|tail -n 1)
CURRENTGROUPNUM=$(echo "$GROUPLIST"|grep '^[0-9]*\*'|sed -e "$SED_GET_NUM")
$RATPOISON -c "gselect $FIRSTGROUPNUM"
for i in $GROUPLIST; do
list=$(printf '%s%s\n%s' "$list" "$i" "$($RATPOISON -c windows|sed -e 's/^/ /')");
if [ "$i" != "$LASTGROUP" ]; then
list="${list}
"
fi
$RATPOISON -c gnext
done;
$RATPOISON -c "echo $list"
$RATPOISON -c "gselect $CURRENTGROUPNUM"
|
