diff options
Diffstat (limited to 'bin/screenshot')
-rwxr-xr-x | bin/screenshot | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/bin/screenshot b/bin/screenshot deleted file mode 100755 index 2471bc8..0000000 --- a/bin/screenshot +++ /dev/null @@ -1,20 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use 5.010; - -use Clipboard; -use File::Temp 'tempfile'; - -my $file = File::Temp->new(SUFFIX => '.png', CLEANUP => 1); -my $filename = $file->filename; - -system( - "import", - (@ARGV && ($ARGV[0] eq '--full') ? (qw(-window root)) : ()), - $filename, -); - -chomp(my $url = `nopaste $filename`); -Clipboard->copy($url); -say $url; |