From f2a58fd7e34a69a04408e5f3df503c3ed8ea572a Mon Sep 17 00:00:00 2001
From: Paul-Henri Froidmont <git.contact-57n2p@froidmont.org>
Date: Wed, 30 Nov 2022 01:17:29 +0100
Subject: [PATCH] Update xmonad config

---
 users/files/xmobarrc  |  6 +++---
 users/files/xmonad.hs | 12 ++++++------
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/users/files/xmobarrc b/users/files/xmobarrc
index 332235a..db0787b 100644
--- a/users/files/xmobarrc
+++ b/users/files/xmobarrc
@@ -1,9 +1,9 @@
 Config {
-       font = "xft:monospace:size=11.5:bold:antialias=true"
-       additionalFonts= ["xft:monospace:size=14:normal:antialias=true"]
+       font = "monospace Bold 12"
+       additionalFonts= ["monospace Normal 14"]
        , bgColor = "#282828"
        , fgColor = "#ebdbb2"
-       , position = TopW L 94
+       , position = TopSize L 94 24
        , alpha = 150
        , commands = [ Run Cpu           [ "-t", "<fn=1><fc=#83a598>\xe266</fc></fn> <total>%"
                                         , "-L", "3","-H","50"
diff --git a/users/files/xmonad.hs b/users/files/xmonad.hs
index 2866e45..641d8b6 100644
--- a/users/files/xmonad.hs
+++ b/users/files/xmonad.hs
@@ -66,9 +66,9 @@ myConfig xmproc = azertyConfig {
     normalBorderColor   = "#474646",
     focusedBorderColor  = "#83a598",
     layoutHook          = myLayout,
-    manageHook          = manageDocks <+> (isFullscreen --> doFullFloat) <+> manageHook defaultConfig,
-    --handleEventHook     = myEventHook <+> handleEventHook defaultConfig,
-    logHook             = (myLogHook xmproc) <+> logHook defaultConfig,
+    manageHook          = manageDocks <+> (isFullscreen --> doFullFloat) <+> manageHook def,
+    --handleEventHook     = myEventHook <+> handleEventHook def,
+    logHook             = (myLogHook xmproc) <+> logHook def,
     --keys                = \c -> mkKeymap c myAdditionalKeys,
     startupHook         = myStartupHook xmproc
 } `removeKeysP` myRemoveKeys `additionalKeysP` myAdditionalKeys
@@ -77,7 +77,7 @@ myLogHook xmproc = dynamicLogWithPP xmobarPP {
     ppOutput    = hPutStrLn xmproc,
     ppCurrent = xmobarColor "#83a598" "" . wrap "[" "]",   -- #9BC1B2 #69DFFA
     ppTitle = xmobarColor "#d3869b" "" . shorten 100,       -- #9BC1B2 #69DFFA
-    ppSort = fmap (.namedScratchpadFilterOutWorkspace) getSortByTag
+    ppSort = fmap (. filterOutWs [scratchpadWorkspaceTag]) getSortByTag
     --ppLayout = xmobarColor "#fabd2f" "" . myIcons
 } >> updatePointer (0.75, 0.75) (0.75, 0.75)
 
@@ -129,10 +129,10 @@ myAdditionalKeys = [
     ]
 
 myLayout = smartSpacing 5
-	$ smartBorders
+    $ smartBorders
         $ mkToggle (NOBORDERS ?? FULL ?? EOT)
         $ avoidStruts
-        $ layoutHook defaultConfig
+        $ layoutHook def
 
 myStartupHook xmproc = do
     setWMName "LG3D"