X-Git-Url: https://disinclined.org/git/?a=blobdiff_plain;f=powermate.hs;h=8cf996cd31ab4d296ace6f5e28b19c35b9d656dd;hb=338c11f93d51c0a859847b2d35c52f7303cbfe2e;hp=c0858f697182ab187ddfac7afe22fcd06649c66b;hpb=8895bb37a19719080872d48daa3b876a406a76c8;p=powermate.git

diff --git a/powermate.hs b/powermate.hs
index c0858f6..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 "volume-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)