diff options
Diffstat (limited to 'XMonad/Hooks')
| -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 |