Add Fey.pm module

diff --git a/lib/App/Fey.pm b/lib/App/Fey.pm
new file mode 100644 (file)
index 0000000..73dbb05
--- /dev/null
+++ b/lib/App/Fey.pm
@@ -0,0 +1,59 @@
+package App::Fey;
+
+use strict;
+use warnings;
+use Exporter 'import';
+
+our @EXPORT_OK = qw(fey);
+our $version = '0.01';
+
+sub new {
+    my ($class, $args) = @_;
+    my $config = do ($ENV{XDG_CONFIG_HOME} // "$ENV{HOME}/.config") . '/fey/config.pl';
+    my $placeholder = $args->{placeholder} // $config->{placeholder} // '//f';
+
+    my $self = {
+        contexts => $args->{contexts} // $config->{contexts} // { default => 1 },
+        placeholder => $placeholder,
+        mime_query => $args->{mime_query} // $config->{mime_query} // "file --brief --mime-type $placeholder",
+        targets => $args->{targets} // $config->{targets} // {}
+    };
+
+    bless $self, $class;
+}
+
+sub launch {
+    my ($self, $file_or_uri) = @_;
+
+    if ($file_or_uri =~ m|^file://(.+)|) {
+        $file_or_uri = $1;
+    }
+
+    my ($mime_or_uri, $targets);
+    if (-e $file_or_uri) {
+        $mime_or_uri = $self->{mime_query} =~ s/$self->{placeholder}/"$file_or_uri"/r;
+        $mime_or_uri = `$mime_or_uri`;
+    } else {
+        $mime_or_uri = $file_or_uri;
+    }
+
+    for my $target (@{ $self->{targets} }) {
+        for my $pattern (@{ $target->{patterns} }) {
+            if ($mime_or_uri =~ /$pattern/) {
+                my $associations = $target->{associations};
+                for my $context (keys %{ $associations }) {
+                    if ($self->{contexts}->{$context}) {
+                        my $command = $associations->{$context};
+                        $command =~ s/$self->{placeholder}/"$file_or_uri"/;
+                        `$command`;
+                        return;
+                    }
+                }
+            }
+        }
+    }
+}
+
+sub fey {
+    App::Fey->new($_[1] // {})->launch($_[0] // die 'Error: No file or URI specified.');
+}