rename to cannery

lib/cannery_web/views/email_view.ex

@@ -0,0 +1,7 @@
+defmodule CanneryWeb.EmailView do
+  @moduledoc """
+  A view for email-related helper functions
+  """
+  use CanneryWeb, :view
+  alias CanneryWeb.{Endpoint, HomeLive}
+end

lib/cannery_web/views/error_helpers.ex

@@ -0,0 +1,84 @@
+defmodule CanneryWeb.ErrorHelpers do
+  @moduledoc """
+  Conveniences for translating and building error messages.
+  """
+
+  use Phoenix.HTML
+  import Phoenix.Component
+  alias Ecto.Changeset
+  alias Phoenix.{HTML.Form, LiveView.Rendered}
+
+  @doc """
+  Generates tag for inlined form input errors.
+  """
+  @spec error_tag(Form.t(), Form.field()) :: Rendered.t()
+  @spec error_tag(Form.t(), Form.field(), String.t()) :: Rendered.t()
+  def error_tag(form, field, extra_class \\ "") do
+    assigns = %{extra_class: extra_class, form: form, field: field}
+
+    ~H"""
+    <span
+      :for={error <- Keyword.get_values(@form.errors, @field)}
+      class={["invalid-feedback", @extra_class]}
+      phx-feedback-for={input_name(@form, @field)}
+    >
+      <%= translate_error(error) %>
+    </span>
+    """
+  end
+
+  @doc """
+  Translates an error message using gettext.
+  """
+  @spec translate_error({String.t(), keyword() | map()}) :: String.t()
+  def translate_error({msg, opts}) do
+    # When using gettext, we typically pass the strings we want
+    # to translate as a static argument:
+    #
+    #     # Translate "is invalid" in the "errors" domain
+    #     dgettext("errors", "is invalid")
+    #
+    #     # Translate the number of files with plural rules
+    #     dngettext("errors", "1 file", "%{count} files", count)
+    #
+    # Because the error messages we show in our forms and APIs
+    # are defined inside Ecto, we need to translate them dynamically.
+    # This requires us to call the Gettext module passing our gettext
+    # backend as first argument.
+    #
+    # Note we use the "errors" domain, which means translations
+    # should be written to the errors.po file. The :count option is
+    # set by Ecto and indicates we should also apply plural rules.
+    if count = opts[:count] do
+      Gettext.dngettext(CanneryWeb.Gettext, "errors", msg, msg, count, opts)
+    else
+      Gettext.dgettext(CanneryWeb.Gettext, "errors", msg, opts)
+    end
+  end
+
+  @doc """
+  Displays all errors from a changeset, or just for a single key
+  """
+  @spec changeset_errors(Changeset.t()) :: String.t()
+  @spec changeset_errors(Changeset.t(), key :: atom()) :: [String.t()] | nil
+  def changeset_errors(changeset) do
+    changeset
+    |> changeset_error_map()
+    |> Enum.map_join(". ", fn {key, errors} ->
+      "#{key |> humanize()}: #{errors |> Enum.join(", ")}"
+    end)
+  end
+
+  def changeset_errors(changeset, key) do
+    changeset |> changeset_error_map() |> Map.get(key)
+  end
+
+  @doc """
+  Displays all errors from a changeset in a key value map
+  """
+  @spec changeset_error_map(Changeset.t()) :: %{atom() => [String.t()]}
+  def changeset_error_map(changeset) do
+    changeset
+    |> Changeset.traverse_errors(fn error -> error |> translate_error() end)
+  end
+end

lib/cannery_web/views/error_view.ex

@@ -0,0 +1,15 @@
+defmodule CanneryWeb.ErrorView do
+  use CanneryWeb, :view
+  alias CanneryWeb.{Endpoint, HomeLive}
+
+  def template_not_found(error_path, _assigns) do
+    error_string =
+      case error_path do
+        "404.html" -> dgettext("errors", "Not found")
+        "401.html" -> dgettext("errors", "Unauthorized")
+        _other_path -> dgettext("errors", "Internal Server Error")
+      end
+
+    render("error.html", %{error_string: error_string})
+  end
+end

lib/cannery_web/views/home_view.ex

@@ -0,0 +1,3 @@
+defmodule CanneryWeb.PageView do
+  use CanneryWeb, :view
+end

lib/cannery_web/views/layout_view.ex

@@ -0,0 +1,16 @@
+defmodule CanneryWeb.LayoutView do
+  use CanneryWeb, :view
+  alias CanneryWeb.{Endpoint, HomeLive}
+
+  # Phoenix LiveDashboard is available only in development by default,
+  # so we instruct Elixir to not warn if the dashboard route is missing.
+  @compile {:no_warn_undefined, {Routes, :live_dashboard_path, 2}}
+
+  def get_title(%{assigns: %{title: title}}) when title not in [nil, ""] do
+    gettext("Cannery | %{title}", title: title)
+  end
+
+  def get_title(_conn) do
+    gettext("Cannery")
+  end
+end

lib/cannery_web/views/user_confirmation_view.ex

@@ -0,0 +1,4 @@
+defmodule CanneryWeb.UserConfirmationView do
+  use CanneryWeb, :view
+  alias Cannery.Accounts
+end

lib/cannery_web/views/user_registration_view.ex

@@ -0,0 +1,3 @@
+defmodule CanneryWeb.UserRegistrationView do
+  use CanneryWeb, :view
+end

lib/cannery_web/views/user_reset_password_view.ex

@@ -0,0 +1,4 @@
+defmodule CanneryWeb.UserResetPasswordView do
+  use CanneryWeb, :view
+  alias Cannery.Accounts
+end

lib/cannery_web/views/user_session_view.ex

@@ -0,0 +1,4 @@
+defmodule CanneryWeb.UserSessionView do
+  use CanneryWeb, :view
+  alias Cannery.Accounts
+end

lib/cannery_web/views/user_settings_view.ex

@@ -0,0 +1,3 @@
+defmodule CanneryWeb.UserSettingsView do
+  use CanneryWeb, :view
+end

lib/cannery_web/views/view_helpers.ex

@@ -0,0 +1,96 @@
+defmodule CanneryWeb.ViewHelpers do
+  @moduledoc """
+  Contains common helpers that can be used in liveviews and regular views. These
+  are automatically imported into any Phoenix View using `use CanneryWeb,
+  :view`
+  """
+
+  use Phoenix.Component
+
+  @doc """
+  Phoenix.Component for a <time> element that renders the naivedatetime in the
+  user's local timezone with Alpine.js
+  """
+
+  attr :datetime, :any, required: true, doc: "A `DateTime` struct or nil"
+
+  def datetime(assigns) do
+    ~H"""
+    <time
+      :if={@datetime}
+      datetime={cast_datetime(@datetime)}
+      x-data={"{
+        datetime:
+          Intl.DateTimeFormat([], {dateStyle: 'short', timeStyle: 'long'})
+            .format(new Date(\"#{cast_datetime(@datetime)}\"))
+      }"}
+      x-text="datetime"
+    >
+      <%= cast_datetime(@datetime) %>
+    </time>
+    """
+  end
+
+  @spec cast_datetime(NaiveDateTime.t() | nil) :: String.t()
+  defp cast_datetime(%NaiveDateTime{} = datetime) do
+    datetime |> DateTime.from_naive!("Etc/UTC") |> DateTime.to_iso8601(:extended)
+  end
+
+  defp cast_datetime(_datetime), do: ""
+
+  @doc """
+  Phoenix.Component for a <date> element that renders the Date in the user's
+  local timezone with Alpine.js
+  """
+
+  attr :date, :any, required: true, doc: "A `Date` struct or nil"
+
+  def date(assigns) do
+    ~H"""
+    <time
+      :if={@date}
+      datetime={@date |> Date.to_iso8601(:extended)}
+      x-data={"{
+        date:
+          Intl.DateTimeFormat([], {timeZone: 'Etc/UTC', dateStyle: 'short'})
+            .format(new Date(\"#{@date |> Date.to_iso8601(:extended)}\"))
+      }"}
+      x-text="date"
+    >
+      <%= @date |> Date.to_iso8601(:extended) %>
+    </time>
+    """
+  end
+
+  @doc """
+  Displays content in a QR code as a base64 encoded PNG
+  """
+  @spec qr_code_image(String.t()) :: String.t()
+  @spec qr_code_image(String.t(), width :: non_neg_integer()) :: String.t()
+  def qr_code_image(content, width \\ 384) do
+    img_data =
+      content
+      |> EQRCode.encode()
+      |> EQRCode.png(width: width)
+      |> Base.encode64()
+
+    "data:image/png;base64," <> img_data
+  end
+
+  @doc """
+  Creates a downloadable QR Code element
+  """
+
+  attr :content, :string, required: true
+  attr :filename, :string, default: "qrcode", doc: "filename without .png extension"
+  attr :image_class, :string, default: "w-64 h-max"
+  attr :width, :integer, default: 384, doc: "width of png to generate"
+
+  def qr_code(assigns) do
+    ~H"""
+    <a href={qr_code_image(@content)} download={@filename <> ".png"}>
+      <img class={@image_class} alt={@filename} src={qr_code_image(@content)} />
+    </a>
+    """
+  end
+end