diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2011-06-12 21:23:39 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2011-06-12 21:23:39 +0200 |
| commit | 268b1a4fe9cea1ab6bb0aead945abeffcb6ebf82 (patch) | |
| tree | 1c5ab71839968b202fcc3080d7828ec18b2a41bc /XMonad/Layout/Spacing.hs | |
| parent | 79f42d9dd4b28df0dd0fef7c03b6dc2938fef4a9 (diff) | |
| download | XMonadContrib-268b1a4fe9cea1ab6bb0aead945abeffcb6ebf82.tar.gz XMonadContrib-268b1a4fe9cea1ab6bb0aead945abeffcb6ebf82.tar.xz XMonadContrib-268b1a4fe9cea1ab6bb0aead945abeffcb6ebf82.zip | |
L.Spacing use imported fi
Ignore-this: ac3b405e8c43d1b1db58ecf80fafab8e
darcs-hash:20110612192339-1499c-e3ed41cd5ed23daa7d16f0d679c11fab3d70eebb.gz
Diffstat (limited to 'XMonad/Layout/Spacing.hs')
| -rw-r--r-- | XMonad/Layout/Spacing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout/Spacing.hs b/XMonad/Layout/Spacing.hs index 1904638..74f7f9c 100644 --- a/XMonad/Layout/Spacing.hs +++ b/XMonad/Layout/Spacing.hs @@ -23,6 +23,7 @@ module XMonad.Layout.Spacing ( import Graphics.X11 (Rectangle(..)) import Control.Arrow (second) +import XMonad.Util.Font (fi) import XMonad.Layout.LayoutModifier @@ -51,4 +52,3 @@ instance LayoutModifier Spacing a where shrinkRect :: Int -> Rectangle -> Rectangle shrinkRect p (Rectangle x y w h) = Rectangle (x+fi p) (y+fi p) (w-2*fi p) (h-2*fi p) - where fi n = fromIntegral n -- avoid the DMR |