From 462b92a744fd6302c0e29ff07792ad27dfc5a02e Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Fri, 31 Jan 2025 05:32:34 +0100
Subject: xmonad: read master width and delta from env

---
 pkgs/haskell/xmonad-tv/src/main.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/pkgs/haskell/xmonad-tv/src/main.hs b/pkgs/haskell/xmonad-tv/src/main.hs
index 834ea83..e3090a3 100644
--- a/pkgs/haskell/xmonad-tv/src/main.hs
+++ b/pkgs/haskell/xmonad-tv/src/main.hs
@@ -70,10 +70,10 @@ readEnv' defaultValue name =
 
 mainNoArgs :: IO ()
 mainNoArgs = do
+    myMasterDelta <- readEnv' (1 / 20) "XMONAD_MASTER_DELTA" :: IO Rational
+    myMasterWidth <- readEnv' (1 / 2) "XMONAD_MASTER_WIDTH" :: IO Rational
     myScreenGaps <- readEnv' [] "XMONAD_SCREEN_GAPS" :: IO [Int]
     myScreenWidth <- readEnv "XMONAD_SCREEN_WIDTH" :: IO Dimension
-    myTermCellWidth <- readEnv "XMONAD_TERM_CELL_WIDTH" :: IO Dimension
-    myTermPadding <- readEnv "XMONAD_TERM_PADDING" :: IO Dimension
     handleShutdownEvent <- newShutdownEventHandler
     config <-
       ewmhExtra
@@ -97,8 +97,8 @@ mainNoArgs = do
                 smartBorders $
                   ResizableTall
                     1
-                    (fromIntegral (10 * myTermCellWidth) / fromIntegral myScreenWidth)
-                    (fromIntegral (80 * myTermCellWidth + 2 * (myTermPadding + borderWidth def)) / fromIntegral myScreenWidth)
+                    myMasterDelta
+                    (myMasterWidth + 2 * fromIntegral (borderWidth def) / fromIntegral myScreenWidth)
                     []
                   |||
                   StateFull
-- 
cgit v1.2.3