File: window

package info (click to toggle)
teknap 1.4-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 5,428 kB
  • ctags: 6,297
  • sloc: ansic: 55,591; makefile: 545; sh: 112
file content (58 lines) | stat: -rw-r--r-- 565 bytes parent folder | download
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
/*
 * Some useful window stuff
 *
 * Author: Brian Weiss <brian@got.net> - 2000
 */

alias swap (winnum, void)
{
	if (winnum)
	{
		window swap $winnum
	}{
		input "What window should we swap to? "
		{
			window swap $0
		}
	}
}

alias wc (void)
{
	window new double on hide
}

alias wj (chan)
{
	if (chan)
	{
		window new double on hide
		window swap last
		join $chan
	}{
		xecho -b Usage: /wj <channel>
	}
}

alias wk (void)
{
	window kill
}

alias wl (void)
{
	window last
}

alias wn (void)
{
	window next
}

alias wp (void)
{
	window previous
}


/* bmw '00 */