diff options
| author | Thomas Ulmer <thomasmulmer02@gmail.com> | 2025-11-04 09:38:34 -0800 |
|---|---|---|
| committer | Thomas Ulmer <thomasmulmer02@gmail.com> | 2025-11-04 09:38:34 -0800 |
| commit | 2ab6fa6095dd028851b531a4963612f6d05e8962 (patch) | |
| tree | 01c554a9a19859c87090b6d5daaa74978cc29fa9 /xmonad | |
| parent | 479bc6cc343a908ec38bc1e5f3b771897578a355 (diff) | |
xmonad via cabal
Diffstat (limited to 'xmonad')
| -rwxr-xr-x | xmonad/build | 3 | ||||
| -rw-r--r-- | xmonad/xmonad.cabal | 14 | ||||
| -rw-r--r-- | xmonad/xmonad.hs | 11 |
3 files changed, 24 insertions, 4 deletions
diff --git a/xmonad/build b/xmonad/build new file mode 100755 index 0000000..4e8ab6c --- /dev/null +++ b/xmonad/build @@ -0,0 +1,3 @@ +#!/bin/sh +cd "$HOME/.xmonad" && cabal build || exit +ln -sfT "$(cabal list-bin xmonad)" "$1" diff --git a/xmonad/xmonad.cabal b/xmonad/xmonad.cabal new file mode 100644 index 0000000..774c21f --- /dev/null +++ b/xmonad/xmonad.cabal @@ -0,0 +1,14 @@ +cabal-version: 3.4 +name: xmonad-duplode +version: 0.1.0.0 + +executable xmonad + main-is: xmonad.hs + build-depends: base >= 4.13 + , xmonad >= 0.16 + , xmonad-contrib >= 0.16 + , directory + , filepath + , flow + , containers + , X11 diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs index ee131be..2fab902 100644 --- a/xmonad/xmonad.hs +++ b/xmonad/xmonad.hs @@ -21,6 +21,7 @@ import XMonad.Actions.Minimize (minimizeWindow, withLastMinimized, maximizeWindo import XMonad.Layout.NoBorders (noBorders, smartBorders) import XMonad.Layout.Minimize (minimize) +import XMonad.Layout.ResizableThreeColumns import qualified XMonad.Layout.BoringWindows as BW myTerminal = "urxvt" @@ -76,7 +77,9 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $ , ((modm, xK_h ), sendMessage Shrink) , ((modm, xK_l ), sendMessage Expand) - + , ((modm .|. shiftMask, xK_h ), sendMessage MirrorShrink) + , ((modm .|. shiftMask, xK_l ), sendMessage MirrorExpand) + -- floating -> tiling , ((modm, xK_t ), withFocused $ windows . W.sink) @@ -131,11 +134,11 @@ myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList ------------------------------------------------------------------------ -- Layouts: -myLayout = smartBorders tiled ||| noBorders Full +myLayout = smartBorders tiled ||| smartBorders threeCol ||| smartBorders Full where - tiled = Tall nmaster delta ratio + threeCol = ResizableThreeCol nmaster delta (1/3) [] + tiled = Tall nmaster delta (3/5) nmaster = 1 - ratio = 3/5 delta = 2/100 ------------------------------------------------------------------------ |