Default layouts

DefaultLayouts.hs

module DefaultLayouts where

import Control.Monad
import qualified Data.Set as S
import qualified Data.Map as M

import XMonad
import qualified XMonad.Util.ExtensibleState as XS
import XMonad.Utils

type LayoutPerWorkspace = M.Map WorkspaceId String

newtype SeenWorkspaces = SeenWorkspaces (S.Set WorkspaceId)
  deriving (Eq, Read, Show, Typeable)

instance ExtensionClass SeenWorkspaces where
  initialValue = SeenWorkspaces S.empty
  extensionType = PersistentExtension

dfltLayoutPerWorkspace :: LayoutPerWorkspace -> X ()
dfltLayoutPerWorkspace m = do
  wksp <- getCurrentWorkspace
  SeenWorkspaces seen <- XS.get
  unless (wksp `S.member` seen) $ do
    whenJust (M.lookup wksp m) $ \layoutName -> do
      sendMessage (JumpToLayout layoutName)
    XS.put $ SeenWorkspaces $ S.insert wksp seen

xmonad.hs

import DefaultLayouts

myLayouts = named "tall" (Tall 1 (1/100) (1/2)) ||| named "grid" Grid ||| ...

dfltLayouts = M.fromList [("1", "tall"), ("2", "grid"), ...]

main = xmonad $ def {
    workspaces = ["1", "2", "3" ...],
    layoutHook = myLayouts,
    logHook = dfltLayoutPerWorkspace dfltLayouts
}