102 lines
2.6 KiB
Haskell
102 lines
2.6 KiB
Haskell
{-# LANGUAGE BlockArguments #-}
|
|
|
|
import Control.Monad (join)
|
|
import Data.Function ((&))
|
|
import XMonad
|
|
import XMonad.Actions.SpawnOn
|
|
import XMonad.Config.Kde
|
|
import XMonad.Hooks.EwmhDesktops (ewmh, fullscreenEventHook)
|
|
import XMonad.Hooks.ManageDocks
|
|
import XMonad.Layout.Spacing
|
|
import XMonad.Layout.ThreeColumns
|
|
import XMonad.Util.EZConfig
|
|
|
|
kdeOn :: Bool
|
|
kdeOn = False
|
|
|
|
startingConfig = if kdeOn then kdeConfig else defaultConfig
|
|
|
|
a = 1 + []
|
|
|
|
main =
|
|
xmonad $
|
|
ewmh $
|
|
docks $
|
|
startingConfig
|
|
{ modMask = mod4Mask,
|
|
layoutHook = myLayoutHook,
|
|
startupHook = startup,
|
|
manageHook = manageDocks <+> myManagerHook <+> manageHook kdeConfig,
|
|
handleEventHook = handleEventHook kdeConfig <+> fullscreenEventHook,
|
|
terminal = myTerminal,
|
|
workspaces = myWorkspaces
|
|
}
|
|
`additionalKeysP` keymap
|
|
where
|
|
myWorkspaces =
|
|
["1:dev", "2:browser", "3:chat", "4:terminal", "5", "6", "7", "8", "9", "0"]
|
|
|
|
appWorkspaceConfig =
|
|
[ (3, "Discord"),
|
|
(4, "alacritty"),
|
|
(2, "google-chrome-stable")
|
|
]
|
|
|
|
manageWorkspaces =
|
|
appWorkspaceConfig
|
|
& fmap \(workspaceId, name) -> do
|
|
let workspaceName = myWorkspaces !! (workspaceId + 1)
|
|
className =? name --> doShift workspaceName
|
|
|
|
kdeFloats =
|
|
[ "yakuake",
|
|
"Yakuake",
|
|
"Kmix",
|
|
"kmix",
|
|
"plasma",
|
|
"Plasma",
|
|
"plasma-desktop",
|
|
"Plasma-desktop",
|
|
"krunner",
|
|
"ksplashsimple",
|
|
"ksplashqml",
|
|
"ksplashx"
|
|
]
|
|
|
|
floatKdeStuff = [className =? name --> doFloat | name <- kdeFloats]
|
|
|
|
myManagerHook =
|
|
composeAll $
|
|
concat
|
|
[ if kdeOn then floatKdeStuff else [],
|
|
manageWorkspaces
|
|
]
|
|
|
|
myTerminal = "alacritty"
|
|
myBrowser = "google-chrome-stable"
|
|
|
|
-- TODO: find a way to bind all the program-opening-keybindings to a single sub-map
|
|
keymap =
|
|
[ ("M-p", spawn "rofi -show run"),
|
|
("M-g", spawn myBrowser),
|
|
("M-d", spawn "Discord"),
|
|
("M-s", spawn "slack"),
|
|
("M-r", spawn "ksysgurad")
|
|
]
|
|
|
|
uniformBorder = join $ join $ join Border
|
|
border = uniformBorder 4
|
|
spacingHook = spacingRaw True border True border True
|
|
|
|
tall = Tall 1 (3 / 100) (1 / 2)
|
|
threeCols = ThreeCol 1 (3 / 100) (1 / 2)
|
|
|
|
layouts = tall ||| threeCols ||| Full
|
|
myLayoutHook = desktopLayoutModifiers $ spacingHook layouts
|
|
|
|
startup :: X ()
|
|
startup = do
|
|
spawn "xwallpaper --zoom ./background.jpg"
|
|
spawn "Discord"
|
|
spawn "google-chrome-stable"
|
|
spawn "alacritty" |