From 15614d7ef70b8f5ae758b6154a62f1b014327c0d Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 2 Jun 2023 21:50:33 +0200 Subject: ... --- accounts/gkleen@sif/xmonad/xmonad.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'accounts/gkleen@sif/xmonad/xmonad.hs') 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) -- cgit v1.2.3