rm unused

features/desktopish/xmonad/xmonad-srid/Main.hs

@@ -50,50 +50,4 @@ main = do
           -- Window borders
           (Border 10 10 10 10)
           -- Enable window border?
-          True
-
-{- old status bar; remove after configuring taffybar
-
-myStatusBar =
-  statusBar dzenCli pp toggleStrutsKey
-  where
-    -- -dock is necessary for https://github.com/xmonad/xmonad/issues/21
-    -- https://github.com/xmonad/xmonad-contrib/pull/203
-    dzenCli = "dzen2 -dock -fn CascadiaCode:pixelsize=26"
-    pp =
-      dzenPP
-        { -- ppSep = "🔥", Neither unicode, nor emoji work with dzen2
-          ppTitleSanitize =
-            shorten 15 . dzenEscape,
-          ppExtras =
-            [ padL $ pure $ Just "|",
-              battery,
-              padL $ pure $ Just "|",
-              moment
-            ]
-        }
-    toggleStrutsKey :: XConfig t -> (KeyMask, KeySym)
-    toggleStrutsKey XConfig {modMask = modm} = (modm, xK_b)
-
-moment :: Logger
-moment = do
-  now <- liftIO getZonedTime
-  pure $ do
-    pure $ formatTime defaultTimeLocale "%d/%a %R" now
-
-battery :: Logger
-battery = do
-  s <-
-    fmap trim . liftIO . readFile $
-      "/sys/class/power_supply/BAT0/capacity"
-  pure $ do
-    pct <- readMaybe @Int s
-    let fmt
-          | pct < 33 = dzenColor "white" "red"
-          | pct < 66 = dzenColor "white" "orange"
-          | otherwise = id
-    pure $ fmt $ show pct <> "%"
-  where
-    trim = T.unpack . T.strip . T.pack
-
--}
+          True