twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-31 20:21:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

beautify description code for empty modifier-description.

Browse Source
This commit is contained in:
David Roundy
2007-10-18 20:24:38 +00:00
parent 7910250fe4
commit 3c372e5f9a
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
LayoutModifier.hs
View File

@@ -58,8 +58,8 @@ instance (LayoutModifier m a, LayoutClass l a) => LayoutClass (ModifiedLayout m
return $ case mm' of return $ case mm' of
Just m' -> Just $ (ModifiedLayout m') $ maybe l id ml' Just m' -> Just $ (ModifiedLayout m') $ maybe l id ml'
Nothing -> (ModifiedLayout m) `fmap` ml' Nothing -> (ModifiedLayout m) `fmap` ml'
description (ModifiedLayout m l) = modDesc ++ sep ++ description l description (ModifiedLayout m l) = modifierDescription m <> description l
where modDesc = modifierDescription m where "" <> x = x
sep = if modDesc == "" then "" else " " x <> y = x ++ " " ++ y
data ModifiedLayout m l a = ModifiedLayout (m a) (l a) deriving ( Read, Show ) data ModifiedLayout m l a = ModifiedLayout (m a) (l a) deriving ( Read, Show )