Tweak scrolling, particularly zooming

2023-01-07 19:50:44 +00:00
parent 6b259fa200
commit d4122b2d6f
7 changed files with 42 additions and 37 deletions
@@ -108,7 +108,6 @@ maybeWarmupStatus it = case it ^? itUse . heldDelay . warmMax of
 maybeModeStatus :: Item -> Maybe String
 maybeModeStatus it = case it ^? itUse . heldScroll of
    Just HeldScrollCharMode{_hsCharMode = (c :<| _)} -> Just [' ', c]
-    Just HeldScrollInt{_hsInt = i} -> Just $ show i
    _ -> Nothing

 maybeRateStatus :: Item -> Maybe String