halved sensitivity

[powermate.git] / powermate.hs

diff --git a/powermate.hs b/powermate.hs
index 16a783f..dc8790e 100755 (executable)
--- a/powermate.hs
+++ b/powermate.hs
@@ -3,21 +3,37 @@ module Main where
 import PowerMate
 import System.IO
 import System.Process
+import Control.Monad
+import Text.Regex.Posix
 
 data State = State {
-  stPowerMate  :: Handle,
-  stVolume     :: Int
+  stPowerMate   :: Handle,
+  stVolume      :: Int,
+  stPrevDir     :: Int,
+  stPrevAction  :: Int
 }
 
 processEvent :: State -> Event -> IO State
 processEvent state (Button True) = do
   createProcess (proc "music-toggle" [])
   return state
-processEvent state (Button False) = return state
+processEvent state (Button False) = do
+  return state
 
 processEvent state (Rotate dir) = do
-  if dir < 2 then createProcess (proc "volume-up" [])
-  else createProcess (proc "volume-down" [])
+  state <- (if dir < 2
+              && (stPrevDir state) == 1
+              && (stPrevAction state) == 1
+                then volumeUp
+              else return) state
+  state <- (if dir > 2
+              && (stPrevDir state) == 0
+              && (stPrevAction state) == 0
+                then volumeDown
+              else return) state
+  state <- updatePrevState state (if dir < 2 then 1 else 0)
+  updateBrightness state
+  state <- updatePrevAction state (if (stPrevAction state) == 1 then 0 else 1)
   return state
 
 processEvent state (StatusChange status) = do
@@ -33,12 +49,68 @@ next state func = do
   next newstate func
   return ()
 
+updateBrightness :: State -> IO ()
+updateBrightness state = do
+  let brightness = (stVolume state)
+  writeStatus (stPowerMate state) $
+    statusInit { brightness=brightness }
+
+volumeUp :: State -> IO State
+volumeUp state = do
+  createProcess (proc "volume-up" [])
+  state <- readState $ State {
+    stPowerMate=(stPowerMate state),
+    stVolume=(max 0 $ 1+(stVolume state)),
+    stPrevAction=(stPrevAction state),
+    stPrevDir=(stPrevDir state) }
+  state <- updatePrevAction state 1
+  return state
+
+volumeDown :: State -> IO State
+volumeDown state = do
+  createProcess (proc "volume-down" [])
+  state <- readState $ State {
+    stPowerMate=(stPowerMate state),
+    stVolume=(max 0 $ (stVolume state)-1),
+    stPrevAction=(stPrevAction state),
+    stPrevDir=(stPrevDir state) }
+  state <- updatePrevAction state 0
+  return state
+
+updatePrevState :: State -> Int -> IO State
+updatePrevState state dir = do
+  state <- readState $ State {
+    stPowerMate=(stPowerMate state),
+    stVolume=(stVolume state),
+    stPrevAction=(stPrevAction state),
+    stPrevDir=dir }
+  return state
+
+updatePrevAction :: State -> Int -> IO State
+updatePrevAction state action = do
+  state <- readState $ State {
+    stPowerMate=(stPowerMate state),
+    stVolume=(stVolume state),
+    stPrevAction=action,
+    stPrevDir=(stPrevDir state) }
+  return state
 
 loop :: FilePath -> IO ()
 loop devname = do
   powermate <- openDevice devname
 
-  state <- readState $ State { stPowerMate=powermate, stVolume=0 }
+  alsaMixers <- readProcess "amixer" ["get", "Master"] []
+  let alsaMaster = (alsaMixers =~ "\\[([0-9]{1,2})%\\]" :: String)
+  let volume = read (drop 1
+                      (take
+                        (subtract 2
+                          (length alsaMaster)) alsaMaster)) :: Int
+  state <- readState $ State {
+    stPowerMate=powermate,
+    stVolume=volume,
+    stPrevAction=0,
+    stPrevDir=0 }
+  updateBrightness state
 
   next state $ \call -> do
     event <- readEventWithSkip powermate Nothing