blob: fc50740170d438f6c19666a5486ff47e165324a6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
use strict;
use vars qw($VERSION %IRSSI);
use Irssi;
$VERSION = '1.0';
%IRSSI = {
authors => 'Teddy Wing',
contact => 'irssi@teddywing.com',
name => 'Vimput',
description => '',
license => 'GPL',
};
Irssi::signal_add_last 'gui key pressed' => sub {
my ($key) = @_;
print Irssi::parse_special('$L', undef, 0);
};
|
