add screenshot nopaste script

2 files changed, 23 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;
diff --git a/i3/config b/i3/config
index 0b8dcd5..119823f 100644
--- a/i3/config
+++ b/i3/config
@@ -49,6 +49,9 @@ bindsym $mod+i exec dmenu -p "pwsafe -p" < /dev/null | xargs -I{} urxvtc -name p
 bindsym $mod+Shift+i exec dmenu -p "pwsafe -up" < /dev/null | xargs -I{} urxvtc -name pwsafe -geometry 47x2 -e pwsafe -up {}
 bindsym $mod+r exec dmenu_run
 
+bindsym --release $mod+s exec screenshot
+bindsym Print exec screenshot --full
+
 # XXX
 # bindsym $mod+Shift+o exec urxvtc; exec urxvtc; exec sleep 1; split v; exec urxvtc; exec urxvtc; exec sleep 1; focus left; split v; exec urxvtc