Remove taffybar screensaver widget

dotfiles/config/taffybar/taffybar.hs

@@ -19,7 +19,6 @@ import Data.Maybe (fromMaybe, mapMaybe)
 import Data.Ratio ((%))
 import Data.Text (Text)
 import qualified Data.Text as T
-import qualified GI.Gdk as Gdk
 import qualified GI.GdkPixbuf.Objects.Pixbuf as Gdk
 import qualified GI.Gtk as Gtk
 import qualified GI.Pango as Pango
@@ -30,7 +29,6 @@ import System.Environment.XDG.BaseDir (getUserConfigFile)
 import System.IO (hFlush, stdout)
 import System.Log.Logger (Priority (WARNING), rootLoggerName, setLevel, updateGlobalLogger)
 import System.Posix.Process (getProcessID)
-import System.Process (spawnCommand)
 import System.Taffybar (startTaffybar)
 import System.Taffybar.Context
   ( Backend (BackendWayland, BackendX11),
@@ -556,34 +554,6 @@ simplifiedScreenLockWidget =
       { ScreenLock.screenLockIcon = T.pack "\xF023" <> " Lock"
       }
 
-simplifiedScreensaverWidget :: TaffyIO Gtk.Widget
-simplifiedScreensaverWidget =
-  liftIO $ do
-    label <- Gtk.labelNew (Just (T.pack "\xF108" <> " Saver"))
-    ebox <- Gtk.eventBoxNew
-    Gtk.containerAdd ebox label
-    _ <- widgetSetClassGI ebox "screensaver"
-    Gtk.widgetSetTooltipText ebox (Just "Left click: toggle screensaver\nRight click: stop screensaver")
-    void $ Gtk.onWidgetButtonPressEvent ebox $ \event -> do
-      eventType <- Gdk.getEventButtonType event
-      button <- Gdk.getEventButtonButton event
-      if eventType /= Gdk.EventTypeButtonPress
-        then return False
-        else case button of
-          1 -> do
-            void $ spawnCommand "/home/imalison/dotfiles/dotfiles/lib/bin/hypr-screensaver toggle >/dev/null 2>&1"
-            return True
-          3 -> do
-            void $ spawnCommand "/home/imalison/dotfiles/dotfiles/lib/bin/hypr-screensaver stop >/dev/null 2>&1"
-            return True
-          _ -> return False
-    Gtk.widgetShowAll ebox
-    Gtk.toWidget ebox
-
-screensaverWidget :: TaffyIO Gtk.Widget
-screensaverWidget =
-  decorateWithClassAndBoxM "screensaver" simplifiedScreensaverWidget
-
 simplifiedWlsunsetWidget :: TaffyIO Gtk.Widget
 simplifiedWlsunsetWidget =
   -- Inner widget: no extra pill wrapping (the combiner provides that).
@@ -797,7 +767,6 @@ endWidgetsForHost _ hostName =
             ("ram-swap", ramSwapWidget),
             ("disk-usage", diskUsageWidget),
             ("network", networkWidget),
-            ("screensaver", screensaverWidget),
             ("sun-lock", sunLockWidget),
             ("mpris", mprisWidget)
           ]
@@ -811,7 +780,6 @@ endWidgetsForHost _ hostName =
             ("openai-usage", openAIUsageWidget),
             ("cpu", cpuWidget),
             ("ram-swap", ramSwapWidget),
-            ("screensaver", screensaverWidget),
             ("sun-lock", sunLockWidget),
             ("mpris", mprisWidget)
           ]