disinclined.org
/
git
/
powermate.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
now using volume-toggle shell script
[powermate.git]
/
powermate.hs
diff --git
a/powermate.hs
b/powermate.hs
index
22b41fc
..
c0858f6
100755
(executable)
--- 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)
processEvent state (Button False) = do
time <- getCurrentTime
if (diffUTCTime (time) (stLastPress state) > 0.8)
- then ( do runCommand "
amixer set Master
toggle"; return () )
+ then ( do runCommand "
volume-
toggle"; return () )
else ( do runCommand "music-toggle"; return () )
state <- updateButton state False
return state
else ( do runCommand "music-toggle"; return () )
state <- updateButton state False
return state