diff options
| author | Roman Cheplyaka <roma@ro-che.info> | 2008-11-10 20:15:34 +0100 |
|---|---|---|
| committer | Roman Cheplyaka <roma@ro-che.info> | 2008-11-10 20:15:34 +0100 |
| commit | f85c175e63647190f42e234167fc94d8eed30d60 (patch) | |
| tree | 8e28cdcb8bbb782e44b0c0b360570cf17a5dbba9 | |
| parent | ea862475e23baa433dc2de544b3b404dd36fd9f2 (diff) | |
| download | XMonadContrib-f85c175e63647190f42e234167fc94d8eed30d60.tar.gz XMonadContrib-f85c175e63647190f42e234167fc94d8eed30d60.tar.xz XMonadContrib-f85c175e63647190f42e234167fc94d8eed30d60.zip | |
Exported shrinkWhile from Decoration to use in GridSelect
darcs-hash:20081110191534-3ebed-aad022b55c2e295f1652358de879a40d9f970ac4.gz
| -rw-r--r-- | XMonad/Actions/GridSelect.hs | 11 | ||||
| -rw-r--r-- | XMonad/Layout/Decoration.hs | 2 |
2 files changed, 1 insertions, 12 deletions
diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs index 779ba19..c268f6a 100644 --- a/XMonad/Actions/GridSelect.hs +++ b/XMonad/Actions/GridSelect.hs @@ -96,17 +96,6 @@ tupadd (a,b) (c,d) = (a+c,b+d) tupmul :: (Num t1, Num t) => (t, t1) -> (t, t1) -> (t, t1) tupmul (a,b) (c,d) = (a*c,b*d) --- shrinkWhile should be exported from Decoration.hs -shrinkWhile :: Monad m => (String -> [String]) -> (String -> m Bool) -> String -> m String -shrinkWhile sh p x = sw $ sh x - where sw [n] = return n - sw [] = return "" - sw (n:ns) = do - cond <- p n - if cond - then sw ns - else return n - drawWinBox :: Display -> Window -> XMonadFont -> (String, String) -> Integer -> Integer -> String -> Integer -> Integer -> Integer -> X () drawWinBox dpy win font (fg,bg) ch cw text x y cp = do gc <- liftIO $ createGC dpy win diff --git a/XMonad/Layout/Decoration.hs b/XMonad/Layout/Decoration.hs index c17d71c..776108f 100644 --- a/XMonad/Layout/Decoration.hs +++ b/XMonad/Layout/Decoration.hs @@ -24,7 +24,7 @@ module XMonad.Layout.Decoration , DecorationStyle (..) , DefaultDecoration (..) , Shrinker (..), DefaultShrinker - , shrinkText, CustomShrink ( CustomShrink ) + , shrinkText, CustomShrink ( CustomShrink ), shrinkWhile , isInStack, isVisible, isInvisible, isWithin, fi , module XMonad.Layout.LayoutModifier ) where |