config file

wanted to use `Config`, but its `Config::Parser::toml` refers to
`Config::TOML` with a `:auth<>` that zef can't match…

3 files changed, 18 insertions, 2 deletions

diff --git a/META6.json b/META6.json
index 7de91a9..3a18ec3 100644
--- a/META6.json
+++ b/META6.json
@@ -2,6 +2,7 @@
     "perl": "6.d",
     "name": "Vlc::Control",
     "depends": [
+        "Config::TOML",
         "Cro::BodyParser",
         "Cro::HTTP::Client",
         "Cro::HTTP::Message",
diff --git a/config.toml b/config.toml
new file mode 100644
index 0000000..cc23482
--- /dev/null
+++ b/config.toml
@@ -0,0 +1,6 @@
+[vlc]
+password = "ginopino"
+base-uri = "http://127.0.0.1:8080/requests/"
+
+[server]
+port = 8090
diff --git a/vlc.raku b/vlc.raku
index 1d93dd2..00b65bc 100644
--- a/vlc.raku
+++ b/vlc.raku
@@ -1,12 +1,21 @@
 #!/usr/bin/env rakudo
 use v6.d;
 use lib 'inst#local','file#lib';
+use Config::TOML;
 use Vlc::Client;
 use Vlc::App;
 
-my Vlc::Client $vlc .= new(:password<ginopino>,:base-uri<http://192.168.1.111:8080/requests/>);
+my $config = from-toml(file=>'config.toml');
 
-my Vlc::App $app .= new(:port(8080), :$vlc);
+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;