Portability | not portable |
---|---|
Stability | unstable |
Maintainer | daniel.schoepe@gmail.com |
Module for storing custom mutable state in xmonad.
- put :: ExtensionClass a => a -> X ()
- modify :: ExtensionClass a => (a -> a) -> X ()
- remove :: ExtensionClass a => a -> X ()
- get :: ExtensionClass a => X a
- gets :: ExtensionClass a => (a -> b) -> X b
Usage
To utilize this feature in a contrib module create a data type, and make it an instance of ExtensionClass. You can then use the functions from this module for storing your data:
{-# LANGUAGE DeriveDataTypeable #-} import qualified XMonad.Util.ExtensibleState as XS data ListStorage = ListStorage [Integer] deriving Typeable instance ExtensionClass ListStorage where initialValue = ListStorage [] .. XS.put (ListStorage [23,42])
To retrieve the stored data call:
.. XS.get
If the type can't be infered from the usage of the retrieved data, you might need to add an explicit type signature:
.. XS.get :: X ListStorage
To make your data persistent between restarts, the data type needs to be an instance of Read and Show and the instance declaration has to be changed:
data ListStorage = ListStorage [Integer] deriving (Typeable,Read,Show) instance ExtensionClass ListStorage where initialValue = ListStorage [] extensionType = PersistentExtension
One should take care that the string representation of the chosen type is unique among the stored values, otherwise it will be overwritten. Normally these values contain fully qualified module names when deriving Typeable, so name collisions should not be a problem in most cases. A module should not try to store common datatypes(e.g. a list of Integers) without a custom data type as a wrapper to avoid those collisions.
put :: ExtensionClass a => a -> X ()Source
Add a value to the extensible state field. A previously stored value with the same type will be overwritten. (More precisely: A value whose string representation of its type is equal to the new one's)
modify :: ExtensionClass a => (a -> a) -> X ()Source
Apply a function to a stored value of the matching type or the initial value if there is none.
remove :: ExtensionClass a => a -> X ()Source
Remove the value from the extensible state field that has the same type as the supplied argument
get :: ExtensionClass a => X aSource
Try to retrieve a value of the requested type, return an initial value if there is no such value.
gets :: ExtensionClass a => (a -> b) -> X bSource