File: hold_mode

package info (click to toggle)
epic4 1%3A3.0-2.2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,756 kB
  • sloc: ansic: 56,285; makefile: 631; sh: 161; perl: 30
file content (49 lines) | stat: -rw-r--r-- 1,264 bytes parent folder | download | duplicates (7)
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
# Simulate /set hold_mode and /set hold_mode_interval for ircII users

on #^window_create -125 * {
	if (default_hold_mode == [on]) {
		window $1 hold_mode on
	}
	if (default_hold_mode_interval != []) {
		window $1 hold_mode_interval $default_hold_mode_interval
	}
}

on ^set "hold_mode *" {
	if ([$1] != [on] && [$1] != [off] && [$1] != [toggle]) {
		xecho -b SET HOLD_MODE must be ON, OFF, or TOGGLE
		return
	}
	if ([$1] == [on]) {
		@ default_hold_mode = [on]
	} else if ([$1] == [off]) {
		@ default_hold_mode = [off]
	} else if ([$1] == [toggle] && default_hold_mode == [on]) {
		@ default_hold_mode = [off]
	} else if ([$1] == [toggle] && default_hold_mode == [off]) {
		@ default_hold_mode = [on]
	}
	fe ($winrefs()) x {
		window $x hold_mode $default_hold_mode
	}
	xecho -b SET HOLD_MODE set to $default_hold_mode
}

on ^set "hold_mode_interval *" {
	@ default_hold_mode_interval = [$1]
	fe ($winrefs()) x {
		window $x hold_interval $default_hold_mode_interval
	}
	xecho -b SET HOLD_MODE_INTERVAL set to $default_hold_mode_interval
}

on ^set "hold_interval *" {
	@ default_hold_mode_interval = [$1]
	fe ($winrefs()) x {
		window $x hold_interval $default_hold_mode_interval
	}
	xecho -b SET HOLD_INTERVAL set to $default_hold_mode_interval
}


#hop'y2k3