
On 21 December 2015 at 20:16, Brent Yorgey
Is there anything else that needs to happen? e.g. does the website need to be updated?
Here's a minimal, modern xmonad.hs, which we should include in the announcement and ideally also on the website's getting started page. Feel free to improve. import System.Exit import XMonad import XMonad.Hooks.DynamicLog import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageHelpers import XMonad.Layout.Fullscreen import XMonad.Layout.LayoutHints import XMonad.Layout.NoBorders import XMonad.Prompt import XMonad.Prompt.ConfirmPrompt import XMonad.Prompt.Shell import XMonad.Util.EZConfig import XMonad.Util.Run(hPutStrLn, spawnPipe) main = do xmproc <- spawnPipe "xmobar ~/.xmonad/xmobarrc" xmonad $ defaultConfig { terminal = "xterm" , manageHook = myManageHook <+> fullscreenManageHook <+> manageDocks <+> manageHook defaultConfig , layoutHook = fullscreenFloat $ fullscreenFocus $ layoutHints $ smartBorders $ avoidStruts $ layoutHook defaultConfig , handleEventHook = fullscreenEventHook , logHook = dynamicLogWithPP $ xmobarPP { ppOutput = hPutStrLn xmproc } } `removeKeysP` [ "M-S-q" , "M-p" ] `additionalKeysP` [ ("M-S-q", confirmPrompt myXPConfig "exit" $ io exitSuccess) , ("M-p", shellPrompt myXPConfig) ] `additionalKeys` [ ((mod4Mask, xK_q), spawn "xmonad --recompile && xmonad --restart") ] myXPConfig = defaultXPConfig { position = Top , promptBorderWidth = 0 , defaultText = "" , alwaysHighlight = True , font = "9x15" } myManageHook = composeAll [ className =? "Pidgin" --> doFloat , className =? "MuPDF" --> doFloat , className =? "XCalc" --> doFloat , className =? "mpv" --> doFloat ]