packages feed

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 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