You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
1.1 KiB
Haskell
34 lines
1.1 KiB
Haskell
module Main where
|
|
|
|
import XMonad
|
|
import XMonad.Hooks.EwmhDesktops (ewmh)
|
|
import XMonad.Hooks.ManageDocks
|
|
import XMonad.Layout.Spacing
|
|
import XMonad.Util.EZConfig
|
|
import System.Taffybar.Hooks.PagerHints (pagerHints)
|
|
|
|
lightBlue = "#66aaff"
|
|
|
|
main = xmonad $ docks $ ewmh $ pagerHints defaultConfig
|
|
{ terminal = "urxvt"
|
|
, modMask = mod4Mask
|
|
, workspaces = [ "1", "2", "3" ]
|
|
, borderWidth = 2
|
|
, normalBorderColor = "#000000"
|
|
, focusedBorderColor = lightBlue
|
|
, focusFollowsMouse = False
|
|
, layoutHook = avoidStruts $ spacingWithEdge 6 $ layoutHook defaultConfig
|
|
, startupHook = do
|
|
spawn "pkill polybar; polybar top &"
|
|
spawn "compton"
|
|
spawn "xsetroot -solid black -cursor_name left_ptr"
|
|
spawn "feh --bg-fill ~/Sync/Pictures/Wallpaper/space2.jpg"
|
|
}
|
|
`additionalKeysP`
|
|
[ ("M1-<Space>", spawn "rofi -show combi")
|
|
, ("M-p", spawn "rofi -show combi")
|
|
, ("<XF86AudioMute>", spawn "amixer set Master toggle")
|
|
, ("<XF86AudioLowerVolume>", spawn "amixer -q sset Master 5%-")
|
|
, ("<XF86AudioRaiseVolume>", spawn "amixer -q sset Master 5%+")
|
|
]
|