Add draft feature

Signed-off-by: Thomas Citharel <tcit@tcit.fr>

lib/mobilizon_web/api/events.ex

@@ -31,7 +31,8 @@ defmodule MobilizonWeb.API.Events do
         to: args.to,
         actor: organizer_actor,
         object: event,
-        local: true
+        # For now we don't federate drafts but it will be needed if we want to edit them as groups
+        local: args.metadata.draft == false
       })
     end
   end
@@ -65,7 +66,7 @@ defmodule MobilizonWeb.API.Events do
         actor: organizer_actor.url,
         cc: [],
         object: event,
-        local: true
+        local: args.metadata.draft == false
       })
     end
   end
@@ -95,7 +96,8 @@ defmodule MobilizonWeb.API.Events do
           join_options: Map.get(args, :join_options),
           status: Map.get(args, :status),
           online_address: Map.get(args, :online_address),
-          phone_address: Map.get(args, :phone_address)
+          phone_address: Map.get(args, :phone_address),
+          draft: Map.get(args, :draft)
         }
       }
     end

lib/mobilizon_web/resolvers/event.ex

@@ -31,6 +31,20 @@ defmodule MobilizonWeb.Resolvers.Event do
     {:error, :events_max_limit_reached}
   end
 
+  def find_event(
+        _parent,
+        %{uuid: uuid},
+        %{context: %{current_user: %User{id: user_id}}} = _resolution
+      ) do
+    case {:has_event, Mobilizon.Events.get_own_event_by_uuid_with_preload(uuid, user_id)} do
+      {:has_event, %Event{} = event} ->
+        {:ok, Map.put(event, :organizer_actor, Person.proxify_pictures(event.organizer_actor))}
+
+      {:has_event, _} ->
+        {:error, "Event with UUID #{uuid} not found"}
+    end
+  end
+
   def find_event(_parent, %{uuid: uuid}, _resolution) do
     case {:has_event, Mobilizon.Events.get_public_event_by_uuid_with_preload(uuid)} do
       {:has_event, %Event{} = event} ->
@@ -264,6 +278,9 @@ defmodule MobilizonWeb.Resolvers.Event do
     else
       {:is_owned, nil} ->
         {:error, "Organizer actor id is not owned by the user"}
+
+      {:error, %Ecto.Changeset{} = error} ->
+        {:error, error}
     end
   end
 

lib/mobilizon_web/resolvers/user.ex

@@ -243,6 +243,19 @@ defmodule MobilizonWeb.Resolvers.User do
     end
   end
 
+  @doc """
+  Returns the list of draft events for the current user
+  """
+  def user_drafted_events(%User{id: user_id}, args, %{
+        context: %{current_user: %User{id: logged_user_id}}
+      }) do
+    with {:same_user, true} <- {:same_user, user_id == logged_user_id},
+         events <-
+           Events.list_drafts_for_user(user_id, Map.get(args, :page), Map.get(args, :limit)) do
+      {:ok, events}
+    end
+  end
+
   def change_password(_parent, %{old_password: old_password, new_password: new_password}, %{
         context: %{current_user: %User{password_hash: old_password_hash} = user}
       }) do

lib/mobilizon_web/schema/event.ex

@@ -6,6 +6,7 @@ defmodule MobilizonWeb.Schema.EventType do
   use Absinthe.Schema.Notation
 
   import Absinthe.Resolution.Helpers, only: [dataloader: 1]
+  import MobilizonWeb.Schema.Utils
 
   alias Mobilizon.{Actors, Addresses}
 
@@ -60,6 +61,8 @@ defmodule MobilizonWeb.Schema.EventType do
 
     field(:category, :string, description: "The event's category")
 
+    field(:draft, :boolean, description: "Whether or not the event is a draft")
+
     field(:participant_stats, :participant_stats, resolve: &Event.stats_participants_for_event/3)
 
     field(:participants, list_of(:participant), description: "The event's participants") do
@@ -252,8 +255,9 @@ defmodule MobilizonWeb.Schema.EventType do
       arg(:category, :string, default_value: "meeting")
       arg(:physical_address, :address_input)
       arg(:options, :event_options_input)
+      arg(:draft, :boolean, default_value: false)
 
-      resolve(&Event.create_event/3)
+      resolve(handle_errors(&Event.create_event/3))
     end
 
     @desc "Update an event"
@@ -280,8 +284,9 @@ defmodule MobilizonWeb.Schema.EventType do
       arg(:category, :string)
       arg(:physical_address, :address_input)
       arg(:options, :event_options_input)
+      arg(:draft, :boolean)
 
-      resolve(&Event.update_event/3)
+      resolve(handle_errors(&Event.update_event/3))
     end
 
     @desc "Delete an event"

lib/mobilizon_web/schema/user.ex

@@ -49,7 +49,7 @@ defmodule MobilizonWeb.Schema.UserType do
     field(:locale, :string, description: "The user's locale")
 
     field(:participations, list_of(:participant),
-      description: "The list of events this user goes to"
+      description: "The list of participations this user has"
     ) do
       arg(:after_datetime, :datetime)
       arg(:before_datetime, :datetime)
@@ -57,6 +57,12 @@ defmodule MobilizonWeb.Schema.UserType do
       arg(:limit, :integer, default_value: 10)
       resolve(&User.user_participations/3)
     end
+
+    field(:drafts, list_of(:event), description: "The list of draft events this user has created") do
+      arg(:page, :integer, default_value: 1)
+      arg(:limit, :integer, default_value: 10)
+      resolve(&User.user_drafted_events/3)
+    end
   end
 
   enum :user_role do