From 28a8fd30c46c1c95f260a3152aa97a58c47d9e2b Mon Sep 17 00:00:00 2001
From: h7x4 <h7x4@nani.wtf>
Date: Wed, 26 Jun 2024 20:22:00 +0200
Subject: [PATCH] home/xmonad: misc modernization

---
 home/programs/xmonad/xmonad.hs | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/home/programs/xmonad/xmonad.hs b/home/programs/xmonad/xmonad.hs
index 20f1cac..d8a2cb8 100644
--- a/home/programs/xmonad/xmonad.hs
+++ b/home/programs/xmonad/xmonad.hs
@@ -65,7 +65,7 @@ myModMask :: KeyMask
 myModMask = mod4Mask
 
 myWorkspaces :: [WorkspaceId]
-myWorkspaces = map (UTF8.decode . UTF8.encode) ["総","草","書","企","連","総2","総3"]
+myWorkspaces = map (UTF8.decode . UTF8.encode) ["gen","www","dev","dev2","com","wsa","wsb","wsc"]
 
 wsWeb = myWorkspaces !! 1
 wsDev = myWorkspaces !! 2
@@ -181,14 +181,14 @@ termIsOpen = isOpen
              <$> (listToMaybe . filter (L.isInfixOf "term") . lines))
              <$> output
 
-viewDropboxStatus :: X ()
-viewDropboxStatus = spawn =<< ((++) "notify-send -t 3000 " . unpack) <$> status
-  where
-    status :: X String
-    status = liftIO $ runProcessWithInput "python" ["$HOME/.scripts/dropbox.py", "status"] ""
+-- viewDropboxStatus :: X ()
+-- viewDropboxStatus = spawn =<< ((++) "notify-send -t 3000 " . unpack) <$> status
+--   where
+--     status :: X String
+--     status = liftIO $ runProcessWithInput "python" ["$HOME/.scripts/dropbox.py", "status"] ""
 
-    unpack :: String -> String
-    unpack =  wrap "\" " "\"" . unwords . map (wrap " [" "] "). lines
+--     unpack :: String -> String
+--     unpack =  wrap "\" " "\"" . unwords . map (wrap " [" "] "). lines
 
 ------------------------------------------------------------------------
 -- Mouse bindings: default actions bound to mouse events
@@ -346,7 +346,7 @@ myStartupHook = return ()
 myRestartHook :: X ()
 myRestartHook = do
   spawn "notify-send 'XMonad' 'Restarted XMonad/Polybar' --icon=dialog-information"
-  spawn "xmonad --recompile"
+  -- spawn "xmonad --recompile"
   spawn "xmonad --restart"
   spawn "systemctl --user restart polybar"