diff options
author | Matias Linares <matiaslina@gmail.com> | 2021-01-11 22:48:16 -0300 |
---|---|---|
committer | Matias Linares <matiaslina@gmail.com> | 2021-01-11 22:48:16 -0300 |
commit | f6397392c4fc88d1e9335bbbc4f91d8cb2f29368 (patch) | |
tree | dddb106193d48ca078946d2edb403ef75faca9dd /lib/Matrix/Response.pm6 | |
parent | 14551a46b61a78a55cacf282e0534a1938215467 (diff) | |
parent | 289165e26df8830a15b6df1a63321583a2e67499 (diff) | |
download | perl6-matrix-client-f6397392c4fc88d1e9335bbbc4f91d8cb2f29368.tar.gz |
Merge branch 'documentation'
Diffstat (limited to 'lib/Matrix/Response.pm6')
-rw-r--r-- | lib/Matrix/Response.pm6 | 156 |
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)); - } -} |