diff options
Diffstat (limited to 'src/Xmobar/Plugins/Monitors/Common')
| -rw-r--r-- | src/Xmobar/Plugins/Monitors/Common/Run.hs | 8 | ||||
| -rw-r--r-- | src/Xmobar/Plugins/Monitors/Common/Types.hs | 5 |
2 files changed, 11 insertions, 2 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Common/Run.hs b/src/Xmobar/Plugins/Monitors/Common/Run.hs index 74a7695..a73a6fb 100644 --- a/src/Xmobar/Plugins/Monitors/Common/Run.hs +++ b/src/Xmobar/Plugins/Monitors/Common/Run.hs @@ -19,6 +19,7 @@ module Xmobar.Plugins.Monitors.Common.Run ( runM , runMD , runMB , runMBD + , getArgvs ) where import Control.Exception (SomeException,handle) @@ -55,6 +56,13 @@ options = , Option "E" ["maxtwidthellipsis"] (ReqArg MaxTotalWidthEllipsis "Maximum total width ellipsis") "Ellipsis to be added to the total text when it has reached its max width." ] +-- | Get all argument values out of a list of arguments. +getArgvs :: [String] -> [String] +getArgvs args = + case getOpt Permute options args of + (_, n, [] ) -> n + (_, _, errs) -> errs + doArgs :: [String] -> ([String] -> Monitor String) -> ([String] -> Monitor Bool) diff --git a/src/Xmobar/Plugins/Monitors/Common/Types.hs b/src/Xmobar/Plugins/Monitors/Common/Types.hs index c36a562..fc71da3 100644 --- a/src/Xmobar/Plugins/Monitors/Common/Types.hs +++ b/src/Xmobar/Plugins/Monitors/Common/Types.hs @@ -25,8 +25,9 @@ module Xmobar.Plugins.Monitors.Common.Types ( Monitor , io ) where -import Data.IORef -import Control.Monad.Reader +import Control.Monad.Reader (ReaderT, ask, liftIO) +import Data.IORef (IORef, modifyIORef, newIORef, readIORef) + type Monitor a = ReaderT MConfig IO a |