Dynamically augment workspace names logged to a status bar based on the contents (windows) of the workspace.

Dynamically augment Workspace's WorkspaceId as shown on a status bar based on the Windows inside the Workspace.

Icons are specified by a Query [String], which is something like a ManageHook (and uses the same syntax) that returns a list of Strings (icons). This Query is evaluated for each window and the results are joined together. appIcon is a useful shortcut here.

For example:

myIcons :: Query [String]
myIcons = composeAll
  [ className =? "discord" --> appIcon "\xfb6e"
  , className =? "Discord" --> appIcon "\xf268"
  , className =? "Firefox" --> appIcon "\63288"
  , className =? "Spotify" <||> className =? "spotify" --> appIcon "阮"
  ]

then you can add it to your XMonad.Hooks.StatusBar config:

myBar = statusBarProp "xmobar" (iconsPP myIcons myPP)
main = xmonad . withSB myBar $ … $ def

Here is an example of this

Note: You can use any string you want here. The example shown here uses NerdFont Icons to represent open applications.

If you want to customize formatting and/or combine this with other PP extensions like XMonad.Util.ClickableWorkspaces, here's a more advanced example how to do that:

myIconConfig = def{ iconConfigIcons = myIcons, iconConfigFmt = iconsFmtAppend concat }
myBar = statusBarProp "xmobar" (clickablePP =<< dynamicIconsPP myIconConfig myPP)
main = xmonad . withSB myBar . … $ def

This can be also used with XMonad.Hooks.DynamicLog:

main = xmonad $ … $ def
  { logHook = dynamicLogIconsWithPP myIcons xmobarPP
  , … }

or with more customziation:

myIconConfig = def{ iconConfigIcons = myIcons, iconConfigFmt = iconsFmtAppend concat }
main = xmonad $ … $ def
  { logHook = xmonadPropLog =<< dynamicLogString =<< clickablePP =<<
              dynamicIconsPP myIconConfig xmobarPP
  , … }