aboutsummaryrefslogtreecommitdiff
path: root/lib/Matrix/Response.pm6
diff options
context:
space:
mode:
authorMatias Linares <matiaslina@gmail.com>2021-01-11 22:48:16 -0300
committerMatias Linares <matiaslina@gmail.com>2021-01-11 22:48:16 -0300
commitf6397392c4fc88d1e9335bbbc4f91d8cb2f29368 (patch)
treedddb106193d48ca078946d2edb403ef75faca9dd /lib/Matrix/Response.pm6
parent14551a46b61a78a55cacf282e0534a1938215467 (diff)
parent289165e26df8830a15b6df1a63321583a2e67499 (diff)
downloadperl6-matrix-client-f6397392c4fc88d1e9335bbbc4f91d8cb2f29368.tar.gz
Merge branch 'documentation'
Diffstat (limited to 'lib/Matrix/Response.pm6')
-rw-r--r--lib/Matrix/Response.pm6156
1 files changed, 0 insertions, 156 deletions
diff --git a/lib/Matrix/Response.pm6 b/lib/Matrix/Response.pm6
deleted file mode 100644
index a0b2896..0000000
--- a/lib/Matrix/Response.pm6
+++ /dev/null
@@ -1,156 +0,0 @@
-use JSON::Fast;
-
-unit module Matrix::Response;
-
-class Matrix::Response::Event {
- has %.content;
- has $.type is required;
-}
-
-class Matrix::Response::RoomEvent is Matrix::Response::Event {
- has Str $.sender;
- has Int $.origin_server_ts;
- has $.event_id;
- has Str $.room_id;
-
- method id { $.event_id }
- method timestamp { $!origin_server_ts }
- method room-id { $.room_id }
-}
-
-class Matrix::Response::StateEvent is Matrix::Response::RoomEvent {
- has $.prev_content;
- has $.state_key;
-}
-
-class Matrix::Response::MemberEvent is Matrix::Response::StateEvent {
- has $.type is required where 'm.room.member';
-}
-
-class Matrix::Response::Timeline {
- has Matrix::Response::Event @.events;
- has Bool $limited;
- has Str $prev-batch;
-}
-
-class Matrix::Response::RoomInfo {
- has $.room-id is required;
- has Matrix::Response::Event @.state;
- has Matrix::Response::Timeline $.timeline;
-
- method gist(--> Str) {
- "<Matrix::Response::RoomInfo: $.room-id>"
- }
-}
-
-class Matrix::Response::InviteInfo {
- has $.room-id is required;
- has Matrix::Response::Event @.events;
-
- method gist(--> Str) {
- "<Matrix::Response::InviteState: $.room-id>"
- }
-}
-
-sub gather-events($room-id, $from) {
- gather for $from<events>.List -> $ev {
- take Matrix::Response::StateEvent.new(:room_id($room-id), |$ev);
- }
-}
-
-class Matrix::Response::Messages {
- has $.start;
- has $.end;
- has Matrix::Response::RoomEvent @.messages;
-}
-
-class Matrix::Response::Sync {
- has Str $.next-batch;
- has Matrix::Response::Event @.presence;
- has Matrix::Response::RoomInfo @.joined-rooms;
- has Matrix::Response::InviteInfo @.invited-rooms;
-
- multi method new(Str $json) {
- return self.new(from-json($json));
- }
-
- multi method new(Hash $json) {
- my $next-batch = $json<next_batch>;
- my Matrix::Response::Event @presence;
- my Matrix::Response::RoomInfo @joined-rooms;
- my Matrix::Response::InviteInfo @invited-rooms;
-
- for $json<presence><events>.List -> $ev {
- @presence.push(Matrix::Response::Event.new(|$ev));
- }
-
- for $json<rooms><join>.kv -> $room-id, $data {
- my @state = gather-events($room-id, $data<state>);
-
- my $timeline = Matrix::Response::Timeline.new(
- limited => $data<timeline><limited>,
- prev-batch => $data<timeline><prev_batch>,
- events => gather-events($room-id, $data<timeline>)
- );
-
- @joined-rooms.push(Matrix::Response::RoomInfo.new(
- :$room-id, :$timeline, :@state
- ));
- }
-
- for $json<rooms><invite>.kv -> $room-id, $data {
- my @events = gather-events($room-id, $data<invite_state>);
- @invited-rooms.push(Matrix::Response::InviteInfo.new(
- :$room-id, :@events
- ));
- }
-
- return self.bless(:$next-batch, :@presence,
- :@joined-rooms, :@invited-rooms);
- }
-}
-
-class Presence {
- has Str $.presence is required;
- has Int $.last-active-ago;
- has Str $.status-message;
- has Bool $.currently-active;
-
- submethod BUILD(
- Str :$!presence,
- :last_active_ago(:$!last-active-ago) = 0,
- :status_message(:$!status-message) = "",
- :currently_active(:$!currently-active) = False
- ) { }
-}
-
-class Tag {
- has @.tags;
-
- method new(%json) {
- my @tags = %json<tags>.keys;
- self.bless(:@tags)
- }
-}
-
-class Matrix::Response::Device {
- has Str $.device-id;
- has $.display-name;
- has $.last-seen-ip;
- has $.last-seen-ts;
-
- submethod BUILD(
- Str :device_id(:$!device-id),
- :display_name(:$!display-name)?,
- :last_seen_ip(:$!last-seen-ip)?,
- :last_seen_ts(:$!last-seen-ts)?
- ) { }
-}
-
-class Matrix::Response::MediaStore::Config {
- has Int $.upload-size;
-
- method new(%config) {
- self.bless(:upload-size(%config<m.upload.size> // Int));
- }
-}