mirror of
https://codeberg.org/JasterV/dotfiles.git
synced 2026-04-26 18:40:04 +00:00
87 lines
3 KiB
Haskell
87 lines
3 KiB
Haskell
import XMonad
|
|
import XMonad.Hooks.DynamicLog
|
|
import XMonad.Hooks.EwmhDesktops
|
|
import XMonad.Hooks.ManageDocks
|
|
import XMonad.Hooks.ManageHelpers
|
|
import XMonad.Hooks.StatusBar
|
|
import XMonad.Hooks.StatusBar.PP
|
|
import XMonad.Layout.Magnifier
|
|
import XMonad.Layout.ThreeColumns
|
|
import XMonad.Operations
|
|
import XMonad.Util.EZConfig
|
|
import XMonad.Util.Loggers
|
|
import XMonad.Util.SpawnOnce
|
|
|
|
main :: IO ()
|
|
main =
|
|
xmonad
|
|
. ewmhFullscreen
|
|
. ewmh
|
|
. withEasySB (statusBarProp "xmobar -x 0 ~/.config/xmobar/xmobarrc" (pure myXmobarPP)) defToggleStrutsKey
|
|
$ myConfig
|
|
|
|
myConfig =
|
|
def
|
|
{ modMask = mod4Mask, -- Rebind Mod to the Super key
|
|
layoutHook = myLayout, -- Use custom layouts
|
|
manageHook = myManageHook, -- Match on certain windows
|
|
startupHook = myStartupHook,
|
|
terminal = "ghostty"
|
|
}
|
|
`additionalKeysP` [ ("M-S-z", spawn "xscreensaver-command -lock"),
|
|
("M-C-s", unGrab *> spawn "scrot -s"),
|
|
("M-f", spawn "brave-browser")
|
|
]
|
|
|
|
myStartupHook = do
|
|
spawnOnce "sh ~/.screenlayout/default.sh"
|
|
spawnOnce "xsetroot -cursor_name left_ptr"
|
|
spawnOnce "xfce4-power-manager &"
|
|
spawnOnce "nm-applet --sm-disable &"
|
|
spawnOnce "trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 10 --transparent true --tint 0x5f5f5f --height 18 &"
|
|
spawnOnce "feh --bg-fill /usr/share/backgrounds/Fuji_san_by_amaral.png"
|
|
spawnOnce "xscreensaver -no-splash &"
|
|
|
|
myManageHook :: ManageHook
|
|
myManageHook =
|
|
composeAll
|
|
[ className =? "Gimp" --> doFloat,
|
|
isDialog --> doFloat
|
|
]
|
|
|
|
myLayout = tiled ||| Mirror tiled ||| Full ||| threeCol
|
|
where
|
|
threeCol = magnifiercz' 1.3 $ ThreeColMid nmaster delta ratio
|
|
tiled = Tall nmaster delta ratio
|
|
nmaster = 1 -- Default number of windows in the master pane
|
|
ratio = 1 / 2 -- Default proportion of screen occupied by master pane
|
|
delta = 3 / 100 -- Percent of screen to increment by when resizing panes
|
|
|
|
myXmobarPP :: PP
|
|
myXmobarPP =
|
|
def
|
|
{ ppSep = magenta " • ",
|
|
ppTitleSanitize = xmobarStrip,
|
|
ppCurrent = wrap " " "" . xmobarBorder "Top" "#8be9fd" 2,
|
|
ppHidden = white . wrap " " "",
|
|
ppHiddenNoWindows = lowWhite . wrap " " "",
|
|
ppUrgent = red . wrap (yellow "!") (yellow "!"),
|
|
ppOrder = \[ws, l, _, wins] -> [ws, l, wins],
|
|
ppExtras = [logTitles formatFocused formatUnfocused]
|
|
}
|
|
where
|
|
formatFocused = wrap (white "[") (white "]") . magenta . ppWindow
|
|
formatUnfocused = wrap (lowWhite "[") (lowWhite "]") . blue . ppWindow
|
|
|
|
-- \| Windows should have *some* title, which should not not exceed a
|
|
-- sane length.
|
|
ppWindow :: String -> String
|
|
ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 30
|
|
|
|
blue, lowWhite, magenta, red, white, yellow :: String -> String
|
|
magenta = xmobarColor "#ff79c6" ""
|
|
blue = xmobarColor "#bd93f9" ""
|
|
white = xmobarColor "#f8f8f2" ""
|
|
yellow = xmobarColor "#f1fa8c" ""
|
|
red = xmobarColor "#ff5555" ""
|
|
lowWhite = xmobarColor "#bbbbbb" ""
|