twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Minor style corrections in X.U.SpawnOnce

Browse Source
This commit is contained in:
Daniel Schoepe 2009-11-09 20:15:43 +00:00
parent da094a635d
commit e14dcd9aa6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Util/SpawnOnce.hs
View File

@ -26,14 +26,14 @@ data SpawnOnce = SpawnOnce { unspawnOnce :: (Set String) }
deriving (Read, Show, Typeable) deriving (Read, Show, Typeable)
instance ExtensionClass SpawnOnce where instance ExtensionClass SpawnOnce where
initialValue = SpawnOnce $ Set.empty initialValue = SpawnOnce Set.empty
extensionType = PersistentExtension extensionType = PersistentExtension
-- | The first time 'spawnOnce' is executed on a particular command, that -- | The first time 'spawnOnce' is executed on a particular command, that
-- command is executed. Subsequent invocations for a command do nothing. -- command is executed. Subsequent invocations for a command do nothing.
spawnOnce :: String -> X () spawnOnce :: String -> X ()
spawnOnce xs = do spawnOnce xs = do
b <- fmap (Set.member xs . unspawnOnce) $ getState b <- fmap (Set.member xs . unspawnOnce) getState
when (not b) $ do when (not b) $ do
spawn xs spawn xs
modifyState (SpawnOnce . Set.insert xs . unspawnOnce) modifyState (SpawnOnce . Set.insert xs . unspawnOnce)