[xmonad] Numbered tabs in IM.Tabbed

[Sergey Alirzaev]

I've made some code to jump around tabs in a more comfortable way:

curstack :: W.StackSet i l a sid sd -> W.Stack a
curstack s = fromJust $ W.stack $ W.workspace $ W.current s

focused s = (\(Stack _ ls rs) -> length ls) $ curstack s

tabJump :: Int -> X ()
tabJump x = withWindowSet (\s -> (\c -> focusNth $ if c `mod` 10 == x
then c + 10 else x) $ focused s)

and "[((modm .|. mod1Mask, k), tabJump i) | (i, k) <- zip [0..9] [xK_0
.. xK_9]]" to the keybindings

Can i make the tabs' labels show the number of the window in the front
of the label without modifying xmonad-contrib?