diff options
| -rwxr-xr-x | bin/screenshot | 20 | ||||
| -rw-r--r-- | i3/config | 3 |
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; @@ -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 |