Merge pull request #38 from bresilla/master

adding WM_CLASS attributes
5 years ago · ce5eaa6880
parent b7bc6bad49 7f62d95059
commit ce5eaa6880
1 changed files with 7 additions and 1 deletions
--- a/src/boomer.nim
+++ b/src/boomer.nim
@ -110,7 +110,13 @@ proc main() =
    CWColormap or CWEventMask, addr swa)

  discard XMapWindow(display, win)
-  discard XStoreName(display, win, "Wordpress Application")
+
+  var wmName = "boomer"
+  var wmClass = "Boomer"
+  var hints = TXClassHint(res_name: wmName, res_class: wmClass)
+  
+  discard XStoreName(display, win, wmName)
+  discard XSetClassHint(display, win, addr(hints))

  var wmDeleteMessage = XInternAtom(
    display, "WM_DELETE_WINDOW",