Removed multiline.pl weechat4 will include this

This commit is contained in:
Dionysus 2023-06-11 00:49:50 -04:00
parent 01ccc0397a
commit c242ccf5b6
Signed by: acidvegas
GPG Key ID: EF4B922DB85DC9DE
2 changed files with 0 additions and 799 deletions

View File

@ -215,7 +215,6 @@ docker attach weechat # Detach with CTRL-p CTRL-q
/set plugins.var.perl.highmon.first_run false /set plugins.var.perl.highmon.first_run false
/set plugins.var.perl.highmon.short_names on /set plugins.var.perl.highmon.short_names on
/set plugins.var.perl.keepnick.default_enable 1 /set plugins.var.perl.keepnick.default_enable 1
/set plugins.var.perl.multiline.weechat_paste_fix off
``` ```
--- ---

View File

@ -1,798 +0,0 @@
use strict; use warnings;
$INC{'Encode/ConfigLocal.pm'}=1;
require Encode;
use utf8;
# multiline.pl is written by Nei <anti.teamidiot.de>
# and licensed under the under GNU General Public License v3
# or any later version
# to read the following docs, you can use "perldoc multiline.pl"
=head1 NAME
multiline - Multi-line edit box for WeeChat (weechat edition)
=head1 DESCRIPTION
multiline will draw a multi-line edit box to your WeeChat window so
that when you hit the return key, you can first compose a complete
multi-line message before sending it all at once.
Furthermore, if you have multi-line pastes then you can edit them
before sending out all the lines.
=head1 USAGE
make a key binding to send the finished message:
/key bind meta-s /input return
then you can send the multi-line message with Alt+S
=head1 SETTINGS
the settings are usually found in the
plugins.var.perl.multiline
namespace, that is, type
/set plugins.var.perl.multiline.*
to see them and
/set plugins.var.perl.multiline.SETTINGNAME VALUE
to change a setting C<SETTINGNAME> to a new value C<VALUE>. Finally,
/unset plugins.var.perl.multiline.SETTINGNAME
will reset a setting to its default value.
the following settings are available:
=head2 char
character(s) which should be displayed to indicate end of line
=head2 tab
character(s) which should be displayed instead of Tab key character
=head2 lead_linebreak
if turned on, multi-line messages always start on a new line
=head2 modify_keys
if turned on, cursor keys are modified so that they respect line
boundaries instead of treating the whole multi-line message as a
single line
=head2 magic
indicator displayed when message will be sent soon
=head2 magic_enter_time
delay after pressing enter before sending automatically (in ms), or 0
to disable
=head2 magic_paste_only
only use multi-line messages for multi-line pastes (multi-line on
enter is disabled by this)
=head2 paste_lock
time-out to detect pastes (disable the weechat built-in paste
detection if you want to use this)
=head2 send_empty
set to on to automatically disregard enter key on empty line
=head2 hide_magic_nl
whether the new line inserted by magic enter key will be hidden
=head2 weechat_paste_fix
disable ctrl-j binding when paste is detected to stop silly weechat
sending out pastes without allowing to edit them
=head2 ipl
this setting controls override of ctrl-m (enter key) by script. Turn
it off if you don't want multiline.pl to set and re-set the key binding.
=head1 FUNCTION DESCRIPTION
for full pod documentation, filter this script with
perl -pE'
(s/^## (.*?) -- (.*)/=head2 $1\n\n$2\n\n=over\n/ and $o=1) or
s/^## (.*?) - (.*)/=item I<$1>\n\n$2\n/ or
(s/^## (.*)/=back\n\n$1\n\n=cut\n/ and $o=0,1) or
($o and $o=0,1 and s/^sub /=back\n\n=cut\n\nsub /)'
=cut
use constant SCRIPT_NAME => 'multiline';
our $VERSION = '0.6.4';
weechat::register(SCRIPT_NAME,
'Nei <anti.teamidiot.de>', # Author
$VERSION,
'GPL3', # License
'Multi-line edit box', # Description
'stop_multiline', '') || return;
sub SCRIPT_FILE() {
my $infolistptr = weechat::infolist_get('perl_script', '', SCRIPT_NAME);
my $filename = weechat::infolist_string($infolistptr, 'filename') if weechat::infolist_next($infolistptr);
weechat::infolist_free($infolistptr);
return $filename unless @_;
}
{
package Nlib;
# this is a weechat perl library
use strict; use warnings; no warnings 'redefine';
## get_key_name -- get key name valid for any weechat version
## $key_name - name of key as valid in weechat 4.0.0; note: only supports keys used in this file, not any key
## $secondary_code - for keys with multiple codes, set to 1 to return the second code instead of the first
## returns key name unchanged if weechat >= 4.0.0; key name translated to old name if weechat < 4.0.0
sub get_key_name {
my $key_name = shift;
my $secondary_code = shift;
return $key_name if (weechat::info_get('version_number', '') || 0) >= 0x04000000;
return "ctrl-H" if $key_name eq "backspace" && $secondary_code;
return "ctrl-?" if $key_name eq "backspace" && !$secondary_code;
return "meta2-A" if $key_name eq "up";
return "meta2-B" if $key_name eq "down";
$key_name =~ s/ctrl-(\w+)/ctrl-\U$1/;
return $key_name;
}
## i2h -- copy weechat infolist content into perl hash
## $infolist - name of the infolist in weechat
## $ptr - pointer argument (infolist dependend)
## @args - arguments to the infolist (list dependend)
## $fields - string of ref type "fields" if only certain keys are needed (optional)
## returns perl list with perl hashes for each infolist entry
sub i2h {
my %i2htm = (i => 'integer', s => 'string', p => 'pointer', b => 'buffer', t => 'time');
local *weechat::infolist_buffer = sub { '(not implemented)' };
my ($infolist, $ptr, @args) = @_;
$ptr ||= "";
my $fields = ref $args[-1] eq 'fields' ? ${ pop @args } : undef;
my $infptr = weechat::infolist_get($infolist, $ptr, do { local $" = ','; "@args" });
my @infolist;
while (weechat::infolist_next($infptr)) {
my @fields = map {
my ($t, $v) = split ':', $_, 2;
bless \$v, $i2htm{$t};
}
split ',',
($fields || weechat::infolist_fields($infptr));
push @infolist, +{ do {
my (%list, %local, @local);
map {
my $fn = 'weechat::infolist_'.ref $_;
my $r = do { no strict 'refs'; &$fn($infptr, $$_) };
if ($$_ =~ /^localvar_name_(\d+)$/) {
$local[$1] = $r;
()
}
elsif ($$_ =~ /^(localvar)_value_(\d+)$/) {
$local{$local[$2]} = $r;
$1 => \%local
}
elsif ($$_ =~ /(.*?)((?:_\d+)+)$/) {
my ($key, $idx) = ($1, $2);
my @idx = split '_', $idx; shift @idx;
my $target = \$list{$key};
for my $x (@idx) {
my $o = 1;
if ($key eq 'key' or $key eq 'key_command') {
$o = 0;
}
if ($x-$o < 0) {
local $" = '|';
weechat::print('',"list error: $target/$$_/$key/$x/$idx/@idx(@_)");
$o = 0;
}
$target = \$$target->[$x-$o]
}
$$target = $r;
$key => $list{$key}
}
else {
$$_ => $r
}
} @fields
} };
}
weechat::infolist_free($infptr);
!wantarray && @infolist ? \@infolist : @infolist
}
## hdh -- hdata helper
## $_[0] - arg pointer or hdata list name
## $_[1] - hdata name
## $_[2..$#_] - hdata variable name
## $_[-1] - hashref with key/value to update (optional)
## returns value of hdata, and hdata name in list ctx, or number of variables updated
sub hdh {
if (@_ > 1 && $_[0] !~ /^0x/ && $_[0] !~ /^\d+$/) {
my $arg = shift;
unshift @_, weechat::hdata_get_list(weechat::hdata_get($_[0]), $arg);
}
while (@_ > 2) {
my ($arg, $name, $var) = splice @_, 0, 3;
my $hdata = weechat::hdata_get($name);
unless (ref $var eq 'HASH') {
$var =~ s/!(.*)/weechat::hdata_get_string($hdata, $1)/e;
(my $plain_var = $var) =~ s/^\d+\|//;
my $type = weechat::hdata_get_var_type_string($hdata, $plain_var);
if ($type eq 'pointer') {
my $name = weechat::hdata_get_var_hdata($hdata, $var);
unshift @_, $name if $name;
}
my $fn = "weechat::hdata_$type";
unshift @_, do { no strict 'refs';
&$fn($hdata, $arg, $var) };
}
else {
return weechat::hdata_update($hdata, $arg, $var);
}
}
wantarray ? @_ : $_[0]
}
use Pod::Select qw();
use Pod::Simple::TextContent;
## get_desc_from_pod -- return setting description from pod documentation
## $file - filename with pod
## $setting - name of setting
## returns description as text
sub get_desc_from_pod {
my $file = shift;
return unless -s $file;
my $setting = shift;
open my $pod_sel, '>', \my $ss;
Pod::Select::podselect({
-output => $pod_sel,
-sections => ["SETTINGS/$setting"]}, $file);
my $pt = new Pod::Simple::TextContent;
$pt->output_string(\my $ss_f);
$pt->parse_string_document($ss);
my ($res) = $ss_f =~ /^\s*\Q$setting\E\s+(.*)\s*/;
$res
}
## get_settings_from_pod -- retrieve all settings in settings section of pod
## $file - file with pod
## returns list of all settings
sub get_settings_from_pod {
my $file = shift;
return unless -s $file;
open my $pod_sel, '>', \my $ss;
Pod::Select::podselect({
-output => $pod_sel,
-sections => ["SETTINGS//!.+"]}, $file);
$ss =~ /^=head2\s+(.*)\s*$/mg
}
## mangle_man_for_wee -- turn man output into weechat codes
## @_ - list of grotty lines that should be turned into weechat attributes
## returns modified lines and modifies lines in-place
sub mangle_man_for_wee {
for (@_) {
s/_\x08(.)/weechat::color('underline').$1.weechat::color('-underline')/ge;
s/(.)\x08\1/weechat::color('bold').$1.weechat::color('-bold')/ge;
}
wantarray ? @_ : $_[0]
}
## read_manpage -- read a man page in weechat window
## $file - file with pod
## $name - buffer name
sub read_manpage {
my $caller_package = (caller)[0];
my $file = shift;
my $name = shift;
if (my $obuf = weechat::buffer_search('perl', "man $name")) {
eval qq{
package $caller_package;
weechat::buffer_close(\$obuf);
};
}
my @wee_keys = Nlib::i2h('key');
my @keys;
my $winptr = weechat::current_window();
my ($wininfo) = Nlib::i2h('window', $winptr);
my $buf = weechat::buffer_new("man $name", '', '', '', '');
return weechat::WEECHAT_RC_OK unless $buf;
my $width = $wininfo->{chat_width};
--$width if $wininfo->{chat_width} < $wininfo->{width} || ($wininfo->{width_pct} < 100 && (grep { $_->{y} == $wininfo->{y} } Nlib::i2h('window'))[-1]{x} > $wininfo->{x});
$width -= 2; # when prefix is shown
weechat::buffer_set($buf, 'time_for_each_line', 0);
eval qq{
package $caller_package;
weechat::buffer_set(\$buf, 'display', 'auto');
};
die $@ if $@;
@keys = map { $_->{key} }
grep { $_->{command} eq '/input history_previous' ||
$_->{command} eq '/input history_global_previous' } @wee_keys;
@keys = Nlib::get_key_name('up') unless @keys;
weechat::buffer_set($buf, "key_bind_$_", '/window scroll -1') for @keys;
@keys = map { $_->{key} }
grep { $_->{command} eq '/input history_next' ||
$_->{command} eq '/input history_global_next' } @wee_keys;
@keys = Nlib::get_key_name('down') unless @keys;
weechat::buffer_set($buf, "key_bind_$_", '/window scroll +1') for @keys;
weechat::buffer_set($buf, 'key_bind_ ', '/window page_down');
@keys = map { $_->{key} }
grep { $_->{command} eq '/input delete_previous_char' } @wee_keys;
@keys = (Nlib::get_key_name('backspace'), Nlib::get_key_name('backspace', 1)) unless @keys;
weechat::buffer_set($buf, "key_bind_$_", '/window page_up') for @keys;
weechat::buffer_set($buf, 'key_bind_g', '/window scroll_top');
weechat::buffer_set($buf, 'key_bind_G', '/window scroll_bottom');
weechat::buffer_set($buf, 'key_bind_q', '/buffer close');
weechat::print($buf, " \t".mangle_man_for_wee($_)) # weird bug with \t\t showing nothing?
for `pod2man \Q$file\E 2>/dev/null | GROFF_NO_SGR=1 nroff -mandoc -rLL=${width}n -rLT=${width}n -Tutf8 2>/dev/null`;
weechat::command($buf, '/window scroll_top');
unless (hdh($buf, 'buffer', 'lines', 'lines_count') > 0) {
weechat::print($buf, weechat::prefix('error').$_)
for "Unfortunately, your @{[weechat::color('underline')]}nroff".
"@{[weechat::color('-underline')]} command did not produce".
" any output.",
"Working pod2man and nroff commands are required for the ".
"help viewer to work.",
"In the meantime, please use the command ", '',
"\tperldoc $file", '',
"on your shell instead in order to read the manual.",
"Thank you and sorry for the inconvenience."
}
}
1
}
our $MAGIC_ENTER_TIMER;
our $MAGIC_LOCK;
our $MAGIC_LOCK_TIMER;
our $WEECHAT_PASTE_FIX_CTRLJ_CMD;
our $INPUT_CHANGED_EATER_FLAG;
our $IGNORE_INPUT_CHANGED;
our $IGNORE_INPUT_CHANGED2;
use constant INPUT_NL => '/input insert \x0a';
use constant INPUT_MAGIC => '/input magic_enter';
our $KEY_RET = Nlib::get_key_name('ctrl-m');
our $NL = "\x0a";
init_multiline();
my $magic_enter_cancel_dynamic = 1;
my $paste_undo_start_ignore_dynamic = 0;
my $input_changed_eater_dynamic = 0;
my $multiline_complete_fix_dynamic = 1;
sub magic_enter_cancel_dynamic { $magic_enter_cancel_dynamic ? &magic_enter_cancel : weechat::WEECHAT_RC_OK }
sub paste_undo_start_ignore_dynamic { $paste_undo_start_ignore_dynamic ? &paste_undo_start_ignore : weechat::WEECHAT_RC_OK }
sub input_changed_eater_dynamic { $input_changed_eater_dynamic ? &input_changed_eater : weechat::WEECHAT_RC_OK }
sub multiline_complete_fix_dynamic { $multiline_complete_fix_dynamic ? &multiline_complete_fix : weechat::WEECHAT_RC_OK }
weechat::hook_config('plugins.var.perl.'.SCRIPT_NAME.'.*', 'default_options', '');
weechat::hook_modifier('input_text_display_with_cursor', 'multiline_display', '');
weechat::hook_command_run('/help '.SCRIPT_NAME, 'help_cmd', '');
weechat::hook_command_run(INPUT_MAGIC, 'magic_enter', '');
weechat::hook_signal('input_text_*', 'magic_enter_cancel_dynamic', '');
weechat::hook_command_run('/input *', 'paste_undo_start_ignore_dynamic', '');
weechat::hook_signal('2000|input_text_changed', 'input_changed_eater_dynamic', '');
weechat::hook_signal('key_pressed', 'magic_lock_hatch', '');
# we need lower than default priority here or the first character is separated
weechat::hook_signal('500|input_text_changed', 'paste_undo_hack', '')
# can only do this on weechat 0.4.0
if (weechat::info_get('version_number', '') || 0) >= 0x00040000;
weechat::hook_command_run("1500|/input complete*", 'multiline_complete_fix_dynamic', 'complete*');
weechat::hook_command_run("1500|/input delete_*", 'multiline_complete_fix_dynamic', 'delete_*');
weechat::hook_command_run("1500|/input move_*", 'multiline_complete_fix_dynamic', 'move_*');
sub _stack_depth {
my $depth = -1;
1 while caller(++$depth);
$depth;
}
## multiline_display -- show multi-lines on display of input string
## () - modifier handler
## $_[2] - buffer pointer
## $_[3] - input string
## returns modified input string
sub multiline_display {
Encode::_utf8_on($_[3]);
Encode::_utf8_on(my $nl = weechat::config_get_plugin('char') || ' ');
Encode::_utf8_on(my $tab = weechat::config_get_plugin('tab'));
my $cb = weechat::current_buffer() eq $_[2] && $MAGIC_ENTER_TIMER;
if ($cb) {
$_[3] =~ s/$NL\x19b#/\x19b#/ if weechat::config_string_to_boolean(weechat::config_get_plugin('hide_magic_nl'));
}
if ($_[3] =~ s/$NL/$nl\x0d/g) {
$_[3] =~ s/\A/ \x0d/ if weechat::config_string_to_boolean(weechat::config_get_plugin('lead_linebreak'));
}
$_[3] =~ s/\x09/$tab/g if $tab;
if ($cb) {
Encode::_utf8_on(my $magic = weechat::config_get_plugin('magic'));
$_[3] =~ s/\Z/$magic/ if $magic;
}
$_[3]
}
## lock_timer_exp -- expire the magic lock timer
sub lock_timer_exp {
if ($MAGIC_LOCK_TIMER) {
weechat::unhook($MAGIC_LOCK_TIMER);
$MAGIC_LOCK_TIMER = undef;
}
weechat::WEECHAT_RC_OK
}
## paste_undo_stop_ignore -- unset ignore2 flag
sub paste_undo_stop_ignore {
$IGNORE_INPUT_CHANGED2 = undef;
weechat::WEECHAT_RC_OK
}
## paste_undo_start_ignore -- set ignore2 flag when /input is received so to allow /input undo/redo
## () - command_run handler
## $_[2] - command that was called
sub paste_undo_start_ignore {
return weechat::WEECHAT_RC_OK if $IGNORE_INPUT_CHANGED;
return weechat::WEECHAT_RC_OK if $_[2] =~ /insert/;
$IGNORE_INPUT_CHANGED2 = 1;
weechat::WEECHAT_RC_OK
}
## paste_undo_hack -- fix up undo stack when paste is detected by calling /input undo
## () - signal handler
## $_[2] - buffer pointer
sub paste_undo_hack {
return weechat::WEECHAT_RC_OK if $IGNORE_INPUT_CHANGED;
return paste_undo_stop_ignore() if $IGNORE_INPUT_CHANGED2;
if ($MAGIC_LOCK > 0 && get_lock_enabled()) {
signall_ignore_input_changed(1);
$paste_undo_start_ignore_dynamic = 1;
Encode::_utf8_on(my $input = weechat::buffer_get_string($_[2], 'input'));
my $pos = weechat::buffer_get_integer($_[2], 'input_pos');
weechat::command($_[2], '/input undo') for 1..2;
weechat::buffer_set($_[2], 'input', $input);
weechat::buffer_set($_[2], 'input_pos', $pos);
$paste_undo_start_ignore_dynamic = 0;
signall_ignore_input_changed(0);
}
weechat::WEECHAT_RC_OK
}
## input_changed_eater -- suppress input_text_changed signal on new weechats
## () - signal handler
sub input_changed_eater {
$INPUT_CHANGED_EATER_FLAG = undef;
weechat::WEECHAT_RC_OK_EAT
}
## signall_ignore_input_changed -- use various methods to "ignore" input_text_changed signal
## $_[0] - start ignore or stop ignore
sub signall_ignore_input_changed {
if ($_[0]) {
weechat::hook_signal_send('input_flow_free', weechat::WEECHAT_HOOK_SIGNAL_INT, 1);
$input_changed_eater_dynamic = 1;
$IGNORE_INPUT_CHANGED = 1;
weechat::buffer_set('', 'completion_freeze', '1');
}
else {
weechat::buffer_set('', 'completion_freeze', '0');
$IGNORE_INPUT_CHANGED = undef;
$input_changed_eater_dynamic = 0;
weechat::hook_signal_send('input_flow_free', weechat::WEECHAT_HOOK_SIGNAL_INT, 0);
}
}
## multiline_complete_fix -- add per line /input handling for completion, movement and deletion
## () - command_run handler
## $_[0] - original bound data
## $_[1] - buffer pointer
## $_[2] - original command
sub multiline_complete_fix {
$magic_enter_cancel_dynamic = 0;
$multiline_complete_fix_dynamic = 0;
if ($_[2] =~ s/_message$/_line/ || !weechat::config_string_to_boolean(weechat::config_get_plugin('modify_keys'))) {
weechat::command($_[1], $_[2]);
}
else {
signall_ignore_input_changed(1);
Encode::_utf8_on(my $input = weechat::buffer_get_string($_[1], 'input'));
my $pos = weechat::buffer_get_integer($_[1], 'input_pos');
if ($pos && $_[2] =~ /(?:previous|beginning_of)_/ && (substr $input, $pos-1, 1) eq $NL) {
substr $input, $pos-1, 1, "\0"
}
elsif ($pos < length $input && $_[2] =~ /(?:next|end_of)_/ && (substr $input, $pos, 1) eq $NL) {
substr $input, $pos, 1, "\0"
}
my @lines = $pos ? (split /$NL/, (substr $input, 0, $pos), -1) : '';
my @after = $pos < length $input ? (split /$NL/, (substr $input, $pos), -1) : '';
$lines[-1] =~ s/\0$/$NL/;
$after[0] =~ s/^\0/$NL/;
my ($p1, $p2) = (pop @lines, shift @after);
weechat::buffer_set($_[1], 'input', $p1.$p2);
weechat::buffer_set($_[1], 'input_pos', length $p1);
$magic_enter_cancel_dynamic = 1;
$INPUT_CHANGED_EATER_FLAG = 1;
weechat::command($_[1], $_[2]);
my $changed_later = !$INPUT_CHANGED_EATER_FLAG;
magic_enter_cancel() if $changed_later;
$magic_enter_cancel_dynamic = 0;
Encode::_utf8_on(my $p = weechat::buffer_get_string($_[1], 'input'));
$pos = weechat::buffer_get_integer($_[1], 'input_pos');
weechat::command($_[1], '/input undo') if @lines || @after;
weechat::command($_[1], '/input undo');
weechat::buffer_set($_[1], 'input', join $NL, @lines, $p, @after);
weechat::buffer_set($_[1], 'input_pos', $pos+length join $NL, @lines, '');
signall_ignore_input_changed(0);
weechat::hook_signal_send('input_text_changed', weechat::WEECHAT_HOOK_SIGNAL_POINTER, $_[1]) if $changed_later;
}
$multiline_complete_fix_dynamic = 1;
$magic_enter_cancel_dynamic = 1;
weechat::WEECHAT_RC_OK_EAT
}
## help_cmd -- show multi-line script documentation
## () - command_run handler
sub help_cmd {
Nlib::read_manpage(SCRIPT_FILE, SCRIPT_NAME);
weechat::WEECHAT_RC_OK_EAT
}
## get_lock_time -- gets timeout for paste detection according to setting
## returns timeout (at least 1)
sub get_lock_time {
my $lock_time = weechat::config_get_plugin('paste_lock');
$lock_time = 1 unless $lock_time =~ /^\d+$/ && $lock_time;
$lock_time
}
## get_lock_enabled -- checks whether the paste detection lock is enabled
## returns bool
sub get_lock_enabled {
my $lock = weechat::config_get_plugin('paste_lock');
$lock = weechat::config_string_to_boolean($lock)
unless $lock =~ /^\d+$/;
$lock
}
## magic_lock_hatch -- set a timer for paste detection
## () - signal handler
sub magic_lock_hatch {
lock_timer_exp();
$MAGIC_LOCK_TIMER = weechat::hook_timer(get_lock_time(), 0, 1, 'lock_timer_exp', '');
weechat::WEECHAT_RC_OK
}
## magic_unlock -- reduce the lock added by paste detection
## () - timer handler
sub magic_unlock {
if ($MAGIC_LOCK_TIMER) {
weechat::hook_timer(get_lock_time(), 0, 1, 'magic_unlock', '');
}
else {
--$MAGIC_LOCK;
if (!$MAGIC_LOCK && $WEECHAT_PASTE_FIX_CTRLJ_CMD) {
do_key_bind(Nlib::get_key_name('ctrl-j'), $WEECHAT_PASTE_FIX_CTRLJ_CMD);
$WEECHAT_PASTE_FIX_CTRLJ_CMD = undef;
}
}
weechat::WEECHAT_RC_OK
}
## get_magic_enter_time -- get timeout for auto-sending messages according to config
## returns timeout
sub get_magic_enter_time {
my $magic_enter = weechat::config_get_plugin('magic_enter_time');
$magic_enter = 1000 * weechat::config_string_to_boolean($magic_enter)
unless $magic_enter =~ /^\d+$/;
$magic_enter
}
## magic_enter -- receive enter key and do magic things: set up a timer for sending the message, add newline
## () - command_run handler
## $_[1] - buffer pointer
sub magic_enter {
Encode::_utf8_on(my $input = weechat::buffer_get_string($_[1], 'input'));
if (!length $input && weechat::config_string_to_boolean(weechat::config_get_plugin('send_empty'))) {
weechat::command($_[1], '/input return');
}
else {
magic_enter_cancel();
weechat::command($_[1], INPUT_NL);
unless (get_lock_enabled() && $MAGIC_LOCK) {
if (weechat::config_string_to_boolean(weechat::config_get_plugin('magic_paste_only')) &&
$input !~ /$NL/) {
magic_enter_send($_[1]);
}
elsif (my $magic_enter = get_magic_enter_time()) {
$MAGIC_ENTER_TIMER = weechat::hook_timer($magic_enter, 0, 1, 'magic_enter_send', $_[1]);
}
}
}
weechat::WEECHAT_RC_OK_EAT
}
## magic_enter_send -- actually send enter key when triggered by magic_enter, remove preceding newline
## $_[0] - buffer pointer
## sending is delayed by 1ms to circumvent crash bug in api
sub magic_enter_send {
magic_enter_cancel();
weechat::command($_[0], '/input delete_previous_char');
weechat::command($_[0], '/wait 1ms /input return');
weechat::WEECHAT_RC_OK
}
## magic_enter_cancel -- cancel the timer for automatic sending of message, for example when more text was added, increase the paste lock for paste detection when used as signal handler
## () - signal handler when @_ is set
sub magic_enter_cancel {
if ($MAGIC_ENTER_TIMER) {
weechat::unhook($MAGIC_ENTER_TIMER);
$MAGIC_ENTER_TIMER = undef;
}
if ($MAGIC_LOCK_TIMER && @_) {
if (!$MAGIC_LOCK && !$WEECHAT_PASTE_FIX_CTRLJ_CMD &&
weechat::config_string_to_boolean(weechat::config_get_plugin('weechat_paste_fix'))) {
($WEECHAT_PASTE_FIX_CTRLJ_CMD) = get_key_command(Nlib::get_key_name('ctrl-j'));
$WEECHAT_PASTE_FIX_CTRLJ_CMD = '-' unless defined $WEECHAT_PASTE_FIX_CTRLJ_CMD;
do_key_bind(Nlib::get_key_name('ctrl-j'), '-');
}
if ($MAGIC_LOCK < 1) {
my $lock_time = get_lock_time();
++$MAGIC_LOCK;
weechat::hook_timer(get_lock_time(), 0, 1, 'magic_unlock', '');
}
}
weechat::WEECHAT_RC_OK
}
## need_magic_enter -- check if magic enter keybinding is needed according to config settings
## returns bool
sub need_magic_enter {
weechat::config_string_to_boolean(weechat::config_get_plugin('send_empty')) || get_magic_enter_time() ||
weechat::config_string_to_boolean(weechat::config_get_plugin('magic_paste_only'))
}
## do_key_bind -- mute execute a key binding, or unbind if $_[-1] is '-'
## @_ - arguments to /key bind
sub do_key_bind {
if ($_[-1] eq '-') {
pop;
weechat::command('', "/mute /key unbind @_");
}
elsif ($_[-1] eq '!') {
pop;
weechat::command('', "/mute /key reset @_");
}
else {
weechat::command('', "/mute /key bind @_");
}
}
{ my %keys;
## get_key_command -- get the command bound to a key
## $_[0] - key in weechat syntax
## returns the command
sub get_key_command {
unless (exists $keys{$_[0]}) {
($keys{$_[0]}) =
map { $_->{command} } grep { $_->{key} eq $_[0] }
Nlib::i2h('key')
}
$keys{$_[0]}
}
}
## default_options -- set up default option values on start and when unset
## () - config handler if @_ is set
sub default_options {
my %defaults = (
char => '↩',
tab => '──▶▏',
magic => '‼',
ipl => 'on',
lead_linebreak => 'on',
modify_keys => 'on',
send_empty => 'on',
magic_enter_time => '1000',
paste_lock => '1',
magic_paste_only => 'off',
hide_magic_nl => 'on',
weechat_paste_fix => 'on',
);
unless (weechat::config_is_set_plugin('ipl')) {
if (my $bar = weechat::bar_search('input')) {
weechat::bar_set($bar, $_, '0') for 'size', 'size_max';
}
}
for (keys %defaults) {
weechat::config_set_plugin($_, $defaults{$_})
unless weechat::config_is_set_plugin($_);
}
do_key_bind($KEY_RET, INPUT_NL)
if weechat::config_string_to_boolean(weechat::config_get_plugin('ipl'));
my ($enter_key) = get_key_command($KEY_RET);
if (need_magic_enter()) {
do_key_bind($KEY_RET, INPUT_MAGIC)
if defined $enter_key && $enter_key eq INPUT_NL;
}
else {
do_key_bind($KEY_RET, INPUT_NL)
if defined $enter_key && $enter_key eq INPUT_MAGIC;
}
weechat::WEECHAT_RC_OK
}
sub init_multiline {
$MAGIC_LOCK = -1;
default_options();
my $sf = SCRIPT_FILE;
for (Nlib::get_settings_from_pod($sf)) {
weechat::config_set_desc_plugin($_, Nlib::get_desc_from_pod($sf, $_));
}
weechat::WEECHAT_RC_OK
}
sub stop_multiline {
magic_enter_cancel();
if (need_magic_enter()) {
my ($enter_key) = get_key_command($KEY_RET);
do_key_bind($KEY_RET, INPUT_NL)
if defined $enter_key && $enter_key eq INPUT_MAGIC;
}
if ($WEECHAT_PASTE_FIX_CTRLJ_CMD) {
do_key_bind(Nlib::get_key_name('ctrl-j'), $WEECHAT_PASTE_FIX_CTRLJ_CMD);
$WEECHAT_PASTE_FIX_CTRLJ_CMD = undef;
}
if (weechat::config_string_to_boolean(weechat::config_get_plugin('ipl'))) {
do_key_bind($KEY_RET, '!');
}
weechat::WEECHAT_RC_OK
}