Merge branch 'master' into documentation

10 files changed, 41 insertions, 9 deletions

diff --git a/.gitignore b/.gitignore
index 0d701e8..5bf717a 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,4 +2,5 @@ state
 file.json
 .precomp
 **/*/.precomp
-todo.org
\ No newline at end of file
+todo.org
+*~
\ No newline at end of file
diff --git a/META6.json b/META6.json
index d31ee73..bfac3e3 100644
--- a/META6.json
+++ b/META6.json
@@ -9,7 +9,7 @@
     "URI::Encode",
     "IO::Socket::SSL"
   ],
-  "description" : "Matrix client for Perl 6",
+  "description" : "Matrix client for Raku",
   "license" : "Artistic-2.0",
   "name" : "Matrix::Client",
   "perl" : "6.c",
diff --git a/README.md b/README.md
index bdb8067..442c8ac 100644
--- a/README.md
+++ b/README.md
@@ -1,6 +1,6 @@
 # Matrix::Client
 
-A perl 6 library for [Matrix](https://matrix.org).
+A [Raku](https://raku.org) library for [Matrix](https://matrix.org).
 
 ## Synopsis
 
@@ -20,7 +20,7 @@ A perl 6 library for [Matrix](https://matrix.org).
     # Send a message to a random room that I'm in
     my $room = $client.joined-rooms.pick;
     say "Sending a message to {$room.name}";
-    $room.send("Hello from perl6!");
+    $room.send("Hello from Raku!");
 
 ## Description
 
diff --git a/examples/bot.p6 b/examples/bot.raku
index 24ab1e6..8a9d206 100755
--- a/examples/bot.p6
+++ b/examples/bot.raku
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl6
 use v6;
 use lib "lib";
-use JSON::Tiny;
+use JSON::Fast;
 use Matrix::Client;
 use Matrix::Client::Exception;
 
@@ -34,7 +34,7 @@ class Bot {
             my $sync = { room => timeline => limit => 1 };
             my $response = $!client.sync(sync-filter => $sync, since => $since);
             $since = $response.next-batch;
-            
+
             for $response.joined-rooms -> $room {
                 for $room.timeline
                          .events
diff --git a/examples/doc-test.raku b/examples/doc-test.raku
new file mode 100644
index 0000000..0072c94
--- /dev/null
+++ b/examples/doc-test.raku
@@ -0,0 +1,19 @@
+use v6;
+use lib <lib>;
+use Matrix::Client;
+use Data::Dump::Tree;
+
+my Matrix::Client $client .= new:
+    :home-server<https://matrix.deprecated.org>,
+    :access-token(%*ENV<MATRIX_ACCESS_TOKEN>);
+
+say $client.presence(“@matias:matrix.deprecated.org”);
+#`[
+for ^10 -> $i {
+    my $presence = $i %% 2 ?? "online" !! "offline";
+    say $client.presence.presence;
+    say "Setting presence $presence";
+    $client.set-presence($presence, :status-message<woops>);
+    sleep 3;
+}
+]
diff --git a/examples/get-sync-json.raku b/examples/get-sync-json.raku
new file mode 100644
index 0000000..2db9c5a
--- /dev/null
+++ b/examples/get-sync-json.raku
@@ -0,0 +1,12 @@
+use v6;
+use Matrix::Client;
+
+sub MAIN($file? = 'sync.json') {
+    my $c = Matrix::Client.new(home-server => 'https://matrix.deprecated.org');
+    $c.login: 'deprecated_bot', 'deprecatedbot';
+
+    my $res = $c.sync;
+    $file.IO.spurt($res.content);
+
+    $c.logout;
+}
diff --git a/examples/rooms.p6 b/examples/rooms.raku
index 4f0a0c7..4f0a0c7 100644
--- a/examples/rooms.p6
+++ b/examples/rooms.raku
diff --git a/examples/run.p6 b/examples/run.raku
index f78df16..af1b188 100644
--- a/examples/run.p6
+++ b/examples/run.raku
@@ -1,4 +1,4 @@
-#!/usr/bin/env perl6
+#!/usr/bin/env raku
 use v6;
 use lib <lib>;
 use Matrix::Client;
diff --git a/examples/send-message.p6 b/examples/send-message.raku
index 4824be5..2a8202a 100644
--- a/examples/send-message.p6
+++ b/examples/send-message.raku
@@ -1,4 +1,4 @@
-#!/usr/bin/env perl6
+#!/usr/bin/env raku
 use v6;
 use lib 'lib';
 use Matrix::Client;
diff --git a/t/40-response.t b/t/40-response.t
index 61dd635..cc219b2 100644
--- a/t/40-response.t
+++ b/t/40-response.t
@@ -1,6 +1,6 @@
 use lib 'lib';
 use Test;
-use JSON::Tiny;
+use JSON::Fast;
 use Matrix::Response;
 plan 7;