Simplify menu screens (no choice of display parameters)

2025-01-07 01:03:12 +00:00
parent fe3e0b1373
commit 4a9c1cd6b3
4 changed files with 15 additions and 28 deletions
@@ -7,7 +7,6 @@ module Dodge.Concurrent (

 import Data.Sequence (Seq (..))
 import Dodge.Data.Universe
-import Dodge.Menu.Loading
 import LensHelp

 conEffects :: Universe -> ConcurrentEffect Universe
@@ -53,3 +52,16 @@ blockingLoad str f u =
 --clearConcEff eff = do
 --    f <- eff
 --    return (f . (uvConcEffects .~ NoConcEffect))
+
+loadingScreen :: String -> ScreenLayer
+loadingScreen str =
+    OptionScreen
+        { _scTitle = str
+        , _scOptions = mempty
+        , _scOffset = 0
+        , _scPositionedMenuOption = NoEscapeMenuOption
+        , _scOptionFlag = LoadingScreen
+        , _scSelectionList = mempty
+        , _scAvailableLines = 0
+        , _scDisplayTime = 0
+        }