From 3baf089b119ceb54ac5618bcb64bd0b2dfc80455 Mon Sep 17 00:00:00 2001 From: Charles Cabergs Date: Mon, 2 Aug 2021 09:53:36 +0200 Subject: Switching back to st (accented characters are not printed but still understood by other applications so it's fine) --- config/xmonad/xmonad.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'config') diff --git a/config/xmonad/xmonad.hs b/config/xmonad/xmonad.hs index a059cc5..769435b 100644 --- a/config/xmonad/xmonad.hs +++ b/config/xmonad/xmonad.hs @@ -20,12 +20,14 @@ import XMonad.Layout.Spacing (Border (..), spacingRaw) import XMonad.Hooks.InsertPosition (Focus (..), Position (..), insertPosition) +myTerminal = "st" + -- xmonad :: XConfig -> IO () -- https://hackage.haskell.org/package/xmonad-0.15/docs/XMonad-Core.html#t:XConfig main = xmonad $ desktopConfig { normalBorderColor = "#1c1c1c" , focusedBorderColor = "#8a8a8a" - , terminal = "alacritty" + , terminal = myTerminal , layoutHook = layoutHook' , manageHook = manageHook' , modMask = mod4Mask -- mod key to super @@ -58,8 +60,8 @@ keys' = [ ("", spawn "pulseaudio-ctl down") , ("", spawn "touchpad-toggle") , ("M-o", spawn "project-open") - , ("M-i", spawn "st -e zsh -c 'source ~/.config/zsh/.zshrc && rc'") - , ("M-m", spawn "st -e mocp -C /home/cacharle/.config/moc/config") + , ("M-i", spawn $ myTerminal ++ " -e zsh -c 'source ~/.config/zsh/.zshrc && rc'") + , ("M-m", spawn $ myTerminal ++ " -e mocp -C /home/cacharle/.config/moc/config") , ("M-S-d", spawn "notify-send -i x-office-calendar \"$(date +\"%H:%M %A %d/%m/%Y %B\")\"") , ("M-S-b", spawn "notify-send --hint=int:transient:1 --hint=int:value:\"$(cat /sys/class/power_supply/BAT0/capacity)\" \"Battery\"") , ("M-q", spawn "notify-send 'Restarting xmonad'" >> spawn restartCmd) @@ -68,7 +70,7 @@ keys' = [ ("", spawn "pulseaudio-ctl down") startupHook' :: X () startupHook' = do - spawnOnOnce "code" "st" + spawnOnOnce "code" myTerminal spawnOnOnce "web" "qutebrowser" confirm :: String -> X () -> X () -- cgit