cristiancmoises
/
modern_lisp-machine
mirror of https://codeberg.org/hashirama/modern_lisp-machine
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

mirrored layout

main
千住柱間 2024-03-16 15:41:42 +00:00
parent 0a50efa68e
commit f0a9c1e63c
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
xmonad/xmonad.hs
View File

@ -36,6 +36,9 @@ import XMonad.Actions.PerWindowKeys
import XMonad.Actions.FindEmptyWorkspace import XMonad.Actions.FindEmptyWorkspace
import XMonad.Layout.Grid import XMonad.Layout.Grid
import XMonad.Layout.PerScreen (ifWider) import XMonad.Layout.PerScreen (ifWider)
import XMonad.StackSet
import XMonad.Layout
import XMonad.Layout.Reflect
main :: IO () main :: IO ()
@ -80,6 +83,7 @@ myConfig = def
, ("M-f", viewEmptyWorkspace) -- View an empty workspace , ("M-f", viewEmptyWorkspace) -- View an empty workspace
, ("M-S-w", spawn "flameshot gui --path=/mnt/Data/mpv-screenshots/screenshots") , ("M-S-w", spawn "flameshot gui --path=/mnt/Data/mpv-screenshots/screenshots")
, ("M-w", spawn "~/.local/bin/copy_image.sh") , ("M-w", spawn "~/.local/bin/copy_image.sh")
, ("M-v", toggleLayout)
] ]
@ -97,13 +101,18 @@ myTheme = def
-- Add other theme properties as needed -- Add other theme properties as needed
} }
myLayout = mouseResize $ spacingRaw True (Border 10 10 10 10) True (Border 10 10 10 10) True $ myLayout = mouseResize $ spacingRaw True (Border 10 10 10 10) True (Border 10 10 10 10) True $
tallLayout ||| Full tallLayout ||| Full
where where
tallLayout = Tall 2 (3/100) (1/2) tallLayout = reflectHoriz $ Tall 2 (3/100) (1/2)
toggleLayout :: X ()
toggleLayout = do
currentLayout <- gets (W.layout . W.workspace . W.current . windowset)
case description currentLayout of
"Tall" -> sendMessage $ JumpToLayout "Mirror Tall"
_ -> sendMessage $ JumpToLayout "Tall"
myXmobarPP :: PP myXmobarPP :: PP
myXmobarPP = def myXmobarPP = def