Copyright	(c) Thomas Tuegel 2011
License	BSD
Maintainer	Thomas Tuegel <ttuegel@gmail.com>
Stability	experimental
Portability	non-portable (Linux only)
Safe Haskell	Safe
Language	Haskell98

Sound.ALSA.Mixer

Contents

Types
Functions
Examples
- Getting and setting the volume of a Control
- Getting and setting the switch of a Control

Description

This library provides bindings to the Advanced Linux Sound Architecture (ALSA) library API. The portability of this library is limited to systems with ALSA (i.e., Linux systems). The functions in this library throw errors of type T on failure.

Synopsis

data Control = Control {
- index :: Integer
- name :: String
- switch :: Either Switch (Maybe Switch, Maybe Switch)
- volume :: Either Volume (Maybe Volume, Maybe Volume)
}
data Mixer
data Channel
- = Unknown
- | FrontLeft
- | SND_MIXER_SCHN_MONO
- | FrontRight
- | RearLeft
- | RearRight
- | FrontCenter
- | Woofer
- | SideLeft
- | SideRight
- | RearCenter
- | Last
data PerChannel e
- = Joined {
  - getJoined :: IO e
  - setJoined :: e -> IO ()
  - joinedChannels :: [Channel]
  }
- | PerChannel {
  - getPerChannel :: IO [(Channel, e)]
  - setPerChannel :: [(Channel, e)] -> IO ()
  - perChannels :: [Channel]
  }
data Volume = Volume {
- getRange :: IO (Integer, Integer)
- setRange :: (Integer, Integer) -> IO ()
- getRangeDb :: IO (Integer, Integer)
- value :: PerChannel Integer
- dB :: PerChannel Integer
}
type Switch = PerChannel Bool
controls :: Mixer -> IO [Control]
withMixer :: String -> (Mixer -> IO a) -> IO a
getControlByName :: Mixer -> String -> IO (Maybe Control)
common :: Either a (Maybe a, Maybe a) -> Maybe a
playback :: Either a (Maybe a, Maybe a) -> Maybe a
capture :: Either a (Maybe a, Maybe a) -> Maybe a
channels :: PerChannel e -> [Channel]
allChannels :: [Channel]
joined :: PerChannel e -> Bool
perChannel :: PerChannel e -> Bool
getChannel :: Channel -> PerChannel x -> IO (Maybe x)
setChannel :: Channel -> PerChannel x -> x -> IO ()

Types

data Control Source #

Control represents one of the controls belonging to an ALSA mixer element. Each control has a number of playback and capture channels. The control may also have a switch and/or a volume capability associated with it. The capability can be common to both playback and capture, or there can be separate capabilities for each.

Constructors

Control
Fields index :: Integer name :: String switch :: Either Switch (Maybe Switch, Maybe Switch) volume :: Either Volume (Maybe Volume, Maybe Volume)

data Mixer Source #

data Channel Source #

Constructors

Unknown
FrontLeft
SND_MIXER_SCHN_MONO
FrontRight
RearLeft
RearRight
FrontCenter
Woofer
SideLeft
SideRight
RearCenter
Last

Instances

Enum Channel Source #
Instance details Defined in Sound.ALSA.Mixer.Internal Methods succ :: Channel -> Channel # pred :: Channel -> Channel # toEnum :: Int -> Channel # fromEnum :: Channel -> Int # enumFrom :: Channel -> [Channel] # enumFromThen :: Channel -> Channel -> [Channel] # enumFromTo :: Channel -> Channel -> [Channel] # enumFromThenTo :: Channel -> Channel -> Channel -> [Channel] #
Eq Channel Source #
Instance details Defined in Sound.ALSA.Mixer.Internal Methods (==) :: Channel -> Channel -> Bool # (/=) :: Channel -> Channel -> Bool #
Read Channel Source #
Instance details Defined in Sound.ALSA.Mixer.Internal Methods readsPrec :: Int -> ReadS Channel # readList :: ReadS [Channel] # readPrec :: ReadPrec Channel # readListPrec :: ReadPrec [Channel] #
Show Channel Source #
Instance details Defined in Sound.ALSA.Mixer.Internal Methods showsPrec :: Int -> Channel -> ShowS # show :: Channel -> String # showList :: [Channel] -> ShowS #

data PerChannel e Source #

PerChannel represents a capability that with either a separate value for each channel or with a common value for all channels.

Constructors

Joined
Fields getJoined :: IO e setJoined :: e -> IO () joinedChannels :: [Channel]
PerChannel
Fields getPerChannel :: IO [(Channel, e)] setPerChannel :: [(Channel, e)] -> IO () perChannels :: [Channel]

data Volume Source #

Volume represents a volume capability. There may be a separate value per channel, but each capability has only one range.

Constructors

Volume

Fields

getRange :: IO (Integer, Integer)
Returns the minimum and maximum volumes (unitless).
setRange :: (Integer, Integer) -> IO ()
Sets the minimum and maximum volumes (unitless).
getRangeDb :: IO (Integer, Integer)
Returns the minimum and maximum volumes in hundredths of a decibel.
value :: PerChannel Integer
Volume values for each channel.
dB :: PerChannel Integer
Volume values for each channel in hundredths of a decibel.

type Switch = PerChannel Bool Source #

Switch represents a switch capability for controls and channels that can be muted and unmuted.

Functions

Mixers

controls :: Mixer -> IO [Control] Source #

All the Control objects associated with a particular Mixer.

withMixer :: String -> (Mixer -> IO a) -> IO a Source #

Perform an IO action with the named mixer. An exception of type T will be thrown if the named mixer cannot be found. A mixer named "default" should always exist.

Controls

getControlByName Source #

Arguments

:: Mixer	Mixer
-> String	Control name
-> IO (Maybe Control)

Get the named Control, if it exists, from the named Mixer.

common :: Either a (Maybe a, Maybe a) -> Maybe a Source #

For a given capability, which may be for either playback or capture, or common to both, return the common capability if it exists.

playback :: Either a (Maybe a, Maybe a) -> Maybe a Source #

For a given capability, which may be for either playback or capture, or common to both, return the playback capability if it exists.

capture :: Either a (Maybe a, Maybe a) -> Maybe a Source #

For a given capability, which may be for either playback or capture, or common to both, return the capture capability if it exists.

PerChannels

channels :: PerChannel e -> [Channel] Source #

All channels supported by a PerChannel object.

allChannels :: [Channel] Source #

joined :: PerChannel e -> Bool Source #

True if the PerChannel object has a common value for all channels.

perChannel :: PerChannel e -> Bool Source #

True if the PerChannel object has a separate value for each channel.

getChannel :: Channel -> PerChannel x -> IO (Maybe x) Source #

Get the value associated with a particular channel, if that channel exists.

setChannel :: Channel -> PerChannel x -> x -> IO () Source #

Set the value associated with a particular channel, if that channel exists.

Examples

Getting and setting the volume of a Control

This example demonstrates the method of accessing the volume of a Control. The example function reads the volume and increases it by the value supplied.

  changeVolumeBy :: Integer -> IO ()
  changeVolumeBy i =
      withMixer "default" $ \mixer ->
        do Just control <- getControlByName mixer "Master"
           let Just playbackVolume = playback $ volume control
           (min, max) <- getRange playbackVolume
           Just vol <- getChannel FrontLeft $ value $ playbackVolume
           when ((i > 0 && vol < max) || (i < 0 && vol > min))
             $ setChannel FrontLeft (value $ playbackVolume) $ vol + i

Getting and setting the switch of a Control

This example demonstrates the method of accessing the switch of a Control. The example function reads the value of the switch and toggles it.

  toggleMute :: IO ()
  toggleMute =
      withMixer "default" $ \mixer ->
        do Just control <- getControlByName mixer "Master"
           let Just playbackSwitch = playback $ switch control
           Just sw <- getChannel FrontLeft playbackSwitch
           setChannel FrontLeft playbackSwitch $ not sw