diff --git a/user/wm/xmonad/startup.sh b/user/wm/xmonad/startup.sh
index a0beaf5..43831be 100755
--- a/user/wm/xmonad/startup.sh
+++ b/user/wm/xmonad/startup.sh
@@ -13,7 +13,7 @@ killall nextcloud
 killall xautolock
 killall caffeine
 killall syncthing-gtk
-killall discord
+killall gtkcord4
 killall qjoypad
 
 # Launch necessary desktop applications
diff --git a/user/wm/xmonad/xmonad.hs b/user/wm/xmonad/xmonad.hs
index 47397c4..ce86f09 100644
--- a/user/wm/xmonad/xmonad.hs
+++ b/user/wm/xmonad/xmonad.hs
@@ -133,8 +133,8 @@ myScratchPads =
         w = 0.4
         t = 0.75 - h
         l = 0.70 - w
-    spawnDiscord = "flatpak run com.discordapp.Discord"
-    findDiscord = className =? "discord"
+    spawnDiscord = "gtkcord4"
+    findDiscord = className =? "gtkcord4"
     manageDiscord = customFloating $ W.RationalRect l t w h
       where
         h = 0.5
@@ -390,7 +390,7 @@ myManageHook =
     [ title =? "Myuzi" --> (customFloating $ W.RationalRect 0.05 0.05 0.9 0.9),
       title =? "octave-scratchpad" --> (customFloating $ W.RationalRect 0.1 0.1 0.8 0.8),
       title =? "scratchpad" --> (customFloating $ W.RationalRect 0.1 0.1 0.8 0.8),
-      className =? "discord" --> (customFloating $ W.RationalRect 0.1 0.1 0.8 0.8),
+      className =? "gtkcord4" --> (customFloating $ W.RationalRect 0.1 0.1 0.8 0.8),
       title =? "ranger-scratchpad" --> (customFloating $ W.RationalRect 0.05 0.05 0.9 0.9),
       title =? "btm-scratchpad" --> (customFloating $ W.RationalRect 0.1 0.1 0.8 0.8),
       className =? "Geary" --> (customFloating $ W.RationalRect 0.05 0.05 0.9 0.9),
diff --git a/user/wm/xmonad/xmonad.org b/user/wm/xmonad/xmonad.org
index f42477b..b2df318 100644
--- a/user/wm/xmonad/xmonad.org
+++ b/user/wm/xmonad/xmonad.org
@@ -192,8 +192,8 @@ myScratchPads =
         w = 0.4
         t = 0.75 - h
         l = 0.70 - w
-    spawnDiscord = "flatpak run com.discordapp.Discord"
-    findDiscord = className =? "discord"
+    spawnDiscord = "gtkcord4"
+    findDiscord = className =? "gtkcord4"
     manageDiscord = customFloating $ W.RationalRect l t w h
       where
         h = 0.5
@@ -559,7 +559,7 @@ myManageHook =
     [ title =? "Myuzi" --> (customFloating $ W.RationalRect 0.05 0.05 0.9 0.9),
       title =? "octave-scratchpad" --> (customFloating $ W.RationalRect 0.1 0.1 0.8 0.8),
       title =? "scratchpad" --> (customFloating $ W.RationalRect 0.1 0.1 0.8 0.8),
-      className =? "discord" --> (customFloating $ W.RationalRect 0.1 0.1 0.8 0.8),
+      className =? "gtkcord4" --> (customFloating $ W.RationalRect 0.1 0.1 0.8 0.8),
       title =? "ranger-scratchpad" --> (customFloating $ W.RationalRect 0.05 0.05 0.9 0.9),
       title =? "btm-scratchpad" --> (customFloating $ W.RationalRect 0.1 0.1 0.8 0.8),
       className =? "Geary" --> (customFloating $ W.RationalRect 0.05 0.05 0.9 0.9),
@@ -651,7 +651,7 @@ killall nextcloud
 killall xautolock
 killall caffeine
 killall syncthing-gtk
-killall discord
+killall gtkcord4
 killall qjoypad
 
 #+END_SRC