Add screenshot-region utility

476589d1a354087770b7a1a9140393c92ff08b0e
Alexis Sellier committed ago 1 parent b8a4fad8
.xmonad/xmonad.hs +1 -0
85 85
       , ((modMask, xK_F5),                     safeSpawn "refresh-display" [])
86 86
       , ((modMask, xK_p),                      rofi)
87 87
       , ((modMask, xK_Tab),                    toggleWS)
88 88
       , ((modMask .|. controlMask, xK_Return), toggleFloatNext >> (spawn $ XMonad.terminal conf))
89 89
       , ((noModMask, xK_Print),                spawn $ printf "scrot -u -e 'mv $f %s/screenshots'" home)
90 +
       , ((modMask, xK_Print),                  safeSpawn "screenshot-region" [])
90 91
       , ((noModMask, 0x1008ff02),              safeSpawn "xbacklight" ["-inc", "10"]) -- XF86MonBrightnessUp
91 92
       , ((noModMask, 0x1008ff03),              safeSpawn "xbacklight" ["-dec", "10"]) -- XF86MonBrightnessDown
92 93
       ]
93 94
    dmenu :: X ()
94 95
    dmenu = safeSpawn
bin/screenshot-region added +5 -0
1 +
#!/bin/sh
2 +
3 +
FILEPATH="$(readlink -f $HOME/screenshots)/screenshot-$(date +"%Y-%m-%d@%T").png"
4 +
scrot -s $FILEPATH
5 +
echo -n "$(dropbox-cli sharelink $FILEPATH)" | xclip -i