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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
# based on irssi mouse patch by mirage: http://darksun.com.pt/mirage/irssi/
# It should probably indeed be done in C, and go into irssi, or as a module,
# but I translated it to perl just for the fun of it, and to prove it's possible maybe
use strict;
use Irssi qw(signal_emit settings_get_str active_win signal_stop settings_add_str settings_add_bool settings_get_bool signal_add signal_add_first);
use Math::Trig;
use vars qw($VERSION %IRSSI);
$VERSION = '0.0.0';
%IRSSI = (
authors => 'Wouter Coekaerts',
contact => 'wouter@coekaerts.be',
name => 'trigger',
description => 'experimental perl version of the irssi mouse patch',
license => 'GPLv2',
url => 'http://wouter.coekaerts.be/irssi/',
changed => '2005-11-21',
);
# minor changes by Soliton:
# added mouse_enable and mouse_disable functions to make for example copy & pasting possible for a second after clicking with the left mouse button
# also changed the mouse button for the gestures to the right button
my $mouse_xterm_status = -1; # -1:off 0,1,2:filling mouse_xterm_combo
my @mouse_xterm_combo; # 0:button 1:x 2:y
my @mouse_xterm_previous; # previous contents of mouse_xterm_combo
sub mouse_enable {
print STDERR "\e[?1000h"; # start tracking
}
sub mouse_disable {
print STDERR "\e[?1000l"; # stop tracking
Irssi::timeout_add_once(2000, 'mouse_enable', undef); # turn back on after 1 sec
}
# Handle mouse event (button press or release)
sub mouse_event {
my ($b, $x, $y, $oldb, $oldx, $oldy) = @_;
my ($xd, $yd);
my ($distance, $angle);
#print "DEBUG: mouse_event $b $x $y";
# uhm, in the patch the scrollwheel didn't work for me, but this does:
if ($b == 64) {
cmd("mouse_scroll_up");
} elsif ($b == 65) {
cmd("mouse_scroll_down")
}
# proceed only if a button is being released
return if ($b != 3);
# if it was a mouse click of the left button (press and release in the same position)
if ($x == $oldx && $y == $oldy && $oldb == 0) {
#signal_emit("mouse click", $oldb, $x, $y);
#mouse_click($oldb, $x, $y);
mouse_disable();
return;
}
# otherwise, find mouse gestures on button
return if ($oldb != 2);
$xd = $x - $oldx;
$yd = -1 * ($y - $oldy);
$distance = sqrt($xd*$xd + $yd*$yd);
# ignore small gestures
if ($distance < 3) {
return;
}
$angle = asin($yd/$distance) * 180 / 3.14159265358979;
if ($angle < 20 && $angle > -20 && $xd > 0) {
if ($distance <= 40) {
cmd("mouse_gesture_right");
} else {
cmd("mouse_gesture_bigright");
}
} elsif ($angle < 20 && $angle > -20 && $xd < 0) {
if ($distance <= 40) {
cmd("mouse_gesture_left");
} else {
cmd("mouse_gesture_bigleft");
}
} elsif ($angle > 40) {
cmd("mouse_gesture_up");
} elsif ($angle < -40) {
cmd("mouse_gesture_down");
}
}
sub cmd
{
my ($setting) = @_;
signal_emit("send command", settings_get_str($setting), active_win->{'active_server'}, active_win->{'active'});
}
signal_add_first("gui key pressed", sub {
my ($key) = @_;
if ($mouse_xterm_status != -1) {
if ($mouse_xterm_status == 0) {
@mouse_xterm_previous = @mouse_xterm_combo;
}
$mouse_xterm_combo[$mouse_xterm_status] = $key-32;
$mouse_xterm_status++;
if ($mouse_xterm_status == 3) {
$mouse_xterm_status = -1;
# match screen coordinates
$mouse_xterm_combo[1]--;
$mouse_xterm_combo[2]--;
# TODO signal_emit("mouse event", $mouse_xterm_combo[0], $mouse_xterm_combo[1], $mouse_xterm_combo[2], $mouse_xterm_previous[0], $mouse_xterm_previous[1], $mouse_xterm_previous[2]);
mouse_event($mouse_xterm_combo[0], $mouse_xterm_combo[1], $mouse_xterm_combo[2], $mouse_xterm_previous[0], $mouse_xterm_previous[1], $mouse_xterm_previous[2]);
}
signal_stop();
}
});
sub sig_command_script_unload {
my $script = shift;
if ($script =~ /(.*\/)?$IRSSI{'name'}(\.pl)? *$/) {
print STDERR "\e[?1000l"; # stop tracking
}
}
Irssi::signal_add_first('command script load', 'sig_command_script_unload');
Irssi::signal_add_first('command script unload', 'sig_command_script_unload');
if ($ENV{"TERM"} !~ /^rxvt|screen|xterm(-color)?$/) {
die "Your terminal doesn't seem to support this.";
}
print STDERR "\e[?1000h"; # start tracking
Irssi::command("/^bind meta-[M /mouse_xterm"); # FIXME evil
Irssi::command_bind("mouse_xterm", sub {$mouse_xterm_status = 0;});
settings_add_str("lookandfeel", "mouse_gesture_up", "/window last");
settings_add_str("lookandfeel", "mouse_gesture_down", "/window goto active");
settings_add_str("lookandfeel", "mouse_gesture_left", "/window prev");
settings_add_str("lookandfeel", "mouse_gesture_bigleft", "/eval window prev;window prev");
settings_add_str("lookandfeel", "mouse_gesture_right", "/window next");
settings_add_str("lookandfeel", "mouse_gesture_bigright", "/eval window next;window next");
settings_add_str("lookandfeel", "mouse_scroll_up", "/scrollback goto -10");
settings_add_str("lookandfeel", "mouse_scroll_down", "/scrollback goto +10");
|
