From 214cc2dcbeed4b0e37f75365854d23ec980c99cf Mon Sep 17 00:00:00 2001
From: Matei Adriel <rafaeladriel11@gmail.com>
Date: Mon, 17 Jan 2022 19:34:44 +0200
Subject: [PATCH] chore: idk why this is broken
---
modules/applications/xmonad/Main.hs | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/modules/applications/xmonad/Main.hs b/modules/applications/xmonad/Main.hs
index 5639065..b0a6e26 100644
--- a/modules/applications/xmonad/Main.hs
+++ b/modules/applications/xmonad/Main.hs
@@ -4,6 +4,7 @@ import Control.Monad (join)
import Data.Function ((&))
import XMonad
import XMonad.Actions.SpawnOn
+import XMonad.Config (defaultConfig)
import XMonad.Config.Kde
import XMonad.Hooks.EwmhDesktops (ewmh, fullscreenEventHook)
import XMonad.Hooks.ManageDocks
@@ -14,15 +15,13 @@ import XMonad.Util.EZConfig
kdeOn :: Bool
kdeOn = False
-startingConfig = if kdeOn then kdeConfig else defaultConfig
-
-a = 1 + []
+-- startingConfig = if kdeOn then kdeConfig else defaultConfig
main =
xmonad $
ewmh $
docks $
- startingConfig
+ defaultConfig
{ modMask = mod4Mask,
layoutHook = myLayoutHook,
startupHook = startup,
@@ -45,7 +44,7 @@ main =
manageWorkspaces =
appWorkspaceConfig
& fmap \(workspaceId, name) -> do
- let workspaceName = myWorkspaces !! (workspaceId + 1)
+ let workspaceName = myWorkspaces !! (workspaceId - 1)
className =? name --> doShift workspaceName
kdeFloats =
@@ -97,6 +96,7 @@ main =
startup :: X ()
startup = do
spawn "xwallpaper --zoom ./background.jpg"
- spawn "Discord"
- spawn "google-chrome-stable"
- spawn "alacritty"
\ No newline at end of file
+
+-- spawn "Discord"
+-- spawn "google-chrome-stable"
+-- spawn "alacritty"
\ No newline at end of file