Use keypaths for stage option editing

This commit is contained in:
Shadowfacts 2020-06-10 19:05:37 -04:00
parent 5f81d8dfe4
commit 046c4d47a9
Signed by: shadowfacts
GPG Key ID: 94A5AB95422746E5
5 changed files with 111 additions and 15 deletions

73
lib/frenzy/keypath.ex Normal file
View File

@ -0,0 +1,73 @@
defmodule Frenzy.Keypath do
@moduledoc """
Utilities for accessing or updating values using keypaths.
A keypath is a list of map keys or list indices representing the path through nested maps/lists.
"""
@type container() :: map() | list()
@type t() :: [Map.key() | non_neg_integer()]
@doc """
Gets the value in the given container at the given keypath. Raises on index out of bounds/missing map key.
## Examples
iex> Frenzy.Keypath.get(%{foo: %{bar: "baz"}}, [:foo, :bar])
"baz"
iex> Frenzy.Keypath.get([%{"foo" => "bar"}, %{"foo" => "baz"}], [1, "foo"])
"baz"
"""
@spec get(container(), t()) :: any()
def get(value, []), do: value
def get(map, [key | rest]) when is_map(map) do
get(Map.fetch!(map, key), rest)
end
def get(list, [index | rest]) when is_list(list) and is_integer(index) and index >= 0 do
if index >= length(list) do
raise KeyError, "Index #{index} out of bounds (>= #{length(list)})"
else
get(Enum.at(list, index), rest)
end
end
@doc """
Sets the vlaue in the given container at the given keypath. Raises on index out of bounds/missing map key.
## Examples
iex> Frenzy.Keypath.set(%{foo: %{bar: "baz"}}, [:foo, :bar], "blah")
%{foo: %{bar: "blah"}}
iex> Frenzy.Keypath.set([%{"foo" => "bar"}, %{"list" => ["a", "b"]}], [1, "list", 0], "c")
[%{"foo" => "bar"}, %{"list" => ["c", "b"]}]
"""
@spec set(container(), t(), any()) :: map()
def set(map, [key], value) when is_map(map) do
Map.put(map, key, value)
end
def set(list, [index], value) when is_list(list) and is_integer(index) and index >= 0 do
if index >= length(list) do
raise KeyError, "Index #{index} out of bounds (>= #{length(list)})"
else
List.replace_at(list, index, value)
end
end
def set(map, [key | rest], value) when is_map(map) do
Map.put(map, key, set(Map.fetch!(map, key), rest, value))
end
def set(list, [index | rest], value) when is_list(list) and is_integer(index) and index >= 0 do
if index >= length(list) do
raise KeyError, "Index #{index} out of bounds (>= #{length(list)})"
else
List.replace_at(list, index, set(Enum.at(list, index), rest, value))
end
end
end

View File

@ -1,6 +1,5 @@
defmodule FrenzyWeb.ConfigureStage.ScrapeStageLive do
use FrenzyWeb, :live_component
alias Frenzy.JSONSchema
@extractors [
{"Builtin", "builtin"},
@ -32,6 +31,12 @@ defmodule FrenzyWeb.ConfigureStage.ScrapeStageLive do
{:ok, assign(socket, extractors: @extractors)}
end
@impl true
def update(assigns, socket) do
assigns = Map.put(assigns, :opts, Frenzy.Keypath.get(assigns.stage, assigns.keypath))
{:ok, assign(socket, assigns)}
end
@impl true
def handle_event(
"update_stage",
@ -45,7 +50,9 @@ defmodule FrenzyWeb.ConfigureStage.ScrapeStageLive do
|> Map.put("convert_to_data_uris", convert_to_data_uris)
|> Map.put("extractor", extractor)
send(self(), {:update_stage_opts, socket.assigns.index, new_opts})
new_stage = Frenzy.Keypath.set(socket.assigns.stage, socket.assigns.keypath, new_opts)
send(self(), {:update_stage, socket.assigns.index, new_stage})
{:noreply, socket}
end
end

View File

@ -1,5 +1,7 @@
<div id="<%= @id %>">
<pre><%= Jason.encode!(@opts, pretty: true) %></pre>
<%= if Mix.env == :dev do %>
<pre><%= Jason.encode!(@opts, pretty: true) %></pre>
<% end %>
<%= f = form_for @opts, "#", [as: :opts, phx_change: :update_stage, phx_target: @myself] %>
<div class="form-group form-check">
<%= checkbox f, :convert_to_data_uris, id: "#{@id}-convert_to_data_uris", class: "form-check-input" %>

View File

@ -3,6 +3,12 @@ defmodule FrenzyWeb.EditPipelineLive do
use Phoenix.HTML
alias Frenzy.{Repo, Pipeline}
@stages [
{"Filter Stage", "Frenzy.Pipeline.FilterStage"},
{"Scrape Stage", "Frenzy.Pipeline.ScrapeStage"},
{"Conditional Stage", "Frenzy.Pipeline.ConditionalStage"}
]
@impl true
def mount(%{"id" => pipeline_id}, _session, socket) do
pipeline = Repo.get(Pipeline, pipeline_id)
@ -10,11 +16,7 @@ defmodule FrenzyWeb.EditPipelineLive do
{:ok,
assign(socket,
pipeline: pipeline,
stages: [
{"Filter Stage", "Frenzy.Pipeline.FilterStage"},
{"Scrape Stage", "Frenzy.Pipeline.ScrapeStage"},
{"Conditional Stage", "Frenzy.Pipeline.ConditionalStage"}
]
stages: @stages
)}
end
@ -72,23 +74,26 @@ defmodule FrenzyWeb.EditPipelineLive do
end
@impl true
def handle_info({:update_stage_opts, index, new_opts}, socket) do
def handle_info({:update_stage, index, new_stage}, socket) do
pipeline = socket.assigns.pipeline
stages = pipeline.stages
stage = Enum.at(stages, index)
new_stage = Map.put(stage, "options", new_opts)
new_stages = List.replace_at(stages, index, new_stage)
# stages = pipeline.stages
# stage = Enum.at(stages, index)
# new_stage = Map.put(stage, "options", new_opts)
new_stages = List.replace_at(pipeline.stages, index, new_stage)
changeset = Pipeline.changeset(pipeline, %{stages: new_stages})
{:ok, pipeline} = Repo.update(changeset)
{:noreply, assign(socket, pipeline: pipeline)}
end
def component_for(socket, %{"module_name" => module, "options" => opts}, index) do
def component_for(socket, %{"module_name" => module} = stage, index) do
component =
case module do
"Frenzy.Pipeline.ScrapeStage" ->
FrenzyWeb.ConfigureStage.ScrapeStageLive
"Frenzy.Pipeline.ConditionalStage" ->
FrenzyWeb.ConfigureStage.ConditionalStageLive
_ ->
nil
end
@ -98,7 +103,12 @@ defmodule FrenzyWeb.EditPipelineLive do
nil
component ->
live_component(socket, component, index: index, id: "stage-#{index}", opts: opts)
live_component(socket, component,
index: index,
id: "stage-#{index}",
stage: stage,
keypath: ["options"]
)
end
end
end

View File

@ -0,0 +1,4 @@
defmodule Frenzy.KeypathTest do
use ExUnit.Case
doctest Frenzy.Keypath
end