up

1 files changed, 76 insertions, 0 deletions

diff --git a/.config/nnn/plugins/joe_clipper b/.config/nnn/plugins/joe_clipper
new file mode 100755
index 0000000..8c0fa5d
--- /dev/null
+++ b/.config/nnn/plugins/joe_clipper
@@ -0,0 +1,76 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Cwd qw(cwd);
+
+sub close_io
+{
+	open STDIN,  '<', '/dev/null' or die $!;
+	open STDOUT, '>', '/dev/null' or die $!;
+	open STDERR, '>', '/dev/null' or die $!;
+	return;
+}
+
+sub clip_img
+{
+	my ($file) = @_;
+	my $pid;
+
+	$pid = fork();
+	if ($pid == 0) {
+		system("magick $file png:- | xclip -selection clipboard -t image/png");
+		exec(
+			'notify-send',
+			'-t', '2000',
+			'clipped image',
+			'  clipped image'
+		);
+	}
+	return;
+}
+
+sub clip_raw
+{
+	my ($file) = @_;
+
+	my $pid;
+
+	$pid = fork();
+	if ($pid == 0) {
+		system( "xclip -selection clipboard $file");
+		exec(
+			'notify-send',
+			'-t', '2000',
+			'clipped file',
+			'  clipped file'
+		);
+	}
+	return;
+}
+
+sub clip
+{
+	my ($file, $mimetype) = @_;
+
+	return clip_img($file) if $mimetype =~ /^image\//;
+	clip_raw($file);
+	return;
+}
+
+sub joe_clipper
+{
+	my $file = cwd() . '/' . $ARGV[0];
+	my $mimetype;
+
+	if (-d $file) {
+		return;
+	}
+    $mimetype=`file -bL --mime-type -- "$file"`;
+	clip($file, $mimetype);
+	return;
+}
+
+joe_clipper();
+
+__END__