summaryrefslogtreecommitdiff
path: root/accounts/gkleen@sif/xmonad/xmonad.hs
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2023-06-02 21:50:33 +0200
committerGregor Kleen <gkleen@yggdrasil.li>2023-06-02 21:50:33 +0200
commit15614d7ef70b8f5ae758b6154a62f1b014327c0d (patch)
tree10f5869d0293dc553d0b89d7bc0bed9c6d0d6ae9 /accounts/gkleen@sif/xmonad/xmonad.hs
parentcd66dd1c162443cb5e7d8f7e086191f4eb56fcc5 (diff)
downloadnixos-15614d7ef70b8f5ae758b6154a62f1b014327c0d.tar
nixos-15614d7ef70b8f5ae758b6154a62f1b014327c0d.tar.gz
nixos-15614d7ef70b8f5ae758b6154a62f1b014327c0d.tar.bz2
nixos-15614d7ef70b8f5ae758b6154a62f1b014327c0d.tar.xz
nixos-15614d7ef70b8f5ae758b6154a62f1b014327c0d.zip
...
Diffstat (limited to 'accounts/gkleen@sif/xmonad/xmonad.hs')
-rw-r--r--accounts/gkleen@sif/xmonad/xmonad.hs6
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
24import XMonad.Prompt.Input 24import XMonad.Prompt.Input
25import XMonad.Util.Scratchpad 25import XMonad.Util.Scratchpad
26import XMonad.Util.NamedScratchpad 26import XMonad.Util.NamedScratchpad
27import XMonad.Util.Ungrab
27import Control.Monad (sequence, liftM, liftM2, join, void) 28import Control.Monad (sequence, liftM, liftM2, join, void)
28import XMonad.Util.WorkspaceCompare 29import XMonad.Util.WorkspaceCompare
29import XMonad.Layout.NoBorders 30import XMonad.Layout.NoBorders
@@ -867,6 +868,11 @@ myKeys' conf host = Map.fromList $
867 , ((0, xF86XK_AudioPause), mediaMpv $ MpvSetProperty "pause" False) 868 , ((0, xF86XK_AudioPause), mediaMpv $ MpvSetProperty "pause" False)
868 , ((0, {-xF86XK_AudioMicMute-} 269025202), safeSpawn "pulseaudio-ctl" ["mute-input"]) 869 , ((0, {-xF86XK_AudioMicMute-} 269025202), safeSpawn "pulseaudio-ctl" ["mute-input"])
869 , ((0, xF86XK_AudioPlay), mediaMpvTogglePause) 870 , ((0, xF86XK_AudioPlay), mediaMpvTogglePause)
871 , ((0, xK_Print), do
872 home <- liftIO getHomeDirectory
873 unGrab
874 safeSpawn "scrot" ["-s", "-F", home </> "screenshots" </> "%Y-%m-%dT%H:%M:%S.png", "-e", "xclip -selection clipboard -t image/png -i $f"]
875 )
870 , ((modm .|. mod1Mask, xK_space), mediaMpvTogglePause) 876 , ((modm .|. mod1Mask, xK_space), mediaMpvTogglePause)
871 877
872 -- , ((0, xF86XK_MonBrightnessDown), backlight . cycleThrough $ reverse brCycle) 878 -- , ((0, xF86XK_MonBrightnessDown), backlight . cycleThrough $ reverse brCycle)