diff --git a/xmonad.hs b/xmonad.hs
index 2cbb5d8d43cb7031e86d947a393e585e6810c8e3..9e089ded358e4ab537a75e5672afc54430b1336e 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -113,12 +113,12 @@ main = do
, ppLayout = xmobarColor "#b58900" "" . (Prelude.map toLower)
, ppSep = " "
, ppWsSep = " "
- , ppCurrent = xmobarColor "#268bd2" "" . (\ x -> x) . (Prelude.map toUpper)
- , ppVisible = xmobarColor "grey" "" . (\ x -> x) . (Prelude.map toUpper)
- , ppHidden = xmobarColor "grey" "" . (\ x -> x) . (Prelude.map toUpper)
- , ppHiddenNoWindows = xmobarColor "#707070" "" . (\ x -> x) . (Prelude.map toUpper)
+ , ppCurrent = xmobarColor "#268bd2" "" . (\ x -> x) . (Prelude.map toUpper)
+ , ppVisible = xmobarColor "grey" "" . (\ x -> x) . (Prelude.map toUpper)
+ , ppHidden = xmobarColor "grey" "" . (\ x -> x) . (Prelude.map toUpper)
+ , ppHiddenNoWindows = xmobarColor "#707070" "" . (\ x -> x) . (Prelude.map toUpper)
, ppUrgent = xmobarColor "#b58900" "" . (\ x -> x) . (Prelude.map toUpper)
- , ppVisibleNoWindows = Just (xmobarColor "#707070" "" . (\ x -> x) . (Prelude.map toUpper))
+ , ppVisibleNoWindows = Just (xmobarColor "#707070" "" . (\ x -> x) . (Prelude.map toUpper))
, ppOrder = \(ws:layout:title:extra) -> [ (replace "minimize " "" layout), ws ]
}
} `additionalKeys` myAdditionalKeys
@@ -138,27 +138,27 @@ myStartupHook = do
myLayoutHook =
minimize $ boringAuto (toggleLayouts (noBorders Full) others)
where others = (named "Tall" $ avoidStruts $ ResizableTall 1 (3.0 / 100.0) 0.5 [])
- ||| (named "Mirror-Tall" $ avoidStruts $ Mirror $ ResizableTall 1 (3.0 / 100.0) 0.5 [])
+ ||| (named "llaT" $ avoidStruts $ Mirror $ ResizableTall 1 (3.0 / 100.0) 0.5 [])
||| (named "Full" $ avoidStruts $ Full)
myManageHook = do
composeAll . concat $
- [ [ resource =? r --> doIgnore | r <- myIgnores ]
- , [ className =? c --> doFloat | c <- myFloats ]
- , [ title =? "OCaml graphics" --> doFloat ]
- , [ title =? "desktop" --> doIgnore ]
- , [ isDialog --> doCenterFloat ]
- , [ manageDocks ]
+ [ [ resource =? r --> doIgnore | r <- myIgnores ]
+ , [ className =? c --> doFloat | c <- myFloats ]
+ , [ title =? "OCaml graphics" --> doFloat ]
+ , [ title =? "desktop" --> doIgnore ]
+ , [ isDialog --> doCenterFloat ]
+ , [ manageDocks ]
] where myIgnores = [ "desktop", "desktop_window" ]
myFloats = [ "Xmessage", "Unity", "Display" ]
-myTerm = "alacritty"
-myXPConfig = def { font = "xft:Hack Nerd Font Mono:size=9"
- , bgColor = "#073642"
- , fgColor = "#b9baba"
- , position = Top
- , promptBorderWidth = 0
- }
+myTerm = "st"
+myXPConfig = def { font = "xft:Hack Nerd Font Mono:size=9"
+ , bgColor = "#073642"
+ , fgColor = "#b9baba"
+ , position = Top
+ , promptBorderWidth = 0
+ }
replace from to = intercalate to . splitOn from
data LibNotifyUrgencyHook = LibNotifyUrgencyHook deriving (Read, Show)
@@ -260,10 +260,10 @@ myAdditionalKeys =
-- My scratchpads --
--------------------
-myScratchPads = mkXScratchpads [ ("terminal", "alac.sh", resource =? "terminal" )
- , ("discord", "discord", className =? "discord" )
+myScratchPads = mkXScratchpads [ ("terminal", "st.sh", resource =? "terminal" )
+ , ("discord", "discord", className =? "discord" )
] $ customFloating $ W.RationalRect l t w h
where h = 0.9
w = 0.9
- t = 0.95 -h
- l = 0.95 -w
+ t = 0.95 - h
+ l = 0.95 - w