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.
48 lines
1.6 KiB
Haskell
48 lines
1.6 KiB
Haskell
import Graphics.X11.ExtraTypes.XF86
|
|
import XMonad
|
|
import XMonad.Config.Desktop
|
|
import XMonad.Config.Azerty
|
|
import XMonad.Hooks.DynamicLog
|
|
import XMonad.Util.EZConfig
|
|
|
|
-- # Ligne principale
|
|
|
|
main = xmonad =<< xmobar myConfig
|
|
--main = xmonad =<< statusBar myBar myPP toggleStrutsKey myConfig
|
|
|
|
-- # Réglages de xmonad
|
|
|
|
myConfig = azertyConfig
|
|
{ terminal = "sakura"
|
|
, modMask = mod4Mask
|
|
, borderWidth = 2
|
|
, workspaces = myWorkspaces
|
|
} `additionalKeys` myKeys `removeKeys` unusefulKeys
|
|
|
|
myWorkspaces = ["1:mail","2:chat","3:web","4","5","6","7","8", "9:system"]
|
|
|
|
myKeys = [ ((0, xF86XK_MonBrightnessUp), spawn "xbacklight +10") -- +brightness
|
|
, ((0, xF86XK_MonBrightnessDown), spawn "xbacklight -10") -- -brightness
|
|
, ((0, xF86XK_AudioRaiseVolume), spawn "amixer set Master 3%+") -- +volume
|
|
, ((0, xF86XK_AudioLowerVolume), spawn "amixer set Master 3%-") -- -volume
|
|
, ((0, xF86XK_AudioMute), spawn "amixer set Master toggle") -- mute volume
|
|
, ((0, xF86XK_AudioPlay), spawn "cmus-remote -u") -- cmus play/stop
|
|
, ((0, xF86XK_AudioPrev), spawn "cmus-remote -r") -- cmus next
|
|
, ((0, xF86XK_AudioNext), spawn "cmus-remote -n") -- cmus previous
|
|
]
|
|
|
|
unusefulKeys = []
|
|
|
|
-- # Réglages de xmobar
|
|
|
|
myBar = "xmobar"
|
|
|
|
-- Custom PP, configure it as you like. It determines what is being written to the bar.
|
|
myPP = xmobarPP
|
|
{ ppCurrent = xmobarColor "black" "yellow" . wrap " " " "
|
|
}
|
|
|
|
-- Key binding to toggle the gap for the bar.
|
|
toggleStrutsKey XConfig {XMonad.modMask = modMask} = (modMask, xK_b)
|
|
|