aboutsummaryrefslogtreecommitdiff
path: root/media-control.raku
diff options
context:
space:
mode:
Diffstat (limited to 'media-control.raku')
-rw-r--r--media-control.raku30
1 files changed, 30 insertions, 0 deletions
diff --git a/media-control.raku b/media-control.raku
new file mode 100644
index 0000000..38517eb
--- /dev/null
+++ b/media-control.raku
@@ -0,0 +1,30 @@
+#!/usr/bin/env rakudo
+use v6.d;
+use lib 'inst#local','file#lib';
+use Config::TOML;
+use Vlc::Client;
+use Lirc::Client;
+use App::MediaControl;
+
+my $config = from-toml(file=>'config.toml');
+
+my Vlc::Client $vlc .= new(
+ password => $config<vlc><password>,
+ base-uri => $config<vlc><base-uri>,
+);
+
+my Lirc::Client $lirc .= new();
+
+my App::MediaControl $app .= new(
+ port => $config<server><port>,
+ :$vlc, :$lirc,
+);
+
+$app.start;
+
+say "listening";
+
+react whenever signal(SIGINT) {
+ $app.stop;
+ exit;
+}