diff --git a/src/XMonad/Custom/ProgramWorkspaces.hs b/src/XMonad/Custom/ProgramWorkspaces.hs
index f206a24..17eb573 100644
--- a/src/XMonad/Custom/ProgramWorkspaces.hs
+++ b/src/XMonad/Custom/ProgramWorkspaces.hs
@@ -27,6 +27,7 @@ myProgramWorkspacesConfig = addClassNameStrCheck [
     , ("x", "xournal",  "xournalpp",        "Xournalpp")
     , ("q", "qute",     "qutebrowser",      "qutebrowser")
     , ("c", "clion",    "clion",            "jetbrains-clion")
+    , ("k", "keepass",  "keepassxc",        "KeePassXC")
   ]
   where
     addClassNameStrCheck = mapFourth4 $ \classNameStr -> className =? classNameStr