adding WM_CLASS attributes

Many Tiling Window Manager use WM_CLASS to manage window (eg. BSPWM).
5 years ago · c7f4c59e77
parent b7bc6bad49
commit c7f4c59e77
1 changed files with 8 additions and 1 deletions
--- a/src/boomer.nim
+++ b/src/boomer.nim
@ -110,7 +110,14 @@ 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)
+  var pHints: PXClassHint = addr(hints)
+
+  discard XStoreName(display, win, wmName)
+  discard XSetClassHint(display, win, pHints)

  var wmDeleteMessage = XInternAtom(
    display, "WM_DELETE_WINDOW",