twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Remove last excess definition of `fi' (fromIntegral)

Browse Source
This commit is contained in:
Adam Vogt 2010-09-13 23:38:50 +00:00
parent d5a5522187
commit 2e30d259b8
3 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Prompt.hs
View File

@ -71,7 +71,6 @@ import qualified XMonad.StackSet as W
import XMonad.Util.Font import XMonad.Util.Font
import XMonad.Util.Types import XMonad.Util.Types
import XMonad.Util.XSelection (getSelection) import XMonad.Util.XSelection (getSelection)
import XMonad.Util.XUtils (fi)
import Codec.Binary.UTF8.String (decodeString) import Codec.Binary.UTF8.String (decodeString)
import Control.Applicative ((<$>)) import Control.Applicative ((<$>))
@ -922,4 +921,4 @@ historyNextMatching hm@(HistoryMatches ref) next = do
-- --
historyUpMatching, historyDownMatching :: HistoryMatches -> XP () historyUpMatching, historyDownMatching :: HistoryMatches -> XP ()
historyUpMatching hm = historyNextMatching hm W.focusDown' historyUpMatching hm = historyNextMatching hm W.focusDown'
historyDownMatching hm = historyNextMatching hm W.focusUp' historyDownMatching hm = historyNextMatching hm W.focusUp'

1
XMonad/Util/Font.hs
View File

@ -29,6 +29,7 @@ module XMonad.Util.Font
, textExtentsXMF , textExtentsXMF
, printStringXMF , printStringXMF
, stringToPixel , stringToPixel
, fi
) where ) where
import XMonad import XMonad

9
XMonad/Util/Image.hs
View File

@ -18,12 +18,10 @@ module XMonad.Util.Image
Placement(..), Placement(..),
iconPosition, iconPosition,
drawIcon, drawIcon,
fi,
) where ) where
import XMonad import XMonad
import XMonad.Util.Font (stringToPixel) import XMonad.Util.Font (stringToPixel,fi)
-- | Placement of the icon in the title bar -- | Placement of the icon in the title bar
data Placement = OffsetLeft Int Int -- ^ An exact amount of pixels from the upper left corner data Placement = OffsetLeft Int Int -- ^ An exact amount of pixels from the upper left corner
@ -87,8 +85,3 @@ drawIcon dpy drw gc fc bc x y icon = do
io $ fillRectangle dpy drw gc x y (fi i_w) (fi i_h) io $ fillRectangle dpy drw gc x y (fi i_w) (fi i_h)
io $ setForeground dpy gc fcolor io $ setForeground dpy gc fcolor
io $ drawPoints dpy drw gc (movePoints x y (iconToPoints icon)) coordModeOrigin io $ drawPoints dpy drw gc (movePoints x y (iconToPoints icon)) coordModeOrigin
-- | Short-hand for 'fromIntegral'
fi :: (Integral a, Num b) => a -> b
fi = fromIntegral