Merge pull request #549 from rolsdorph/add-xmobarfont

Add xmobarFont

CHANGES.md

@@ -117,6 +117,8 @@
       `workspaceNamesPP`, `marshallPP` and/or `clickablePP` to compose
       intuitively.
 
+    - Added `xmobarFont` for selecting an xmobar font index
+
 
   * `XMonad.Hooks.StatusBar`
 

XMonad/Hooks/StatusBar/PP.hs

@@ -36,7 +36,7 @@ module XMonad.Hooks.StatusBar.PP (
 
     -- * Formatting utilities
     wrap, pad, trim, shorten, shorten', shortenLeft, shortenLeft',
-    xmobarColor, xmobarAction, xmobarBorder,
+    xmobarColor, xmobarFont, xmobarAction, xmobarBorder,
     xmobarRaw, xmobarStrip, xmobarStripTags,
     dzenColor, dzenEscape, dzenStrip, filterOutWsPP,
 
@@ -286,6 +286,12 @@ dzenStrip = strip [] where
       | otherwise           = let (good,x') = span (/= '^') x
                               in strip (keep ++ good) x'
 
+-- | Use xmobar escape codes to output a string with the font at the given index
+xmobarFont :: Int     -- ^ index: index of the font to use (0: standard font)
+           -> String  -- ^ output string
+           -> String
+xmobarFont index = wrap ("<fn=" ++ show index ++ ">") "</fn>"
+
 -- | Use xmobar escape codes to output a string with given foreground
 --   and background colors.
 xmobarColor :: String  -- ^ foreground color: a color name, or #rrggbb format