facebook

defmodule Facebook do
	@moduledoc """
	Provides API wrappers for the Facebook Graph API

	See: https://developers.facebook.com/docs/graph-api
	"""

	alias Facebook.Config

	@doc "Start hook"
	def start(_type, _args) do
		{:ok, self}
	end

	@type fields :: list
	@type access_token :: String.t
	@type response :: {:json, HashDict.t} | {:body, String.t}
	@type options :: list
	@type using_appsecret :: boolean

	@doc """
	If you want to use an appsecret proof, pass it into set_appsecret:
	Facebook.set_appsecret("appsecret")

	See: https://developers.facebook.com/docs/graph-api/securing-requests
	"""
	def set_appsecret(appsecret) do
		Config.appsecret(appsecret)
	end

	@doc """
	Basic user infos of the logged in user (specified by the access_token)

	See: https://developers.facebook.com/docs/graph-api/reference/user/
	"""
	@spec me(fields, access_token) :: response
	def me(fields, access_token) when is_binary(fields) do
		me([fields: fields], access_token, [])
	end

	def me(fields, access_token) do
		me(fields, access_token, [])
	end

	@doc """
	Basic user infos of the logged in user (specified by the access_token).

	See: https://developers.facebook.com/docs/graph-api/reference/user/
	"""
	@spec me(fields :: String.t, access_token, options) :: response
	def me(fields, access_token, options) when is_binary(fields) do
		me([fields: fields], access_token, options)
	end

	@doc """
	Basic user infos of the logged in user (specified by the access_token).

	See: https://developers.facebook.com/docs/graph-api/reference/user/
	"""
	@spec me(fields, access_token, options) :: response
	def me(fields, access_token, options) do
		if !is_nil(Config.appsecret) do
			fields = fields ++ [appsecret_proof: encrypt(access_token)]
		end

		Facebook.Graph.get("/me", fields ++ [access_token: access_token], options)
	end

	@doc """
	Likes of the currently logged in user (specified by the access_token)

	See: https://developers.facebook.com/docs/graph-api/reference/user/likes
	"""
	@spec myLikes(access_token) :: response
	def myLikes(access_token) do
		myLikes(access_token, [])
	end

	@doc """
	Likes of the currently logged in user (specified by the access_token)

	See: https://developers.facebook.com/docs/graph-api/reference/user/likes
	"""
	@spec myLikes(access_token, options) :: response
	def myLikes(access_token, options) do
		fields = [access_token: access_token]
		if !is_nil(Config.appsecret) do
			fields = fields ++ [appsecret_proof: encrypt(access_token)]
		end
		Facebook.Graph.get("/me/likes", fields, options)
	end

	@doc """
	Retrieves a list of granted permissions

	See: https://developers.facebook.com/docs/graph-api/reference/user/permissions
	"""
	@spec permissions(user_id :: integer | String.t, access_token) :: response
	def permissions(user_id, access_token) do
		permissions(user_id, access_token, [])
	end

	@doc """
	Retrieves a list of granted permissions

	See: https://developers.facebook.com/docs/graph-api/reference/user/permissions
	"""
	@spec permissions(user_id :: integer | String.t, access_token, options) :: response
	def permissions(user_id, access_token, options) do
		fields = [access_token: access_token]
		if !is_nil(Config.appsecret) do
			fields = fields ++ [appsecret_proof: encrypt(access_token)]
		end
		Facebook.Graph.get(~s(/#{user_id}/permissions), fields, options)
	end

	@doc """
	Get the number of likes for the provided page_id
	"""
	@spec pageLikes(page_id :: integer | String.t, access_token) :: integer
	def pageLikes(page_id, access_token) do
		{:json, %{"likes" => likes}} = page(page_id, access_token, ["likes"], [])
		likes
	end

	@doc """
	Basic page information for the provided page_id

	See: https://developers.facebook.com/docs/graph-api/reference/page
	"""
	@spec page(page_id :: integer | String.t, access_token) :: response
	def page(page_id, access_token) do
		page(page_id, access_token, [], [])
	end

	@doc """
	Get page information for the specified fields for the provided page_id

	See: https://developers.facebook.com/docs/graph-api/reference/page
	"""
	@spec page(page_id :: integer | String.t, access_token, fields, options) :: response
	def page(page_id, access_token, fields, options) do
		params = [fields: fields, access_token: access_token]
		if !is_nil(Config.appsecret) do
			params = params ++ [appsecret_proof: encrypt(access_token)]
		end
		Facebook.Graph.get(~s(/#{page_id}), params, options)
	end


	defp encrypt(token) do
		:hmac.hexlify(:crypto.hmac(:sha256, Config.appsecret, token), [:string, :lower])
	end
end