Adam Cooper
60793326fb
- [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
44 lines
1.4 KiB
Haskell
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" ""
|