Remove hvAuto, replace with machineGun

src/Dodge/Placement/Instance/Terminal.hs

@@ -4,7 +4,6 @@ module Dodge.Placement.Instance.Terminal
     , putTerminal'
     , putTerminal''
     , simpleTermMessage
-    , topFlushStrings
     , terminalColor
     , terminalSPic
     ) where
@@ -128,24 +127,3 @@ accessTerminal mtmid w = case mtmid of
 
 simpleTermMessage :: [String] -> Terminal
 simpleTermMessage strs = defaultTerminal & tmFutureLines .~ map makeTermLine strs
---simpleTermMessage ss = const $ TerminalParams
---    {_termDisplayedLines = []
---    ,_termFutureLines = TerminalLineEffect 0 termsound
---        : map totermline (topFlushStrings ss ++ ss)
---    ,_termMaxLines = 7
---    ,_termTitle = "TERMINAL"
---    ,_termSel = Nothing
---    ,_termMaxSel = Nothing
---    }
---  where
---    totermline s = TerminalLineDisplay 0 (const (s,white))
---    termsound subinv w' = soundStart TerminalSound tpos computerBeepingS Nothing w'
---      where
---        tpos = fromMaybe 0 $ w' ^? buttons . ix (_termID subinv) . btPos
-
-topFlushStrings :: [String] -> [String]
-topFlushStrings = topFlush . maximum . map length
-
-topFlush :: Int -> [String]
-topFlush twidth = [replicate i ' ' ++ "*" | i <- [0, max 1 $ twidth `div` 5 .. twidth]]
-