Skip to content

Instantly share code, notes, and snippets.

@alanjcfs
Created July 24, 2014 18:11
Show Gist options
  • Save alanjcfs/e0cbb8dbd9d64e85b03e to your computer and use it in GitHub Desktop.
Save alanjcfs/e0cbb8dbd9d64e85b03e to your computer and use it in GitHub Desktop.
xmonad config (provided by Fedora with some of my modifications)
-- 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
import XMonad.Hooks.DynamicLog
import XMonad.Util.Run -- spawnPipe and hPutStrLn
import XMonad.Hooks.ManageDocks
import XMonad.Util.EZConfig
main = do
h <- spawnPipe "xmobar"
session <- getEnv "DESKTOP_SESSION"
xmonad $ ( maybe desktopConfig desktop session )
{ modMask = mod4Mask
, terminal = myTerminal
, logHook = dynamicLogWithPP $ defaultPP { ppOutput = hPutStrLn h }
}
--desktop :: String ->
desktop "gnome" = gnomeConfig
desktop "kde" = kde4Config
desktop "xfce" = xfceConfig
desktop "xmonad-mate" = gnomeConfig
desktop _ = desktopConfig
myTerminal = "gnome-terminal"
myManageHook = composeAll . concat $
[ [ (className =? "Firefox" <&&> resource =? "Dialog") --> doFloat]
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment