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

Rename variable in L.Minimize to avoid shadowing.

Browse Source 
This "state" is new with a newer mtl.
This commit is contained in:
Adam Vogt
2012-11-09 00:34:10 +00:00
parent 53c2e7833c
commit e776260133
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Layout/Minimize.hs
View File

@@ -84,12 +84,12 @@ setMinimizedState :: Window -> Int -> (CLong -> [CLong] -> [CLong]) -> X ()
setMinimizedState win st f = do setMinimizedState win st f = do
setWMState win st setWMState win st
withDisplay $ \dpy -> do withDisplay $ \dpy -> do
state <- getAtom "_NET_WM_STATE" wm_state <- getAtom "_NET_WM_STATE"
mini <- getAtom "_NET_WM_STATE_HIDDEN" mini <- getAtom "_NET_WM_STATE_HIDDEN"
wstate <- fromMaybe [] `fmap` getProp32 state win wstate <- fromMaybe [] `fmap` getProp32 wm_state win
let ptype = 4 -- The atom property type for changeProperty let ptype = 4 -- The atom property type for changeProperty
fi_mini = fromIntegral mini fi_mini = fromIntegral mini
io $ changeProperty32 dpy win state ptype propModeReplace (f fi_mini wstate) io $ changeProperty32 dpy win wm_state ptype propModeReplace (f fi_mini wstate)
setMinimized :: Window -> X () setMinimized :: Window -> X ()
setMinimized win = setMinimizedState win iconicState (:) setMinimized win = setMinimizedState win iconicState (:)