aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Hooks
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2015-03-10 22:42:46 +0100
committerAdam Vogt <vogt.adam@gmail.com>2015-03-10 22:42:46 +0100
commit3597a5f93e3858f0df121b671ea77e10f01c6ada (patch)
tree7addece01d0a5e08f06b1efbd117488cc9a1e161 /XMonad/Hooks
parentc994eb6e375d47c6ad065ded4ec66936a3047043 (diff)
downloadXMonadContrib-3597a5f93e3858f0df121b671ea77e10f01c6ada.tar.gz
XMonadContrib-3597a5f93e3858f0df121b671ea77e10f01c6ada.tar.xz
XMonadContrib-3597a5f93e3858f0df121b671ea77e10f01c6ada.zip
add instance Default WallpaperConf
Ignore-this: 18e74f249b35726acd4b923ecce3085 darcs-hash:20150310214246-1499c-79c35435301e48bf076f95e31ee04d8ac9580aef.gz
Diffstat (limited to 'XMonad/Hooks')
-rw-r--r--XMonad/Hooks/WallpaperSetter.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/XMonad/Hooks/WallpaperSetter.hs b/XMonad/Hooks/WallpaperSetter.hs
index 5f0f608..00a3b1c 100644
--- a/XMonad/Hooks/WallpaperSetter.hs
+++ b/XMonad/Hooks/WallpaperSetter.hs
@@ -96,6 +96,9 @@ data WallpaperConf = WallpaperConf {
defWallpaperConf :: WallpaperConf
defWallpaperConf = WallpaperConf "" $ WallpaperList []
+instance Default WallpaperConf where
+ def = defWallpaperConf
+
-- |returns the default association list (maps name to name.jpg, non-alphanumeric characters are omitted)
defWPNames :: [WorkspaceId] -> WallpaperList
defWPNames xs = WallpaperList $ map (\x -> (x,WallpaperFix (filter isAlphaNum x++".jpg"))) xs