users/xmonad: fixup syntax

This commit is contained in:
Dmitriy Pleshevskiy 2022-10-21 03:21:14 +03:00
parent ad644c304a
commit 284d44eebc
Signed by: pleshevskiy
GPG key ID: 1B59187B161C0215

View file

@ -50,7 +50,7 @@ import XMonad.Util.Run
-- The preferred terminal program, which is used in a binding below and by
-- certain contrib modules.
--
myTerminal = "alacritty"
myTerminal = "alacritty msg create-window"
-- Whether focus follows the mouse pointer.
myFocusFollowsMouse = False
@ -252,7 +252,7 @@ myManageHook = manageApps
[ className =? "nheko",
className =? "KotatogramDesktop"
]
-?> doShift comWs
-?> doShift comWs,
-- general
anyOf
[ resource =? "desktop_window",
@ -409,7 +409,7 @@ myProjects =
Project
{ projectName = "dexios",
projectStartHook = replicateM_ 2 $ spawn $ terminal "~/repos/dexios"
},
}
]
where
terminal :: String -> String
@ -417,7 +417,7 @@ myProjects =
terminal' :: String -> Maybe String -> String
terminal' wd' cmd' =
"alacritty" ++ workdir ++ command
myTerminal ++ workdir ++ command
where
workdir = " --working-directory " ++ wd'
command = case cmd' of