Expand ~ manually

This commit is contained in:
Martin Potier 2023-06-21 12:21:59 +03:00
parent f8bd90fb48
commit 90d4dbb58e
No known key found for this signature in database
GPG key ID: D4DD957DBA4AD89E
2 changed files with 2 additions and 2 deletions

View file

@ -8,7 +8,7 @@ import Graphics.X11.Xlib.Extras (Event(RRScreenChangeNotifyEvent))
screenChangeHandler :: Event -> X All screenChangeHandler :: Event -> X All
screenChangeHandler (RRScreenChangeNotifyEvent _ _ _ _ _ _ _ _ _ _ _ _ _ _ _) = screenChangeHandler (RRScreenChangeNotifyEvent _ _ _ _ _ _ _ _ _ _ _ _ _ _ _) =
spawn "~/.fehbg" >> return (All True) spawn "/home/e/.fehbg" >> return (All True)
screenChangeHandler _ = return (All True) screenChangeHandler _ = return (All True)
modify :: XConfig l -> XConfig l modify :: XConfig l -> XConfig l

View file

@ -74,7 +74,7 @@ withConfig =
$ desktopConfig -- on a default desktop config $ desktopConfig -- on a default desktop config
{ manageHook = myManageHook <+> manageHook desktopConfig { manageHook = myManageHook <+> manageHook desktopConfig
, layoutHook = desktopLayoutModifiers layouts , layoutHook = desktopLayoutModifiers layouts
, startupHook = spawnOnce "sh ~/.fehbg" , startupHook = spawnOnce "sh /home/e/.fehbg"
, terminal = "nvidia-offload kitty" , terminal = "nvidia-offload kitty"
, normalBorderColor = S.base03 , normalBorderColor = S.base03
, focusedBorderColor = S.green , focusedBorderColor = S.green