xmonad-volume 0.1.0.0 → 0.1.0.1
raw patch · 4 files changed
+12/−13 lines, 4 filesdep −xmonadPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependencies removed: xmonad
API changes (from Hackage documentation)
- XMonad.Util.ALSA: lowerVolume :: Integer -> X ()
+ XMonad.Util.ALSA: lowerVolume :: MonadIO m => Integer -> m ()
- XMonad.Util.ALSA: raiseVolume :: Integer -> X ()
+ XMonad.Util.ALSA: raiseVolume :: MonadIO m => Integer -> m ()
- XMonad.Util.ALSA: volumeKeys :: Map (KeyMask, KeySym) (X ()) -> Map (KeyMask, KeySym) (X ())
+ XMonad.Util.ALSA: volumeKeys :: MonadIO m => Map (KeyMask, KeySym) (m ()) -> Map (KeyMask, KeySym) (m ())
Files
- CHANGELOG.md +5/−0
- cabal.project.local +0/−5
- src/XMonad/Util/ALSA.hs +5/−5
- xmonad-volume.cabal +2/−3
CHANGELOG.md view
@@ -1,5 +1,10 @@ # xmonad-volume +## 0.1.0.1++ * Generalize type signatures+ * Remove dependency on `xmonad`+ ## 0.1.0.0 Initial release
cabal.project.local view
@@ -1,6 +1,1 @@ constraints: xmonad-volume +development-tests: True-benchmarks: True-documentation: True-haddock-hoogle: True-haddock-internal: True
src/XMonad/Util/ALSA.hs view
@@ -12,11 +12,11 @@ import Control.Arrow (first) import Control.Composition import Control.Monad+import Control.Monad.IO.Class import qualified Data.Map as M import Graphics.X11.ExtraTypes.XF86 import Graphics.X11.Types import Sound.ALSA.Mixer-import XMonad -- | Mute/unmute within the `X` Monad. toggleMute :: MonadIO m => m ()@@ -42,19 +42,19 @@ setChannel channel (value playbackVolume) $ vol + i' -- | Raise volume-raiseVolume :: Integer -> X ()+raiseVolume :: MonadIO m => Integer -> m () raiseVolume = axe [ changeVolume FrontLeft, changeVolume FrontRight ] -- | Lower volume-lowerVolume :: Integer -> X ()+lowerVolume :: MonadIO m => Integer -> m () lowerVolume = axe [ changeVolume FrontLeft, changeVolume FrontRight ] . negate -- | Given your keymaps, add volume control keybindings.-volumeKeys :: M.Map (KeyMask, KeySym) (X ()) -> M.Map (KeyMask, KeySym) (X ())+volumeKeys :: MonadIO m => M.Map (KeyMask, KeySym) (m ()) -> M.Map (KeyMask, KeySym) (m ()) volumeKeys = M.union mediaKeyMap where mediaKeyMap = M.fromList volumeKeyList -volumeKeyList :: [((KeyMask, KeySym), X ())]+volumeKeyList :: MonadIO m => [((KeyMask, KeySym), m ())] volumeKeyList = go <$> [ (xF86XK_AudioMute, toggleMute) , (xF86XK_AudioLowerVolume, lowerVolume 5) , (xF86XK_AudioRaiseVolume, raiseVolume 5)
xmonad-volume.cabal view
@@ -1,6 +1,6 @@ cabal-version: 1.18 name: xmonad-volume-version: 0.1.0.0+version: 0.1.0.1 license: BSD3 license-file: LICENSE copyright: Copyright: (c) 2018 Vanessa McHale@@ -35,9 +35,8 @@ other-extensions: TupleSections ghc-options: -Wall build-depends:- base >=4.3 && <5,+ base >=4.8 && <5, alsa-mixer -any,- xmonad -any, X11 -any, containers -any, composition-prelude -any