diff options
Diffstat (limited to 'xmonad')
| -rw-r--r-- | xmonad/xmonad.hs | 99 |
1 files changed, 99 insertions, 0 deletions
diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs new file mode 100644 index 0000000..bde627c --- /dev/null +++ b/xmonad/xmonad.hs @@ -0,0 +1,99 @@ +import XMonad +import System.Exit (exitSuccess) + +import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageHelpers +import XMonad.Hooks.StatusBar +import XMonad.Hooks.EwmhDesktops +import XMonad.Util.Cursor + +import XMonad.Util.EZConfig +import XMonad.Util.Loggers +import XMonad.Util.Ungrab + +import XMonad.Layout.ThreeColumns +import XMonad.Layout.Spacing +import XMonad.Actions.CycleWS +import XMonad.Layout.Renamed +import XMonad.Layout.Spacing + +main :: IO () +main = xmonad + . ewmh + . ewmhFullscreen + . withEasySB (statusBarProp "xmobar" (pure myXmobarPP)) defToggleStrutsKey + $ myConfig + +myConfig = def + { modMask = mod4Mask -- Rebind Mod to the Super key + , layoutHook = myLayout + , manageHook = myManageHook + , startupHook = setDefaultCursor xC_left_ptr + , workspaces = myWorkspaces + , borderWidth = 2 + , normalBorderColor = "#3c3836" + , focusedBorderColor = "#928374" + } + `additionalKeysP` + [ ("M-S-<Escape>", spawn "slock") + , ("M-<PrintScreen>", unGrab *> spawn "screenshot" ) + , ("M-S-f", spawn "librewolf-bin" ) + , ("M-S-k", spawn "keepassxc" ) + , ("M-S-<Return>", spawn "spawn-alacritty") + , ("M-p", spawn "dmenu_run_history" ) + , ("M-<F1>", spawn "volmute") + , ("M-<F2>", spawn "voldown") + , ("M-<F3>", spawn "volup") + , ("M-<F7>", spawn "brightness-down") + , ("M-<F8>", spawn "brightness-up") + , ("M-<F11>", spawn "screenshot") + , ("M-<Tab>", toggleWS) + , ("M-S-<Backspace>", io exitSuccess) + , ("M-S-q", spawn "true") + ] + +myWorkspaces = [ "!", "@", "#", "$", "%", "^", "&", "*", "(" ] + +myLayout = tiled ||| full ||| threeCol + where + threeCol = renamed [Replace "ThreeCol"] $ spacing 2 $ ThreeColMid nmaster delta ratio + tiled = renamed [Replace "Tall"] $ spacing 2 $ Tall nmaster delta ratio + full = renamed [Replace "Full"] $ spacing 2 $ Full + nmaster = 1 -- Default number of windows in the master pane + ratio = 6/10 -- Default proportion of screen occupied by master pane + delta = 2/100 -- Percent of screen to increment by when resizing panes + +myManageHook :: ManageHook +myManageHook = composeAll + [ className =? "Gimp" --> doFloat + , isDialog --> doFloat + ] + +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 "]") . green . ppWindow + formatUnfocused = wrap (lowWhite "[") (lowWhite "]") . lowWhite . 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 80 + + blue, lowWhite, magenta, red, white, yellow :: String -> String + magenta = xmobarColor "#d3869b" "" + blue = xmobarColor "#83a598" "" + white = xmobarColor "#ebdbb2" "" + yellow = xmobarColor "#fabd2f" "" + red = xmobarColor "#fb4934" "" + green = xmobarColor "#b8bb26" "" + lowWhite = xmobarColor "#a89984" ""
\ No newline at end of file |