New option -D, and keeping silent by default

3 files changed, 24 insertions, 17 deletions

diff --git a/app/Configuration.hs b/app/Configuration.hs
index 340124a..3e30730 100644
--- a/app/Configuration.hs
+++ b/app/Configuration.hs
@@ -29,9 +29,11 @@ import qualified Xmobar as X
 -- | Reads the configuration files or quits with an error
 readConfig :: FilePath -> String -> IO (X.Config,[String])
 readConfig f usage = do
-  let err m = error $ f ++ ": " ++ m ++ "\n" ++ usage
+  let err m = error $ f ++ ": " ++ m
   file <- liftIO $ fileExist f
-  r <- if file then X.readConfig X.defaultConfig f else err "file not found"
+  r <- if file
+       then X.readConfig X.defaultConfig f
+       else err $ "file not found" ++ "\n" ++ usage
   case r of
     Left e -> err (show e)
     Right res -> return res
diff --git a/app/Main.hs b/app/Main.hs
index 35bff7d..b5d3993 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -38,11 +38,12 @@ main = do
   (c,defaultings) <- case file of
                        [cfgfile] -> C.readConfig cfgfile usage
                        _ -> C.readDefaultConfig usage
-  unless (null defaultings) $ putStrLn $
+  unless (null defaultings || (not $ any (== Debug) o)) $ putStrLn $
     "Fields missing from config defaulted: " ++ intercalate "," defaultings
   doOpts c o >>= xmobar
 
 data Opts = Help
+          | Debug
           | Version
           | Font       String
           | BgColor    String
@@ -61,13 +62,14 @@ data Opts = Help
           | Position   String
           | WmClass    String
           | WmName     String
-       deriving Show
+       deriving (Show, Eq)
 
 options :: [OptDescr Opts]
 options =
     [ Option "h?" ["help"] (NoArg Help) "This help"
+    , Option "D" ["debug"] (NoArg Debug) "Emit verbose debugging messages"
     , Option "V" ["version"] (NoArg Version) "Show version information"
-    , Option "f" ["font"] (ReqArg Font "font name") "The font name"
+    , Option "f" ["font"] (ReqArg Font "font name") "Font name"
     , Option "w" ["wmclass"] (ReqArg WmClass "class") "X11 WM_CLASS property"
     , Option "n" ["wmname"] (ReqArg WmName "name") "X11 WM_NAME property"
     , Option "B" ["bgcolor"] (ReqArg BgColor "bg color" )
@@ -77,7 +79,7 @@ options =
     , Option "i" ["iconroot"] (ReqArg IconRoot "path")
       "Root directory for icon pattern paths. Default '.'"
     , Option "A" ["alpha"] (ReqArg Alpha "alpha")
-      "The transparency: 0 is transparent, 255 is opaque. Default: 255"
+      "Transparency: 0 is transparent, 255 is opaque. Default: 255"
     , Option "o" ["top"] (NoArg T) "Place xmobar at the top of the screen"
     , Option "b" ["bottom"] (NoArg B)
       "Place xmobar at the bottom of the screen"
@@ -86,12 +88,12 @@ options =
     , Option "a" ["alignsep"] (ReqArg AlignSep "alignsep")
       "Separators for left, center and right text\nalignment. Default: '}{'"
     , Option "s" ["sepchar"] (ReqArg SepChar "char")
-      ("The character used to separate commands in" ++
+      ("Character used to separate commands in" ++
        "\nthe output template. Default '%'")
     , Option "t" ["template"] (ReqArg Template "template")
-      "The output template"
+      "Output template"
     , Option "c" ["commands"] (ReqArg Commands "commands")
-      "The list of commands to be executed"
+      "List of commands to be executed"
     , Option "C" ["add-command"] (ReqArg AddCommand "command")
       "Add to the list of commands to be executed"
     , Option "x" ["screen"] (ReqArg OnScr "screen")
@@ -133,6 +135,7 @@ doOpts conf (o:oo) =
   case o of
     Help -> putStr   usage >> exitSuccess
     Version -> putStrLn info  >> exitSuccess
+    Debug -> doOpts' conf
     Font s -> doOpts' (conf {font = s})
     WmClass s -> doOpts' (conf {wmClass = s})
     WmName s -> doOpts' (conf {wmName = s})
@@ -160,7 +163,7 @@ doOpts conf (o:oo) =
             _  -> Left ("xmobar: cannot read list of commands " ++
                         "specified with the -" ++ c:" option\n")
         readStr str = [x | (x,t) <- reads str, ("","") <- lex t]
-        doOpts' opts = doOpts opts oo
+        doOpts' c = doOpts c oo
         readPosition string =
             case readMaybe string of
                 Just x  -> doOpts' (conf { position = x })
diff --git a/readme.md b/readme.md
index 9332c52..77c99e1 100644
--- a/readme.md
+++ b/readme.md
@@ -370,23 +370,25 @@ xmobar --help):
     Options:
       -h, -?        --help                 This help
       -V            --version              Show version information
-      -f font name  --font=font name       The font name
+      -D            --debug                Emit verbose debugging messages
+      -f font name  --font=font name       Font name
       -w class      --wmclass=class        X11 WM_CLASS property
       -n name       --wmname=name          X11 WM_NAME property
-      -B bg color   --bgcolor=bg color     The background color. Default black
-      -F fg color   --fgcolor=fg color     The foreground color. Default grey
-      -A alpha      --alpha=alpha          The transparency: 0 is transparent, 255 (the default) is opaque
+      -B bg color   --bgcolor=bg color     Background color. Default black
+      -F fg color   --fgcolor=fg color     Foreground color. Default grey
+      -A alpha      --alpha=alpha          Transparency: 0 is transparent
+                                           and 255 (the default) is opaque
       -o            --top                  Place xmobar at the top of the screen
       -b            --bottom               Place xmobar at the bottom of the screen
       -p            --position=position    Specify position, same as in config file
       -d            --dock                 Try to start xmobar as a dock
       -a alignsep   --alignsep=alignsep    Separators for left, center and right text
                                            alignment. Default: '}{'
-      -s char       --sepchar=char         The character used to separate commands in
+      -s char       --sepchar=char         Character used to separate commands in
                                            the output template. Default '%'
-      -t template   --template=template    The output template
+      -t template   --template=template    Output template
       -i path       --iconroot=path        Default directory for icon pattern files
-      -c commands   --commands=commands    The list of commands to be executed
+      -c commands   --commands=commands    List of commands to be executed
       -C command    --add-command=command  Add to the list of commands to be executed
       -x screen     --screen=screen        On which X screen number to start