altchan

来自「EPIC IRC客户端。来源于IRCII客户端但做了很多性能和功能的优化。」· 代码 · 共 27 行

#$EPIC: altchan,v 1.3 2002/08/12 16:59:49 jnelson Exp $
#
# "altchan" -- a script to implement ALT-<number> key bindings
# BitchX I guess does this by default.  So here is a compatibility script.
#

bind ^[1 parse_command to_window 1
bind ^[2 parse_command to_window 2
bind ^[3 parse_command to_window 3
bind ^[4 parse_command to_window 4
bind ^[5 parse_command to_window 5
bind ^[6 parse_command to_window 6
bind ^[7 parse_command to_window 7
bind ^[8 parse_command to_window 8
bind ^[9 parse_command to_window 9
bind ^[0 parse_command to_window 10

alias to_window (window default 0) {
	if (winnum($window) == -1) {
		xecho -c -b SWAP: No such window: $window
	} {
		window refnum_or_swap $window
	}
}

#hop'y2k+1