Add debug to copy to clipboard any clicked-on creature

src/Dodge/TestString.hs

@@ -42,8 +42,13 @@ tocrs :: (IM.IntMap Creature
          -> Universe -> Const (Endo [String]) Universe
 tocrs = uvWorld . cWorld . lWorld . creatures
 
+isBee :: Creature -> Bool
+isBee cr = case cr ^. crType of
+    BeeCrit{} -> True
+    _ -> False
+
 testStringInit :: Universe -> [String]
-testStringInit _ = mempty -- u ^.. tocrs . each . crActionPlan . apStrategy . to show
+testStringInit u = u ^.. tocrs . each . filtered isBee . crActionPlan . apStrategy . to show
 --    u ^.. tocrs . ix 1 . crPos . _xy . to show
 --    <> u ^.. tocrs . ix 1 . crType . slimeCompression . to show
 --    <> u ^.. tocrs . ix 1 . crType . slimeCompression . to norm . to show