Allow for inventory item bolding

2025-12-09 22:46:57 +00:00
parent bf8c538491
commit 851b26262a
18 changed files with 274 additions and 225 deletions
@@ -25,6 +25,7 @@ module Picture.Base (
    line,
    lineCol,
    text,
+    hackBoldText,
    textRight,
    textJustifyLeft,
    textJustifyRight,
@@ -194,6 +195,9 @@ text :: String -> Picture
 {-# INLINE text #-}
 text = drawText 0

+hackBoldText :: String -> Picture
+hackBoldText s = text s <> translate 10 0 (text s)
+
 -- lines up the rightmost part of the last character with 0
 textJustifyRight :: String -> Picture
 {-# INLINE textJustifyRight #-}