diff options
| author | azahi <azahi@teknik.io> | 2019-06-29 18:16:16 +0300 |
|---|---|---|
| committer | azahi <azahi@teknik.io> | 2019-06-29 18:16:16 +0300 |
| commit | 9394e86a2ea44c29035630f54d276bd9712746c9 (patch) | |
| tree | 765f36c517f1e99169741990d1923722d9515882 /src/XMonad/Custom/Bindings.hs | |
| parent | Bump version 0.15.3 (diff) | |
Replace alsa-mixer with external shell alternative
Modify fonts Remove urgency hook Remove selection notification Decrease spacing and apply it to bars Tweak colors
Diffstat (limited to '')
| -rw-r--r-- | src/XMonad/Custom/Bindings.hs | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/src/XMonad/Custom/Bindings.hs b/src/XMonad/Custom/Bindings.hs index 772b0ad..cbe5056 100644 --- a/src/XMonad/Custom/Bindings.hs +++ b/src/XMonad/Custom/Bindings.hs @@ -19,7 +19,6 @@ module XMonad.Custom.Bindings , mouseBindings ) where -import Control.Monad import qualified Data.Map as M import System.Exit import XMonad hiding (keys, modMask, @@ -77,9 +76,6 @@ zipKeys' m ks as f b = zipWith (\k d -> (m ++ k, f d b)) ks as tryMessageR_ :: (Message a, Message b) => a -> b -> X () tryMessageR_ x y = sequence_ [tryMessageWithNoRefreshToCurrent x y, refresh] --- xSelectionNotify :: MonadIO m => m () --- xSelectionNotify = join $ io --- $ unsafeSpawn . (\x -> C.notify C.applications ++ " Clipboard " ++ wrap "\"\\\"" "\"\\\"" x) <$> getSelection toggleCopyToAll :: X () toggleCopyToAll = wsContainingCopies >>= \case [] -> windows copyToAll @@ -132,7 +128,6 @@ keysSystem :: XConfig Layout -> [(String, X ())] keysSystem _ = [ ("M-C-g" , return ()) , ("<XF86ScreenSaver>" , spawn "~/.xmonad/scripts/screenlock.sh") - -- , ("M-S-c" , xSelectionNotify) , ("M-<Print>" , spawn "~/.xmonad/scripts/xshot-upload.sh") , ("M-S-<Print>" , spawn "~/.xmonad/scripts/xshot-select-upload.sh") , ("M-<Insert>" , spawn "~/.xmonad/scripts/xcast.sh --webm") @@ -146,11 +141,10 @@ keysSystem _ = keysMedia :: XConfig Layout -> [(String, X ())] keysMedia _ = - [ - -- , ("<XF86AudioMute>" , void toggleMute) - -- , ("<XF86AudioLowerVolume>" , void $ lowerVolume 5) - -- , ("<XF86AudioRaiseVolume>" , void $ raiseVolume 5) - ("<XF86AudioPlay>" , spawn "~/.xmonad/scripts/mpc-play-pause.sh") + [ ("<XF86AudioMute>" , spawn "amixer set Master toggle") + , ("<XF86AudioLowerVolume>" , spawn "amixer set Master 5-") + , ("<XF86AudioRaiseVolume>" , spawn "amixer set Master 5+") + , ("<XF86AudioPlay>" , spawn "~/.xmonad/scripts/mpc-play-pause.sh") , ("<XF86AudioStop>" , spawn "mpc --no-status stop") , ("<XF86AudioPrev>" , spawn "mpc --no-status prev") , ("<XF86AudioNext>" , spawn "mpc --no-status next") |