diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-11-17 00:11:25 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-11-17 00:11:42 -0600 |
commit | deae601b04450aca122b247a8216e362105ac843 (patch) | |
tree | a986a5636e4b22fe4c27aec54987437fc9cc16e6 /bin | |
parent | d2b2f3ae35c72df8170cb2f58a8bc1b60727e417 (diff) | |
download | conf-deae601b04450aca122b247a8216e362105ac843.tar.gz conf-deae601b04450aca122b247a8216e362105ac843.zip |
add screenshot nopaste script
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/screenshot | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/bin/screenshot b/bin/screenshot new file mode 100755 index 0000000..2471bc8 --- /dev/null +++ b/bin/screenshot @@ -0,0 +1,20 @@ +#!/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; |