diff options
| author | Charles Cabergs <me@cacharle.xyz> | 2024-08-06 22:07:24 +0200 |
|---|---|---|
| committer | Charles Cabergs <me@cacharle.xyz> | 2024-08-06 22:07:24 +0200 |
| commit | bbdb6227cf78c8bebba721fae008caeefb9bc6da (patch) | |
| tree | 5fb08fa07bfa54654c4dcf96d85dc89f114b287a /config/xmonad/xmonad.hs | |
| parent | 9c172ccd43eee346fdaea68a11d7fdcd26910727 (diff) | |
| download | dotfiles-bbdb6227cf78c8bebba721fae008caeefb9bc6da.tar.gz dotfiles-bbdb6227cf78c8bebba721fae008caeefb9bc6da.tar.bz2 dotfiles-bbdb6227cf78c8bebba721fae008caeefb9bc6da.zip | |
Update xmonad layout to change according to host
Diffstat (limited to 'config/xmonad/xmonad.hs')
| -rw-r--r-- | config/xmonad/xmonad.hs | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/config/xmonad/xmonad.hs b/config/xmonad/xmonad.hs index 57f8d74..7862565 100644 --- a/config/xmonad/xmonad.hs +++ b/config/xmonad/xmonad.hs @@ -19,6 +19,7 @@ import XMonad.Layout.Spacing (Border (..), spacingRaw) import XMonad.Layout.Grid (Grid (..)) import XMonad.Layout.ThreeColumns (ThreeCol (ThreeColMid)) import XMonad.Layout.CenteredIfSingle (centeredIfSingle) +import XMonad.Layout.OnHost (onHost) -- Hooks import XMonad.Hooks.InsertPosition (Focus (..), Position (..), @@ -33,9 +34,9 @@ import XMonad.StackSet (swapUp) import XMonad.Layout.LayoutScreens import XMonad.Layout.TwoPane - myTerminal = "alacritty" + -- xmonad :: XConfig -> IO () -- https://hackage.haskell.org/package/xmonad-0.15/docs/XMonad-Core.html#t:XConfig main = xmonad $ desktopConfig @@ -53,14 +54,15 @@ main = xmonad $ desktopConfig } `additionalKeysP` keys' -layoutHook' = spacing' 4 $ centeredIfSingle (1/2) (95/100) (ThreeColMid 1 (3/100) (1/2)) - ||| reflectHoriz tiledVerticalBigMaster -- main monitor is slighly to the left - ||| tiledVerticalBigMaster -- bigger master for code and smaller slave for compiling - ||| noBorders Full -- disable borders for fullscreen layout - ||| Mirror tiledHorizontalEven -- 50/50 horizontal split - ||| Grid - -- ||| layoutScreens 2 (TwoPane 0.5 0.5) - where tiledVerticalBigMaster = Tall 1 (3 / 100) (3 / 5) +layoutHook' = spacing' 4 $ onHost "charles-fractal" (threeColMid ||| commonLayout) commonLayout + where commonLayout = reflectHoriz tiledVerticalBigMaster -- main monitor is slighly to the left + ||| tiledVerticalBigMaster -- bigger master for code and smaller slave for compiling + ||| noBorders Full -- disable borders for fullscreen layout + ||| Mirror tiledHorizontalEven -- 50/50 horizontal split + ||| Grid + -- ||| layoutScreens 2 (TwoPane 0.5 0.5) + threeColMid = centeredIfSingle (1/2) (95/100) (ThreeColMid 1 (3/100) (1/2)) + tiledVerticalBigMaster = Tall 1 (3 / 100) (3 / 5) tiledHorizontalEven = Tall 1 (3 / 100) (1 / 2) spacing' x = spacingRaw True (Border x x x x) False (Border x x x x) True |