point.ex

defmodule Kpsz.Ecto.Point do
  @behaviour Ecto.Type
  @moduledoc """
  Representation of geological point in the database
  """

  @extractor ~r/\(([\d.]+),([\d.]+)\)/

  def type, do: :string

  def cast(string) when is_binary(string), do: {:ok, string}
  def cast(_), do: :error

  def load(string) do
    case Regex.run(@extractor, string) do
      [_whole, x, y] -> {:ok, {x, y} }
      _ -> :error
    end
  end
  def loard(_), do: :error

  def dump({ x, y}), do: {:ok, "(#{x},#{y})" }
  def dump(_), do: :error

end