Implementing a shim for battlemap state loading...

1 files changed, 22 insertions, 0 deletions

diff --git a/src/battlemap_battlemap.erl b/src/battlemap_battlemap.erl
new file mode 100644
index 0000000..64cf10d
--- /dev/null
+++ b/src/battlemap_battlemap.erl
@@ -0,0 +1,22 @@
+-module(battlemap_battlemap).
+-export([encode_in_json/1]).
+
+encode_in_json (
+   {
+      Width,
+      Height,
+      Tiles
+   }
+) ->
+   jiffy:encode(
+      {
+         [
+            {<<"width">>, Width},
+            {<<"height">>, Height},
+            {
+               <<"content">>,
+               lists:map((fun ({ID, Cost}) -> [ID, Cost] end), Tiles)
+            }
+         ]
+      }
+   ).