diff options
Diffstat (limited to '')
-rw-r--r-- | XMonad/Util/Font.hsc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Util/Font.hsc b/XMonad/Util/Font.hsc index 42de67d..5912053 100644 --- a/XMonad/Util/Font.hsc +++ b/XMonad/Util/Font.hsc @@ -143,7 +143,7 @@ textExtentsXMF (Xft xftfont) _ = io $ do #endif -- | String position -data Align = AlignCenter | AlignRight | AlignLeft +data Align = AlignCenter | AlignRight | AlignLeft | AlignRightOffset Int -- | Return the string x and y 'Position' in a 'Rectangle', given a -- 'FontStruct' and the 'Align'ment @@ -156,6 +156,7 @@ stringPosition dpy fs (Rectangle _ _ w h) al s = do AlignCenter -> fi (w `div` 2) - fi (width `div` 2) AlignLeft -> 1 AlignRight -> fi (w - (fi width + 1)); + AlignRightOffset offset -> fi (w - (fi width + 1)) - fi offset; return (x,y) printStringXMF :: (Functor m, MonadIO m) => Display -> Drawable -> XMonadFont -> GC -> String -> String |