Introduce basic user and profile management

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

lib/graphql/schema/actors/person.ex

@@ -17,9 +17,13 @@ defmodule Mobilizon.GraphQL.Schema.Actors.PersonType do
   Represents a person identity
   """
   object :person do
-    interfaces([:actor])
+    interfaces([:actor, :action_log_object])
     field(:id, :id, description: "Internal ID for this person")
-    field(:user, :user, description: "The user this actor is associated to")
+
+    field(:user, :user,
+      description: "The user this actor is associated to",
+      resolve: &Person.user_for_person/3
+    )
 
     field(:member_of, list_of(:member), description: "The list of groups this person is member of")
 
@@ -52,16 +56,21 @@ defmodule Mobilizon.GraphQL.Schema.Actors.PersonType do
     )
 
     # This one should have a privacy setting
-    field(:organized_events, list_of(:event),
-      resolve: dataloader(Events),
+    field(:organized_events, :paginated_event_list,
       description: "A list of the events this actor has organized"
-    )
+    ) do
+      arg(:page, :integer, default_value: 1)
+      arg(:limit, :integer, default_value: 10)
+      resolve(&Person.organized_events_for_person/3)
+    end
 
     @desc "The list of events this person goes to"
-    field(:participations, list_of(:participant),
+    field(:participations, :paginated_participant_list,
       description: "The list of events this person goes to"
     ) do
       arg(:event_id, :id)
+      arg(:page, :integer, default_value: 1)
+      arg(:limit, :integer, default_value: 10)
       resolve(&Person.person_participations/3)
     end
 
@@ -95,6 +104,17 @@ defmodule Mobilizon.GraphQL.Schema.Actors.PersonType do
     field :identities, list_of(:person) do
       resolve(&Person.identities/3)
     end
+
+    field :persons, :persons do
+      arg(:preferred_username, :string, default_value: "")
+      arg(:name, :string, default_value: "")
+      arg(:domain, :string, default_value: "")
+      arg(:local, :boolean, default_value: true)
+      arg(:suspended, :boolean, default_value: false)
+      arg(:page, :integer, default_value: 1)
+      arg(:limit, :integer, default_value: 10)
+      resolve(&Person.list_persons/3)
+    end
   end
 
   object :person_mutations do
@@ -168,6 +188,16 @@ defmodule Mobilizon.GraphQL.Schema.Actors.PersonType do
 
       resolve(handle_errors(&Person.register_person/3))
     end
+
+    field :suspend_profile, :deleted_object do
+      arg(:id, :id, description: "The profile ID to suspend")
+      resolve(&Person.suspend_profile/3)
+    end
+
+    field :unsuspend_profile, :person do
+      arg(:id, :id, description: "The profile ID to unsuspend")
+      resolve(&Person.unsuspend_profile/3)
+    end
   end
 
   object :person_subscriptions do

lib/graphql/schema/admin.ex

@@ -5,6 +5,7 @@ defmodule Mobilizon.GraphQL.Schema.AdminType do
 
   use Absinthe.Schema.Notation
 
+  alias Mobilizon.Actors.Actor
   alias Mobilizon.Conversations.Comment
   alias Mobilizon.Events.Event
   alias Mobilizon.Reports.{Note, Report}
@@ -29,6 +30,8 @@ defmodule Mobilizon.GraphQL.Schema.AdminType do
     value(:event_deletion)
     value(:comment_deletion)
     value(:event_update)
+    value(:actor_suspension)
+    value(:actor_unsuspension)
   end
 
   @desc "The objects that can be in an action log"
@@ -48,6 +51,9 @@ defmodule Mobilizon.GraphQL.Schema.AdminType do
       %Comment{}, _ ->
         :comment
 
+      %Actor{type: "Person"}, _ ->
+        :person
+
       _, _ ->
         nil
     end)

lib/graphql/schema/user.ex

@@ -18,7 +18,7 @@ defmodule Mobilizon.GraphQL.Schema.UserType do
     field(:id, non_null(:id), description: "The user's ID")
     field(:email, non_null(:string), description: "The user's email")
 
-    field(:profiles, non_null(list_of(:person)),
+    field(:actors, non_null(list_of(:person)),
       description: "The user's list of profiles (identities)"
     )
 
@@ -51,6 +51,8 @@ defmodule Mobilizon.GraphQL.Schema.UserType do
 
     field(:locale, :string, description: "The user's locale")
 
+    field(:disabled, :boolean, description: "Whether the user is disabled")
+
     field(:participations, :paginated_participant_list,
       description: "The list of participations this user has"
     ) do
@@ -144,13 +146,14 @@ defmodule Mobilizon.GraphQL.Schema.UserType do
 
     @desc "List instance users"
     field :users, :users do
+      arg(:email, :string, default_value: "")
       arg(:page, :integer, default_value: 1)
       arg(:limit, :integer, default_value: 10)
 
       arg(:sort, :sortable_user_field, default_value: :id)
       arg(:direction, :sort_direction, default_value: :desc)
 
-      resolve(&User.list_and_count_users/3)
+      resolve(&User.list_users/3)
     end
   end
 
@@ -233,7 +236,8 @@ defmodule Mobilizon.GraphQL.Schema.UserType do
 
     @desc "Delete an account"
     field :delete_account, :deleted_object do
-      arg(:password, non_null(:string))
+      arg(:password, :string)
+      arg(:user_id, :id)
       resolve(&User.delete_account/3)
     end