cssex

defmodule CSSEx.HSLA do
  alias CSSEx.Unit
  defstruct [h: 0, s: 0, l: 0, a: 1]

  @colors CSSEx.Helpers.Colors.colors_tuples()
  

  def new_hsl(<<"hsl", values::binary>>) do
    case Regex.run(~r/\((.+),(.+),(.+),(.+)\)/, values) do
      [_, h, s, l, a] ->
	new(
	  String.trim(h),
	  String.trim(s),
	  String.trim(l),
	  String.trim(a)
	)
	_ -> {:error, :invalid}
    end
  end

  def new_hsl(<<"hsl", values::binary>>) do
    case Regex.run(~r/\((.+),(.+),(.+)\)/, values) do
      [_, h, s, l] ->
	new(
	  String.trim(h),
	  String.trim(s),
	  String.trim(l),
	  "1"
	)
	_ -> {:error, :invalid}
    end
  end

  def new_hsl(<<"#", hex::binary>>) do
    case hex do
      <<r::binary-size(2), g::binary-size(2), b::binary-size(2), a::binary-size(2)>> ->
	{r, g, b, a}
      <<r::binary-size(2), g::binary-size(2), b::binary-size(2)>> ->
	{r, g, b, "100"}
      <<r::binary-size(1), g::binary-size(1), b::binary-size(1), a::binary-size(1)>> ->
	{r, g, b, a}
      <<r::binary-size(1), g::binary-size(1), b::binary-size(1)>> ->
	{r, g, b, "100"}
	_ -> {:error, :invalid}
    end
    |> case do
	 {r, g, b, a} ->
	   CSSEx.RGBA.new(r, g, b, a, 16)
	   |> from_rgba()
	   
	 error -> error
       end
  end

  Enum.each(@colors, fn([color, rgba]) -> 
    def new_hsl(unquote(color)) do
      CSSEx.RGBA.new_rgba(unquote(rgba))
      |> from_rgba()
    end
  end)

  def from_rgba(%CSSEx.RGBA{r: r, g: g, b: b, a: a}) do
    n_r = r / 255
    n_g = g / 255
    n_b = b / 255

    {min, max} = Enum.min_max([n_r, n_g, n_b])

    luminance = ((min + max) / 2) * 50

    saturation =
      case {min, max} do
	{same, same} -> 0
	{min, max} when luminance <= 50 -> ((max - min) / (max + min)) * 100
	{min, max} -> ((max - min) / (2 - max - min)) * 100
      end

    hue =
      case {n_r, n_g, n_b} do
	{same, same, same} -> 0
	{n_r, n_g, n_b} when n_r > n_g and n_r > n_b -> (n_g - n_b) / (max - min)
	{n_r, n_g, n_b} when n_g > n_r and n_g > n_b -> 2 + (n_b - n_r) / (max - min)
	{n_r, n_g, n_b} -> 4 + (n_r - n_g) / (max - min)
      end

    hue_2 =
      case hue * 60 do
	new_hue when new_hue < 0 -> new_hue + 360
	new_hue -> new_hue
      end

    %__MODULE__{
      h: %Unit{value: hue_2, unit: nil},
      s: %Unit{value: saturation, unit: "%"},
      l: %Unit{value: luminance, unit: "%"},
      a: a
    }
  end

  def new(h, s, l, a),
    do: {
    :ok,
    %__MODULE__{
      h: new_hue(h),
      s: new_saturation(s),
      l: new_luminance(l),
      a: alpha_value(a, 10)
    }
  }

  def new_hue(val) when is_binary(val) do
    case Integer.parse(val, 10) do
      {parsed, _} -> valid_hue_val(parsed)
      :error -> 0
    end
  end

  def new_hue(val) when is_integer(val) or is_float(val), do: valid_hue_val(val)

  def new_saturation(val) when is_binary(val) do
    case Integer.parse(val, 10) do
      {parsed, _} -> valid_saturation_val(parsed)
      :error -> 0
    end
  end

  def new_saturation(val) when is_integer(val) or is_float(val),
    do: valid_saturation_val(val)

  def new_luminance(val) when is_binary(val) do
    case Integer.parse(val, 10) do
      {parsed, _} -> valid_luminance_val(parsed)
      :error -> 0
    end
  end

  def new_luminance(val) when is_integer(val) or is_float(val),
    do: valid_luminance_val(val)
  
  def alpha_value(val, 10) do
    case Float.parse(val) do
      {parsed, _} -> valid_alpha_val(parsed)
      :error -> 1
    end
  end

  def valid_hue_val(n) when n <= 360 and n >= 0, do: %Unit{value: n, unit: nil}
  def valid_hue_val(n), do: %Unit{value: 0, unit: nil}
  
  def valid_saturation_val(n) when n <= 100 and n >= 0, do: %Unit{value: n, unit: "%"}
  def valid_saturation_val(n), do: %Unit{value: 0, unit: "%"}

  def valid_luminance_val(n) when n <= 100 and n >= 0, do: %Unit{value: n, unit: "%"}
  def valid_luminance_val(n), do: %Unit{value: 0, unit: "%"}

  def valid_alpha_val(n) when n > 0 and n <= 1, do: n
  def valid_alpha_val(_n), do: 1

end

defimpl String.Chars, for: CSSEx.HSLA do
  def to_string(%CSSEx.HSLA{h: h, s: s, l: l, a: a}), do: "hsla(#{h},#{s},#{l},#{a})"
end