shellF' :: Customiser ShellF -> String -> F a b -> F a b data ShellF instance HasMargin ShellF instance HasSizing ShellF instance HasWinAttr ShellF instance HasClickToType ShellF instance HasVisible ShellF class HasClickToType a where setClickToType :: Bool -> Customiser a getClickToType :: a -> Bool getClickToTypeMaybe :: a -> Maybe Bool instance HasClickToType ShellF class HasVisible a where setVisible :: Bool -> Customiser a getVisible :: a -> Bool getVisibleMaybe :: a -> Maybe Bool instance HasVisible ShellF setDeleteWindowAction :: Maybe DeleteWindowAction -> Customiser ShellF setDeleteQuit :: Bool -> Customiser ShellF setInitPos :: Maybe Point -> Customiser ShellF data DeleteWindowAction = DeleteQuit | DeleteUnmap instance Eq DeleteWindowAction instance Show DeleteWindowAction
Customisable version of shellF.
setDeleteQuit b = setDeleteWindowAction (if b then Just DeleteQuit else Nothing)