Ui

.formatter.exs

@@ -2,6 +2,7 @@ locals_without_parens = [
   a: :*,
   abbr: :*,
   action: :*,
+  action: :*,
   address: :*,
   all: :*,
   all: :*,
@@ -92,6 +93,7 @@ locals_without_parens = [
   not_nil: :*,
   object: :*,
   ol: :*,
+  on: :*,
   one: :*,
   one: :*,
   optgroup: :*,

lib/sleeky.ex

@@ -12,8 +12,9 @@ defmodule Sleeky do
     Sleeky.Context.Dsl,
     Sleeky.JsonApi.Dsl,
     Sleeky.Endpoint.Dsl,
-    Sleeky.View.Dsl,
-    Sleeky.Ui.Dsl
+    Sleeky.Ui.Dsl,
+    Sleeky.Ui.Action.Dsl,
+    Sleeky.Ui.View.Dsl
   ]
 
   @doc """

lib/sleeky/context/generator/create_actions.ex

@@ -6,7 +6,8 @@ defmodule Sleeky.Context.Generator.CreateActions do
 
   @impl true
   def generate(context, _) do
-    create_funs(context) ++ do_create_funs(context) ++ create_children_funs(context)
+    create_funs(context) ++
+      do_create_funs(context) ++ bulk_create_funs(context) ++ create_children_funs(context)
   end
 
   defp create_funs(context) do
@@ -123,4 +124,33 @@ defmodule Sleeky.Context.Generator.CreateActions do
       end
     end
   end
+
+  defp bulk_create_funs(context) do
+    for model <- context.models, %{name: :create} <- model.actions() do
+      single_fun_name = String.to_atom("create_#{model.name()}")
+      bulk_fun_name = String.to_atom("create_#{model.plural()}")
+
+      quote do
+        def unquote(bulk_fun_name)(items, context \\ %{}) when is_list(items) do
+          repo = repo()
+
+          with {:ok, :ok} <-
+                 repo.transaction(fn ->
+                   items
+                   |> Enum.reduce_while(nil, fn item, _ ->
+                     case unquote(single_fun_name)(item, context) do
+                       {:ok, _} -> {:cont, :ok}
+                       {:error, _} = error -> {:halt, error}
+                     end
+                   end)
+                   |> then(fn
+                     :ok -> :ok
+                     {:error, reason} -> repo.rollback(reason)
+                   end)
+                 end),
+               do: :ok
+        end
+      end
+    end
+  end
 end

lib/sleeky/job.ex

@@ -82,7 +82,9 @@ defmodule Sleeky.Job do
       model: model,
       id: id,
       queue: job.queue,
+      job: job.id,
       reason: format_error(reason),
+      attempt: job.attempt,
       attempts_left: attempts_left
     )
   end
@@ -92,7 +94,9 @@ defmodule Sleeky.Job do
       task: task,
       model: model,
       id: id,
-      queue: job.queue
+      job: job.id,
+      queue: job.queue,
+      attempt: job.attempt
     )
   end
 

lib/sleeky/ui.ex

@@ -2,14 +2,15 @@ defmodule Sleeky.Ui do
   @moduledoc false
   use Diesel,
     otp_app: :sleeky,
+    dsl: Sleeky.Ui.Dsl,
     generators: [
       Sleeky.Ui.Generator.Router
     ]
 
-  defstruct [:pages]
+  defstruct [:pages, :error_view, :not_found_view]
 
   defmodule Page do
     @moduledoc false
-    defstruct [:path, :module]
+    defstruct [:method, :path, :module, :runtime]
   end
 end

lib/sleeky/ui/dsl.ex

@@ -2,6 +2,7 @@ defmodule Sleeky.Ui.Dsl do
   @moduledoc false
   use Diesel.Dsl,
     otp_app: :sleeky,
+    root: Sleeky.Ui.Dsl.Ui,
     tags: [
       Sleeky.Ui.Dsl.Page
     ]

lib/sleeky/ui/dsl/page.ex

@@ -3,6 +3,13 @@ defmodule Sleeky.Ui.Dsl.Page do
   use Diesel.Tag
 
   tag do
-    child kind: :module, min: 1, max: 1
+    attribute :name, kind: :module
+    attribute :at, kind: :string
+
+    attribute :method,
+      kind: :atom,
+      in: [:get, :post, :put, :delete],
+      default: :get,
+      required: false
   end
 end

lib/sleeky/ui/dsl/ui.ex

@@ -3,6 +3,6 @@ defmodule Sleeky.Ui.Dsl.Ui do
   use Diesel.Tag
 
   tag do
-    child :page, min: 0
+    child :page, min: 1
   end
 end

lib/sleeky/ui/generator/router.ex

@@ -11,16 +11,7 @@ defmodule Sleeky.Ui.Generator.Router do
 
     conn = var(:conn)
 
-    routes =
-      for {path, page} <- ui.pages do
-        html = page.render()
-
-        quote do
-          get unquote(path) do
-            send_html(unquote(conn), unquote(html), 200)
-          end
-        end
-      end
+    routes = Enum.map(ui.pages, &route(ui, &1))
 
     quote do
       defmodule unquote(module_name) do
@@ -47,4 +38,32 @@ defmodule Sleeky.Ui.Generator.Router do
       end
     end
   end
+
+  defp route(ui, page) do
+    conn = var(:conn)
+    not_found_view = ui.not_found_view
+    error_view = ui.error_view
+
+    quote do
+      match unquote(page.path), via: unquote(page.method) do
+        case unquote(page.module).data(unquote(conn).params) do
+          {:ok, data} ->
+            html = unquote(page.module).render(data)
+            send_html(unquote(conn), html, 200)
+
+          {:ok, :redirect, path} ->
+            conn = put_resp_header(unquote(conn), "location", path)
+            send_resp(conn, 302, "")
+
+          {:error, :not_found} ->
+            html = unquote(not_found_view).render(unquote(conn).params)
+            send_html(unquote(conn), html, 200)
+
+          {:error, other} ->
+            html = unquote(error_view).render(unquote(conn).params)
+            send_html(unquote(conn), html, 200)
+        end
+      end
+    end
+  end
 end

lib/sleeky/ui/parser.ex

@@ -3,31 +3,28 @@ defmodule Sleeky.Ui.Parser do
   @behaviour Diesel.Parser
 
   alias Sleeky.Ui
+  alias Sleeky.Ui.Page
 
   @impl true
-  def parse({_, _, children}, opts) do
-    caller = opts[:caller_module]
+  def parse({:ui, _, pages}, opts) do
+    ui = Keyword.fetch!(opts, :caller_module)
 
     pages =
-      for {:page, _, [module]} <- children, into: %{} do
-        {path(caller, module), module}
-      end
-
-    %Ui{pages: pages}
-  end
+      for {:page, page, _} <- pages do
+        path = Keyword.fetch!(page, :at)
+        module = Keyword.fetch!(page, :name)
+        method = Keyword.get(page, :method, :get)
 
-  defp path(caller, module) do
-    caller = Module.split(caller)
+        %Page{
+          method: method,
+          path: path,
+          module: module
+        }
+      end
 
-    path =
-      module
-      |> Module.split()
-      |> Kernel.--(caller)
-      |> Enum.map(&Inflex.parameterize/1)
-      |> Enum.reject(&(&1 == "index"))
-      |> Enum.join("/")
-      |> String.replace("//", "/")
+    error_view = Module.concat(ui, Error)
+    not_found_view = Module.concat(ui, NotFound)
 
-    "/" <> path
+    %Ui{pages: pages, error_view: error_view, not_found_view: not_found_view}
   end
 end

lib/sleeky/ui/view.ex

@@ -0,0 +1,11 @@
+defmodule Sleeky.Ui.View do
+  @moduledoc false
+  use Diesel,
+    otp_app: :sleeky,
+    overrides: [div: 2],
+    generators: [
+      Sleeky.Ui.View.Generator.Render,
+      Sleeky.Ui.View.Generator.Source,
+      Sleeky.Ui.View.Generator.Data
+    ]
+end

lib/sleeky/view/dsl.ex → lib/sleeky/ui/view/dsl.ex

@@ -1,4 +1,4 @@
-defmodule Sleeky.View.Dsl do
+defmodule Sleeky.Ui.View.Dsl do
   @moduledoc false
   use Diesel.Dsl,
     otp_app: :sleeky,
@@ -116,7 +116,7 @@ defmodule Sleeky.View.Dsl do
       :video,
       :wbr,
       # custom extensions
-      :using,
+      :layout,
       :slot,
       :each,
       :expand

lib/sleeky/ui/view/generator/data.ex

@@ -0,0 +1,13 @@
+defmodule Sleeky.Ui.View.Generator.Data do
+  @moduledoc false
+  @behaviour Diesel.Generator
+
+  @impl true
+  def generate(_html, _opts) do
+    quote do
+      def data(params), do: {:ok, params}
+
+      defoverridable data: 1
+    end
+  end
+end

lib/sleeky/view/generator/render.ex → lib/sleeky/ui/view/generator/render.ex

@@ -1,8 +1,8 @@
-defmodule Sleeky.View.Generator.Render do
+defmodule Sleeky.Ui.View.Generator.Render do
   @moduledoc false
   @behaviour Diesel.Generator
 
-  alias Sleeky.View
+  alias Sleeky.Ui.View
 
   @impl true
   def generate(html, _opts) do

lib/sleeky/view/generator/source.ex → lib/sleeky/ui/view/generator/source.ex

@@ -1,4 +1,4 @@
-defmodule Sleeky.View.Generator.Source do
+defmodule Sleeky.Ui.View.Generator.Source do
   @moduledoc false
   @behaviour Diesel.Generator
 

lib/sleeky/view/parser.ex → lib/sleeky/ui/view/parser.ex

@@ -1,4 +1,4 @@
-defmodule Sleeky.View.Parser do
+defmodule Sleeky.Ui.View.Parser do
   @moduledoc false
   @behaviour Diesel.Parser
 

lib/sleeky/view/render.ex → lib/sleeky/ui/view/render.ex

@@ -1,4 +1,4 @@
-defmodule Sleeky.View.Render do
+defmodule Sleeky.Ui.View.Render do
   @moduledoc false
 
   @self_closing_tags [
@@ -55,7 +55,7 @@ defmodule Sleeky.View.Render do
     " #{Enum.map_join(attrs, " ", &do_attr/1)}"
   end
 
-  defp do_attr({name, _}) when name in [:defer] do
+  defp do_attr({name, true}) do
     "#{name}"
   end
 

lib/sleeky/ui/view/resolve.ex

@@ -0,0 +1,48 @@
+defmodule Sleeky.Ui.View.Resolve do
+  @moduledoc false
+
+  def resolve({:layout, [name: layout], children}, slots) do
+    more_slots =
+      for {:slot, [name: name], value} <- children, into: %{} do
+        value =
+          case value do
+            [component] when is_atom(component) -> component
+            values when is_list(values) -> values
+          end
+
+        {name, value}
+      end
+
+    slots = Map.merge(slots, more_slots)
+
+    layout.source() |> resolve(slots)
+  end
+
+  def resolve({:slot, _, [name]}, slots) do
+    case Map.get(slots, name) do
+      nil ->
+        {:div, [], []}
+
+      component when is_atom(component) ->
+        component.source() |> resolve(slots)
+
+      nodes when is_list(nodes) ->
+        resolve(nodes, slots)
+    end
+  end
+
+  def resolve({:each, attrs, [{_, _, _} = child]}, slots) do
+    child = resolve(child, slots)
+    {:each, attrs, [child]}
+  end
+
+  def resolve({:each, attrs, [component]}, slots) when is_atom(component),
+    do: resolve({:each, attrs, [component.source()]}, slots)
+
+  def resolve({tag, attrs, children}, slots),
+    do: {tag, attrs, Enum.map(children, &resolve(&1, slots))}
+
+  def resolve(nodes, slots) when is_list(nodes), do: Enum.map(nodes, &resolve(&1, slots))
+  def resolve(text, _slots) when is_binary(text), do: text
+  def resolve(value, _slots) when is_atom(value) or is_number(value), do: to_string(value)
+end