gkleen@sif: finish switch to alacritty

1 files changed, 10 insertions, 17 deletions

diff --git a/accounts/gkleen@sif/xmonad/xmonad.hs b/accounts/gkleen@sif/xmonad/xmonad.hs
index 579456ad..d21debdf 100644
--- a/accounts/gkleen@sif/xmonad/xmonad.hs
+++ b/accounts/gkleen@sif/xmonad/xmonad.hs
@@ -172,8 +172,6 @@ hostFromName h
   | h `elem` ["hel", "sif"] = defaultHost { hName = h
                                           , hManageHook = namedScratchpadManageHook scratchpads <+> composeOne (catMaybes
                                               [ assign "mpv"     $ className =? "mpv"
-                                              , assign "mpv"     $ (className =? "URxvt" <&&> title =? "irssi")
-                                              , assign "mpv"     $ (className =? "URxvt" <&&> resource =? "presentation")
                                               , assign "mpv"     $ stringProperty "WM_WINDOW_ROLE" =? "presentation"
                                               , assign "read"    $ stringProperty "WM_WINDOW_ROLE" =? "presenter"
                                               , assign "mpv"     $ className =? "factorio"
@@ -182,19 +180,15 @@ hostFromName h
                                               , assign "work"    $ (appName =? "Devtools" <&&> className =? "Firefox")
                                               , assign "work"    $ className =? "Postman"
                                               , assign "web"     $ className =? "Firefox"
-                                              , assign "comm"    $ (className =? "URxvt" <&&> resource =? "comm")
                                               , assign "comm"    $ (className =? "Emacs" <&&> title =? "Mail")
                                               , assign "comm"    $ className =? "Zulip"
                                               , assign "comm"    $ className =? "Discord"
-                                              , assign "media"   $ (className =? "URxvt" <&&> resource =? "media")
-                                              , assign "media"   $ (className =? "URxvt" <&&> title =? "streamlink")
-                                              , assign "media"   $ (className =? "URxvt" <&&> title =? "mpv")
-                                              , assign "monitor" $ (className =? "URxvt" <&&> fmap ("monitor" `isInfixOf`) title)
+                                              , assign "media"   $ (className =? "Alacritty" <&&> resource =? "media")
                                               , assign "monitor" $ className =? "Grafana"
-                                              , Just $ (className =? "URxvt" <&&> resource =? "htop") -?> centerFloat
+                                              , Just $ (className =? "Alacritty" <&&> resource =? "htop") -?> centerFloat
                                               , Just $ (className =? "Scp-dbus-service.py") -?> centerFloat
-                                              , Just $ (className =? "URxvt" <&&> resource =? "log") -?> centerFloat
-                                              , assign "work"    $ className =? "URxvt"
+                                              , Just $ (className =? "Alacritty" <&&> resource =? "log") -?> centerFloat
+                                              , assign "work"    $ className =? "Alacritty"
                                               , assign' ["work", "uni"] $ (className =? "Emacs" <&&> appName /=? "Edit_with_Emacs_FRAME")
                                               , assign' ["work", "uni"] $ className =? "jetbrains-idea-ce"
                                               , assign "read"    $ className =? "llpp"
@@ -227,7 +221,6 @@ hostFromName h
                                           , hCoWsp = hCoWsp
                                           , hKeysMod = \conf -> Map.union $ (Map.fromList $ join $ map (spawnBindings conf) [ (xK_e, ["emacsclient -c"])
                                                                                                                             , (xK_d, [fromString browser, fromString $ browser ++ " $(xclip -o)", fromString $ "notmuch-links"])
-                                                                                                                            , (xK_f, ["urxvtc -name comm -title Feeds -e mosh odin -- tmux new-session -ADs comm"])
                                                                                                                             , (xK_c, [ inputPrompt xPConfig "dc" ?+ dc ])
                                                                                                                             , (xK_g, ["pidgin"])
                                                                                                                             , (xK_s, ["skype"])
@@ -235,7 +228,7 @@ hostFromName h
                                                                                                                             , (xK_w, ["sudo rewacom"])
                                                                                                                             , (xK_y, [ "tmux new-window -dt media /var/media/link.hs $(xclip -o)"
                                                                                                                                      , "tmux new-window -dt media /var/media/download.hs $(xclip -o)"
-                                                                                                                                     , "urxvtc -name media -e tmuxp load /var/media"
+                                                                                                                                     , "alacritty --class media -e tmuxp load /var/media"
                                                                                                                                      ])
                                                                                                                             , (xK_l, [ "tmux new-window -dt media mpv $(xclip -o)"
                                                                                                                                      , "tmux new-window -dt media streamlink --retry-open 10 $(xclip -o)"
@@ -250,8 +243,8 @@ hostFromName h
                                                                                                                             , (xK_s, [ inputPromptWithCompl xPConfig "start synergy" synergyCompl ?+ synergyStart
                                                                                                                                      , inputPromptWithCompl xPConfig "stop synergy" synergyCompl ?+ synergyStop
                                                                                                                                      ])
-                                                                                                                            , (xK_h, [ "urxvtc -name htop -e htop"
-                                                                                                                                     , "urxvtc -name log -e journalctl -xef"
+                                                                                                                            , (xK_h, [ "alacritty --class htop -e htop"
+                                                                                                                                     , "alacritty --class log -e journalctl -xef"
                                                                                                                                      ])
                                                                                                                             , (xK_x, [ "autorandr -c"
                                                                                                                                      , "autorandr -fl def"
@@ -312,7 +305,7 @@ hostFromName h
                                   , (9, "media")
                                   , (10, "mpv")
                                   ]
-    scratchpads = [ NS "term" "urxvtc -name scratchpad -title scratchpad -e tmux new-session -AD -s scratch" (resource =? "scratchpad") centerFloat
+    scratchpads = [ NS "term" "alacritty --class scratchpad --title scratchpad -e tmux new-session -AD -s scratch" (resource =? "scratchpad") centerFloat
                   , NS "pavucontrol" "pavucontrol" (resource =? "pavucontrol") centerFloat
                   , NS "alarms" "alarm-clock-applet" (className =? "Alarm-clock-applet" <&&> title =? "Alarms") centerFloat
                   , NS "blueman" "blueman-manager" (className =? ".blueman-manager-wrapped") centerFloat
@@ -480,7 +473,7 @@ main = do
       setEnv "HOST" hostname
       let myConfig = withHostUrgency . ewmh $ docks def
             { manageHook = hManageHook host
-            , terminal = "urxvtc"
+            , terminal = "alacritty"
             , layoutHook = smartBorders . avoidStruts $ windowNavigation layout'
             , logHook = do
                 dynamicLogString xmobarPP' >>= writeProps
@@ -768,7 +761,7 @@ myKeys' conf host = Map.fromList $
     -- launch dmenu
     --, ((modm,               xK_d     ), spawn "exe=`dmenu_path | dmenu` && eval \"exec $exe\"")
     , ((modm,               xK_d     ), shellPrompt "Run: " xPConfig)
-    , ((modm .|. shiftMask, xK_d     ), prompt "Run in Terminal: " ("urxvtc" ++ " -e") xPConfig)
+    , ((modm .|. shiftMask, xK_d     ), prompt "Run in Terminal: " ("alacritty" ++ " -e") xPConfig)
     , ((modm,               xK_at    ), sshPrompt (sshOverrides . Just $ hName host) xPConfig)
 
     -- close focused window