2011-12-03 05:45:18 +00:00
|
|
|
-- default desktop configuration for Fedora
|
|
|
|
|
|
2015-09-28 10:08:50 +00:00
|
|
|
import System.Posix.Env (getEnv)
|
2011-12-03 05:45:18 +00:00
|
|
|
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
|
2013-02-25 15:11:47 +00:00
|
|
|
desktop "xmonad-mate" = gnomeConfig
|
2011-12-03 05:45:18 +00:00
|
|
|
desktop _ = desktopConfig
|
