mynix/system
1
1
Fork 0
Code Issues 2 Pull requests Activity

users/xmonad: fixup syntax

Browse source
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
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
users/modules/window_manager/xmonad_config.hs
View file

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