From b89668884f021e1023160febb680a43588a6aeaa Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 15 Dec 2017 03:32:27 +0100
Subject: Configurable WM_CLASS and WM_NAME (should address #323)

---
 src/Main.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 3760353..0c96688 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -135,6 +135,8 @@ data Opts = Help
           | OnScr      String
           | IconRoot   String
           | Position   String
+          | WmClass    String
+          | WmName     String
        deriving Show
 
 options :: [OptDescr Opts]
@@ -142,6 +144,8 @@ options =
     [ Option "h?" ["help"] (NoArg Help) "This help"
     , Option "V" ["version"] (NoArg Version) "Show version information"
     , Option "f" ["font"] (ReqArg Font "font name") "The 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" )
       "The background color. Default black"
     , Option "F" ["fgcolor"] (ReqArg FgColor "fg color")
@@ -206,6 +210,8 @@ doOpts conf (o:oo) =
     Help -> putStr   usage >> exitSuccess
     Version -> putStrLn info  >> exitSuccess
     Font s -> doOpts' (conf {font = s})
+    WmClass s -> doOpts' (conf {wmClass = s})
+    WmName s -> doOpts' (conf {wmName = s})
     BgColor s -> doOpts' (conf {bgColor = s})
     FgColor s -> doOpts' (conf {fgColor = s})
     Alpha n -> doOpts' (conf {alpha = read n})
-- 
cgit v1.2.3