summaryrefslogtreecommitdiffstats
path: root/scripts/paste_huggie.pl
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-15 20:19:02 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-15 20:19:02 +0000
commit03929dac2a29664878d2c971648a4fe1fb698462 (patch)
tree02c5e2b3e006234aa29545f7a93a1ce01b291a8b /scripts/paste_huggie.pl
parentInitial commit. (diff)
downloadirssi-scripts-03929dac2a29664878d2c971648a4fe1fb698462.tar.xz
irssi-scripts-03929dac2a29664878d2c971648a4fe1fb698462.zip
Adding upstream version 20231031.upstream/20231031upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'scripts/paste_huggie.pl')
-rw-r--r--scripts/paste_huggie.pl187
1 files changed, 187 insertions, 0 deletions
diff --git a/scripts/paste_huggie.pl b/scripts/paste_huggie.pl
new file mode 100644
index 0000000..25a8916
--- /dev/null
+++ b/scripts/paste_huggie.pl
@@ -0,0 +1,187 @@
+# Paste script for irssi
+# (C) Simon Huggins 2002
+# huggie@earth.li
+
+# Reformat pasted text ready to paste onto channels.
+
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by the Free
+# Software Foundation; either version 2 of the License, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+# for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc., 59
+# Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+use Irssi 20020217.1542 (); # Version 0.8.1
+$VERSION = "0.5";
+%IRSSI = (
+authors => "Simon Huggins",
+contact => "huggie-irssi\@earth.li",
+name => "Paste",
+description => "Paste reformats long pieces of text typically pasted into your client from webpages so that they fit nicely into your channel. Width of client may be specified",
+license => "GPLv2",
+url => "http://the.earth.li/~huggie/irssi/",
+changed => "Sat Mar 9 10:59:49 GMT 2002",
+);
+
+use Irssi::Irc;
+use Text::Wrap;
+use Text::Tabs;
+use POSIX qw(strftime);
+
+=pod
+
+=head1 paste.pl
+
+B<paste.pl> - a script for irssi to manage reformatting before pasting to channels
+
+To stop people pasting from webpages with very poor formatting this script
+allows you to reformat as you paste.
+
+=head1 USAGE
+
+Load the script then create a new unused window and paste your text into it.
+The defaults should be reasonable so then B</paste> will paste it in the
+current window (either by saying it to the current channel, msging it to the
+current recipient in a query window or by printing it up as client messages
+in a blank window).
+
+Try altering I<paste_width> (0 is the autoformatted default based on your
+nick length) to affect the width of the pasted text.
+
+Alter I<paste_prefix> to change the prefix added to each line (B</set -clear
+paste_prefix> to remove it altogether).
+
+Set I<paste_showbuf> to show the lines pasted into the buffer as you paste it.
+
+=head1 AUTHOR
+
+Send suggestions to Simon Huggins <huggie@earth.li>
+
+=cut
+
+my $pastewin;
+
+BEGIN {
+ $pastewin = Irssi::window_find_name('paste');
+ if (!$pastewin) {
+ Irssi::command("window new hide");
+ Irssi::command("window name paste");
+ $pastewin = Irssi::window_find_name('paste');
+ }
+ $pastewin->print(">>> Paste your buffer here to start <<<");
+}
+
+Irssi::settings_add_bool("paste","paste_showbuf",0);
+Irssi::settings_add_int("paste","paste_width",0);
+Irssi::settings_add_str("paste","paste_prefix",">> ");
+
+{
+ my @buffer;
+ my $buf=0;
+ my $last_ts;
+
+sub event_send_text {
+ my ($line, $server, $windowitem) = @_;
+
+ return if $windowitem;
+
+ if ($last_ts < (time() - 60)) {
+ @buffer=();
+ $buf= 0;
+ $pastewin->print("Buffer cleared!");
+ }
+ $line =~ s/^\s+/ /;
+ $line =~ s/\s+$/ /;
+ $buffer[$buf] .= $line." ";
+
+ if (!$line and $buffer[$buf] ne "") {
+ $buf++;
+ }
+
+ if (Irssi::settings_get_bool("paste_showbuf")) {
+ $pastewin->print($line,MSGLEVEL_CLIENTCRAP);
+ }
+ $last_ts = time();
+
+ Irssi::signal_stop();
+}
+
+sub paste {
+ my ($data, $server, $witem) = @_;
+
+ my $offset;
+
+ if (!$buf and $buffer[0] eq "") {
+ $pastewin->print("No buffer to paste!",MSGLEVEL_HILIGHT);
+ return;
+ }
+
+ my $anyoldwin = Irssi::active_win();
+ my $width = Irssi::settings_get_int("paste_width");
+ my $prefix = Irssi::settings_get_str("paste_prefix");
+ my $prefixlen = length($prefix);
+ if ($width > 0) {
+ if ($width < 3+$prefixlen) {
+ $pastewin->print("paste_width is too small ($width<".
+ (3+$prefixlen).")!",
+ MSGLEVEL_HILIGHT);
+ return;
+ }
+ $Text::Wrap::columns = $width;
+ } else {
+ if ($server->{nick}) {
+ $offset+=length($server->{nick})+$prefixlen+15;
+ }
+ $Text::Wrap::columns = $anyoldwin->{'width'} - $offset;
+ if ($Text::Wrap::columns < 3+$prefixlen) {
+ $pastewin->print("Width would be too small (".
+ $Text::Wrap::columns."<".
+ (3+$prefixlen).", window width was ".
+ $anyoldwin->{'width'}.
+ ")!",
+ MSGLEVEL_HILIGHT);
+ return;
+ }
+ }
+
+ foreach my $outbuffer (@buffer) {
+ $outbuffer =~ s/^\s*//;
+ $outbuffer =~ s/\s*$//;
+ $outbuffer = wrap("","", $outbuffer);
+ $outbuffer = expand($outbuffer);
+
+ if ($witem) {
+ foreach (split '\n', $outbuffer) {
+ $witem->command("say ".$prefix.$_);
+ }
+ } else {
+ foreach (split '\n', $outbuffer) {
+ $anyoldwin->print($prefix.$_, MSGLEVEL_HILIGHT);
+ }
+ }
+ }
+}
+
+sub clear_buffer {
+ @buffer = ();
+ $buf = 0;
+ $pastewin->print("Buffer cleared!");
+}
+
+}
+
+Irssi::signal_add_first("send text", "event_send_text");
+Irssi::command_bind("paste", "paste");
+Irssi::command_bind("clear_buffer", "clear_buffer");