From 43429dc9092fa5c5e84a03c86a4eda0ed2a8350f Mon Sep 17 00:00:00 2001
From: Anton Vorontsov <anton@enomsg.org>
Date: Sat, 20 Dec 2014 02:13:39 +0100
Subject: 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
---
 XMonad/Layout/Master.hs | 30 +++++++++++++++++++++++++-----
 1 file changed, 25 insertions(+), 5 deletions(-)

(limited to 'XMonad')

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)
-- 
cgit v1.2.3