module System.Taffybar.WindowSwitcher (
windowSwitcherNew
) where
import Control.Monad (forM_)
import Control.Monad.IO.Class ( liftIO )
import qualified Graphics.UI.Gtk as Gtk
import Graphics.X11.Xlib.Extras (Event)
import System.Information.EWMHDesktopInfo
import System.Taffybar.Pager
windowSwitcherNew :: Pager -> IO Gtk.Widget
windowSwitcherNew pager = do
label <- Gtk.labelNew (Nothing :: Maybe String)
Gtk.widgetSetName label "label"
let cfg = config pager
callback = pagerCallback cfg label
subscribe pager callback "_NET_ACTIVE_WINDOW"
assembleWidget label
pagerCallback :: PagerConfig -> Gtk.Label -> Event -> IO ()
pagerCallback cfg label _ = do
title <- withDefaultCtx getActiveWindowTitle
let decorate = activeWindow cfg
Gtk.postGUIAsync $ Gtk.labelSetMarkup label (decorate $ nonEmpty title)
assembleWidget :: Gtk.Label -> IO Gtk.Widget
assembleWidget label = do
title <- Gtk.menuItemNew
Gtk.widgetSetName title "title"
Gtk.containerAdd title label
switcher <- Gtk.menuBarNew
Gtk.widgetSetName switcher "WindowSwitcher"
Gtk.containerAdd switcher title
Gtk.rcParseString $ unlines [ "style 'WindowSwitcher' {"
, " xthickness = 0"
, " GtkMenuBar::internal-padding = 0"
, "}"
, "style 'title' {"
, " xthickness = 0"
, " GtkMenuItem::horizontal-padding = 0"
, "}"
, "widget '*WindowSwitcher' style 'WindowSwitcher'"
, "widget '*WindowSwitcher*title' style 'title'"
]
menu <- Gtk.menuNew
Gtk.widgetSetName menu "menu"
menuTop <- Gtk.widgetGetToplevel menu
Gtk.widgetSetName menuTop "Taffybar_WindowSwitcher"
Gtk.menuItemSetSubmenu title menu
_ <- Gtk.on title Gtk.menuItemActivate $ fillMenu menu
_ <- Gtk.on title Gtk.menuItemDeselect $ emptyMenu menu
Gtk.widgetShowAll switcher
return $ Gtk.toWidget switcher
fillMenu :: Gtk.MenuClass menu => menu -> IO ()
fillMenu menu = withDefaultCtx $ do
handles <- getWindowHandles
if null handles then return () else do
wsNames <- getWorkspaceNames
forM_ handles $ \handle -> liftIO $ do
item <- Gtk.menuItemNewWithLabel (formatEntry wsNames handle)
_ <- Gtk.on item Gtk.buttonPressEvent $ liftIO $ do
withDefaultCtx (focusWindow $ snd handle)
return True
Gtk.menuShellAppend menu item
Gtk.widgetShow item
emptyMenu :: Gtk.MenuClass menu => menu -> IO ()
emptyMenu menu = Gtk.containerForeach menu $ \item ->
Gtk.containerRemove menu item >> Gtk.widgetDestroy item
formatEntry :: [String]
-> X11WindowHandle
-> String
formatEntry wsNames ((ws, wtitle, _), _) = wsName ++ ": " ++ (nonEmpty wtitle)
where wsName = if 0 <= ws && ws < length wsNames
then wsNames !! ws
else "WS#" ++ show ws
nonEmpty :: String -> String
nonEmpty x = case x of
[] -> "(nameless window)"
_ -> x