xmonad/xmonad.hs

21 lines
478 B
Haskell
Raw Normal View History

-- default desktop configuration for Fedora
import System.Posix.Env (getEnv)
import Data.Maybe (maybe)
import XMonad
import XMonad.Config.Desktop
import XMonad.Config.Gnome
import XMonad.Config.Kde
import XMonad.Config.Xfce
main = do
session <- getEnv "DESKTOP_SESSION"
xmonad $ maybe desktopConfig desktop session
desktop "gnome" = gnomeConfig
desktop "kde" = kde4Config
desktop "xfce" = xfceConfig
2012-02-07 02:26:35 +00:00
desktop "xmonad-gnome" = gnomeConfig
desktop _ = desktopConfig