dotfiles/xmonad/xmonad.hs
Adam Cooper 60793326fb Various changes
- [X11] Fix backspace behavior
- [bin] Remove 'insecure' flag from curl commands in w3m-wallabagger script
- [aerc] Update column formatting
- [aerc] Update mailinglist tag
- [newsboat] Add macro to launch mpv for podcasts
- [vim] Tweaks for Python & HTML/CSS
- [xmobar] Update xmobarrc
- [xmonad] Replace xterm with alacritty
- [zsh] gomphotherium
2023-05-17 02:17:02 -04:00

44 lines
1.4 KiB
Haskell

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops
import XMonad.Util.EZConfig
import XMonad.Util.Loggers
import XMonad.Util.Ungrab
main :: IO ()
main = xmonad
. ewmh
=<< statusBar "xmobar" myXmobarPP toggleStrutsKey myConfig
where
toggleStrutsKey :: XConfig Layout -> (KeyMask, KeySym)
toggleStrutsKey XConfig{ modMask = m } = (m, xK_b)
myConfig = def
{ 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") ]
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" ""