WIP

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

lib/graphql/schema/actors/person.ex

@@ -7,7 +7,7 @@ defmodule Mobilizon.GraphQL.Schema.Actors.PersonType do
   import Absinthe.Resolution.Helpers, only: [dataloader: 2]
 
   alias Mobilizon.Events
-  alias Mobilizon.GraphQL.Resolvers.{Media, Person}
+  alias Mobilizon.GraphQL.Resolvers.{Conversation, Media, Person}
   alias Mobilizon.GraphQL.Schema
 
   import_types(Schema.Events.FeedTokenType)
@@ -136,6 +136,25 @@ defmodule Mobilizon.GraphQL.Schema.Actors.PersonType do
       arg(:limit, :integer, default_value: 10, description: "The limit of follows per page")
       resolve(&Person.person_follows/3)
     end
+
+    @desc "The list of conversations this person has"
+    field(:conversations, :paginated_conversation_list,
+      meta: [private: true, rule: :"read:profile:conversations"]
+    ) do
+      arg(:page, :integer,
+        default_value: 1,
+        description: "The page in the conversations list"
+      )
+
+      arg(:limit, :integer, default_value: 10, description: "The limit of conversations per page")
+      resolve(&Conversation.list_conversations/3)
+    end
+
+    field(:unread_conversations_count, :integer,
+      meta: [private: true, rule: :"read:profile:conversations"]
+    ) do
+      resolve(&Conversation.unread_conversations_count/3)
+    end
   end
 
   @desc """
@@ -353,5 +372,16 @@ defmodule Mobilizon.GraphQL.Schema.Actors.PersonType do
         {:ok, topic: [args.group, args.person_id]}
       end)
     end
+
+    @desc "Notify when a person unread conversations count changed"
+    field(:person_unread_conversations_count, :integer,
+      meta: [private: true, rule: :"read:profile:conversations"]
+    ) do
+      arg(:person_id, non_null(:id), description: "The person's ID")
+
+      config(fn args, _ ->
+        {:ok, topic: [args.person_id]}
+      end)
+    end
   end
 end

lib/graphql/schema/conversation.ex

@@ -0,0 +1,132 @@
+defmodule Mobilizon.GraphQL.Schema.ConversationType do
+  @moduledoc """
+  Schema representation for conversation
+  """
+  use Absinthe.Schema.Notation
+
+  # import Absinthe.Resolution.Helpers, only: [dataloader: 1]
+
+  # alias Mobilizon.Actors
+  alias Mobilizon.GraphQL.Resolvers.Conversation
+
+  @desc "A conversation"
+  object :conversation do
+    meta(:authorize, :user)
+    interfaces([:activity_object])
+    field(:id, :id, description: "Internal ID for this conversation")
+
+    field(:conversation_participant_id, :id,
+      description: "Internal ID for the conversation participant"
+    )
+
+    field(:last_comment, :comment, description: "The last comment of the conversation")
+
+    field :comments, :paginated_comment_list do
+      arg(:page, :integer, default_value: 1)
+      arg(:limit, :integer, default_value: 10)
+      resolve(&Conversation.get_comments_for_conversation/3)
+      description("The comments for the conversation")
+    end
+
+    field(:participants, list_of(:person),
+      # resolve: dataloader(Actors),
+      description: "The list of participants to the conversation"
+    )
+
+    field(:event, :event, description: "The event this conversation is associated to")
+
+    field(:actor, :person,
+      # resolve: dataloader(Actors),
+      description: "The actor concerned by the conversation"
+    )
+
+    field(:unread, :boolean, description: "Whether this conversation is unread")
+
+    field(:inserted_at, :datetime, description: "When was this conversation's created")
+    field(:updated_at, :datetime, description: "When was this conversation's updated")
+  end
+
+  @desc "A paginated list of conversations"
+  object :paginated_conversation_list do
+    meta(:authorize, :user)
+    field(:elements, list_of(:conversation), description: "A list of conversations")
+    field(:total, :integer, description: "The total number of conversations in the list")
+  end
+
+  object :conversation_queries do
+    @desc "Get a conversation"
+    field :conversation, type: :conversation do
+      arg(:id, :id, description: "The conversation's ID")
+
+      middleware(Rajska.QueryAuthorization,
+        permit: :user,
+        scope: Mobilizon.Conversations.Conversation,
+        rule: :"read:conversations",
+        args: %{id: :id}
+      )
+
+      resolve(&Conversation.get_conversation/3)
+    end
+  end
+
+  object :conversation_mutations do
+    @desc "Post a private message"
+    field :post_private_message, type: :conversation do
+      arg(:text, non_null(:string), description: "The conversation's first comment body")
+      arg(:actor_id, non_null(:id), description: "The profile ID to create the conversation as")
+      arg(:attributed_to_id, :id, description: "The group ID to attribute the conversation to")
+      arg(:conversation_id, :id, description: "The conversation ID to reply to")
+      arg(:language, :string, description: "The comment language", default_value: "und")
+      arg(:mentions, list_of(:string), description: "A list of federated usernames to mention")
+
+      middleware(Rajska.QueryAuthorization,
+        permit: :user,
+        scope: Mobilizon.Conversations.ConversationParticipant,
+        rule: :"write:conversation:create",
+        args: %{actor_id: :actor_id}
+      )
+
+      resolve(&Conversation.create_conversation/3)
+    end
+
+    @desc "Update a conversation"
+    field :update_conversation, type: :conversation do
+      arg(:conversation_id, non_null(:id), description: "The conversation's ID")
+      arg(:read, non_null(:boolean), description: "Whether the conversation is read or not")
+
+      middleware(Rajska.QueryAuthorization,
+        permit: :user,
+        scope: Mobilizon.Conversations.Conversation,
+        rule: :"write:conversation:update",
+        args: %{id: :conversation_id}
+      )
+
+      resolve(&Conversation.update_conversation/3)
+    end
+
+    @desc "Delete a conversation"
+    field :delete_conversation, type: :conversation do
+      arg(:conversation_id, non_null(:id), description: "The conversation's ID")
+
+      middleware(Rajska.QueryAuthorization,
+        permit: :user,
+        scope: Mobilizon.Conversations.Conversation,
+        rule: :"write:conversation:delete",
+        args: %{id: :conversation_id}
+      )
+
+      resolve(&Conversation.delete_conversation/3)
+    end
+  end
+
+  object :conversation_subscriptions do
+    @desc "Notify when a conversation changed"
+    field :conversation_comment_changed, :conversation do
+      arg(:id, non_null(:id), description: "The conversation's ID")
+
+      config(fn args, _ ->
+        {:ok, topic: args.id}
+      end)
+    end
+  end
+end

lib/graphql/schema/discussions/comment.ex

@@ -56,6 +56,8 @@ defmodule Mobilizon.GraphQL.Schema.Discussions.CommentType do
       description: "Whether this comment needs to be announced to participants"
     )
 
+    field(:conversation, :conversation, description: "The conversation this comment is part of")
+
     field(:language, :string, description: "The comment language")
   end
 

lib/graphql/schema/event.ex

@@ -8,7 +8,7 @@ defmodule Mobilizon.GraphQL.Schema.EventType do
   import Absinthe.Resolution.Helpers, only: [dataloader: 1, dataloader: 2]
 
   alias Mobilizon.{Actors, Addresses, Discussions}
-  alias Mobilizon.GraphQL.Resolvers.{Event, Media, Tag}
+  alias Mobilizon.GraphQL.Resolvers.{Conversation, Event, Media, Tag}
   alias Mobilizon.GraphQL.Schema
 
   import_types(Schema.AddressType)
@@ -113,6 +113,18 @@ defmodule Mobilizon.GraphQL.Schema.EventType do
     field(:options, :event_options, description: "The event options")
     field(:metadata, list_of(:event_metadata), description: "A key-value list of metadata")
     field(:language, :string, description: "The event language")
+
+    field(:conversations, :paginated_conversation_list,
+      description: "The list of conversations started on this event"
+    ) do
+      arg(:page, :integer,
+        default_value: 1,
+        description: "The page in the paginated conversation list"
+      )
+
+      arg(:limit, :integer, default_value: 10, description: "The limit of conversations per page")
+      resolve(&Conversation.find_conversations_for_event/3)
+    end
   end
 
   @desc "The list of visibility options for an event"

lib/graphql/schema/events/participant.ex

@@ -159,5 +159,34 @@ defmodule Mobilizon.GraphQL.Schema.Events.ParticipantType do
 
       resolve(&Participant.export_event_participants/3)
     end
+
+    @desc "Send private messages to participants"
+    field :send_event_private_message, :conversation do
+      arg(:event_id, non_null(:id),
+        description: "The ID from the event for which to export participants"
+      )
+
+      arg(:roles, list_of(:participant_role_enum),
+        default_value: [],
+        description: "The participant roles to include"
+      )
+
+      arg(:text, non_null(:string), description: "The private message body")
+
+      arg(:actor_id, non_null(:id),
+        description: "The profile ID to create the private message as"
+      )
+
+      arg(:language, :string, description: "The private message language", default_value: "und")
+
+      middleware(Rajska.QueryAuthorization,
+        permit: :user,
+        scope: Mobilizon.Events.Event,
+        rule: :"write:event:participants:private_message",
+        args: %{id: :event_id}
+      )
+
+      resolve(&Participant.send_private_messages_to_participants/3)
+    end
   end
 end

lib/graphql/schema/user.ex

@@ -8,7 +8,7 @@ defmodule Mobilizon.GraphQL.Schema.UserType do
 
   alias Mobilizon.Events
   alias Mobilizon.GraphQL.Resolvers.Application, as: ApplicationResolver
-  alias Mobilizon.GraphQL.Resolvers.{Media, User}
+  alias Mobilizon.GraphQL.Resolvers.{Conversation, Media, User}
   alias Mobilizon.GraphQL.Resolvers.Users.ActivitySettings
   alias Mobilizon.GraphQL.Schema
 
@@ -191,6 +191,19 @@ defmodule Mobilizon.GraphQL.Schema.UserType do
     ) do
       resolve(&ApplicationResolver.get_user_applications/3)
     end
+
+    @desc "The list of conversations this person has"
+    field(:conversations, :paginated_conversation_list,
+      meta: [private: true, rule: :"read:profile:conversations"]
+    ) do
+      arg(:page, :integer,
+        default_value: 1,
+        description: "The page in the conversations list"
+      )
+
+      arg(:limit, :integer, default_value: 10, description: "The limit of conversations per page")
+      resolve(&Conversation.list_conversations/3)
+    end
   end
 
   @desc "The list of roles an user can have"