From b89668884f021e1023160febb680a43588a6aeaa Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 15 Dec 2017 03:32:27 +0100 Subject: Configurable WM_CLASS and WM_NAME (should address #323) --- src/Window.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Window.hs') diff --git a/src/Window.hs b/src/Window.hs index 11ea82e..d2506db 100644 --- a/src/Window.hs +++ b/src/Window.hs @@ -100,8 +100,8 @@ setProperties c d w = do card <- mkatom "CARDINAL" atom <- mkatom "ATOM" - setTextProperty d w "xmobar" wM_CLASS - setTextProperty d w "xmobar" wM_NAME + setTextProperty d w (wmClass c) wM_CLASS + setTextProperty d w (wmName c) wM_NAME wtype <- mkatom "_NET_WM_WINDOW_TYPE" dock <- mkatom "_NET_WM_WINDOW_TYPE_DOCK" -- cgit v1.2.3