Add dispatcher Community Fridges management with list/map views, location, and photo upload

lib/bike_brigade/locations.ex

@@ -21,21 +21,29 @@ defmodule BikeBrigade.Locations do
   Returns the list of community_fridges.
   """
   def list_community_fridges do
-    Repo.all(from cf in CommunityFridge, order_by: [desc: cf.active, asc: cf.name])
+    CommunityFridge
+    |> from(order_by: [desc: :active, asc: :name])
+    |> preload(:location)
+    |> Repo.all()
   end
 
   @doc """
   Gets a single community_fridge.
 
   Raises `Ecto.NoResultsError` if the Community fridge does not exist.
   """
-  def get_community_fridge!(id), do: Repo.get!(CommunityFridge, id)
+  def get_community_fridge!(id) do
+    CommunityFridge
+    |> where([cf], cf.id == ^id)
+    |> preload(:location)
+    |> Repo.one!()
+  end
 
   @doc """
   Creates a community_fridge.
   """
   def create_community_fridge(attrs \\ %{}) do
-    %CommunityFridge{}
+    %CommunityFridge{location: nil}
     |> CommunityFridge.changeset(attrs)
     |> Repo.insert()
   end
@@ -45,6 +53,7 @@ defmodule BikeBrigade.Locations do
   """
   def update_community_fridge(%CommunityFridge{} = community_fridge, attrs) do
     community_fridge
+    |> Repo.preload(:location)
     |> CommunityFridge.changeset(attrs)
     |> Repo.update()
   end

lib/bike_brigade/locations/community_fridge.ex

@@ -19,16 +19,15 @@ defmodule BikeBrigade.Locations.CommunityFridge do
     field :active, :boolean, default: true
     field :pair_preferred, :boolean, default: false
 
-    belongs_to :location, Location
+    belongs_to :location, Location, on_replace: :update
 
     timestamps()
   end
 
   def changeset(community_fridge, params) do
     community_fridge
-    |> cast(params, @fields ++ [:location_id])
-    |> validate_required([:name, :location_id])
-    |> unique_constraint(:location_id)
-    |> assoc_constraint(:location)
+    |> cast(params, @fields)
+    |> cast_assoc(:location)
+    |> validate_required([:name])
   end
 end

lib/bike_brigade_web/components/layouts.ex

@@ -32,6 +32,7 @@ defmodule BikeBrigadeWeb.Layouts do
       :campaigns,
       :opportunities,
       :riders,
+      :community_fridges,
       :stats,
       :users,
       :messages,
@@ -69,6 +70,15 @@ defmodule BikeBrigadeWeb.Layouts do
           </:icon>
           Riders
         </.sidebar_link>
+        <.sidebar_link
+          selected={@current_page == :community_fridges}
+          navigate={~p"/community_fridges"}
+        >
+          <:icon>
+            <Heroicons.archive_box />
+          </:icon>
+          Community Fridges
+        </.sidebar_link>
         <.sidebar_link selected={@current_page == :stats} navigate={~p"/stats"}>
           <:icon>
             <Heroicons.chart_bar />

lib/bike_brigade_web/live/community_fridge_live/form_component.ex

@@ -0,0 +1,96 @@
+defmodule BikeBrigadeWeb.CommunityFridgeLive.FormComponent do
+  use BikeBrigadeWeb, :live_component
+
+  alias BikeBrigade.{Locations, MediaStorage}
+  alias BikeBrigadeWeb.Components.LiveLocation
+
+  @impl true
+  def mount(socket) do
+    {:ok,
+     allow_upload(socket, :photo,
+       accept: ~w(.gif .png .jpg .jpeg),
+       max_entries: 1,
+       max_file_size: 10_000_000
+     )}
+  end
+
+  @impl true
+  def update(%{community_fridge: community_fridge} = assigns, socket) do
+    changeset = Locations.change_community_fridge(community_fridge)
+
+    {:ok,
+     socket
+     |> assign(assigns)
+     |> assign(:changeset, changeset)}
+  end
+
+  @impl true
+  def handle_event("validate", %{"community_fridge" => params}, socket) do
+    changeset =
+      socket.assigns.community_fridge
+      |> Locations.change_community_fridge(params)
+      |> Map.put(:action, :validate)
+
+    {:noreply, assign(socket, :changeset, changeset)}
+  end
+
+  def handle_event("save", %{"community_fridge" => params}, socket) do
+    params =
+      case consume_uploaded_entries(socket, :photo, fn %{path: path},
+                                                       %{client_type: content_type} ->
+             {:ok, MediaStorage.upload_file!(path, content_type)}
+           end) do
+        [%{url: url}] -> Map.put(params, "photo", url)
+        [] -> Map.update(params, "photo", nil, &if(&1 == "", do: nil, else: &1))
+      end
+
+    save_community_fridge(socket, socket.assigns.action, params)
+  end
+
+  def handle_event("delete_photo", _params, socket) do
+    params = socket.assigns.changeset.params || %{}
+
+    {:noreply,
+     socket
+     |> assign(
+       :changeset,
+       socket.assigns.community_fridge
+       |> Locations.change_community_fridge(Map.put(params, "photo", nil))
+       |> Map.put(:action, :validate)
+     )}
+  end
+
+  def handle_event("cancel_upload", %{"ref" => ref}, socket) do
+    {:noreply, cancel_upload(socket, :photo, ref)}
+  end
+
+  defp error_to_string(:too_large), do: "Too large"
+  defp error_to_string(:too_many_files), do: "You have selected too many files"
+  defp error_to_string(:not_accepted), do: "You have selected an unacceptable file type"
+
+  defp save_community_fridge(socket, :edit, params) do
+    case Locations.update_community_fridge(socket.assigns.community_fridge, params) do
+      {:ok, _community_fridge} ->
+        {:noreply,
+         socket
+         |> put_flash(:info, "Community fridge updated successfully")
+         |> push_patch(to: socket.assigns.navigate)}
+
+      {:error, %Ecto.Changeset{} = changeset} ->
+        {:noreply, assign(socket, :changeset, changeset)}
+    end
+  end
+
+  defp save_community_fridge(socket, :new, params) do
+    case Locations.create_community_fridge(params) do
+      {:ok, _community_fridge} ->
+        {:noreply,
+         socket
+         |> put_flash(:info, "Community fridge created successfully")
+         |> push_patch(to: socket.assigns.navigate)}
+
+      {:error, %Ecto.Changeset{} = changeset} ->
+        {:noreply, assign(socket, changeset: changeset)}
+    end
+  end
+end

lib/bike_brigade_web/live/community_fridge_live/form_component.html.heex

@@ -0,0 +1,100 @@
+<div>
+  <.header>{@title}</.header>
+  <.simple_form
+    :let={f}
+    for={@changeset}
+    id="community-fridge-form"
+    phx-target={@myself}
+    phx-change="validate"
+    phx-submit="save"
+  >
+    <.input type="text" field={f[:name]} label="Name" />
+
+    <.input type="textarea" field={f[:description]} label="Description" />
+
+    <.live_component
+      module={LiveLocation}
+      id="location-form"
+      field={f[:location]}
+      label="Location"
+    />
+
+    <div>
+      <label class="block text-sm font-semibold leading-6 text-zinc-800">Photo</label>
+      <input
+        type="hidden"
+        name={Phoenix.HTML.Form.input_name(f, :photo)}
+        value={Phoenix.HTML.Form.input_value(f, :photo) || ""}
+      />
+      <figure :if={Phoenix.HTML.Form.input_value(f, :photo) not in [nil, ""]} class="mt-2">
+        <img class="w-32 rounded" src={Phoenix.HTML.Form.input_value(f, :photo)} />
+        <figcaption class="flex mt-1">
+          <.button
+            color={:lightred}
+            size={:xsmall}
+            phx-click={JS.push("delete_photo", target: @myself)}
+            type="button"
+          >
+            Delete
+          </.button>
+        </figcaption>
+      </figure>
+      <div
+        class="flex justify-center px-6 py-10 mt-2 border border-dashed rounded-lg border-gray-900/25"
+        phx-drop-target={@uploads.photo.ref}
+      >
+        <div class="text-center">
+          <Heroicons.photo solid class="w-12 h-12 mx-auto text-gray-300" />
+          <div class="flex mt-4 text-sm leading-6 text-gray-600">
+            <label
+              for={@uploads.photo.ref}
+              class="relative font-semibold text-indigo-600 bg-white rounded-md cursor-pointer focus-within:outline-none focus-within:ring-2 focus-within:ring-indigo-600 focus-within:ring-offset-2 hover:text-indigo-500"
+            >
+              <span>Upload a file</span>
+              <.live_file_input upload={@uploads.photo} class="sr-only" />
+            </label>
+            <p class="pl-1">or drag and drop</p>
+          </div>
+          <p class="text-xs leading-5 text-gray-600">PNG, JPG, GIF up to 10MB</p>
+        </div>
+      </div>
+      <div class="mt-2">
+        <figure :for={entry <- @uploads.photo.entries} class="flex items-center gap-3 mt-2">
+          <.live_img_preview entry={entry} class="w-16 rounded" />
+          <div class="text-sm text-gray-600">{entry.client_name}</div>
+          <button
+            type="button"
+            phx-click={JS.push("cancel_upload", value: %{ref: entry.ref}, target: @myself)}
+            aria-label="cancel"
+            class="text-gray-400 hover:text-gray-600"
+          >
+            &times;
+          </button>
+          <p :for={err <- upload_errors(@uploads.photo, entry)} class="text-sm text-red-600">
+            {error_to_string(err)}
+          </p>
+        </figure>
+      </div>
+    </div>
+
+    <.input
+      type="checkbox"
+      field={f[:active]}
+      label="Active"
+    />
+
+    <.input
+      type="checkbox"
+      field={f[:pair_preferred]}
+      label="Pair Preferred"
+      help_text="Deliveries to this fridge prefer a rider pair"
+    />
+
+    <:actions>
+      <.button navigate={~p"/community_fridges"} color={:white}>
+        Cancel
+      </.button>
+      <.button type="submit" phx-disable-with="Saving...">Save</.button>
+    </:actions>
+  </.simple_form>
+</div>

lib/bike_brigade_web/live/community_fridge_live/index.ex

@@ -0,0 +1,93 @@
+defmodule BikeBrigadeWeb.CommunityFridgeLive.Index do
+  use BikeBrigadeWeb, :live_view
+
+  alias BikeBrigade.Locations
+  alias BikeBrigade.Locations.CommunityFridge
+
+  # Toronto city hall as fallback centre
+  @default_coords %Geo.Point{coordinates: {-79.3832, 43.6532}}
+
+  @impl Phoenix.LiveView
+  def mount(_params, _session, socket) do
+    {:ok,
+     socket
+     |> assign(:page, :community_fridges)
+     |> assign(:page_title, "Community Fridges")
+     |> assign(:community_fridge, nil)
+     |> assign(:community_fridges, Locations.list_community_fridges())
+     |> assign(:map_layers, [])
+     |> assign(:map_coords, @default_coords)
+     |> assign(:mode, :list)}
+  end
+
+  @impl Phoenix.LiveView
+  def handle_params(params, _url, socket) do
+    {:noreply, apply_action(socket, socket.assigns.live_action, params)}
+  end
+
+  @impl Phoenix.LiveView
+  def handle_event("set_mode", %{"mode" => mode}, socket) do
+    socket = assign(socket, :mode, String.to_existing_atom(mode))
+
+    socket =
+      if socket.assigns.mode == :map do
+        push_event(socket, "leaflet:redraw_map", %{recenter: false})
+      else
+        socket
+      end
+
+    {:noreply, socket}
+  end
+
+  defp apply_action(socket, :index, _params) do
+    community_fridges = Locations.list_community_fridges()
+
+    socket
+    |> assign(:page_title, "Community Fridges")
+    |> assign(:community_fridge, nil)
+    |> assign(:community_fridges, community_fridges)
+    |> assign(:map_layers, fridge_markers(community_fridges))
+    |> assign(:map_coords, map_center(community_fridges))
+  end
+
+  defp apply_action(socket, :new, _params) do
+    socket
+    |> assign(:page_title, "New Fridge")
+    |> assign(:community_fridge, %CommunityFridge{location: nil})
+  end
+
+  defp apply_action(socket, :edit, %{"id" => id}) do
+    socket
+    |> assign(:page_title, "Edit Fridge")
+    |> assign(:community_fridge, Locations.get_community_fridge!(id))
+  end
+
+  defp fridge_markers(community_fridges) do
+    for %{id: id, name: name, location: location} <- community_fridges,
+        not is_nil(location),
+        not is_nil(location.coords) do
+      %{
+        id: "fridge-#{id}",
+        type: :marker,
+        data: %{
+          lat: lat(location),
+          lng: lng(location),
+          icon: "warehouse",
+          color: "#1c64f2",
+          tooltip: name
+        }
+      }
+    end
+  end
+
+  defp map_center(community_fridges) do
+    community_fridges
+    |> Enum.find_value(fn %{location: location} ->
+      location && location.coords
+    end)
+    |> case do
+      nil -> @default_coords
+      coords -> coords
+    end
+  end
+end