Xmonad

Pause Café
#21

Des fois oui, des fois c’est l’inverse. Ce n’était pas la dernière version de ma configuration que tu as vu, voici la dernière :

[code]–
– An example, simple ~/.xmonad/xmonad.hs file.
– It overrides a few basic settings, reusing all the other defaults.

import XMonad
import XMonad.Layout.Tabbed
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Config.Azerty
import System.IO
–import XMonad.Hooks.ManageDocks
import XMonad.Util.EZConfig(additionalKeys)

– To configure terminal user update-alternative --config x-terminal-emulator

myBorderWidth = 1
myModMask = mod4Mask
myNormalBorderColor = "#cccccc"
myFocusedBorderColor = "#cd8b00"
myLayout = simpleTabbed ||| layoutHook defaultConfig
myWorkspaces = [“1”,“2”,“3”,“4”]
myLogHook h = dynamicLogWithPP $ xmobarPP {
ppOutput = hPutStrLn h,
ppTitle = xmobarColor “green” “” . shorten 50
}
myManageHook = manageDocks <+> manageHook defaultConfig

– A structure containing your configuration settings, overriding
– fields in the default config. Any you don’t override, will
– use the defaults defined in xmonad/XMonad/Config.hs

main = do
xmproc <- spawnPipe "xmobar"
xmonad $ azertyConfig {
– simple stuff
–focusFollowsMouse = myFocusFollowsMouse,
borderWidth = myBorderWidth,
modMask = myModMask,
workspaces = myWorkspaces,
normalBorderColor = myNormalBorderColor,
focusedBorderColor = myFocusedBorderColor,

-- key bindings
  --keys               = azertyKeys,
  --mouseBindings      = myMouseBindings,

-- hooks, layouts
  layoutHook         = myLayout,
  logHook            = myLogHook xmproc,
  manageHook         = myManageHook
  --handleEventHook    = myEventHook,
  --startupHook        = myStartupHook

}[/code]

Edit : maintenant je versionne ma configuration, on peut la trouver ici : gitorious.org/config-xmonad/con … /xmonad.hs

#22

Voici un lien qui intéressera sûrement ceux qui utilisent xmonad dans gnome ou xfce : versia.com/2011/09/xmonad-log-applet-gnome-xfce/