gm

defmodule Gm do
  defmodule Command do
    defstruct args: []
  end

  defmodule Error do
    defexception [:message]
  end

  def open(path) when is_binary(path) do
    %Command{args: [path]}
  end

  def write(%Command{args: args}, path) when is_binary(path) do
    command = "gm"
    args = ["convert" | args ++ [path]]
    opts = [stderr_to_stdout: true]
    case System.cmd(command, args, opts) do
      {_, 0}     -> :ok
      {error, _} -> {:error, error}
    end
  end

  def write!(%Command{} = command, path) when is_binary(path) do
    case write(command, path) do
      :ok               -> :ok
      {:error, message} -> raise %Error{message: message}
    end
  end

  def resize(%Command{args: args} = command, width, height)
      when is_integer(width) and is_integer(height) do
    %{command | args: args ++ ["-resize", "#{width}x#{height}"]}
  end

  def font(%Command{args: args} = command, font) when is_binary(font) do
    %{command | args: args ++ ["-font", font]}
  end

  def draw_text(%Command{args: args} = command, x, y, string)
      when is_integer(x) and is_integer(y) and is_binary(string) do
    %{command | args: args ++ ["-draw", "text #{x},#{y} #{escape(string)}"]}
  end

  def fill(%Command{args: args} = command, color) when is_binary(color) do
    %{command | args: args ++ ["-fill", color]}
  end

  def point_size(%Command{args: args} = command, size) when is_integer(size) do
    %{command | args: args ++ ["-pointsize", "#{size}"]}
  end

  @operators [:over] # TODO: Add more.
  def draw_image(%Command{args: args} = command, operator, x, y, width, height, path)
      when operator in @operators and is_integer(x) and is_integer(y) and
           is_integer(width) and is_integer(height) and is_binary(path) do
    %{command | args: args ++ ["-draw", "image #{operator} #{x},#{y} #{width},#{height} #{escape(path)}"]}
  end

  @gravities %{:north_west => "NorthWest",
               :north => "North",
               :north_east => "NorthEast",
               :west => "West",
               :center => "Center",
               :east => "East",
               :south_west => "SouthWest",
               :south => "South",
               :south_east => "SouthEast"}
  @gravities_keys Map.keys(@gravities)
  def gravity(%Command{args: args} = command, gravity)
      when gravity in @gravities_keys do
    %{command | args: args ++ ["-gravity", @gravities[gravity]]}
  end

  defp escape(string) when is_binary(string) do
    ~S|"| <> String.replace(string, ~S|"|, ~S|\"|) <> ~S|"|
  end
end