diff options
author | Anton Vorontsov <anton@enomsg.org> | 2014-12-20 02:13:39 +0100 |
---|---|---|
committer | Anton Vorontsov <anton@enomsg.org> | 2014-12-20 02:13:39 +0100 |
commit | 43429dc9092fa5c5e84a03c86a4eda0ed2a8350f (patch) | |
tree | 1642d24c7111e75cd0e03f06115bafc64531f927 /XMonad | |
parent | a40195fdfadb178233ecff841ebbbe26a1404638 (diff) | |
download | XMonadContrib-43429dc9092fa5c5e84a03c86a4eda0ed2a8350f.tar.gz XMonadContrib-43429dc9092fa5c5e84a03c86a4eda0ed2a8350f.tar.xz XMonadContrib-43429dc9092fa5c5e84a03c86a4eda0ed2a8350f.zip |
X.L.Master: Add FixMaster layout modifier
Ignore-this: 82e9736853287f753248af41843ceb6b
This layout modifier is useful for the case if you desire to add a master
pane that has fixed width (it's fixed even if there is just one window
opened). Especially nice feature if you don't want to have too wide
terminal in a master pane.
The layout is implemented as an addition to Master layout, so it reuses
most of the code.
darcs-hash:20141220011339-1836e-543b0c692297779d51fd6f3f71e820366c977721.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Layout/Master.hs | 30 |
1 files changed, 25 insertions, 5 deletions
diff --git a/XMonad/Layout/Master.hs b/XMonad/Layout/Master.hs index 9f756d0..9a1e80b 100644 --- a/XMonad/Layout/Master.hs +++ b/XMonad/Layout/Master.hs @@ -18,6 +18,7 @@ module XMonad.Layout.Master ( -- $usage mastered, + fixMastered, multimastered, AddMaster, ) where @@ -25,6 +26,7 @@ module XMonad.Layout.Master ( import XMonad import qualified XMonad.StackSet as S import XMonad.Layout.LayoutModifier +import Control.Monad -- $usage -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: @@ -36,6 +38,10 @@ import XMonad.Layout.LayoutModifier -- -- > mastered (1/100) (1/2) $ Grid -- +-- Or if you prefer to have a master with fixed width: +-- +-- > fixMastered (1/100) (1/2) $ Grid +-- -- Or if you want multiple (here two) master windows from the beginning: -- -- > multimastered 2 (1/100) (1/2) $ Grid @@ -53,7 +59,6 @@ import XMonad.Layout.LayoutModifier -- layout data AddMaster a = AddMaster Int Rational Rational deriving (Show, Read) --- | Modifier which converts given layout to a mastered one multimastered :: (LayoutClass l a) => Int -- ^ @k@, number of master windows -> Rational -- ^ @delta@, the ratio of the screen to resize by @@ -70,7 +75,7 @@ mastered :: (LayoutClass l a) => mastered delta frac = multimastered 1 delta frac instance LayoutModifier AddMaster Window where - modifyLayout (AddMaster k delta frac) = applyMaster k delta frac + modifyLayout (AddMaster k delta frac) = applyMaster False k delta frac modifierDescription _ = "Mastered" pureMess (AddMaster k delta frac) m @@ -80,19 +85,34 @@ instance LayoutModifier AddMaster Window where pureMess _ _ = Nothing +data FixMaster a = FixMaster (AddMaster a) deriving (Show, Read) + +instance LayoutModifier FixMaster Window where + modifyLayout (FixMaster (AddMaster k d f)) = applyMaster True k d f + modifierDescription (FixMaster a) = "Fix" ++ modifierDescription a + pureMess (FixMaster a) m = liftM FixMaster (pureMess a m) + +fixMastered :: (LayoutClass l a) => + Rational -- ^ @delta@, the ratio of the screen to resize by + -> Rational -- ^ @frac@, what portion of the screen to use for the master window + -> l a -- ^ the layout to be modified + -> ModifiedLayout FixMaster l a +fixMastered delta frac = ModifiedLayout . FixMaster $ AddMaster 1 delta frac + -- | Internal function for adding a master window and let the modified -- layout handle the rest of the windows applyMaster :: (LayoutClass l Window) => - Int + Bool + -> Int -> Rational -> Rational -> S.Workspace WorkspaceId (l Window) Window -> Rectangle -> X ([(Window, Rectangle)], Maybe (l Window)) -applyMaster k _ frac wksp rect = do +applyMaster f k _ frac wksp rect = do let st= S.stack wksp let ws = S.integrate' $ st - let n = length ws + let n = length ws + fromEnum f if n > 1 then do if(n<=k) then return ((divideCol rect ws), Nothing) |