From 30b0412feaebc4ecbf6e50801ff043d283e02f1c Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 21 Jun 2015 20:58:15 +0200 Subject: Added --inc and --dec --- adjmix/Adjmix.hs | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'adjmix') diff --git a/adjmix/Adjmix.hs b/adjmix/Adjmix.hs index 94416ac..0545395 100644 --- a/adjmix/Adjmix.hs +++ b/adjmix/Adjmix.hs @@ -52,6 +52,23 @@ optionParser = Options <> help "Subtract from the current level" ) ) + <|> ( ($) <$> ( flag' Add ( long "inc" + <> short 'i' + <> help "Increase level by a preset amount (see ‘--by’)" + ) + <|> flag' Sub ( long "dec" + <> short 'd' + <> help "Decrease level by a preset amount (see ‘--by’)" + ) + ) + <*> ( option auto ( long "by" + <> metavar "LEVEL" + <> value (read "5dB") + <> showDefault + <> help "Value to decrease/increase level by when using ‘--inc’ or ‘--dec’" + ) + ) + ) ) main :: IO () -- cgit v1.2.3