primrose/.files
1
0
Fork 0
mirror of https://codeberg.org/leana8959/.files.git synced 2026-02-01 14:39:39 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

vanadium/xmonad: revert to (a better version of) tallr

Browse source
This commit is contained in:
Primrose 2025-12-09 22:18:26 +08:00
parent 0a0020a641
commit a1177c3378
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
1 changed files with 16 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

43
nix/configurations/vanadium/home/xmonad/xmonad.hs
View file

@ -13,10 +13,8 @@ import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.OnPropertyChange import XMonad.Hooks.OnPropertyChange
import XMonad.Hooks.RefocusLast import XMonad.Hooks.RefocusLast
import XMonad.Hooks.StatusBar import XMonad.Hooks.StatusBar
import XMonad.Layout.Accordion
import XMonad.Layout.FocusTracking import XMonad.Layout.FocusTracking
import XMonad.Layout.Grid import XMonad.Layout.IfMax
import XMonad.Layout.LimitWindows
import XMonad.Layout.Magnifier hiding (Toggle) import XMonad.Layout.Magnifier hiding (Toggle)
import qualified XMonad.Layout.Magnifier as Mag import qualified XMonad.Layout.Magnifier as Mag
import XMonad.Layout.NoBorders import XMonad.Layout.NoBorders
@ -71,31 +69,24 @@ main =
myLayout = myLayout =
avoidStruts avoidStruts
$ smartBorders $ smartBorders
$ onWorkspace researchWS (toggleLayouts grid accordion) $ onWorkspace researchWS (toggleLayouts (magnifier tallr) full)
$ onWorkspace chatWS (toggleLayouts grid accordion) $ onWorkspace chatWS (toggleLayouts (magnifier tallr) full)
$ onWorkspace multimediaWS (toggleLayouts grid accordion) $ onWorkspace multimediaWS (toggleLayouts (magnifier tallr) full)
$ toggleLayouts (focusTracking Full) (mag tallr) $ toggleLayouts (magnifier tallr) full
where where
full = focusTracking Full
tallrN n =
smartSpacingWithEdge 5
$ reflectMsg . reflectHoriz
$ ResizableTall n (1/10) (3/7) []
tallr = tallr =
renamed [ Replace "Tall" ] renamed [ Replace "Tall" ]
$ smartSpacingWithEdge 5 $ ifMax 3 (tallrN 1)
$ reflectMsg . reflectHoriz $ ifMax 5 (tallrN 2)
$ ResizableTall 1 (1/10) (3/7) [] $ ifMax 7 (tallrN 3)
$ tallrN 4
mag = magnifyxy 1.05 1.3 (NoMaster 3) False
grid =
renamed [ Replace "Grid" ]
$ smartSpacingWithEdge 5
$ Grid
accordion =
renamed [ Replace "Accordion" ]
$ smartSpacingWithEdge 5
$ limitSlice 3
$ reflectHoriz
$ Mirror
$ Accordion
isSioyek :: Query Bool isSioyek :: Query Bool
isSioyek = className =? "sioyek" isSioyek = className =? "sioyek"
@ -291,8 +282,6 @@ keybinds =
, ((0, xF86XK_AudioNext), spawn "playerctl next" ) , ((0, xF86XK_AudioNext), spawn "playerctl next" )
-- Resize windows -- Resize windows
, ((superMask, xK_equal ), sendMessage $ IncMasterN 1)
, ((superMask, xK_minus ), sendMessage $ IncMasterN -1)
, ((superMask, xK_comma ), sendMessage Shrink ) , ((superMask, xK_comma ), sendMessage Shrink )
, ((superMask, xK_period ), sendMessage Expand ) , ((superMask, xK_period ), sendMessage Expand )
, ((superMask .|. shiftMask, xK_comma ), sendMessage MirrorShrink ) , ((superMask .|. shiftMask, xK_comma ), sendMessage MirrorShrink )