blob: c7814a8cd2355803ec73b8083160cde5fcd35e83 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
module Plugins.Monitors.Volume (runVolume, volumeConfig) where
import Control.Monad ( liftM )
import Data.Maybe
import Plugins.Monitors.Common
import Sound.ALSA.Mixer
percent :: Integer -> Integer -> Integer -> Float
percent v' lo' hi' = (v - lo) / (hi - lo)
where v = fromIntegral v'
lo = fromIntegral lo'
hi = fromIntegral hi'
volumeConfig :: IO MConfig
volumeConfig = mkMConfig "Vol: <volume>% <fc=green><on></fc><fc=red><off></fc>"
["volume","dB","on","off"]
runVolume :: String -> String -> [String] -> Monitor String
runVolume mixerName controlName _ = do
control <- liftM fromJust $ io $ getControlByName mixerName controlName
let volumeControl = fromJust $ maybe (playback $ volume control) Just
(common $ volume control)
switchControl = fromJust $ maybe (playback $ switch control) Just
(common $ switch control)
(lo, hi) <- io $ getRange volumeControl
val <- liftM fromJust $ io $ getChannel FrontLeft $ value volumeControl
db <- liftM fromJust $ io $ getChannel FrontLeft $ dB volumeControl
sw <- liftM fromJust $ io $ getChannel FrontLeft $ switchControl
p <- showPercentsWithColors [ percent val lo hi ]
let d :: Double
d = fromIntegral db / 100.0
dStr = showDigits 2 d
parseTemplate $ p ++ [ dStr ]
++ [ if sw then "[on] " else ""
, if sw then "" else "[off]"
]
|
