aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTom Feist <shabble@metavore.org>2011-04-22 02:21:02 +0000
committerTom Feist <shabble@metavore.org>2011-04-22 02:21:02 +0000
commita0507750ffa0974c063fa4fefa766a4de1c7dd9c (patch)
treea8ae7406048f00807ba54aecb5dfcd9c0dd08944
parentact_hide/act_hide: initial commit of an improved version of hide.pl for managing (diff)
downloadirssi-scripts-a0507750ffa0974c063fa4fefa766a4de1c7dd9c.tar.gz
irssi-scripts-a0507750ffa0974c063fa4fefa766a4de1c7dd9c.zip
feature-tests/key_sig: test to see if there's any useful info in the 'keyboard
created' signals. Answer is no, because it gets initialised befor the perl core, so we're too late to handle the signal. Might be a useful testcase for when I start meddling with multiple keyboards though.
-rw-r--r--feature-tests/key_sig.pl51
1 files changed, 51 insertions, 0 deletions
diff --git a/feature-tests/key_sig.pl b/feature-tests/key_sig.pl
new file mode 100644
index 0000000..ef69d45
--- /dev/null
+++ b/feature-tests/key_sig.pl
@@ -0,0 +1,51 @@
+use strict;
+use warnings 'all';
+
+use Irssi;
+use Irssi::Irc;
+use Irssi::TextUI;
+
+use Data::Dumper;
+
+
+our $VERSION = '0.1';
+our %IRSSI = (
+ authors => 'shabble',
+ contact => 'shabble+irssi@metavore.org',
+ name => '',
+ description => '',
+ license => 'Public Domain',
+ );
+
+my $bacon = 10;
+
+Irssi::signal_register({'key created' => [qw/Irssi::UI::Key/ ] });
+
+Irssi::signal_add('key created', \&sig_key_created);
+Irssi::signal_register({'key command' => [qw/string/]});
+Irssi::signal_add_first('key command' => \&sig_key_cmd);
+
+Irssi::signal_register({'key nothing' => [qw/string/]});
+Irssi::signal_add_first('key nothing' => \&sig_key_cmd);
+
+Irssi::signal_register({'keyboard created' => [qw/Irssi::UI::Keyboard/]});
+Irssi::signal_add_first('keyboard created' => \&sig_keyboard);
+
+sub sig_keyboard {
+ my ($data) = @_;
+ print "keyboard: " . Dumper($data);
+}
+
+sub sig_key_cmd {
+ my ($data) = @_;
+ print "key cmd: " . Dumper($data);
+
+}
+
+sub sig_key_created {
+ my @args = @_;
+
+ print "Key Created, Args: " . Dumper(\@args);
+}
+
+Irssi::command("bind meta-q /echo moo");