From 819187730a5b74a52ff1895625cf7b3c94c6ad9b Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Wed, 22 Dec 2021 14:03:30 +0000
Subject: some renaming

---
 lib/App/MediaControl.rakumod | 35 +++++++++++++++++++++++++++++++++++
 lib/Vlc/App.rakumod          | 33 ---------------------------------
 media-control.raku           | 30 ++++++++++++++++++++++++++++++
 vlc.raku                     | 25 -------------------------
 4 files changed, 65 insertions(+), 58 deletions(-)
 create mode 100644 lib/App/MediaControl.rakumod
 delete mode 100644 lib/Vlc/App.rakumod
 create mode 100644 media-control.raku
 delete mode 100644 vlc.raku

diff --git a/lib/App/MediaControl.rakumod b/lib/App/MediaControl.rakumod
new file mode 100644
index 0000000..bd4a2c9
--- /dev/null
+++ b/lib/App/MediaControl.rakumod
@@ -0,0 +1,35 @@
+use v6.d;
+use Cro::HTTP::Server;
+use Cro::HTTP::Router;
+use Vlc::Client;
+use Lirc::Client;
+
+class App::MediaControl {
+    has Vlc::Client $.vlc is required;
+    has Lirc::Client $.lirc is required;
+    has Int $.port = 8080;
+    has Cro::Service $!service handles <stop>;
+
+    method start() {
+        my $application = route {
+            resources-from %?RESOURCES;
+
+            get -> { resource 'vlc.html' }
+
+            post -> 'play' { await self.vlc.command('pl_play') }
+            post -> 'pause' { await self.vlc.command('pl_pause') }
+            post -> 'stop' { await self.vlc.command('pl_stop') }
+
+            get -> 'status' {
+                my $status = await self.vlc.status();
+                content 'application/json', $status;
+            }
+        };
+
+        $!service = Cro::HTTP::Server.new(
+            :port(self.port), :$application,
+        );
+
+        return $!service.start();
+    }
+}
diff --git a/lib/Vlc/App.rakumod b/lib/Vlc/App.rakumod
deleted file mode 100644
index e4401e6..0000000
--- a/lib/Vlc/App.rakumod
+++ /dev/null
@@ -1,33 +0,0 @@
-use v6.d;
-use Cro::HTTP::Server;
-use Cro::HTTP::Router;
-use Vlc::Client;
-
-class Vlc::App {
-    has Vlc::Client $.vlc is required;
-    has Int $.port = 8080;
-    has Cro::Service $!service handles <stop>;
-
-    method start() {
-        my $application = route {
-            resources-from %?RESOURCES;
-
-            get -> { resource 'vlc.html' }
-
-            post -> 'play' { await self.vlc.command('pl_play') }
-            post -> 'pause' { await self.vlc.command('pl_pause') }
-            post -> 'stop' { await self.vlc.command('pl_stop') }
-
-            get -> 'status' {
-                my $status = await self.vlc.status();
-                content 'application/json', $status;
-            }
-        };
-
-        $!service = Cro::HTTP::Server.new(
-            :port(self.port), :$application,
-        );
-
-        return $!service.start();
-    }
-}
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;
+}
diff --git a/vlc.raku b/vlc.raku
deleted file mode 100644
index 00b65bc..0000000
--- a/vlc.raku
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/usr/bin/env rakudo
-use v6.d;
-use lib 'inst#local','file#lib';
-use Config::TOML;
-use Vlc::Client;
-use Vlc::App;
-
-my $config = from-toml(file=>'config.toml');
-
-my Vlc::Client $vlc .= new(
-    password => $config<vlc><password>,
-    base-uri => $config<vlc><base-uri>,
-);
-
-my Vlc::App $app .= new(
-    port => $config<server><port>,
-    :$vlc,
-);
-
-$app.start;
-
-react whenever signal(SIGINT) {
-    $app.stop;
-    exit;
-}
-- 
cgit v1.2.3