blob: 0d5456a85cd133aef4e6c9ae1057630fa857f0d3 (
plain) (
blame)
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
|
use strict;
use Irssi;
use Irssi::TextUI; # for sbar_items_redraw
use vars qw($VERSION %IRSSI);
$VERSION = "1.0.1";
%IRSSI = (
authors => "shabble",
contact => 'shabble+irssi@metavore.org, shabble@#irssi/Freenode',
name => "",
description => "",
license => "Public Domain",
changed => ""
);
my $prompt_additional_content = '';
Irssi::expando_create('prompt_additional', \&expando_prompt, {});
#TODO: necessary?
#Irssi::signal_add_last 'gui print text finished' => \&redraw_prompts;
sub expando_prompt {
my ($server, $witem, $arg) = @_;
return $prompt_additional_content;
}
sub redraw_prompts {
Irssi::statusbar_items_redraw ('prompt');
Irssi::statusbar_items_redraw ('prompt_empty');
}
sub handle_change_prompt_sig {
my ($text) = @_;
print "Got prompt change sig with: $text";
my $expanded_text = Irssi::parse_special($text);
my $changed = ($expanded_text ne $prompt_additional_content);
$prompt_additional_content = $expanded_text;
if ($changed) {
print "Redrawing prompts";
redraw_prompts();
}
}
sub prompt_additional_cmd {
my ($str) = @_;
print "Setting prompt to: $str";
Irssi::signal_emit('change prompt', $str);
}
Irssi::signal_register({'change prompt' => [qw/string/]});
Irssi::signal_add('change prompt' => \&handle_change_prompt_sig);
Irssi::command_bind('set_prompt' => \&prompt_additional_cmd);
|