diff options
| author | tv <tv@krebsco.de> | 2025-01-31 05:32:34 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2025-01-31 05:46:53 +0100 |
| commit | 462b92a744fd6302c0e29ff07792ad27dfc5a02e (patch) | |
| tree | 1cd597eb39c07ded5b8b8c4e0b159ea1ef86a784 | |
| parent | cb39058136c9c7c9abbc929807863b08bf02bd06 (diff) | |
xmonad: read master width and delta from env
| -rw-r--r-- | pkgs/haskell/xmonad-tv/src/main.hs | 8 |
1 files 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 |