Make displayed terminal text screen dragable

src/Dodge/Default/World.hs

@@ -1,6 +1,7 @@
 module Dodge.Default.World (defaultWorld) where
 
 --import Data.Graph.Inductive.Graph hiding ((&))
+import Dodge.ListDisplayParams
 import qualified Data.Set as S
 import qualified Data.Map as M
 import Dodge.Data.World
@@ -58,6 +59,7 @@ defaultWorld =
         , _unpauseClock = 0
         , _coordinates = mempty
         , _wSoundFilter = FilterBySoundOrigin $ S.singleton SpawnSound
+        , _tmLDP = terminalLDP
         }
 
 defaultCWGen :: CWGen