prescientmoon/satellite
1
Fork 0
Code Activity

chore: idk why this is broken

Browse source
This commit is contained in:
Matei Adriel 2022-01-17 19:34:44 +02:00
parent f8f756f19b
commit 214cc2dcbe
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
modules/applications/xmonad/Main.hs
View file

@ -4,6 +4,7 @@ import Control.Monad (join)
import Data.Function ((&)) import Data.Function ((&))
import XMonad import XMonad
import XMonad.Actions.SpawnOn import XMonad.Actions.SpawnOn
import XMonad.Config (defaultConfig)
import XMonad.Config.Kde import XMonad.Config.Kde
import XMonad.Hooks.EwmhDesktops (ewmh, fullscreenEventHook) import XMonad.Hooks.EwmhDesktops (ewmh, fullscreenEventHook)
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
@ -14,15 +15,13 @@ import XMonad.Util.EZConfig
kdeOn :: Bool kdeOn :: Bool
kdeOn = False kdeOn = False
startingConfig = if kdeOn then kdeConfig else defaultConfig -- startingConfig = if kdeOn then kdeConfig else defaultConfig
a = 1 + []
main = main =
xmonad $ xmonad $
ewmh $ ewmh $
docks $ docks $
startingConfig defaultConfig
{ modMask = mod4Mask, { modMask = mod4Mask,
layoutHook = myLayoutHook, layoutHook = myLayoutHook,
startupHook = startup, startupHook = startup,
@ -45,7 +44,7 @@ main =
manageWorkspaces = manageWorkspaces =
appWorkspaceConfig appWorkspaceConfig
& fmap \(workspaceId, name) -> do & fmap \(workspaceId, name) -> do
let workspaceName = myWorkspaces !! (workspaceId + 1) let workspaceName = myWorkspaces !! (workspaceId - 1)
className =? name --> doShift workspaceName className =? name --> doShift workspaceName
kdeFloats = kdeFloats =
@ -97,6 +96,7 @@ main =
startup :: X () startup :: X ()
startup = do startup = do
spawn "xwallpaper --zoom ./background.jpg" spawn "xwallpaper --zoom ./background.jpg"
spawn "Discord"
spawn "google-chrome-stable" -- spawn "Discord"
spawn "alacritty" -- spawn "google-chrome-stable"
-- spawn "alacritty"