html/keybinds.pl
1 #!/usr/bin/perl -w
2
3 ## Bugreports and Licence disclaimer.
4 #
5 # For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org>
6 #
7 # This program is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 2 of the License, or
10 # (at your option) any later version.
11 #
12 # This program is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
16 #
17 # You should have received a copy of the GNU General Public License
18 # along with this script; if not, write to the Free Software
19 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 #
21 ##
22
23 use strict;
24 use Irssi;
25 use vars qw($VERSION %IRSSI);
26
27 $VERSION = "0.01";
28
29 %IRSSI = (
30 authors => 'Geert Hauwaerts',
31 contact => 'geert@irssi.org',
32 name => 'keybindings.pl',
33 description => 'This script will set the proper keybindings on /AZERTY and /QWERTY.',
34 license => 'Public Domain',
35 url => 'http://irssi.hauwaerts.be/keybindings.pl',
36 changed => 'Tue Nov 4 16:49:20 CET 2003',
37 );
38
39 Irssi::theme_register([
40 'loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.',
41 'bound', '%R>>%n %_Keybindings:%_ Loaded the $0 keybindings.'
42 ]);
43
44 sub azerty {
45
46 Irssi::command("^BIND meta-a change_window 11");
47 Irssi::command("^BIND meta-p change_window 20");
48 Irssi::command("^BIND meta-m change_window 30");
49 Irssi::command("^BIND meta-Z change_window 31");
50 Irssi::command("^BIND meta-z change_window 12");
51 Irssi::command("^BIND meta-s change_window 22");
52 Irssi::command("^BIND meta-d change_window 23");
53 Irssi::command("^BIND meta-f change_window 24");
54 Irssi::command("^BIND meta-g change_window 25");
55 Irssi::command("^BIND meta-h change_window 26");
56 Irssi::command("^BIND meta-j change_window 27");
57 Irssi::command("^BIND meta-k change_window 28");
58 Irssi::command("^BIND meta-l change_window 29");
59 Irssi::command("^BIND meta-A change_window 32");
60 Irssi::command("^BIND meta-E change_window 33");
61 Irssi::command("^BIND meta-R change_window 34");
62 Irssi::command("^BIND meta-T change_window 35");
63 Irssi::command("^BIND meta-Y change_window 36");
64 Irssi::command("^BIND meta-U change_window 37");
65 Irssi::command("^BIND meta-I change_window 38");
66 Irssi::command("^BIND meta-O change_window 39");
67 Irssi::command("^BIND meta-P change_window 40");
68 Irssi::command("^BIND meta-Q change_window 41");
69 Irssi::command("^BIND meta-q change_window 21");
70 Irssi::command("^BIND meta-S change_window 42");
71 Irssi::command("^BIND meta-D change_window 43");
72 Irssi::command("^BIND meta-F change_window 44");
73 Irssi::command("^BIND meta-G change_window 45");
74 Irssi::command("^BIND meta-H change_window 46");
75 Irssi::command("^BIND meta-J change_window 47");
76 Irssi::command("^BIND meta-K change_window 48");
77 Irssi::command("^BIND meta-L change_window 49");
78 Irssi::command("^BIND meta-M change_window 50");
79 Irssi::command("^BIND meta-& change_window 1");
80 Irssi::command("^BIND meta-é change_window 2");
81 Irssi::command("^BIND meta-\" change_window 3");
82 Irssi::command("^BIND meta-' change_window 4");
83 Irssi::command("^BIND meta-( change_window 5");
84 Irssi::command("^BIND meta-§ change_window 6");
85 Irssi::command("^BIND meta-è change_window 7");
86 Irssi::command("^BIND meta-! change_window 8");
87 Irssi::command("^BIND meta-ç change_window 9");
88 Irssi::command("^BIND meta-à change_window 10");
89 Irssi::command("^BIND meta-x command window last");
90 Irssi::command("^BIND meta-N command /mark");
91
92 Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'bound', 'azerty');
93 }
94
95 sub qwerty {
96
97 Irssi::command("^BIND meta-a change_window 21");
98 Irssi::command("^BIND meta-p change_window 20");
99 Irssi::command("^BIND meta-m change_window 30");
100 Irssi::command("^BIND meta-Z change_window 31");
101 Irssi::command("^BIND meta-w change_window 12");
102 Irssi::command("^BIND meta-s change_window 22");
103 Irssi::command("^BIND meta-d change_window 23");
104 Irssi::command("^BIND meta-f change_window 24");
105 Irssi::command("^BIND meta-g change_window 25");
106 Irssi::command("^BIND meta-h change_window 26");
107 Irssi::command("^BIND meta-j change_window 27");
108 Irssi::command("^BIND meta-k change_window 28");
109 Irssi::command("^BIND meta-l change_window 29");
110 Irssi::command("^BIND meta-A change_window 32");
111 Irssi::command("^BIND meta-E change_window 33");
112 Irssi::command("^BIND meta-R change_window 34");
113 Irssi::command("^BIND meta-T change_window 35");
114 Irssi::command("^BIND meta-Y change_window 36");
115 Irssi::command("^BIND meta-U change_window 37");
116 Irssi::command("^BIND meta-I change_window 38");
117 Irssi::command("^BIND meta-O change_window 39");
118 Irssi::command("^BIND meta-P change_window 40");
119 Irssi::command("^BIND meta-Q change_window 41");
120 Irssi::command("^BIND meta-q change_window 11");
121 Irssi::command("^BIND meta-S change_window 42");
122 Irssi::command("^BIND meta-D change_window 43");
123 Irssi::command("^BIND meta-F change_window 44");
124 Irssi::command("^BIND meta-G change_window 45");
125 Irssi::command("^BIND meta-H change_window 46");
126 Irssi::command("^BIND meta-J change_window 47");
127 Irssi::command("^BIND meta-K change_window 48");
128 Irssi::command("^BIND meta-L change_window 49");
129 Irssi::command("^BIND meta-M change_window 50");
130 Irssi::command("^BIND meta-& change_window 1");
131 Irssi::command("^BIND meta-é change_window 2");
132 Irssi::command("^BIND meta-\" change_window 3");
133 Irssi::command("^BIND meta-' change_window 4");
134 Irssi::command("^BIND meta-( change_window 5");
135 Irssi::command("^BIND meta-§ change_window 6");
136 Irssi::command("^BIND meta-è change_window 7");
137 Irssi::command("^BIND meta-! change_window 8");
138 Irssi::command("^BIND meta-ç change_window 9");
139 Irssi::command("^BIND meta-à change_window 10");
140 Irssi::command("^BIND meta-x command window last");
141 Irssi::command("^BIND meta-N command /mark");
142
143 Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'bound', 'qwerty');
144 }
145
146 Irssi::command_bind('azerty', 'azerty');
147 Irssi::command_bind('qwerty', 'qwerty');
148
149 Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
150