sloanelybutsurely.com/lib/web/components/core_components.ex

115 lines
2.6 KiB
Elixir

defmodule Web.CoreComponents do
@moduledoc """
Provides core UI components.
"""
use Phoenix.Component
alias Phoenix.HTML.FormField
attr :id, :any, default: nil
attr :name, :any
attr :label, :string, default: nil
attr :value, :any
attr :type, :string, default: "text", values: ~w[text password textarea]
attr :field, FormField
attr :errors, :list, default: []
attr :rest, :global, include: ~w[disabled form pattern placeholder readonly required]
def input(%{field: %FormField{} = field} = assigns) do
errors =
if Phoenix.Component.used_input?(field) do
field.errors
else
[]
end
assigns
|> assign(
field: nil,
id: assigns.id || field.id,
errors: Enum.map(errors, &translate_error/1)
)
|> assign_new(:name, fn -> field.name end)
|> assign_new(:value, fn -> field.value end)
|> input()
end
def input(%{type: "textarea"} = assigns) do
~H"""
<div>
<.label for={@id}>{@label}</.label>
<textarea id={@id} name={@name}>{Phoenix.HTML.Form.normalize_value(@type, @value)}</textarea>
<.error :for={error <- @errors}>{error}</.error>
</div>
"""
end
def input(assigns) do
~H"""
<div>
<.label for={@id}>{@label}</.label>
<input
id={@id}
type={@type}
name={@name}
value={Phoenix.HTML.Form.normalize_value(@type, @value)}
{@rest}
/>
<.error :for={error <- @errors}>{error}</.error>
</div>
"""
end
attr :for, :string, default: nil
slot :inner_block, required: true
def label(assigns) do
~H"""
<label for={@for}>
{render_slot(@inner_block)}
</label>
"""
end
slot :inner_block, required: true
def error(assigns) do
~H"""
<p>
<.icon name="hero-exclamation-circle-mini" class="h-5 w-5 flex-none" />
{render_slot(@inner_block)}
</p>
"""
end
attr :name, :string, required: true
attr :class, :string, default: nil
def icon(%{name: "hero-" <> _} = assigns) do
~H"""
<span class={[@name, @class]} />
"""
end
def translate_error({msg, opts}) do
Enum.reduce(opts, msg, fn {key, value}, acc ->
String.replace(acc, "%{#{key}}", fn _ -> to_string(value) end)
end)
end
def translate_errors(errors, field) when is_list(errors) do
for {^field, {msg, opts}} <- errors, do: translate_error({msg, opts})
end
attr :type, :string, default: "button", values: ~w[button submit]
attr :rest, :global
slot :inner_block, required: true
def button(assigns) do
~H"""
<button type={@type} {@rest}>
{render_slot(@inner_block)}
</button>
"""
end
end