Added Battleship.Pirate.generate_id(amount_words, number_max) for gen…

…erating game ids like "ahoy-matey-4523".

config/config.exs

@@ -21,7 +21,8 @@ config :logger, :console,
 
 config :battleship,
   ga_tracking_code: "",
-  id_length: 8
+  id_words: 2,        # Number of words used in game ids "ahoy-matey"
+  id_number_max: 9999 # Maximal number >= 100 after the words "ahoey-matey-9999".
 
 # Import environment specific config. This must remain at the bottom
 # of this file so it overrides the configuration defined above.

lib/battleship.ex

@@ -1,7 +1,8 @@
 defmodule Battleship do
   use Application
 
-  @id_length Application.get_env(:battleship, :id_length)
+  @id_words Application.get_env(:battleship, :id_words)
+  @id_number_max Application.get_env(:battleship, :id_number_max)
 
   # See http://elixir-lang.org/docs/stable/elixir/Application.html
   # for more information on OTP Applications
@@ -34,9 +35,6 @@ defmodule Battleship do
   Generates unique id for the game
   """
   def generate_id do
-    @id_length
-    |> :crypto.strong_rand_bytes
-    |> Base.url_encode64()
-    |> binary_part(0, @id_length)
+    Battleship.Pirate.generate_id(@id_words, @id_number_max)
   end
 end

lib/battleship/pirate.ex

@@ -0,0 +1,89 @@
+defmodule Battleship.Pirate do
+  @moduledoc """
+  Pirate stuff
+  """
+
+  @pirate_words [
+    "ahoy",
+    "matey",
+
+    # Source: https://github.com/mikewesthad/pirate-speak/blob/master/lib/pirate-speak.js
+    "helm",
+    "grog",
+    "vast",
+    "coin",
+    "coins",
+    "admiral",
+    "rum",
+    "barrel",
+    "lad",
+    "mate",
+    "parrot",
+    "hornswaggle",
+    "hails",
+    "shipshape",
+    "shanty",
+    "keelhaul",
+    "doubloon",
+    "crew",
+    "eyepatch",
+    "debt",
+    "wench",
+    "wenches",
+    "grub",
+    "shipmate",
+    "sail",
+    "maties",
+    "bluderbuss",
+    "hook",
+    "yoho",
+    "yohoho",
+    "yohohoho",
+    "fleebag",
+    "sunk",
+    "isle",
+    "brig",
+    "lasses",
+    "lass",
+    "blimey",
+    "parchment",
+    "scallywags",
+    "starboard",
+    "cargo",
+    "yarr",
+    "puny",
+    "swoggler",
+    "booty",
+    "beauties",
+    "duty",
+    "aye",
+    "ye",
+    "yer",
+
+    # Source: https://gist.github.com/devlaers/1308006#file-pirate_phrases-txt
+    "yo-ho-ho",
+    "ahoy",
+    "avast",
+    "arrr",
+    "blaggart",
+    "foul",
+    "whar",
+    "comely",
+    "broadside",
+    "fleabag",
+    "skull",
+    "scuppers",
+    "buried",
+    "treasure",
+  ]
+
+  @doc """
+  Generates a id like "ahoy-matey-4523"
+  """
+  def generate_id(amount_words, number_max) when amount_words >= 1 and number_max >= 100 do
+    words = @pirate_words |> Enum.shuffle |> Enum.take(amount_words)
+    [random_number] = Enum.take_random(100..number_max, 1)
+    Enum.join(words, "-") <> "-" <> to_string(random_number)
+  end
+
+end