change xmonad config name to main.hs

configs/xmonad/package.yaml

@@ -17,7 +17,7 @@ source-dirs: src
   
 executables:
   xmonad:
-    main: xmonad.hs
+    main: main.hs
     dependencies:
       - xmonad
       - containers

configs/xmonad/src/main.hs

@@ -0,0 +1,515 @@
+{-# LANGUAGE
+    MultiWayIf   -- Required for `toggleFull` in `myAdditionalKeys`
+    , LambdaCase -- Required for `(\case)` statement in `myXmobarPP`
+    , FlexibleContexts
+    , OverloadedStrings
+#-}
+{-# OPTIONS_GHC -Wno-missing-signatures 
+    -Wno-orphans #-}
+
+-- Data Imports
+
+import Data.Functor
+import qualified Data.Map as M
+import Data.Monoid
+-- Used in io exitSuccess
+
+import System.Environment (getEnv)
+import System.Exit
+import System.IO.Unsafe (unsafeDupablePerformIO)
+-- XMonad imports
+import XMonad
+import XMonad.Actions.NoBorders (toggleBorder)
+import XMonad.Hooks.EwmhDesktops
+import XMonad.Hooks.ManageDebug
+import XMonad.Hooks.ManageDocks
+import XMonad.Hooks.ManageHelpers
+import XMonad.Hooks.SetWMName
+import XMonad.Hooks.StatusBar
+import XMonad.Hooks.StatusBar.PP
+import XMonad.Hooks.WindowSwallowing
+import XMonad.Layout.Fullscreen
+import XMonad.Layout.NoBorders
+import XMonad.Layout.SimpleFloat
+import XMonad.Layout.Spacing
+import qualified XMonad.StackSet as W
+import XMonad.Util.ClickableWorkspaces
+import XMonad.Util.Cursor
+import XMonad.Util.EZConfig
+import qualified XMonad.Util.Hacks as Hacks
+import XMonad.Util.NamedScratchpad
+import XMonad.Util.SpawnOnce
+import XMonad.Util.Ungrab
+
+-- import qualified DBus                       as D
+-- import qualified DBus.Client                as D
+
+main :: IO ()
+main =
+  do
+    xmonad
+    $ debugManageHookOn "M-S-d"
+      . docks
+      . ewmhFullscreen
+      . fullscreenSupport
+      . ewmh
+      . Hacks.javaHack
+      -- . withEasySB xmobar2 toggleSB
+      . withEasySB xmobar toggleSB
+      . withSB xmobar2
+    $ myConfig
+  where
+    toggleSB XConfig {modMask = modm} = (modm, xK_m)
+
+-- Windows key/Super key
+myModMask :: KeyMask
+myModMask = mod4Mask
+
+-- Default Terminal
+myTerminal :: String
+myTerminal = "kitty"
+
+-- Default Launcher
+myLauncher :: String
+myLauncher = myHomeDir ++ "/.config/rofi/launchers/type-7/launcher.sh"
+
+-- Default Launcher
+myFileManager :: String
+myFileManager = "thunar"
+
+-- Default Browser
+myBrowser :: String
+myBrowser = "chromium"
+
+myPowerMenu :: String
+myPowerMenu = myHomeDir ++ "/.config/rofi/powermenu/type-6/powermenu.sh"
+
+-- Workspaces
+myWorkspaces :: [String]
+myWorkspaces = ["dev", "web", "irc", "gfx", "vm", "msc", "eml", "stm"]
+
+-- myWorkspaces = map show [1 .. 9]
+
+-- Border Width
+myBorderWidth :: Dimension
+myBorderWidth = 1
+
+-- Formal Unfocused Color
+myNormColor :: String
+myNormColor = "#383830"
+
+-- Focused Color
+myFocusColor :: String
+myFocusColor = "#a2a2a2"
+
+-- Home Directory
+myHomeDir :: String
+myHomeDir = unsafeDupablePerformIO (getEnv "HOME")
+
+--  focus follows the mouse pointer
+myFocusFollowsMouse :: Bool
+myFocusFollowsMouse = True
+
+myKeys conf@(XConfig {XMonad.modMask = modm}) =
+  M.fromList $
+    [ ((m .|. modm, k), windows $ f i)
+      | (i, k) <- zip (XMonad.workspaces conf) [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0],
+        (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]
+    ]
+      ++ [ ((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
+           | (key, sc) <- zip [xK_comma, xK_period, xK_z] [0 ..],
+             (f, m) <- [(W.view, 0), (W.shift, shiftMask)]
+         ]
+
+myAdditionalKeys :: [(String, X ())]
+myAdditionalKeys =
+  base
+    ++ window
+    ++ applications
+    ++ multimedia
+  where
+    -- Force killing a frozen window.
+    forceKillWindow :: Window -> X ()
+    forceKillWindow w = withDisplay $ \d ->
+      io $ void $ killClient d w
+    -- Making a window have a full float over a workspace.
+    toggleFull :: Window -> X ()
+    toggleFull w = windows $ \s ->
+      if
+          | M.lookup w (W.floating s) == Just fullscreen -> W.sink w s
+          | otherwise -> W.float w fullscreen s
+      where
+        fullscreen = W.RationalRect 0 0 1 1
+    -- Screenshots
+    screenShotSelection = myHomeDir ++ "/.local/bin/print-select" :: String
+    screenShotFullscreen = myHomeDir ++ "/.local/bin/print-fullscreen" :: String
+    screenShotTmp = myHomeDir ++ "/.local/bin/print-tmp" :: String
+    screenShotApp = myHomeDir ++ "/.local/bin/print-window.sh" :: String
+    -- XMonad base keybinds.
+    base =
+      [ ("M-g", withFocused toggleBorder),
+        ("M-S-c", kill),
+        ("M-S-x", withFocused forceKillWindow),
+        ("M-<Space>", sendMessage NextLayout),
+        ("M-n", refresh),
+        ("M-S-q", io exitSuccess),
+        ("C-S-r", spawn "xmonad --recompile && pkill xmobar2 && pkill xmobar && xmonad --restart"),
+        ("C-S-q", spawn "pkill -KILL -u $USER")
+      ]
+    -- Window management keybinds.
+    window =
+      [ ("M-<Tab>", windows W.focusDown),
+        ("M-j", windows W.focusDown),
+        ("M-k", windows W.focusUp),
+        ("M-S-m", windows W.focusMaster),
+        ("M-m", sendMessage ToggleStruts),
+        ("M-p", windows W.swapMaster),
+        ("M-S-j", windows W.swapDown),
+        ("M-S-h", windows W.swapDown),
+        ("M-S-k", windows W.swapUp),
+        ("M-S-l", windows W.swapUp),
+        ("M-h", sendMessage Shrink),
+        ("M-l", sendMessage Expand),
+        ("M-t", withFocused $ windows . W.sink),
+        ("M-f", withFocused toggleFull)
+      ]
+    -- Spawning applications.
+    applications =
+      [ ("M-<Return>", spawn myTerminal),
+        ("M-S-m", namedScratchpadAction myScratchpads "ncmpcpp"),
+        ("M-C-<Return>", namedScratchpadAction myScratchpads "terminal"),
+        ("M-S-<Escape>", spawn myPowerMenu),
+        ("M-b", spawn myBrowser),
+        ("M-v", spawn "code"),
+        ("M-S-s", spawn "~/steam/steam.sh"),
+        ("S-<Print>", unGrab *> spawn screenShotSelection),
+        ("C-S-<Print>", unGrab *> spawn screenShotTmp),
+        ("C-<Print>", unGrab *> spawn screenShotApp),
+        ("<Print>", spawn screenShotFullscreen),
+        ("M-S-<Return>", spawn myLauncher),
+        ("M-e", spawn myFileManager)
+      ]
+    -- Multimedia keybinds.
+    multimedia =
+      [ ("<XF86AudioPlay>", spawn "playerctl play-pause"),
+        ("<XF86AudioPrev>", spawn "playerctl previous"),
+        ("<XF86AudioNext>", spawn "playerctl next"),
+        ("<XF86AudioMute>", spawn "pactl set-sink-mute @DEFAULT_SINK@ toggle"),
+        ("<XF86AudioLowerVolume>", spawn "pactl set-sink-volume @DEFAULT_SINK@ -1.5%"),
+        ("<XF86AudioRaiseVolume>", spawn "pactl set-sink-volume @DEFAULT_SINK@ +1.5%"),
+        ("<Pause>", spawn "amixer sset Capture toggle"),
+        ("M-<Escape>", spawn "mpc toggle"),
+        ("M-<F1>", spawn "mpc prev"),
+        ("M-<F2>", spawn "mpc next")
+      ]
+
+myMouseBindings :: XConfig l -> M.Map (KeyMask, Button) (Window -> X ())
+myMouseBindings XConfig {XMonad.modMask = modm} =
+  M.fromList
+    -- Set the window to floating mode and move by dragging.
+    [ ((modm, button1), \w -> focus w >> mouseMoveWindow w >> windows W.shiftMaster),
+      -- Raise the window to the top of the stack.
+      ((modm, button2), \w -> focus w >> windows W.shiftMaster),
+      -- Set the window to floating mode and resize by dragging.
+      ((modm, button3), \w -> focus w >> mouseResizeWindow w >> windows W.shiftMaster)
+    ]
+
+myStartupHook :: X ()
+myStartupHook = do
+  _ <-
+    traverse
+      spawnOnce
+      [ "sh ~/scripts/screenlayout.sh",
+        "nitrogen --restore &",
+        "touch ~/tmp/touchy && rm -rf ~/tmp/*",
+        -- , myHomeDir ++ "/.local/bin/picom-jonaburg --glx-no-stencil --xrender-sync-fence -b &"
+        "picom",
+        "xinput --set-prop 'pointer:''Gaming Mouse' 'libinput Accel Profile Enabled' 0, 1 && xinput --set-prop 'pointer:''Gaming Mouse' 'libinput Accel Speed' 0.1",
+        "setxkbmap -option ctrl:nocaps br abnt2",
+        "nm-applet",
+        "trayer-srg -l --edge top --align right --SetDockType true --SetPartialStrut true --expand true --widthtype request --tint 0xFF181814 --height 27 --transparent false --distance 2 --margin 1 --alpha 0 --monitor 0 &",
+        "mpd &",
+        "dunst &",
+        "lxqt-policykit-agent &",
+        "xrdb -load ~/.Xresources",
+        "redshift -t 5700:3600 -l -23.5475:-46.63611 -b 0.9:0.7"
+      ]
+  setDefaultCursor xC_left_ptr
+  setWMName "zmonad"
+
+isInstance (ClassApp c _) = className =? c
+isInstance (TitleApp t _) = title =? t
+isInstance (NameApp n _) = appName =? n
+
+type AppName = String
+
+type AppTitle = String
+
+type AppClassName = String
+
+type AppCommand = String
+
+data App
+  = ClassApp AppClassName AppCommand
+  | TitleApp AppTitle AppCommand
+  | NameApp AppName AppCommand
+  deriving (Show)
+
+gimp = ClassApp "Gimp" "gimp"
+
+gimp2 = ClassApp "Gimp-2.99" "gimp-2.99"
+
+multimc = ClassApp "MultiMC" "MultiMC"
+
+about = TitleApp "About Mozilla Firefox" "About Mozilla Firefox"
+
+message = ClassApp "Xmessage" "Xmessage"
+
+myManageHook :: XMonad.Query (Data.Monoid.Endo WindowSet)
+myManageHook = manageRules
+  where
+    -- Hides windows without ignoring it, see doHideIgnore in XMonad contrib.
+    doHide = ask >>= doF . W.delete :: ManageHook
+    -- WM_WINDOW_ROLE will be parsed with the role variable.
+    isRole = stringProperty "WM_WINDOW_ROLE"
+    -- To match multiple properties with one operator.
+    anyOf = foldl (<||>) (pure False) :: [Query Bool] -> Query Bool
+    -- To match multiple classNames with one operator.
+    match = anyOf . fmap isInstance :: [App] -> Query Bool
+    -- Checking for splash dialogs.
+    isSplash = isInProperty "_NET_WM_WINDOW_TYPE" "_NET_WM_WINDOW_TYPE_SPLASH"
+    -- Checking for pop-ups.
+    isPopup = isRole =? "pop-up"
+    -- Checking for file chooser dialog.
+    isFileChooserDialog = isRole =? "GtkFileChooserDialog"
+    -- Managing rules for applications.
+    manageRules =
+      composeOne
+        [ transience,
+          isDialog -?> doCenterFloat,
+          isFullscreen -?> (doF W.focusDown <> doFullFloat),
+          match
+            [ gimp,
+              gimp2,
+              about,
+              message
+            ]
+            -?> doFloat,
+          match
+            [ multimc
+            ]
+            -?> doCenterFloat,
+          anyOf
+            [ isFileChooserDialog,
+              isDialog,
+              isPopup,
+              isSplash
+            ]
+            -?> doCenterFloat
+        ]
+        <> composeAll
+          [ manageDocks <> namedScratchpadManageHook myScratchpads,
+            className =? "firefox" <&&> title =? "File Upload" --> doFloat,
+            className =? "firefox" <&&> title =? "Library" --> doCenterFloat,
+            className =? "firefox" <&&> title ^? "Save" --> doFloat,
+            className =? "firefox" <&&> resource =? "Toolkit" --> doFloat,
+            className =? "firefox" <&&> title ^? "Sign in" --> doFloat,
+            className ^? "jetbrains-" <&&> title ^? "Welcome to " --> doCenterFloat,
+            className ^? "jetbrains-" <&&> title =? "splash" --> doFloat,
+            className ^? "Visual " <&&> isDialog --> doCenterFloat,
+            className =? "firefox-esr" --> doShift "web",
+            className =? "Chromium-browser-chromium" --> doShift "web",
+            className =? "Virt-manager" --> doShift "vm",
+            className =? "steam_app_1172620" --> doShift "gfx",
+            className =? "steam_app_960090" --> doShift "gfx",
+            className =? "steam_app_1063730" --> doShift "gfx",
+            className =? "steam_app_632360" --> doShift "gfx",
+            className =? "discord" --> doShift "irc",
+            className =? "discord-screenaudio" --> doShift "irc",
+            className =? "Spotify" --> doShift "msc",
+            className =? "thunderbird" --> doShift "eml",
+            className =? "Steam" --> doShift "stm",
+            className =? "Lutris" --> doShift "vm" <> doFloat,
+            className =? "leagueclientux.exe" --> doShift "gfx",
+            className =? "league of legends.exe" --> doShift "gfx",
+            className =? "leagueclient.exe" --> doShift "gfx",
+            className =? "explorer.exe" --> doShift "gfx",
+            className =? "riotclientux.exe" --> doShift "gfx",
+            className =? "dauntless-win64-shipping.exe" --> doShift "gfx",
+            className =? "battle.net.exe" --> doShift "gfx" <> doFloat,
+            className =? "Pcmanfm" --> doFloat,
+            className =? "Thunar" --> doFloat,
+            className =? "Pavucontrol" --> doFloat,
+            className =? "Nitrogen" --> doFloat,
+            className =? "Wrapper-2.0" --> doFloat,
+            className =? "TeamSpeak 3" --> doFloat <> doShift "irc",
+            className =? "easyeffects" --> doFloat <> doShift "vm",
+            className =? "Arandr" --> doFloat,
+            resource =? "desktop_window" --> doIgnore,
+            resource =? "kdesktop" --> doIgnore,
+            className =? "Conky" --> doIgnore,
+            isRole ^? "About" <||> isRole ^? "about" --> doFloat,
+            "_NET_WM_WINDOW_TYPE" `isInProperty` "_KDE_NET_WM_WINDOW_TYPE_OVERRIDE" --> doIgnore <> doRaise,
+            -- Steam Game Fixes
+            className =? "steam_app_1551360" <&&> title /=? "Forza Horizon 5" --> doHide -- Prevents black screen when fullscreening.
+            -- , title     =? "Wine System Tray"                                   --> doHide -- Prevents Wine System Trays from taking input focus.
+            -- , title     ^? "Steam - News"                                       --> doHide -- I don't like the Steam news menu
+          ]
+
+{- May be useful one day
+doClose = ask >>= liftX . killWindow >> mempty :: ManageHook
+doForceKill = ask >>= liftX . forceKillWindow >> mempty :: ManageHook
+-}
+
+myEventHook :: Event -> X All
+myEventHook _ = return (All True)
+
+myLayoutHook =
+  avoidStruts $
+    lessBorders OnlyScreenFloat $
+      spacingRaw False (Border w w w w) True (Border w w w w) True $
+        tiled ||| simpleFloat ||| Mirror tiled ||| Full
+  where
+    tiled = Tall nmaster delta ratio
+    nmaster = 1 -- Default number of windows in the master pane.
+    ratio = 1 / 2 -- Default proportion of screen occupied by master panes.
+    delta = 3 / 100 -- Percent of screen increment by when resizing panes.
+    w = 5 -- Width of pixel size between windows while tiled.
+
+myXmobarPP :: X PP
+myXmobarPP =
+  clickablePP $
+    filterOutWsPP ["NSP"] $
+      def
+        { ppCurrent = xmobarColor "#d5d5d5" "" . xmobarFont 5 . wrap "[" "]",
+          ppVisibleNoWindows = Just (xmobarColor "#71bec0" ""),
+          ppHidden = xmobarColor "#558c8e" "",
+          ppHiddenNoWindows = xmobarColor "#595959" "",
+          ppUrgent = xmobarColor "#F7768E" "" . wrap "!" "!",
+          ppTitle = xmobarColor "#d5d5d5" "" . shorten 49,
+          ppSep = wrapSep " ",
+          ppTitleSanitize = xmobarStrip,
+          ppWsSep = xmobarColor "" "#212121" "  ",
+          ppLayout =
+            xmobarColor "#212121" ""
+              . ( \case
+                    "Spacing Tall" -> "<icon=tiled.xpm/>"
+                    "Spacing Mirror Tall" -> "<icon=mirrortiled.xpm/>"
+                    "Spacing Full" -> "<icon=full.xpm/>"
+                    "Spacing Simple Float" -> "<icon=floating.xpm/>"
+                    "Simple Float" -> "<icon=floating.xpm/>"
+                )
+        }
+  where
+    wrapSep :: String -> String
+    wrapSep =
+      wrap
+        (xmobarColor "#212121" "#212121:7" (xmobarFont 2 "\xe0b4"))
+        (xmobarColor "#212121" "#212121:7" (xmobarFont 2 "\xe0b6"))
+
+myXmobar :: String
+myXmobar = (myHomeDir ++ "/.local/bin/xmobar " ++ myHomeDir ++ "/.config/xmonad/src/xmobar.hs")
+
+xmobar :: StatusBarConfig
+xmobar = statusBarProp myXmobar myXmobarPP
+
+myXmobar2 :: String
+myXmobar2 = (myHomeDir ++ "/.local/bin/xmobar2 " ++ myHomeDir ++ "/.config/xmonad/src/xmobar.hs")
+
+xmobar2 :: StatusBarConfig
+xmobar2 = statusBarProp myXmobar2 myXmobarPP
+
+myConfig =
+  def
+    { modMask = myModMask,
+      focusFollowsMouse = myFocusFollowsMouse,
+      terminal = myTerminal,
+      mouseBindings = myMouseBindings,
+      borderWidth = myBorderWidth,
+      normalBorderColor = myNormColor,
+      focusedBorderColor = myFocusColor,
+      layoutHook = myLayoutHook,
+      startupHook = myStartupHook,
+      manageHook = myManageHook,
+      handleEventHook =
+        Hacks.windowedFullscreenFixEventHook
+          <> swallowEventHook (className =? "Alacritty" <||> className =? "kitty" <||> className =? "XTerm") (return True)
+          <> Hacks.trayerPaddingXmobarEventHook
+          <> myEventHook,
+      workspaces = myWorkspaces,
+      keys = myKeys
+    }
+    `additionalKeysP` myAdditionalKeys
+
+myScratchpads =
+  [ NS "terminal" spawnTerm findTerm manageTerm,
+    NS "ncmpcpp" spawnncmpcpp findncmpcpp managencmpcpp
+  ]
+  where
+    spawnTerm = myTerminal ++ " --name scratchpad"
+    findTerm = resource =? "scratchpad"
+    manageTerm = customFloating $ W.RationalRect l t w h
+      where
+        h = 0.9
+        w = 0.9
+        t = 0.95 - h
+        l = 0.95 - w
+    spawnncmpcpp = myTerminal ++ " --name ncmpcpp -e ncmpcpp"
+    findncmpcpp = resource =? "ncmpcpp"
+    managencmpcpp = customFloating $ W.RationalRect l t w h
+      where
+        h = 0.9
+        w = 0.9
+        t = 0.95 - h
+        l = 0.95 - w
+
+-- I GIVE UP ON DBUS.
+
+-- logTitle :: D.Client -> X ()
+-- logTitle ch = dynamicLogWithPP def
+--                                {ppCurrent         = unPango
+--                                ,ppVisible         = pangoInactive
+--                                ,ppHidden          = const ""
+--                                ,ppHiddenNoWindows = const ""
+--                                ,ppUrgent          = pangoBold
+--                                ,ppTitle           = unPango
+--                                ,ppLayout          = unPango
+--                                ,ppWsSep           = " "
+--                                ,ppSep             = "⋮"
+--                                ,ppOrder           = swapIcons
+--                                ,ppSort            = getSortByXineramaPhysicalRule horizontalScreenOrderer
+--                                ,ppOutput          = dbusOutput ch
+--                                }
+--   where swapIcons (ws:l:t:nsp:xs) = ws:l:nsp:t:xs
+--         -- @@@ so why do the first 4 invocations *only* not match?!
+--         swapIcons xs              = xs
+
+-- getWellKnownName :: D.Client -> IO ()
+-- getWellKnownName ch = do
+--   _ <- D.requestName ch
+--                      (D.busName_ "org.xmonad.Log")
+--                      [D.nameAllowReplacement, D.nameReplaceExisting, D.nameDoNotQueue]
+--   return ()
+
+-- dbusOutput :: D.Client -> String -> IO ()
+-- dbusOutput ch s = do
+--   let sig = (D.signal "/org/xmonad/Log" "org.xmonad.Log" "Update")
+--             {D.signalBody = [D.toVariant s]}
+--   D.emit ch sig
+
+-- -- quick and dirty escaping of HTMLish Pango markup
+-- unPango :: String -> String
+-- unPango []       = []
+-- unPango ('<':xs) = "&lt;"  ++ unPango xs
+-- unPango ('&':xs) = "&amp;" ++ unPango xs
+-- unPango ('>':xs) = "&gt;"  ++ unPango xs
+-- unPango (x  :xs) = x:unPango xs
+
+-- -- show a string as inactive
+-- -- @@@ should use gtk theme somehow...
+-- pangoInactive :: String -> String
+-- pangoInactive s = "<span foreground=\"#8f8f8f\">" ++ unPango s ++ "</span>"
+
+-- -- show a string with highlight
+-- pangoBold :: String -> String
+-- pangoBold s = "<span weight=\"bold\" foreground=\"#ff2f2f\">" ++ unPango s ++ "</span>"

configs/xmonad/src/xfce-xmonad.hs

@@ -4,55 +4,56 @@
     , FlexibleContexts
     , OverloadedStrings
 #-}
-{-# OPTIONS_GHC 
+{-# OPTIONS_GHC -Wno-missing-signatures 
-    -Wno-missing-signatures 
+    -Wno-orphans #-}
-    -Wno-orphans 
-#-}
 
 -- Data Imports
-import qualified Data.Map                   as M
+
 import Data.Functor
+import qualified Data.Map as M
 import Data.Monoid
-
 -- Used in io exitSuccess
-import           System.Exit
-import           System.Environment         (getEnv)
-import           System.IO.Unsafe           (unsafeDupablePerformIO)
 
+import System.Environment (getEnv)
+import System.Exit
+import System.IO.Unsafe (unsafeDupablePerformIO)
 -- XMonad imports
 import XMonad
-import           XMonad.Hooks.WindowSwallowing
 -- import           XMonad.Config.Xfce
 import XMonad.Actions.NoBorders (toggleBorder)
-import           XMonad.Util.Ungrab
+-- import           XMonad.Actions.PhysicalScreens
+
+-- import           XMonad.Util.WorkspaceCompare
+
+import XMonad.Hooks.DynamicProperty
 import XMonad.Hooks.EwmhDesktops
+import XMonad.Hooks.ManageDebug
 import XMonad.Hooks.ManageDocks
 import XMonad.Hooks.ManageHelpers
 import XMonad.Hooks.SetWMName
 import XMonad.Hooks.StatusBar
 import XMonad.Hooks.StatusBar.PP
+import XMonad.Hooks.WindowSwallowing
 import XMonad.Layout.Fullscreen
--- import           XMonad.Actions.PhysicalScreens
-import           XMonad.Layout.SimpleFloat
 import XMonad.Layout.NoBorders
+import XMonad.Layout.PerWorkspace
+import XMonad.Layout.SimpleFloat
 import XMonad.Layout.Spacing
 import qualified XMonad.StackSet as W
 import XMonad.Util.ClickableWorkspaces
--- import           XMonad.Util.WorkspaceCompare
 import XMonad.Util.Cursor
 import XMonad.Util.EZConfig
 import qualified XMonad.Util.Hacks as Hacks
-import           XMonad.Util.SpawnOnce
 import XMonad.Util.NamedScratchpad
-import           XMonad.Hooks.DynamicProperty
+import XMonad.Util.SpawnOnce
-import           XMonad.Layout.PerWorkspace
+import XMonad.Util.Ungrab
-import           XMonad.Hooks.ManageDebug
+
 -- import qualified DBus                       as D
 -- import qualified DBus.Client                as D
 
-
 main :: IO ()
-main = do
+main =
+  do
     -- dbus <- D.connectSession
     -- getWellKnownName dbus
     xmonad
@@ -65,50 +66,51 @@ main = do
     -- . withEasySB xmobar toggleSB
     -- . withSB xmobar2
     $ myConfig
-      -- where
-         -- toggleSB XConfig {modMask = modm} = (modm, xK_m) 
 
-  -- Windows key/Super key
+-- where
+-- toggleSB XConfig {modMask = modm} = (modm, xK_m)
+
+-- Windows key/Super key
 myModMask :: KeyMask
 myModMask = mod4Mask
 
-  -- Default Terminal
+-- Default Terminal
 myTerminal :: String
 myTerminal = "kitty"
 
-  -- Default Launcher
+-- Default Launcher
 myLauncher :: String
 myLauncher = myHomeDir ++ "/.config/rofi/launchers/type-7/launcher.sh"
 
-  -- Default Launcher
+-- Default Launcher
 myFileManager :: String
 myFileManager = "thunar"
 
-  -- Default Browser
+-- Default Browser
 myBrowser :: String
 myBrowser = "firefox"
 
 myPowerMenu :: String
 myPowerMenu = myHomeDir ++ "/.config/rofi/powermenu/type-6/powermenu.sh"
 
-  -- Workspaces
+-- Workspaces
 myWorkspaces :: [String]
 -- myWorkspaces = map show [1 .. 9]
 myWorkspaces = ["dev", "web", "irc", "gfx", "vm", "music", "email", "x"]
 
-  -- Border Width
+-- Border Width
 myBorderWidth :: Dimension
 myBorderWidth = 2
 
-  -- Formal Unfocused Color
+-- Formal Unfocused Color
 myNormColor :: String
 myNormColor = "#5f819d"
 
-  -- Focused Color
+-- Focused Color
 myFocusColor :: String
 myFocusColor = "#de935f"
 
-  -- Home Directory
+-- Home Directory
 myHomeDir :: String
 myHomeDir = unsafeDupablePerformIO (getEnv "HOME")
 
@@ -116,18 +118,17 @@ myHomeDir = unsafeDupablePerformIO (getEnv "HOME")
 myFocusFollowsMouse :: Bool
 myFocusFollowsMouse = True
 
-myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
+myKeys conf@(XConfig {XMonad.modMask = modm}) =
+  M.fromList $
     [ ((m .|. modm, k), windows $ f i)
-        | (i, k) <- zip (XMonad.workspaces conf) [xK_1,xK_2,xK_3,xK_4,xK_5,xK_6,xK_7,xK_8,xK_9,xK_0]
+      | (i, k) <- zip (XMonad.workspaces conf) [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0],
-        , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]
+        (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]
     ]
-    ++
+      ++ [ ((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
-    [ ((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
+           | (key, sc) <- zip [xK_comma, xK_period, xK_z] [0 ..],
-        | (key, sc) <- zip [xK_comma, xK_period, xK_z] [0..]
+             (f, m) <- [(W.view, 0), (W.shift, shiftMask)]
-        , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]
          ]
 
-
 myAdditionalKeys :: [(String, X ())]
 myAdditionalKeys =
   base
@@ -141,7 +142,8 @@ myAdditionalKeys =
       io $ void $ killClient d w
     -- Making a window have a full float over a workspace.
     toggleFull :: Window -> X ()
-        toggleFull w = windows $ \s -> if 
+    toggleFull w = windows $ \s ->
+      if
           | M.lookup w (W.floating s) == Just fullscreen -> W.sink w s
           | otherwise -> W.float w fullscreen s
       where
@@ -153,89 +155,91 @@ myAdditionalKeys =
     screenShotApp = myHomeDir ++ "/.local/bin/print-select-fr" :: String
     -- XMonad base keybinds.
     base =
-            [ ("M-g",       withFocused toggleBorder)
+      [ ("M-g", withFocused toggleBorder),
-            , ("M-S-c",     kill)
+        ("M-S-c", kill),
-            , ("M-S-x",     withFocused forceKillWindow)
+        ("M-S-x", withFocused forceKillWindow),
-            , ("M-<Space>", sendMessage NextLayout)
+        ("M-<Space>", sendMessage NextLayout),
-            , ("M-n",       refresh)
+        ("M-n", refresh),
-            , ("M-S-q",     io exitSuccess)
+        ("M-S-q", io exitSuccess),
-            , ("C-S-r",     spawn "xmonad --recompile; killall xmobar; xmonad --restart")
+        ("C-S-r", spawn "xmonad --recompile; killall xmobar; xmonad --restart"),
-            , ("C-S-q",     spawn "pkill -KILL -u $USER")
+        ("C-S-q", spawn "pkill -KILL -u $USER")
       ]
     -- Window management keybinds.
     window =
-            [ ("M-<Tab>",    windows W.focusDown)
+      [ ("M-<Tab>", windows W.focusDown),
-            , ("M-j",        windows W.focusDown)
+        ("M-j", windows W.focusDown),
-            , ("M-k",        windows W.focusUp)
+        ("M-k", windows W.focusUp),
-            , ("M-S-m",      windows W.focusMaster)
+        ("M-S-m", windows W.focusMaster),
-            , ("M-m",        sendMessage ToggleStruts)
+        ("M-m", sendMessage ToggleStruts),
-            , ("M-p",        windows W.swapMaster)
+        ("M-p", windows W.swapMaster),
-            , ("M-S-j",      windows W.swapDown)
+        ("M-S-j", windows W.swapDown),
-            , ("M-S-h",      windows W.swapDown)
+        ("M-S-h", windows W.swapDown),
-            , ("M-S-k",      windows W.swapUp)
+        ("M-S-k", windows W.swapUp),
-            , ("M-S-l",      windows W.swapUp)
+        ("M-S-l", windows W.swapUp),
-            , ("M-h",        sendMessage Shrink)
+        ("M-h", sendMessage Shrink),
-            , ("M-l",        sendMessage Expand)
+        ("M-l", sendMessage Expand),
-            , ("M-t",        withFocused $ windows . W.sink)
+        ("M-t", withFocused $ windows . W.sink),
-            , ("M-f",        withFocused toggleFull)
+        ("M-f", withFocused toggleFull)
       ]
     -- Spawning applications.
     applications =
-            [ ("M-<Return>",   spawn myTerminal)
+      [ ("M-<Return>", spawn myTerminal),
-            , ("M-S-m",        namedScratchpadAction myScratchpads "ncmpcpp")
+        ("M-S-m", namedScratchpadAction myScratchpads "ncmpcpp"),
-            , ("M-C-<Return>", namedScratchpadAction myScratchpads "terminal")
+        ("M-C-<Return>", namedScratchpadAction myScratchpads "terminal"),
-            , ("M-S-<Escape>", spawn myPowerMenu)
+        ("M-S-<Escape>", spawn myPowerMenu),
-            , ("M-b",          spawn myBrowser)
+        ("M-b", spawn myBrowser),
-            , ("M-v",          spawn "vscodium")
+        ("M-v", spawn "vscodium"),
-            , ("S-<Print>",    unGrab *> spawn screenShotSelection)
+        ("S-<Print>", unGrab *> spawn screenShotSelection),
-            , ("C-<Print>",    unGrab *> spawn screenShotTmp)
+        ("C-<Print>", unGrab *> spawn screenShotTmp),
-            , ("C-S-<Print>",  unGrab *> spawn screenShotApp)
+        ("C-S-<Print>", unGrab *> spawn screenShotApp),
-            , ("<Print>",      spawn screenShotFullscreen)
+        ("<Print>", spawn screenShotFullscreen),
-            , ("M-S-<Return>", spawn myLauncher)
+        ("M-S-<Return>", spawn myLauncher),
-            , ("M-e",          spawn myFileManager)
+        ("M-e", spawn myFileManager)
       ]
     -- Multimedia keybinds.
     multimedia =
-            [ ("<XF86AudioPlay>",        spawn "playerctl play-pause")
+      [ ("<XF86AudioPlay>", spawn "playerctl play-pause"),
-            , ("<XF86AudioPrev>",        spawn "playerctl previous")
+        ("<XF86AudioPrev>", spawn "playerctl previous"),
-            , ("<XF86AudioNext>",        spawn "playerctl next")
+        ("<XF86AudioNext>", spawn "playerctl next"),
-            , ("<XF86AudioMute>",        spawn "pactl set-sink-mute @DEFAULT_SINK@ toggle")
+        ("<XF86AudioMute>", spawn "pactl set-sink-mute @DEFAULT_SINK@ toggle"),
-            , ("<XF86AudioLowerVolume>", spawn "pactl set-sink-volume @DEFAULT_SINK@ -1.5%")
+        ("<XF86AudioLowerVolume>", spawn "pactl set-sink-volume @DEFAULT_SINK@ -1.5%"),
-            , ("<XF86AudioRaiseVolume>", spawn "pactl set-sink-volume @DEFAULT_SINK@ +1.5%")
+        ("<XF86AudioRaiseVolume>", spawn "pactl set-sink-volume @DEFAULT_SINK@ +1.5%"),
-            , ("<Pause>",                spawn "amixer sset Capture toggle")
+        ("<Pause>", spawn "amixer sset Capture toggle"),
-            , ("M-<Escape>",             spawn "mpc toggle")
+        ("M-<Escape>", spawn "mpc toggle"),
-            , ("M-<F1>",                 spawn "mpc prev")
+        ("M-<F1>", spawn "mpc prev"),
-            , ("M-<F2>",                 spawn "mpc next")
+        ("M-<F2>", spawn "mpc next")
       ]
 
 myMouseBindings :: XConfig l -> M.Map (KeyMask, Button) (Window -> X ())
-myMouseBindings XConfig {XMonad.modMask = modm} = M.fromList
+myMouseBindings XConfig {XMonad.modMask = modm} =
+  M.fromList
     -- Set the window to floating mode and move by dragging.
-    [ ((modm, button1), \w -> focus w >> mouseMoveWindow w      >> windows W.shiftMaster)
+    [ ((modm, button1), \w -> focus w >> mouseMoveWindow w >> windows W.shiftMaster),
       -- Raise the window to the top of the stack.
-    , ((modm, button2), \w -> focus w >> windows W.shiftMaster)
+      ((modm, button2), \w -> focus w >> windows W.shiftMaster),
       -- Set the window to floating mode and resize by dragging.
-    , ((modm, button3), \w -> focus w >> mouseResizeWindow w    >> windows W.shiftMaster)
+      ((modm, button3), \w -> focus w >> mouseResizeWindow w >> windows W.shiftMaster)
     ]
 
 myStartupHook :: X ()
 myStartupHook = do
-    traverse spawnOnce
+  traverse
-        [ "echo launched" 
+    spawnOnce
+    [ "echo launched",
       -- , "sh ~/scripts/screenlayout.sh"
-        , "nitrogen --restore &"
+      "nitrogen --restore &",
-        , "touch ~/tmp/touchy && rm -rf ~/tmp/*"
+      "touch ~/tmp/touchy && rm -rf ~/tmp/*",
-        , "lxqt-policykit-agent &"
+      "lxqt-policykit-agent &",
-        , myHomeDir ++ "/.local/bin/picom-jonaburg --glx-no-stencil --xrender-sync-fence -b &"
+      myHomeDir ++ "/.local/bin/picom-jonaburg --glx-no-stencil --xrender-sync-fence -b &",
-        , "xinput --set-prop 'pointer:''Gaming Mouse' 'libinput Accel Profile Enabled' 0, 1 && xinput --set-prop 'pointer:''Gaming Mouse' 'libinput Accel Speed' 0.1"
+      "xinput --set-prop 'pointer:''Gaming Mouse' 'libinput Accel Profile Enabled' 0, 1 && xinput --set-prop 'pointer:''Gaming Mouse' 'libinput Accel Speed' 0.1",
-        , "setxkbmap br abnt2"
+      "setxkbmap br abnt2",
-        , "nm-applet"
+      "nm-applet",
-        , "trayer-srg -l --edge top --align right --SetDockType true --SetPartialStrut true --expand true --widthtype request --tint 0xFF181814 --height 27 --transparent false --distance 2 --margin 1 --alpha 0 --monitor 0 &"
+      "trayer-srg -l --edge top --align right --SetDockType true --SetPartialStrut true --expand true --widthtype request --tint 0xFF181814 --height 27 --transparent false --distance 2 --margin 1 --alpha 0 --monitor 0 &",
-        , "nvidia-settings --load-config-only"
+      "nvidia-settings --load-config-only",
-        , "mpd &"
+      "mpd &",
-        , "dunst -config $HOME/.config/dunst/base16-nord.dunstrc &"
+      "dunst -config $HOME/.config/dunst/base16-nord.dunstrc &",
-        , "lxqt-policykit-agent &"
+      "lxqt-policykit-agent &",
-        , "/usr/bin/emacs --daemon &"
+      "/usr/bin/emacs --daemon &"
       -- , "redshift -l -23.591672:-46.561005 -t 5700:3600 &"
     ]
   setDefaultCursor xC_left_ptr
@@ -246,20 +250,27 @@ isInstance (TitleApp t _) = title =? t
 isInstance (NameApp n _) = appName =? n
 
 type AppName = String
+
 type AppTitle = String
+
 type AppClassName = String
+
 type AppCommand = String
 
 data App
   = ClassApp AppClassName AppCommand
   | TitleApp AppTitle AppCommand
   | NameApp AppName AppCommand
-  deriving Show
+  deriving (Show)
 
 gimp = ClassApp "Gimp" "gimp"
+
 gimp2 = ClassApp "Gimp-2.99" "gimp-2.99"
+
 multimc = ClassApp "MultiMC" "MultiMC"
+
 about = TitleApp "About Mozilla Firefox" "About Mozilla Firefox"
+
 message = ClassApp "Xmessage" "Xmessage"
 
 myManageHook :: XMonad.Query (Data.Monoid.Endo WindowSet)
@@ -280,62 +291,69 @@ myManageHook = manageRules
     -- Checking for file chooser dialog.
     isFileChooserDialog = isRole =? "GtkFileChooserDialog"
     -- Managing rules for applications.
-        manageRules = composeOne
+    manageRules =
-            [ transience
+      composeOne
-            , isDialog     -?> doCenterFloat
+        [ transience,
-            , isFullscreen -?> (doF W.focusDown <> doFullFloat) 
+          isDialog -?> doCenterFloat,
-            , match [ gimp
+          isFullscreen -?> (doF W.focusDown <> doFullFloat),
-                    , gimp2
+          match
-                    , about
+            [ gimp,
-                    , message
+              gimp2,
-                    ]      -?> doFloat
+              about,
-                    , match [
+              message
-                    multimc
+            ]
-                    ]      -?> doCenterFloat
+            -?> doFloat,
-                    , anyOf [ isFileChooserDialog
+          match
-                    , isDialog
+            [ multimc
-                    , isPopup
+            ]
-                    , isSplash
+            -?> doCenterFloat,
-                    ]      -?> doCenterFloat
+          anyOf
-            ] <> composeAll
+            [ isFileChooserDialog,
-            [ manageDocks <> namedScratchpadManageHook myScratchpads
+              isDialog,
-            , className =? "firefox"    <&&> title    =? "File Upload" --> doFloat
+              isPopup,
-            , className =? "firefox"    <&&> title    =? "Library"     --> doCenterFloat
+              isSplash
-            , className =? "firefox"    <&&> title    ^? "Save"        --> doFloat
+            ]
-            , className =? "firefox"    <&&> resource =? "Toolkit"     --> doFloat
+            -?> doCenterFloat
-            , className =? "firefox"    <&&> title    ^? "Sign in"     --> doFloat
+        ]
-            , className ^? "jetbrains-" <&&> title    ^? "Welcome to " --> doCenterFloat
+        <> composeAll
-            , className ^? "jetbrains-" <&&> title    =? "splash"      --> doFloat
+          [ manageDocks <> namedScratchpadManageHook myScratchpads,
-            , className ^? "Visual "    <&&> isDialog                  --> doCenterFloat
+            className =? "firefox" <&&> title =? "File Upload" --> doFloat,
-            , className =? "firefox-esr" --> doShift "web" 
+            className =? "firefox" <&&> title =? "Library" --> doCenterFloat,
-            , className =? "steam_app_1172620" --> doShift "gfx" 
+            className =? "firefox" <&&> title ^? "Save" --> doFloat,
-            , className =? "discord" --> doShift "irc" 
+            className =? "firefox" <&&> resource =? "Toolkit" --> doFloat,
-            , className =? "discord-screenaudio" --> doShift "irc" 
+            className =? "firefox" <&&> title ^? "Sign in" --> doFloat,
-            , className =? "Spotify" --> doShift "music" 
+            className ^? "jetbrains-" <&&> title ^? "Welcome to " --> doCenterFloat,
-            , className =? "thunderbird" --> doShift "email" 
+            className ^? "jetbrains-" <&&> title =? "splash" --> doFloat,
-            , className =? "Steam" --> doShift "x" 
+            className ^? "Visual " <&&> isDialog --> doCenterFloat,
-            , className =? "Lutris" --> doShift "gfx" <> doFloat
+            className =? "firefox-esr" --> doShift "web",
-            , className =? "leagueclientux.exe" --> doShift "gfx"
+            className =? "steam_app_1172620" --> doShift "gfx",
-            , className =? "league of legends.exe" --> doShift "gfx"
+            className =? "discord" --> doShift "irc",
-            , className =? "leagueclient.exe" --> doShift "gfx"
+            className =? "discord-screenaudio" --> doShift "irc",
-            , className =? "riotclientux.exe" --> doShift "gfx"
+            className =? "Spotify" --> doShift "music",
-            , className =? "dauntless-win64-shipping.exe" --> doShift "gfx" 
+            className =? "thunderbird" --> doShift "email",
-            , className =? "battle.net.exe" --> doShift "gfx" <> doFloat 
+            className =? "Steam" --> doShift "x",
-            , className =? "Pcmanfm" --> doFloat 
+            className =? "Lutris" --> doShift "gfx" <> doFloat,
-            , className =? "Thunar" --> doFloat 
+            className =? "leagueclientux.exe" --> doShift "gfx",
-            , className =? "Pavucontrol" --> doFloat 
+            className =? "league of legends.exe" --> doShift "gfx",
-            , className =? "Nitrogen" --> doFloat 
+            className =? "leagueclient.exe" --> doShift "gfx",
-            , className =? "Wrapper-2.0" --> doFloat 
+            className =? "riotclientux.exe" --> doShift "gfx",
-            , className =? "TeamSpeak 3" --> doFloat 
+            className =? "dauntless-win64-shipping.exe" --> doShift "gfx",
-            , className =? "easyeffects" --> doFloat 
+            className =? "battle.net.exe" --> doShift "gfx" <> doFloat,
-            , className =? "Arandr" --> doFloat 
+            className =? "Pcmanfm" --> doFloat,
-            , resource  =? "desktop_window"                            --> doIgnore
+            className =? "Thunar" --> doFloat,
-            , resource  =? "kdesktop"                                  --> doIgnore
+            className =? "Pavucontrol" --> doFloat,
-            , className =? "Conky" --> doIgnore
+            className =? "Nitrogen" --> doFloat,
-            , isRole    ^? "About"      <||> isRole   ^? "about"       --> doFloat
+            className =? "Wrapper-2.0" --> doFloat,
-            , "_NET_WM_WINDOW_TYPE" `isInProperty` "_KDE_NET_WM_WINDOW_TYPE_OVERRIDE" --> doIgnore <> doRaise
+            className =? "TeamSpeak 3" --> doFloat,
+            className =? "easyeffects" --> doFloat,
+            className =? "Arandr" --> doFloat,
+            resource =? "desktop_window" --> doIgnore,
+            resource =? "kdesktop" --> doIgnore,
+            className =? "Conky" --> doIgnore,
+            isRole ^? "About" <||> isRole ^? "about" --> doFloat,
+            "_NET_WM_WINDOW_TYPE" `isInProperty` "_KDE_NET_WM_WINDOW_TYPE_OVERRIDE" --> doIgnore <> doRaise,
             -- Steam Game Fixes
-            , className =? "steam_app_1551360" <&&> title /=? "Forza Horizon 5" --> doHide -- Prevents black screen when fullscreening.
+            className =? "steam_app_1551360" <&&> title /=? "Forza Horizon 5" --> doHide -- Prevents black screen when fullscreening.
             -- , title     =? "Wine System Tray"                                   --> doHide -- Prevents Wine System Trays from taking input focus.
             -- , title     ^? "Steam - News"                                       --> doHide -- I don't like the Steam news menu
           ]
@@ -343,7 +361,7 @@ myManageHook = manageRules
 myDynHook :: ManageHook
 myDynHook =
   composeAll
-   [ title=? "Riot Client Main" --> doFloat
+    [ title =? "Riot Client Main" --> doFloat
     ]
 
 {- May be useful one day
@@ -356,10 +374,11 @@ myEventHook _ = return (All True)
 
 myLayoutHook =
   avoidStruts
-    -- $ onWorkspace "gfx" simpleFloat
+  -- \$ onWorkspace "gfx" simpleFloat
-    $ lessBorders OnlyScreenFloat
+  $
-    $ spacingRaw False(Border w w w w) True(Border w w w w) True
+    lessBorders OnlyScreenFloat $
-    $ tiled ||| simpleFloat ||| Mirror tiled ||| Full
+      spacingRaw False (Border w w w w) True (Border w w w w) True $
+        tiled ||| simpleFloat ||| Mirror tiled ||| Full
   where
     tiled = Tall nmaster delta ratio
     nmaster = 1 -- Default number of windows in the master pane.
@@ -369,22 +388,25 @@ myLayoutHook =
 
 myXmobarPP :: X PP
 myXmobarPP =
-    clickablePP $ filterOutWsPP ["NSP"] $ def
+  clickablePP $
-        { ppCurrent          = xmobarColor "#98c379" "" . xmobarFont 5 . wrap "[" "]"
+    filterOutWsPP ["NSP"] $
-        , ppVisibleNoWindows = Just (xmobarColor "#cc6666" "")
+      def
-        , ppHidden           = xmobarColor "#d2ba8b" ""
+        { ppCurrent = xmobarColor "#98c379" "" . xmobarFont 5 . wrap "[" "]",
-        , ppHiddenNoWindows  = xmobarColor "#a3846e" ""
+          ppVisibleNoWindows = Just (xmobarColor "#cc6666" ""),
-        , ppUrgent           = xmobarColor "#F7768E" "" . wrap "!" "!"
+          ppHidden = xmobarColor "#d2ba8b" "",
-        , ppTitle            = xmobarColor "#98C379" "" . shorten 49 
+          ppHiddenNoWindows = xmobarColor "#a3846e" "",
-        , ppSep              = wrapSep " "
+          ppUrgent = xmobarColor "#F7768E" "" . wrap "!" "!",
-        , ppTitleSanitize    = xmobarStrip
+          ppTitle = xmobarColor "#98C379" "" . shorten 49,
-        , ppWsSep            = xmobarColor "" "#212121" "  "
+          ppSep = wrapSep " ",
-        , ppLayout           = xmobarColor "#212121" "" 
+          ppTitleSanitize = xmobarStrip,
-                               . (\case
+          ppWsSep = xmobarColor "" "#212121" "  ",
+          ppLayout =
+            xmobarColor "#212121" ""
+              . ( \case
                     "Spacing Tall" -> "<icon=tiled.xpm/>"
                     "Spacing Mirror Tall" -> "<icon=mirrortiled.xpm/>"
                     "Spacing Full" -> "<icon=full.xpm/>"
-                                   "Spacing Simple Float"-> "<icon=floating.xpm/>"
+                    "Spacing Simple Float" -> "<icon=floating.xpm/>"
                     "Simple Float" -> "<icon=floating.xpm/>"
                 )
         }
@@ -409,31 +431,32 @@ myXmobar2 = ("xmobar-2nd ")
 
 myConfig =
   def
-        { modMask            = myModMask
+    { modMask = myModMask,
-        , focusFollowsMouse  = myFocusFollowsMouse
+      focusFollowsMouse = myFocusFollowsMouse,
-        , terminal           = myTerminal
+      terminal = myTerminal,
-        , mouseBindings      = myMouseBindings
+      mouseBindings = myMouseBindings,
-        , borderWidth        = myBorderWidth
+      borderWidth = myBorderWidth,
-        , normalBorderColor  = myNormColor
+      normalBorderColor = myNormColor,
       -- , logHook            = logTitle dbus
-        , focusedBorderColor = myFocusColor
+      focusedBorderColor = myFocusColor,
-        , layoutHook         = myLayoutHook
+      layoutHook = myLayoutHook,
       -- <> onWorkspace "gfx" h8league
-        , startupHook        = myStartupHook
+      startupHook = myStartupHook,
-        , manageHook         = myManageHook
+      manageHook = myManageHook,
-        , handleEventHook    = Hacks.windowedFullscreenFixEventHook 
+      handleEventHook =
+        Hacks.windowedFullscreenFixEventHook
           <> swallowEventHook (className =? "Alacritty" <||> className =? "kitty" <||> className =? "XTerm") (return True)
           <> Hacks.trayerPaddingXmobarEventHook
           <> dynamicPropertyChange "WM_CLASS" myDynHook
-                               <> myEventHook
+          <> myEventHook,
-        , workspaces         = myWorkspaces
+      workspaces = myWorkspaces,
-        , keys               = myKeys
+      keys = myKeys
     }
     `additionalKeysP` myAdditionalKeys
 
-
+myScratchpads =
-myScratchpads = [ NS "terminal" spawnTerm findTerm manageTerm
+  [ NS "terminal" spawnTerm findTerm manageTerm,
-                , NS "ncmpcpp" spawnncmpcpp findncmpcpp managencmpcpp
+    NS "ncmpcpp" spawnncmpcpp findncmpcpp managencmpcpp
   ]
   where
     spawnTerm = myTerminal ++ " --name scratchpad"
@@ -442,16 +465,16 @@ myScratchpads = [ NS "terminal" spawnTerm findTerm manageTerm
       where
         h = 0.9
         w = 0.9
-                      t = 0.95 -h
+        t = 0.95 - h
-                      l = 0.95 -w
+        l = 0.95 - w
     spawnncmpcpp = myTerminal ++ " --name ncmpcpp -e ncmpcpp"
     findncmpcpp = resource =? "ncmpcpp"
     managencmpcpp = customFloating $ W.RationalRect l t w h
       where
         h = 0.9
         w = 0.9
-                    t = 0.95 -h
+        t = 0.95 - h
-                    l = 0.95 -w
+        l = 0.95 - w
 
 -- I GIVE UP ON DBUS.
 
@@ -503,4 +526,3 @@ myScratchpads = [ NS "terminal" spawnTerm findTerm manageTerm
 -- -- show a string with highlight
 -- pangoBold :: String -> String
 -- pangoBold s = "<span weight=\"bold\" foreground=\"#ff2f2f\">" ++ unPango s ++ "</span>"
-

configs/xmonad/src/xmobar.hs

@@ -1,10 +1,10 @@
 import System.Environment
 import System.IO.Unsafe (unsafeDupablePerformIO)
-
 import Xmobar
 
 main :: IO ()
 main = xmobar =<< configFromArgs =<< myConfig
+
 -- main = xmobar =<< myConfig
 
 myHomeDir :: String
@@ -13,54 +13,49 @@ myHomeDir = unsafeDupablePerformIO (getEnv "HOME")
 myConfig :: IO Config
 myConfig =
   do
-        pure baseConfig
+    pure
-            { template = concat $ 
+      baseConfig
+        { template =
+            concat $
               [ " <fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
-                  \<fn=4><fc=#a54242,#212121:5>\xf30d </fc></fn>\
+                \<fn=4><fc=#558c8e,#212121:5>\xf30d </fc></fn>\
                 \<fn=2><fc=#212121,#212121:7>\xe0b4</fc></fn> "
               ]
-                <>
+                <> ["<fn=5>@UnsafeXMonadLog@</fn>}{"]
-                [ "<fn=5>@UnsafeXMonadLog@</fn>}{" ] 
+                <> [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
-                <>
-                [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
                      \<fn=4><fc=#E06C75,#212121:5>@music@</fc></fn>\
                      \<fn=2><fc=#212121,#212121:7>\xe0b4</fc></fn> "
                    ]
-                <>
+                <> [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
-                [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
                      \<fn=4><fc=#56B6C2,#212121:5>CPU: @cpu@%</fc></fn>\
                      \<fn=2><fc=#212121,#212121:7>\xe0b4</fc></fn> "
                    ]
-                <>
+                <> [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
-                [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
                      \<fn=4><fc=#C678DD,#212121:5>Mem: @memory@% </fc></fn>\
                      \<fn=2><fc=#212121,#212121:7>\xe0b4</fc></fn> "
                    ]
-                <>
+                <> [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
-                [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
                      \<fn=4><fc=#98C379,#212121:5>@vol@</fc></fn>\
                      \<fn=2><fc=#212121,#212121:7>\xe0b4</fc></fn> "
                    ]
-                <>
+                <> [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
-                [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
                      \<fn=4><fc=#61AFEF,#212121:5>@date@</fc></fn>\
                      \<fn=2><fc=#212121,#212121:7>\xe0b4</fc></fn> "
                    ]
-               <>
+                <> ["@trayer@"],
-               [ "@trayer@"]
+          commands = myCommands
-            , commands = myCommands
         }
 
 myCommands :: [Runnable]
 myCommands =
-    [ Run UnsafeXMonadLog
+  [ Run UnsafeXMonadLog,
-    , Run $ Com (myHomeDir <> "/.config/xmonad/scripts/volume.sh" ) ["vol"] "vol" 20
+    Run $ Com (myHomeDir <> "/.config/xmonad/scripts/volume.sh") ["vol"] "vol" 100,
-    , Run $ Date "\xf017 %-l:%M %p" "date" 600
+    Run $ Date "\xf017 %-l:%M %p" "date" 600,
-    , Run $ Cpu [ "-t", "<fc=#8c7f80><total></fc>", "-f", ":", "-H", "75", "-L", "25", "-h", "#56B6C2", "-n", "#4797a1", "-l", "#3a7b83" ] 50
+    Run $ Cpu ["-t", "<fc=#8c7f80><total></fc>", "-f", ":", "-H", "75", "-L", "25", "-h", "#56B6C2", "-n", "#4797a1", "-l", "#3a7b83"] 100,
-    , Run $ Memory [ "-t", "<fc=#8c7f80><usedratio></fc>", "-f", ":", "-H", "75", "-L", "25", "-h", "#c678dd", "-n", "#9f60b1", "-l", "#855094" ] 50
+    Run $ Memory ["-t", "<fc=#8c7f80><usedratio></fc>", "-f", ":", "-H", "75", "-L", "25", "-h", "#c678dd", "-n", "#9f60b1", "-l", "#855094"] 100,
     -- , Run $ Com (myHomeDir <> "/.config/xmonad/scripts/gputemp.sh") ["gpu"] "gpu" 5
-    , Run $ Com (myHomeDir <> "/.config/xmonad/scripts/trayer-padding.sh") ["trayer"] "trayer" 100
+    Run $ Com (myHomeDir <> "/.config/xmonad/scripts/trayer-padding.sh") ["trayer"] "trayer" 1000,
-    , Run $ Com (myHomeDir <> "/.config/xmonad/scripts/mpd.sh") ["music"] "music" 20
+    Run $ Com (myHomeDir <> "/.config/xmonad/scripts/mpd.sh") ["music"] "music" 100
     -- , Run $ Com (myHomeDir <> "/.config/xmonad/src/trayer-padding.sh") ["trayer"] "trayer" 50
     -- , Run $ MPD ["-h", "127.0.0.1", "-p", "6600", "-t", "<composer> <title> <track>/<plength> <statei>", "--", "-P", ">>", "-Z", "|", "-S", "><"] 10
   ]
@@ -68,33 +63,34 @@ myCommands =
 baseConfig :: Config
 baseConfig =
   defaultConfig
-        { font            =   "xft:UbuntuMono Nerd Font:pixelsize=12:antialias=true:hinting=true" 
+    { font = "xft:UbuntuMono Nerd Font:pixelsize=12:antialias=true:hinting=true",
-        , additionalFonts = [ "xft:UbuntuMono Nerd Font:pixelsize=10:antialias=true:hinting=true"
+      additionalFonts =
-                            , "xft:UbuntuMono Nerd Font:size=13:antialias=true:hinting=true"
+        [ "xft:UbuntuMono Nerd Font:pixelsize=10:antialias=true:hinting=true",
-                            , "xft:UbuntuMono Nerd Font:size=11:antialias=true:hinting=true"
+          "xft:UbuntuMono Nerd Font:size=13:antialias=true:hinting=true",
-                            , "xft:UbuntuMono Nerd Font:size=11:antialias=true:hinting=true"
+          "xft:UbuntuMono Nerd Font:size=11:antialias=true:hinting=true",
-                            , "xft:UbuntuMono Nerd Font:pixelsize=13:antialias=true:hinting=true"
+          "xft:UbuntuMono Nerd Font:size=11:antialias=true:hinting=true",
-                            ]
+          "xft:UbuntuMono Nerd Font:pixelsize=13:antialias=true:hinting=true"
-        , textOffsets      = [20, 22, 21, 21, 20]
+        ],
-        , bgColor          = "#212121"
+      textOffsets = [20, 22, 21, 21, 20],
-        , fgColor          = "#c8b6b8"
+      bgColor = "#212121",
-        , borderColor      = "#272727"
+      fgColor = "#c8b6b8",
-        , border           = FullB 
+      borderColor = "#272727",
-        , borderWidth      = 0
+      border = FullB,
+      borderWidth = 0,
       {-
       , position         = Static { xpos = 13, ypos = 1034, width = 1893, height = 32 } Bottom Padded
       , position         = Static { xpos = 0, ypos = 1048, width = 1920, height = 32 } Bottom Flat
       , position         = Static { xpos = 0, ypos = 0, width = 1920, height = 32 } Top Flat
       -}
-        , position         = Static { xpos = 0, ypos = 0, width = 1920, height = 30 }
+      position = Static {xpos = 0, ypos = 0, width = 1920, height = 30},
-        , alpha            = 255
+      alpha = 255,
-        , overrideRedirect = True
+      overrideRedirect = True,
-        , lowerOnStart     = True
+      lowerOnStart = True,
-        , hideOnStart      = False
+      hideOnStart = False,
-        , allDesktops      = True
+      allDesktops = True,
-        , persistent       = True
+      persistent = True,
-        , iconRoot         = myHomeDir ++ "/.config/xmonad/icons"
+      iconRoot = myHomeDir ++ "/.config/xmonad/icons",
-        , iconOffset       = -1
+      iconOffset = -1,
-        , sepChar  = "@"
+      sepChar = "@",
-        , alignSep = "}{"
+      alignSep = "}{"
     }

configs/xmonad/src/xmobar2.hs

@@ -1,10 +1,10 @@
 import System.Environment
 import System.IO.Unsafe (unsafeDupablePerformIO)
-
 import Xmobar
 
 main :: IO ()
 main = xmobar =<< configFromArgs =<< myConfig
+
 -- main = xmobar =<< myConfig
 
 myHomeDir :: String
@@ -13,52 +13,48 @@ myHomeDir = unsafeDupablePerformIO (getEnv "HOME")
 myConfig :: IO Config
 myConfig =
   do
-        pure baseConfig
+    pure
-            { template = concat $ 
+      baseConfig
+        { template =
+            concat $
               [ " <fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
-                  \<fn=4><fc=#a54242,#212121:5>\xf30d </fc></fn>\
+                \<fn=4><fc=#558c8e,#212121:5>\xf30d </fc></fn>\
                 \<fn=2><fc=#212121,#212121:7>\xe0b4</fc></fn> "
               ]
-                <>
+                <> ["<fn=5>@UnsafeXMonadLog@</fn>}{"]
-                [ "<fn=5>@UnsafeXMonadLog@</fn>}{" ] 
+                <> [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
-                <>
-                [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
                      \<fn=4><fc=#E06C75,#212121:5>@music@</fc></fn>\
                      \<fn=2><fc=#212121,#212121:7>\xe0b4</fc></fn> "
                    ]
-                <>
+                <> [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
-                [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
                      \<fn=4><fc=#56B6C2,#212121:5>CPU: @cpu@%</fc></fn>\
                      \<fn=2><fc=#212121,#212121:7>\xe0b4</fc></fn> "
                    ]
-                <>
+                <> [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
-                [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
                      \<fn=4><fc=#C678DD,#212121:5>Mem: @memory@% </fc></fn>\
                      \<fn=2><fc=#212121,#212121:7>\xe0b4</fc></fn> "
                    ]
-                <>
+                <> [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
-                [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
                      \<fn=4><fc=#98C379,#212121:5>@vol@</fc></fn>\
                      \<fn=2><fc=#212121,#212121:7>\xe0b4</fc></fn> "
                    ]
-                <>
+                <> [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
-                [ "<fn=2><fc=#212121,#212121:7>\xe0b6</fc></fn>\
                      \<fn=4><fc=#61AFEF,#212121:5>@date@</fc></fn>\
                      \<fn=2><fc=#212121,#212121:7>\xe0b4</fc></fn> "
-                ]
+                   ],
-            , commands = myCommands
+          commands = myCommands
         }
 
 myCommands :: [Runnable]
 myCommands =
-    [ Run UnsafeXMonadLog
+  [ Run UnsafeXMonadLog,
-    , Run $ Com (myHomeDir <> "/.config/xmonad/scripts/volume.sh" ) ["vol"] "vol" 20
+    Run $ Com (myHomeDir <> "/.config/xmonad/scripts/volume.sh") ["vol"] "vol" 100,
-    , Run $ Date "\xf017 %-l:%M %p" "date" 600
+    Run $ Date "\xf017 %-l:%M %p" "date" 600,
-    , Run $ Cpu [ "-t", "<fc=#8c7f80><total></fc>", "-f", ":", "-H", "75", "-L", "25", "-h", "#56B6C2", "-n", "#4797a1", "-l", "#3a7b83" ] 50
+    Run $ Cpu ["-t", "<fc=#8c7f80><total></fc>", "-f", ":", "-H", "75", "-L", "25", "-h", "#56B6C2", "-n", "#4797a1", "-l", "#3a7b83"] 100,
-    , Run $ Memory [ "-t", "<fc=#8c7f80><usedratio></fc>", "-f", ":", "-H", "75", "-L", "25", "-h", "#c678dd", "-n", "#9f60b1", "-l", "#855094" ] 50
+    Run $ Memory ["-t", "<fc=#8c7f80><usedratio></fc>", "-f", ":", "-H", "75", "-L", "25", "-h", "#c678dd", "-n", "#9f60b1", "-l", "#855094"] 100,
     -- , Run $ Com (myHomeDir <> "/.config/xmonad/scripts/gputemp.sh") ["gpu"] "gpu" 5
-    , Run $ Com (myHomeDir <> "/.config/xmonad/scripts/trayer-padding.sh") ["trayer"] "trayer" 100
+    Run $ Com (myHomeDir <> "/.config/xmonad/scripts/trayer-padding.sh") ["trayer"] "trayer" 1000,
-    , Run $ Com (myHomeDir <> "/.config/xmonad/scripts/mpd.sh") ["music"] "music" 20
+    Run $ Com (myHomeDir <> "/.config/xmonad/scripts/mpd.sh") ["music"] "music" 100
     -- , Run $ Com (myHomeDir <> "/.config/xmonad/src/trayer-padding.sh") ["trayer"] "trayer" 50
     -- , Run $ MPD ["-h", "127.0.0.1", "-p", "6600", "-t", "<composer> <title> <track>/<plength> <statei>", "--", "-P", ">>", "-Z", "|", "-S", "><"] 10
   ]
@@ -66,33 +62,34 @@ myCommands =
 baseConfig :: Config
 baseConfig =
   defaultConfig
-        { font            =   "xft:UbuntuMono Nerd Font:pixelsize=12:antialias=true:hinting=true" 
+    { font = "xft:UbuntuMono Nerd Font:pixelsize=12:antialias=true:hinting=true",
-        , additionalFonts = [ "xft:UbuntuMono Nerd Font:pixelsize=10:antialias=true:hinting=true"
+      additionalFonts =
-                            , "xft:UbuntuMono Nerd Font:size=13:antialias=true:hinting=true"
+        [ "xft:UbuntuMono Nerd Font:pixelsize=10:antialias=true:hinting=true",
-                            , "xft:UbuntuMono Nerd Font:size=11:antialias=true:hinting=true"
+          "xft:UbuntuMono Nerd Font:size=13:antialias=true:hinting=true",
-                            , "xft:UbuntuMono Nerd Font:size=11:antialias=true:hinting=true"
+          "xft:UbuntuMono Nerd Font:size=11:antialias=true:hinting=true",
-                            , "xft:UbuntuMono Nerd Font:pixelsize=13:antialias=true:hinting=true"
+          "xft:UbuntuMono Nerd Font:size=11:antialias=true:hinting=true",
-                            ]
+          "xft:UbuntuMono Nerd Font:pixelsize=13:antialias=true:hinting=true"
-        , textOffsets      = [20, 22, 21, 21, 20]
+        ],
-        , bgColor          = "#212121"
+      textOffsets = [20, 22, 21, 21, 20],
-        , fgColor          = "#c8b6b8"
+      bgColor = "#212121",
-        , borderColor      = "#272727"
+      fgColor = "#c8b6b8",
-        , border           = FullB 
+      borderColor = "#272727",
-        , borderWidth      = 0
+      border = FullB,
+      borderWidth = 0,
       {-
       , position         = Static { xpos = 13, ypos = 1034, width = 1893, height = 32 } Bottom Padded
       , position         = Static { xpos = 0, ypos = 1048, width = 1920, height = 32 } Bottom Flat
       , position         = Static { xpos = 0, ypos = 0, width = 1920, height = 32 } Top Flat
       -}
-        , position         = Static { xpos = 1920, ypos = 148, width = 1920, height = 30 }
+      position = Static {xpos = 1920, ypos = 148, width = 1920, height = 30},
-        , alpha            = 255
+      alpha = 255,
-        , overrideRedirect = True
+      overrideRedirect = True,
-        , lowerOnStart     = True
+      lowerOnStart = True,
-        , hideOnStart      = False
+      hideOnStart = False,
-        , allDesktops      = True
+      allDesktops = True,
-        , persistent       = True
+      persistent = True,
-        , iconRoot         = myHomeDir ++ "/.config/xmonad/icons"
+      iconRoot = myHomeDir ++ "/.config/xmonad/icons",
-        , iconOffset       = -1
+      iconOffset = -1,
-        , sepChar  = "@"
+      sepChar = "@",
-        , alignSep = "}{"
+      alignSep = "}{"
     }

configs/xmonad/zmonad.cabal

@@ -40,7 +40,7 @@ executable xmobar2
   default-language: Haskell2010
 
 executable xmonad
-  main-is: xmonad.hs
+  main-is: main.hs
   other-modules:
       Paths_zmonad
   hs-source-dirs: