shellF' :: Customiser ShellF -> String -> F c d -> F c d data ShellF = Pars [Pars] instance HasWinAttr ShellF instance HasClickToType ShellF instance HasVisible ShellF instance HasMargin ShellF instance HasSizing ShellF class HasClickToType xxx where setClickToType :: Bool -> Customiser xxx getClickToType :: xxx -> Bool getClickToTypeMaybe :: xxx -> Maybe Bool instance HasClickToType ShellF class HasVisible xxx where setVisible :: Bool -> Customiser xxx getVisible :: xxx -> Bool getVisibleMaybe :: xxx -> 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)