mkColoredMessages :: Point -> [(String, Color)] -> [Sprite]
mkColoredMessages (offx, offy) = map toSprite . enumerate
    where
        toSprite (i, (s, fg)) = MessageSprite (offx, i + offy) s (SpriteAttr fg black)
mkColoredMessages :: Point -> [(String, Color)] -> [Sprite]
mkColoredMessages (offx, offy) = map toSprite . enumerate
    where
        toSprite (i, (s, fg)) = MessageSprite (offx, i + offy) s (SpriteAttr fg black)
mkColoredMessages (offx, offy) = map toSprite . enumerate
    where
        toSprite (i, (s, fg)) = MessageSprite (offx, i + offy) s (SpriteAttr fg black)