diff --git a/src/XMonad/Custom/ProgramWorkSpaces.hs b/src/XMonad/Custom/ProgramWorkSpaces.hs
index 16fdd9e..f19b62c 100644
--- a/src/XMonad/Custom/ProgramWorkSpaces.hs
+++ b/src/XMonad/Custom/ProgramWorkSpaces.hs
@@ -24,6 +24,7 @@ myProgramWorkSpacesConfig = addClassNameStrCheck [
     , ("m", "mail",     "thunderbird",      "Thunderbird")
     , ("x", "xournal",  "xournalpp",        "Xournalpp")
     , ("q", "qute",     "qutebrowser",      "qutebrowser")
+    , ("c", "clion",    "clion",            "jetbrains-clion")
   ]
   where
     addClassNameStrCheck = mapFourth4 $ \classNameStr -> className =? classNameStr