...

1 files changed, 6 insertions, 0 deletions

diff --git a/accounts/gkleen@sif/xmonad/xmonad.hs b/accounts/gkleen@sif/xmonad/xmonad.hs
index 906cc663..326749c9 100644
--- a/accounts/gkleen@sif/xmonad/xmonad.hs
+++ b/accounts/gkleen@sif/xmonad/xmonad.hs
@@ -24,6 +24,7 @@ import XMonad.Prompt
 import XMonad.Prompt.Input
 import XMonad.Util.Scratchpad
 import XMonad.Util.NamedScratchpad
+import XMonad.Util.Ungrab
 import Control.Monad (sequence, liftM, liftM2, join, void)
 import XMonad.Util.WorkspaceCompare
 import XMonad.Layout.NoBorders
@@ -867,6 +868,11 @@ myKeys' conf host = Map.fromList $
     , ((0, xF86XK_AudioPause), mediaMpv $ MpvSetProperty "pause" False)
     , ((0, {-xF86XK_AudioMicMute-} 269025202), safeSpawn "pulseaudio-ctl" ["mute-input"])
     , ((0, xF86XK_AudioPlay), mediaMpvTogglePause)
+    , ((0, xK_Print), do
+          home <- liftIO getHomeDirectory
+          unGrab
+          safeSpawn "scrot" ["-s", "-F", home </> "screenshots" </> "%Y-%m-%dT%H:%M:%S.png", "-e", "xclip -selection clipboard -t image/png -i $f"]
+      )
     , ((modm .|. mod1Mask, xK_space), mediaMpvTogglePause)
 
     -- , ((0, xF86XK_MonBrightnessDown), backlight . cycleThrough $ reverse brCycle)