From: bw1 <redacted>
Date: Tue, 25 Jun 2019 15:31:59 +0000 (+0200)
Subject: [copy] add copy.pl
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=37dcdbfd410fad537902c2fad30c14b56de4ef4f;p=irssi-scripts.irssi.org.git

[copy] add copy.pl
---

diff --git a/scripts/copy.pl b/scripts/copy.pl
new file mode 100644
index 0000000..a617e88
--- /dev/null
+++ b/scripts/copy.pl
@@ -0,0 +1,249 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+use Irssi::UI;
+use Irssi::TextUI;
+use MIME::Base64;
+
+$VERSION = '0.03';
+%IRSSI = (
+	authors	=> 'vague,bw1',
+	contact	=> 'bw1@aol.at',
+	name	=> 'copy',
+	description	=> 'copy a line in a paste buffer',
+	license	=> 'Public Domain',
+	url		=> 'https://scripts.irssi.org/',
+	changed	=> '2019-06-25',
+	modules => 'MIME::Base64',
+	commands=> 'copy',
+);
+
+my $help = << "END";
+%9Name%9
+  $IRSSI{name}
+%9Version%9
+  $VERSION
+%9Synopsis%9
+  /copy [number]
+  /copy <-f word>
+%9Description%9
+  $IRSSI{description}
+
+  Tested with xterm, tmux, screen and ssh
+  see man xterm /disallowedWindowOps
+%9Settings%9
+  $IRSSI{name}_selection
+    c   clipboard
+    p   primary
+    q   secondary
+    s   select
+    0-7 cut buffers
+  $IRSSI{name}_method
+    xterm
+    xclip
+    xsel
+    screen
+    print
+%9See also%9
+  https://www.freecodecamp.org/news/tmux-in-practice-integration-with-system-clipboard-bcd72c62ff7b/
+  http://anti.teamidiot.de/static/nei/*/Code/urxvt/
+  https://invisible-island.net/xterm/ctlseqs/ctlseqs.html#h2-Operating-System-Commands
+END
+
+# Thanks
+#
+# dive
+#   /tmp/screen-exchange
+# nei
+#   http://anti.teamidiot.de/static/nei/*/Code/urxvt/
+# vague
+#   line buffer
+
+my ($copy_selection, $copy_method);
+
+
+sub cmd_copy {
+	my ($args, $server, $witem)=@_;
+	my ($opt, $arg) = Irssi::command_parse_options('copy', $args);
+	if (exists $opt->{f}) {
+		cmd_find($opt->{f}, $server, $witem);
+	} else {
+		cmd_num($args, $server, $witem);
+	}
+}
+
+sub cmd_find {
+	my ($args, $server, $witem)=@_;
+	my $line=Irssi::active_win->view->{startline};
+	my $str;
+	while ( defined $line ) {
+		my $s= $line->get_text(0);
+		if ( $s =~ /$args/ ) {
+			$str =$s;
+			last;
+		}
+		$line= $line->next();
+	}
+	if (defined $str) {
+		paste ($str);
+	}
+}
+
+sub cmd_num {
+	my ($args, $server, $witem)=@_;
+	my $line=Irssi::active_win->view->{buffer}{cur_line};
+	$args=1 if ($args==0);
+	$args=$args-1;
+	unless (defined $line) {
+		Irssi::print('No Copy!', MSGLEVEL_CLIENTCRAP);
+		return();
+	}
+	for(1..$args) {
+		my $l=$line->prev;
+		if (defined $l) {
+			$line= $l;
+		} else {
+			last;
+		}
+	}
+	my $str=$line->get_text(0);
+	paste ($str);
+}
+
+sub paste {
+	my ($str)= @_;
+	if ( $copy_method eq 'xterm' ) {
+		paste_xterm($str, $copy_selection);
+	} elsif ( $copy_method eq 'xclip' ) {
+		paste_xclip($str, $copy_selection);
+	} elsif ( $copy_method eq 'xsel' ) {
+		paste_xsel($str, $copy_selection);
+	} elsif ( $copy_method eq 'screen' ) {
+		paste_screen($str, $copy_selection);
+	} elsif ( $copy_method eq 'print' ) {
+		paste_print($str, $copy_selection);
+	}
+}
+
+sub paste_print {
+	my ($str, $par)= @_;
+	Irssi::print($str, MSGLEVEL_CLIENTCRAP);
+}
+
+sub paste_screen {
+	my ($str, $par)= @_;
+	my $fn= '/tmp/screen-exchange';
+	open my $fa, ">", $fn;
+	print $fa $str;
+	close $fa;
+}
+
+sub paste_xclip {
+	my ($str, $par)= @_;
+	my %ma= (
+		0=>'buffer-cut',
+		p=>'primary',
+		q=>'secondary',
+		c=>'clipboard',
+	);
+	my $sel= $ma{substr($par,0,1)};
+	if (defined $sel) {
+		$sel= "-selection $sel";
+	}
+	my $cmd="xclip -i $sel";
+	open my $fa, "|-", $cmd;
+	print $fa $str;
+	close $fa;
+}
+
+sub paste_xsel {
+	my ($str, $par)= @_;
+	my %ma= (
+		p=>'--primary',
+		q=>'--secondary',
+		c=>'--clipboard',
+	);
+	my $sel= $ma{substr($par,0,1)};
+	my $cmd="xsel -i $sel";
+	open my $fa, "|-", $cmd;
+	print $fa $str;
+	close $fa;
+}
+
+sub paste_xterm {
+	my ($str,$par)=@_;
+	my $b64=encode_base64($str,'');
+	#print STDERR "\033]52;cpqs01234;".$b64."\007";
+	my $pstr="\033]52;".$par.";".$b64."\007";
+	if ($ENV{TERM} =~ m/^xterm/) {
+		print STDERR  $pstr;
+	} elsif ($ENV{TERM} eq 'screen') {
+		# tmux
+		if (defined $ENV{TMUX}) {
+			my $tc = `tmux list-clients`;
+			$ENV{TMUX} =~ m/,(\d+)$/;
+			my $tcn =$1;
+			my $pty;
+			foreach (split /\n/,$tc) {
+	$_ =~ m/^(.*?): (\d+)/;
+	if ($tcn == $2) {
+		$pty = $1;
+		last();
+	}
+			}
+			my $fa;
+			open $fa,'>',$pty;
+			print $fa $pstr;
+			close $fa;
+		# screen
+		} elsif (defined $ENV{STY}) {
+			$ENV{STY} =~ m/\..*?-(\d+)\./;
+			my $pty = "/dev/pts/$1";
+			my $fa;
+			open $fa,'>',$pty;
+			print $fa $pstr;
+			close $fa;
+		}
+	}
+}
+
+sub cmd_help {
+	my ($args, $server, $witem)=@_;
+	$args=~ s/\s+//g;
+	if ($IRSSI{name} eq $args) {
+		Irssi::print($help, MSGLEVEL_CLIENTCRAP);
+		Irssi::signal_stop();
+	}
+}
+
+sub sig_setup_changed {
+	my $cs= Irssi::settings_get_str($IRSSI{name}.'_selection');
+	if ($cs =~ m/^[cpqs0-7]*$/ ) {
+		$copy_selection=$cs;
+	} else {
+		$cs =~ s/[^cpqs0-7]//g;
+		$copy_selection=$cs;
+		Irssi::settings_set_str($IRSSI{name}.'_selection', $cs);
+	}
+	my $cm= Irssi::settings_get_str($IRSSI{name}.'_method');
+	my %md=(xterm=>1, xclip=>1, xsel=>1, screen=>1, print=>1 );
+	if (exists $md{$cm} ) {
+		$copy_method= $cm;
+	} else {
+		$cm= $copy_method;
+		Irssi::settings_set_str($IRSSI{name}.'_method', $cm);
+	}
+}
+
+Irssi::signal_add('setup changed', \&sig_setup_changed);
+
+Irssi::settings_add_str($IRSSI{name} ,$IRSSI{name}.'_selection', '');
+Irssi::settings_add_str($IRSSI{name} ,$IRSSI{name}.'_method', 'xterm');
+
+Irssi::command_bind($IRSSI{name}, \&cmd_copy);
+Irssi::command_bind('help', \&cmd_help);
+
+Irssi::command_set_options('copy','+f');
+
+sig_setup_changed();