diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2015-03-10 22:42:46 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2015-03-10 22:42:46 +0100 |
| commit | 3597a5f93e3858f0df121b671ea77e10f01c6ada (patch) | |
| tree | 7addece01d0a5e08f06b1efbd117488cc9a1e161 | |
| parent | c994eb6e375d47c6ad065ded4ec66936a3047043 (diff) | |
| download | XMonadContrib-3597a5f93e3858f0df121b671ea77e10f01c6ada.tar.gz XMonadContrib-3597a5f93e3858f0df121b671ea77e10f01c6ada.tar.xz XMonadContrib-3597a5f93e3858f0df121b671ea77e10f01c6ada.zip | |
add instance Default WallpaperConf
Ignore-this: 18e74f249b35726acd4b923ecce3085
darcs-hash:20150310214246-1499c-79c35435301e48bf076f95e31ee04d8ac9580aef.gz
| -rw-r--r-- | XMonad/Hooks/WallpaperSetter.hs | 3 |
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 |