X-Git-Url: https://disinclined.org/git/?a=blobdiff_plain;f=powermate.hs;h=8cf996cd31ab4d296ace6f5e28b19c35b9d656dd;hb=315e868f053acff662084ffdecb3636eb0916d10;hp=22b41fcf0133bd4c87ca1132a7b91a48d9ca7002;hpb=1e7c0e3a053b33f9683ec7d03ef1ea4e25ea64d5;p=powermate.git

diff --git a/powermate.hs b/powermate.hs
index 22b41fc..8cf996c 100755
--- a/powermate.hs
+++ b/powermate.hs
@@ -25,7 +25,7 @@ processEvent state (Button True) = do
 processEvent state (Button False) = do
   time <- getCurrentTime
   if (diffUTCTime (time) (stLastPress state) > 0.8)
-    then ( do runCommand "amixer set Master toggle"; return () )
+    then ( do createProcess(proc "volume-toggle" []); return () )
     else ( do runCommand "music-toggle"; return () )
   state <- updateButton state False
   return state
@@ -44,6 +44,7 @@ processEvent state (Rotate dir) = do
                 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)