import PowerMate
import System.IO
import System.Process
+import Control.Monad
import Text.Regex.Posix
+import Data.Time
data State = State {
stPowerMate :: Handle,
stVolume :: Int,
stPrevDir :: Int,
- stPrevAction :: Int
+ stPrevAction :: Int,
+ stPressed :: Bool,
+ stLastPress :: UTCTime
}
processEvent :: State -> Event -> IO State
processEvent state (Button True) = do
- createProcess (proc "music-toggle" [])
+ time <- getCurrentTime
+ state <- updateLastPress state (time)
+ state <- updateButton state True
return state
processEvent state (Button False) = do
+ time <- getCurrentTime
+ if (diffUTCTime (time) (stLastPress state) > 0.8)
+ then ( do createProcess(proc "volume-toggle" []); return () )
+ else ( do runCommand "music-toggle"; return () )
+ state <- updateButton state False
return state
processEvent state (Rotate dir) = do
- state <- (if dir < 2
+ state <- (if (stPressed state) == False
+ && dir < 2
&& (stPrevDir state) == 1
&& (stPrevAction state) == 1
then volumeUp
else return) state
- state <- (if dir > 2
+ state <- (if (stPressed state) == False
+ && dir > 2
&& (stPrevDir state) == 0
&& (stPrevAction state) == 0
then volumeDown
else return) state
+ when ((stPressed state) == True && dir < 2) ( do runCommand "next"; return () )
+ when ((stPressed state) == True && dir > 2) ( do runCommand "back"; return () )
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
- return state
-
readState :: State -> IO State
readState state = do
return state
stPowerMate=(stPowerMate state),
stVolume=(max 0 $ 1+(stVolume state)),
stPrevAction=(stPrevAction state),
- stPrevDir=(stPrevDir state) }
+ stPrevDir=(stPrevDir state),
+ stPressed=(stPressed state),
+ stLastPress=(stLastPress state) }
state <- updatePrevAction state 1
return state
stPowerMate=(stPowerMate state),
stVolume=(max 0 $ (stVolume state)-1),
stPrevAction=(stPrevAction state),
- stPrevDir=(stPrevDir state) }
+ stPrevDir=(stPrevDir state),
+ stPressed=(stPressed state),
+ stLastPress=(stLastPress state) }
state <- updatePrevAction state 0
return state
stPowerMate=(stPowerMate state),
stVolume=(stVolume state),
stPrevAction=(stPrevAction state),
- stPrevDir=dir }
+ stPrevDir=dir,
+ stPressed=(stPressed state),
+ stLastPress=(stLastPress state) }
return state
updatePrevAction :: State -> Int -> IO State
stPowerMate=(stPowerMate state),
stVolume=(stVolume state),
stPrevAction=action,
- stPrevDir=(stPrevDir state) }
+ stPrevDir=(stPrevDir state),
+ stPressed=(stPressed state),
+ stLastPress=(stLastPress state) }
+ return state
+
+updateButton :: State -> Bool -> IO State
+updateButton state button = do
+ state <- readState $ State {
+ stPowerMate=(stPowerMate state),
+ stVolume=(stVolume state),
+ stPrevAction=(stPrevAction state),
+ stPrevDir=(stPrevDir state),
+ stPressed=button,
+ stLastPress=(stLastPress state) }
+ return state
+
+updateLastPress :: State -> UTCTime -> IO State
+updateLastPress state lastPress = do
+ state <- readState $ State {
+ stPowerMate=(stPowerMate state),
+ stVolume=(stVolume state),
+ stPrevAction=(stPrevAction state),
+ stPrevDir=(stPrevDir state),
+ stPressed=(stPressed state),
+ stLastPress=lastPress }
return state
loop :: FilePath -> IO ()
(take
(subtract 2
(length alsaMaster)) alsaMaster)) :: Int
+ time <- getCurrentTime
state <- readState $ State {
stPowerMate=powermate,
stVolume=volume,
stPrevAction=0,
- stPrevDir=0 }
+ stPrevDir=0,
+ stPressed=False,
+ stLastPress=time }
updateBrightness state
next state $ \call -> do