mute-unmute 0.1 → 0.1.1

raw patch · 2 files changed

+6/−6 lines, 2 files

Files

• mute-unmute.cabal +1/−1
• mute-unmute.hs +5/−5

@@ -1,5 +1,5 @@ Name:                mute-unmute-Version:             0.1+Version:             0.1.1 Synopsis:            Watches your screensaver and (un)mutes music when you (un)lock the screen. Description:         This simple program will watch for the activation of screensaver (in Gnome) via it's DBus API. It's quite straitforward and extending it for KDE etc. should be simple. It also depends on ALSA (usage of alsactl command), but this should also be simple to fix if needed. It could also serve as a base for more complex programs that use DBus. License:             GPL-3

@@ -152,11 +152,11 @@             forever (threadDelay (10^6))  programOpt :: [OptDescr RunMode]-programOpt = [ Option [] ["--store"] (NoArg StoreAll) "ask for mute and unmute configurations"-             , Option [] ["--store-mute"] (NoArg StoreMute) "ask for mute configuration"-             , Option [] ["--store-unmute"] (NoArg StoreUnmute) "ask for unmute configuration"-             , Option ['d'] ["--daemon"] (NoArg StoreAll) "wait for screensaver state changes"-             , Option ['h','?'] ["--help"] (NoArg StoreAll) "show help"+programOpt = [ Option [] ["store"] (NoArg StoreAll) "ask for mute and unmute configurations"+             , Option [] ["store-mute"] (NoArg StoreMute) "ask for mute configuration"+             , Option [] ["store-unmute"] (NoArg StoreUnmute) "ask for unmute configuration"+             , Option ['d'] ["daemon"] (NoArg Daemon) "wait for screensaver state changes"+             , Option ['h','?'] ["help"] (NoArg Help) "show help"              ]  parseOptions :: [String] -> IO RunMode