diff --git a/home-manager/roles/mode-switching.nix b/home-manager/roles/mode-switching.nix
index 8253660d..ad26e15b 100644
--- a/home-manager/roles/mode-switching.nix
+++ b/home-manager/roles/mode-switching.nix
@@ -20,11 +20,13 @@ in
       getMode :: IO Text
       getMode = decodeUtf8 <$> (cat "${modeFile}" |> captureTrim)
 
+      wallpaperCmd = "random-wallpaper"
+
       main = do
         mode <- getMode
         say [i|Switching to mode #{mode}...|]
         exe ([i|${modeDir}/#{mode}/activate|] :: String)
-        ignoreFailure $ exe "random-wallpaper"
+        whenM (elem wallpaperCmd <$> pathBins) $ exe wallpaperCmd
     '';
     updateModes = pkgs.writeHaskellScript
       {