Inital work on option parsing

1 files changed, 37 insertions, 0 deletions

diff --git a/src/Trivstream/Options.hs b/src/Trivstream/Options.hs
new file mode 100644
index 0000000..a777942
--- /dev/null
+++ b/src/Trivstream/Options.hs
@@ -0,0 +1,37 @@
+{-# LANGUAGE TemplateHaskell, OverloadedStrings #-}
+
+module Trivstream.Options
+  ( withOptions
+  ) where
+
+
+import Trivstream.Types
+import Trivstream.Options.Utils
+import Paths_trivstream (version)
+
+
+import Options.Applicative
+
+import Control.Monad.Reader
+import Control.Monad.IO.Class
+
+
+withOptions :: MonadIO m => ReaderT Configuration a -> IO a
+withOptions f = liftIO (execParser options) >>= runReaderT f
+  where
+    options = options' `info` mconcat [ header $ concat [ "trivstream "
+                                                        , show version
+                                                        , " - "
+                                                        , "A trivial client & server for streaming audio between pulseaudio and jack over udp/tcp"
+                                                        ]
+                                      , footer $ concat [ "trivstream "
+                                                        , show version
+                                                        , " (", $(gitBranch), "@", $(gitHash), (if $(gitDirty) then "*" else ""), ")"
+                                                        ]
+                                      ]
+    options' = Configuration <$> argument rCI (help "Mode of operation" <> value def <> showDefault <> metavar "MODE")
+                             <*> optional ( undefined
+                                          )
+                             <*> audioOptions
+
+    audioOptions = undefined