mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 11:30:22 -07:00
1c97ca63c3
Some users like to include type signatures in their configuration. The
Minimize type constructor was not exported, making it impossible to
write a type signature when using minimize.
With this change, a user can write an xmonad.hs like:
import XMonad
import XMonad.Layout.Minimize (Minimize, minimize)
import XMonad.Layout.LayoutModifier
myLayout :: ModifiedLayout
Minimize
(Choose Tall (Choose (Mirror Tall) Full))
Window
myLayout = minimize $ layoutHook def
main :: IO ()
main = xmonad def { layoutHook = myLayout }
76 lines
2.7 KiB
Haskell
76 lines
2.7 KiB
Haskell
{-# LANGUAGE MultiParamTypeClasses, TypeSynonymInstances, FlexibleContexts, PatternGuards #-}
|
|
----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Layout.Minimize
|
|
-- Copyright : (c) Jan Vornberger 2009, Alejandro Serrano 2010
|
|
-- License : BSD3-style (see LICENSE)
|
|
--
|
|
-- Maintainer : jan.vornberger@informatik.uni-oldenburg.de
|
|
-- Stability : unstable
|
|
-- Portability : not portable
|
|
--
|
|
-- Makes it possible to minimize windows, temporarily removing them
|
|
-- from the layout until they are restored.
|
|
--
|
|
-----------------------------------------------------------------------------
|
|
|
|
module XMonad.Layout.Minimize (
|
|
-- * Usage
|
|
-- $usage
|
|
Minimize,
|
|
minimize,
|
|
) where
|
|
|
|
import XMonad
|
|
import qualified XMonad.StackSet as W
|
|
import XMonad.Util.Minimize (Minimized(..))
|
|
import XMonad.Layout.LayoutModifier
|
|
import XMonad.Layout.BoringWindows as BW
|
|
import qualified XMonad.Util.ExtensibleState as XS
|
|
|
|
-- $usage
|
|
-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
|
|
--
|
|
-- > import XMonad.Layout.Minimize
|
|
--
|
|
-- Then edit your @layoutHook@ by adding the Minimize layout modifier:
|
|
--
|
|
-- > myLayout = minimize (Tall 1 (3/100) (1/2)) ||| Full ||| etc..
|
|
-- > main = xmonad def { layoutHook = myLayout }
|
|
--
|
|
-- For more detailed instructions on editing the layoutHook see:
|
|
--
|
|
-- "XMonad.Doc.Extending#Editing_the_layout_hook"
|
|
--
|
|
-- The module is designed to work together with "XMonad.Layout.BoringWindows" so
|
|
-- that minimized windows will be skipped over when switching the focused window with
|
|
-- the keyboard. Include 'BW.boringWindows' in your layout hook and see the
|
|
-- documentation of "XMonad.Layout.BoringWindows" on how to modify your keybindings.
|
|
--
|
|
-- See "XMonad.Actions.Minimize" for possible actions for minimizing/restoring windows
|
|
--
|
|
-- Also see "XMonad.Hooks.Minimize" if you want to be able to minimize
|
|
-- and restore windows from your taskbar.
|
|
|
|
data Minimize a = Minimize deriving ( Read, Show )
|
|
minimize :: l Window -> ModifiedLayout Minimize l Window
|
|
minimize = ModifiedLayout Minimize
|
|
|
|
|
|
instance LayoutModifier Minimize Window where
|
|
modifierDescription _ = "Minimize"
|
|
|
|
modifyLayout Minimize wksp rect = do
|
|
minimized <- XS.gets minimizedStack
|
|
let stack = W.stack wksp
|
|
filtStack = stack >>= W.filter (`notElem` minimized)
|
|
runLayout (wksp {W.stack = filtStack}) rect
|
|
|
|
handleMess Minimize m
|
|
| Just BW.UpdateBoring <- fromMessage m = do
|
|
minimized <- XS.gets minimizedStack
|
|
ws <- gets (W.workspace . W.current . windowset)
|
|
flip sendMessageWithNoRefresh ws $ BW.Replace "Minimize" minimized
|
|
return Nothing
|
|
| otherwise = return Nothing
|