import System.Process
import Control.Monad
import Text.Regex.Posix
+import Data.Time
data State = State {
- stPowerMate :: Handle,
- stVolume :: Int,
- stDir :: Int
+ stPowerMate :: Handle,
+ stVolume :: Int,
+ stPrevDir :: 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 then volumeUp else volumeDown) state
+ state <- (if (stPressed state) == False
+ && dir < 2
+ && (stPrevDir state) == 1
+ && (stPrevAction state) == 1
+ then volumeUp
+ else return) state
+ 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
- return state
-
-processEvent state (StatusChange status) = do
+ state <- updatePrevAction state (if (stPrevAction state) == 1 then 0 else 1)
return state
readState :: State -> IO State
writeStatus (stPowerMate state) $
statusInit { brightness=brightness }
-volumeUp :: State -> IO State
+volumeUp :: State -> IO State
volumeUp state = do
createProcess (proc "volume-up" [])
state <- readState $ State {
stPowerMate=(stPowerMate state),
stVolume=(max 0 $ 1+(stVolume state)),
- stDir=(stDir state) }
+ stPrevAction=(stPrevAction state),
+ stPrevDir=(stPrevDir state),
+ stPressed=(stPressed state),
+ stLastPress=(stLastPress state) }
+ state <- updatePrevAction state 1
return state
-volumeDown :: State -> IO State
+volumeDown :: State -> IO State
volumeDown state = do
createProcess (proc "volume-down" [])
state <- readState $ State {
stPowerMate=(stPowerMate state),
stVolume=(max 0 $ (stVolume state)-1),
- stDir=(stDir state) }
+ stPrevAction=(stPrevAction state),
+ stPrevDir=(stPrevDir state),
+ stPressed=(stPressed state),
+ stLastPress=(stLastPress 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,
+ stPressed=(stPressed state),
+ stLastPress=(stLastPress state) }
+ 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),
+ 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,
- stDir=1 }
+ stPrevAction=0,
+ stPrevDir=0,
+ stPressed=False,
+ stLastPress=time }
updateBrightness state
next state $ \call -> do