Allow for indentation of individual selection items

2024-09-12 10:21:35 +01:00
parent eddb313ea1
commit 891fd0079c
8 changed files with 213 additions and 181 deletions
@@ -189,6 +189,7 @@ stackText :: [String] -> Picture
 {-# INLINE stackText #-}
 stackText = mconcat . zipWith (\y s -> translate 0 y $ centerText s) [0, 100 ..]

+-- character size 100 x 200, no gaps between
 text :: String -> Picture
 {-# INLINE text #-}
 text = drawText 0