-
Notifications
You must be signed in to change notification settings - Fork 1
/
crud.ex
92 lines (83 loc) · 2.23 KB
/
crud.ex
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
defmodule ActiveCampaign.Crud do
@moduledoc """
Common aliases for endpoint modules.
Provides macros for generating boilerplate CRUD endpoints
"""
defmacro __using__(opts) do
aliases =
quote do
alias ActiveCampaign.Http
end
[aliases] ++ Enum.map(opts[:fun], fn fun -> apply(__MODULE__, fun, [opts]) end)
end
def get(opts) do
quote do
@doc """
Retrieve a#{unquote(an(opts))} #{unquote(name(opts))}
"""
@spec get(integer()) :: {:ok, map()} | {:error, any()}
def get(id) do
Http.get(unquote(opts[:endpoint]) <> "/" <> to_string(id))
end
end
end
def create(opts) do
quote do
@doc """
Create a#{unquote(an(opts))} #{unquote(name(opts))}
"""
@spec create(map()) :: {:ok, map()} | {:error, any()}
def create(unquote(Macro.var(opts[:key], nil))) do
Http.post(unquote(opts[:endpoint]), %{
unquote(opts[:key]) => unquote(Macro.var(opts[:key], nil))
})
end
end
end
def update(opts) do
quote do
@doc """
Update a#{unquote(an(opts))} #{unquote(name(opts))}
"""
@spec update(integer(), map()) :: {:ok, map()} | {:error, any()}
def update(id, unquote(Macro.var(opts[:key], nil))) do
Http.put(unquote(opts[:endpoint]) <> "/" <> to_string(id), %{
unquote(opts[:key]) => unquote(Macro.var(opts[:key], nil))
})
end
end
end
def delete(opts) do
quote do
@doc """
Delete a#{unquote(an(opts))} #{unquote(name(opts))}
"""
@spec delete(integer()) :: {:ok, map()} | {:error, any()}
def delete(id) do
Http.delete(unquote(opts[:endpoint]) <> "/" <> to_string(id))
end
end
end
def list(opts) do
quote do
@doc """
List all #{unquote(name(opts))}s
"""
@spec list(map()) :: {:ok, map()} | {:error, any()}
def list(query_params \\ %{}) do
Http.get(unquote(opts[:endpoint]) <> "?" <> Http.encode_query(query_params))
end
end
end
defp name(opts) do
opts[:name] || opts[:key]
end
defp an(opts) do
case name(opts) do
<<char::binary-size(1)>> <> _rest when char in ~w(a e i o) ->
"n"
_ ->
""
end
end
end