Implement telescoping inventory selection

2023-02-10 10:57:00 +00:00
parent c354949ca9
commit a8e00ac025
10 changed files with 172 additions and 64 deletions
@@ -21,7 +21,7 @@ itemDisplayWithNumber numberstr it =
        (midPadL 15 ' ' thename (' ' : numberstr) ++ theparam) :
        catMaybes [maybeWarmupStatus it, maybeRateStatus it]
            ++ moduleStrings it
-            ++ repeat "*"
+            ++ repeat "\\"
  where
    thename = itemBaseName it
    theparam =