[XMonad] Fix several minor things

This commit is contained in:
Ivan Malison 2016-11-24 15:26:43 -08:00
parent 21204e420e
commit 35b5405ef7
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -45,7 +45,8 @@ import XMonad.Util.CustomKeys
import qualified XMonad.Util.Dmenu as DM import qualified XMonad.Util.Dmenu as DM
import qualified XMonad.Util.ExtensibleState as XS import qualified XMonad.Util.ExtensibleState as XS
import XMonad.Util.Minimize import XMonad.Util.Minimize
import XMonad.Util.NamedScratchpad (NamedScratchpad(NS), nonFloating, namedScratchpadAction) import XMonad.Util.NamedScratchpad
(NamedScratchpad(NS), nonFloating, namedScratchpadAction)
import XMonad.Util.NamedWindows (getName) import XMonad.Util.NamedWindows (getName)
main = xmonad $ def main = xmonad $ def
@ -220,7 +221,7 @@ myDecorateName ws w = do
return $ printf "%-20s%-40s %+30s" classTitle (take 40 name) return $ printf "%-20s%-40s %+30s" classTitle (take 40 name)
"in " ++ workspaceToName (W.tag ws) "in " ++ workspaceToName (W.tag ws)
-- This needs access to X in order to unminimize, which means that i can't be -- This needs access to X in order to unminimize, which means that I can't be
-- done with the existing window bringer interface -- done with the existing window bringer interface
myBringWindow WindowBringerConfig{ menuCommand = cmd myBringWindow WindowBringerConfig{ menuCommand = cmd
, menuArgs = args , menuArgs = args