[use brightness
Evan Martin <martine@danga.com>**20060217171038] {
hunk ./MPDMate.hs 16
-  stVolume     :: IORef Int,
-  stBrightness :: IORef Int
+  stPowerMate  :: Handle,
+  stVolume     :: IORef Int
hunk ./MPDMate.hs 33
+  updateBrightness state
hunk ./MPDMate.hs 48
+updateBrightness :: State -> IO ()
+updateBrightness state = do
+  volume <- readIORef (stVolume state)
+  PowerMate.writeStatus (stPowerMate state) $
+    PowerMate.statusInit { PowerMate.brightness=(volume*255 `div` 100) }
+
hunk ./MPDMate.hs 57
-  PowerMate.writeStatus pm $ PowerMate.statusInit { PowerMate.brightness=100, PowerMate.pulse_asleep = True }
+  --PowerMate.writeStatus pm $ PowerMate.statusInit { PowerMate.brightness=100, PowerMate.pulse_asleep = True }
hunk ./MPDMate.hs 62
-  let state = State { stConn=conn, stVolume=vol, stBrightness=brightness }
+  let state = State { stConn=conn, stVolume=vol, stPowerMate=pm }
hunk ./MPDMate.hs 64
+  updateBrightness state
}