cache scenario preview widget

swarm-game · Sep 10, 2024 · c9efee3 · c9efee3
1 parent 65c5ef9
commit c9efee3
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/src/swarm-tui/Swarm/TUI/Model/Name.hs b/src/swarm-tui/Swarm/TUI/Model/Name.hs
@@ -92,6 +92,8 @@ data Name
     InventoryList
   | -- | The inventory item position in the InventoryList.
     InventoryListItem Int
+  | -- | Cacheable scenario preview
+    ScenarioPreview FilePath
   | -- | The list of main menu choices.
     MenuList
   | -- | The list of achievements.

diff --git a/src/swarm-tui/Swarm/TUI/View.hs b/src/swarm-tui/Swarm/TUI/View.hs
@@ -17,9 +17,6 @@ module Swarm.TUI.View (
   drawModalMenu,
   drawKeyCmd,
 
-  -- * World
-  drawWorldPane,
-
   -- * Robot panel
   drawRobotPanel,
   drawItem,
@@ -255,7 +252,9 @@ drawNewGameMenuUI (l :| ls) launchOptions = case displayedFor of
   drawDescription (SISingle (s, si)) =
     vBox
       [ drawMarkdown (nonBlank (s ^. scenarioOperation . scenarioDescription))
-      , hCenter . padTop (Pad 1) . vLimit 6 $ hLimitPercent 60 worldPeek
+      , cached (ScenarioPreview $ si ^. scenarioPath) $
+          hCenter . padTop (Pad 1) . vLimit 6 $
+            hLimitPercent 60 worldPeek
       , padTop (Pad 1) table
       ]
    where