diff options
Diffstat (limited to 'XMonad/Actions/WindowMenu.hs')
-rw-r--r-- | XMonad/Actions/WindowMenu.hs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/XMonad/Actions/WindowMenu.hs b/XMonad/Actions/WindowMenu.hs index 0401424..9d30823 100644 --- a/XMonad/Actions/WindowMenu.hs +++ b/XMonad/Actions/WindowMenu.hs @@ -41,21 +41,14 @@ import XMonad.Util.XUtils (fi) -- -- > , ((modMask x, xK_o ), windowMenu) -simpleColorizer :: (Monad m) => t -> t -> t1 -> Bool -> m (t, [Char]) -simpleColorizer nBC _ _ False = return (nBC, "black") -simpleColorizer _ fBC _ True = return (fBC, "black") - windowMenu :: X () windowMenu = withFocused $ \w -> do - nBC <- asks (normalBorderColor . config) - fBC <- asks (focusedBorderColor . config) tags <- asks (workspaces . config) Rectangle x y wh ht <- getSize w Rectangle sx sy swh sht <- gets $ screenRect . W.screenDetail . W.current . windowset let originFractX = (fi x - fi sx + fi wh / 2) / fi swh originFractY = (fi y - fi sy + fi ht / 2) / fi sht - colorizer = simpleColorizer nBC fBC - gsConfig = (buildDefaultGSConfig colorizer) + gsConfig = defaultGSConfig { gs_originFractX = originFractX , gs_originFractY = originFractY } actions = [ ("Cancel menu", return ()) |