diff options
| author | Charles Cabergs <me@cacharle.xyz> | 2024-08-13 22:13:01 +0200 |
|---|---|---|
| committer | Charles Cabergs <me@cacharle.xyz> | 2024-08-13 22:13:01 +0200 |
| commit | 7098fb9202cc36241dc08b6ca1cd68b6558f1629 (patch) | |
| tree | 81a8fd6079964a43c96fde54edf84ce2837a534b /config/xmonad | |
| parent | 47aaf2b29fa14eb683c6043b62cc11748cd073af (diff) | |
| parent | ce3c6a8d435272de5b549cd51c7f8fa915b64518 (diff) | |
| download | dotfiles-7098fb9202cc36241dc08b6ca1cd68b6558f1629.tar.gz dotfiles-7098fb9202cc36241dc08b6ca1cd68b6558f1629.tar.bz2 dotfiles-7098fb9202cc36241dc08b6ca1cd68b6558f1629.zip | |
Merge branch 'master' of github.com:cacharle/dotfiles
Diffstat (limited to 'config/xmonad')
| -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 |