diff options
| -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 |