-
- -- Imports.
- import XMonad
- import XMonad.Hooks.DynamicLog
- import XMonad.Hooks.UrgencyHook
- import XMonad.Actions.UpdatePointer
- -- The main function.
- main = xmonad =<< statusBar myBar myPP toggleStrutsKey myConfig
-
- -- Command to launch the bar.
- myBar = "xmobar"
-
- -- Custom PP, configure it as you like. It determines what's being written to the bar.
- myPP = xmobarPP { ppCurrent = xmobarColor "#1793D1" ""
- ,ppTitle = xmobarColor "#1793D1" ""
- ,ppUrgent = xmobarColor "#000000" "#1793D1". xmobarStrip
- }
-
- --StrutsKey
- toggleStrutsKey XConfig { XMonad.modMask = modMask} = (modMask, xK_b)
-
- --Main configuration
- myConfig = withUrgencyHook NoUrgencyHook defaultConfig {
- terminal = "urxvt"
- --,modMask = mod4Mask
- ,workspaces = ["1:web", "2:dev","3:fm","4:media","5:cli","6:office","7:download","8:gfx","9:vbox"]
- ,normalBorderColor = "#1793D1"
- ,focusedBorderColor = "#1793D1"
- ,logHook = updatePointer $ TowardsCentre 1 1
- ,manageHook = composeAll [ className =? "SMplayer" --> doFloat
- , className =? "Gimp" --> doFloat
- , resource =? "xfce4-notifyd" --> doIgnore
- ]
- }
-
-