dotfiles/xmonad/xmonad.hs
Adam Cooper a3fa29cde3 Various items
- [X11] Bring .xinitrc under version control
- [awesome] Clean up autorun script
- [awesome] Clean up config
- [neovim] Clean up config, minor changes
2023-10-01 13:22:26 -04:00

48 lines
1.5 KiB
Haskell

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops
import XMonad.Util.EZConfig
import XMonad.Util.Loggers
import XMonad.Util.Ungrab
import XMonad.Config.Xfce
main :: IO ()
-- main :: XConfig l
main = xmonad
. ewmh
=<< statusBar "xmobar" myXmobarPP toggleStrutsKey myConfig
where
toggleStrutsKey :: XConfig Layout -> (KeyMask, KeySym)
toggleStrutsKey XConfig{ modMask = m } = (m, xK_b)
myConfig = xmonad xfceConfig
{ borderWidth = 4
, terminal = "/home/adam/.local/bin/alacritty"
, modMask = mod4Mask
, focusedBorderColor = "#ff00ff"
}
`additionalKeysP`
[ ("M-S-<Return>", spawn "/home/adam/.local/bin/alacritty msg create-window || /home/adam/.local/bin/alacritty")
, ("M-S-q", spawn "xfce4-session-logout")
]
myXmobarPP :: PP
myXmobarPP = def
{ ppSep = magenta ""
, ppTitle = shorten 32
, ppTitleSanitize = xmobarStrip
, ppCurrent = wrap (mediumblue "[") (mediumblue "]")
, ppHidden = midnightblue . wrap " " ""
, ppHiddenNoWindows = teal . wrap " " ""
, ppUrgent = red . wrap (red "!") (red "!")
}
where
midnightblue, mediumblue, magenta, red, white, yellow, teal :: String -> String
midnightblue = xmobarColor "#191970" ""
mediumblue = xmobarColor "#0000cd" ""
magenta = xmobarColor "#ff79c6" ""
white = xmobarColor "#f8f8f2" ""
yellow = xmobarColor "#f1fa8c" ""
red = xmobarColor "#ff5555" ""
teal = xmobarColor "#008080" ""