Use dispatch tables to launch commands and evaluate contexts

[Fey] / lib / App / Fey.pm

diff --git a/lib/App/Fey.pm b/lib/App/Fey.pm
index 73dbb05e98f7a95ee47a75e23a138955740f27dc..e17a22afb535847771927af2e3c804e70584e68d 100644 (file)
--- a/lib/App/Fey.pm
+++ b/lib/App/Fey.pm
@@ -10,12 +10,10 @@ our $version = '0.01';
 sub new {
     my ($class, $args) = @_;
     my $config = do ($ENV{XDG_CONFIG_HOME} // "$ENV{HOME}/.config") . '/fey/config.pl';
 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 = {
 
     my $self = {

-        contexts => $args->{contexts} // $config->{contexts} // { default => 1 },
-        placeholder => $placeholder,
-        mime_query => $args->{mime_query} // $config->{mime_query} // "file --brief --mime-type $placeholder",
+        mime_query => $args->{mime_query} // $config->{mime_query} // sub { `file --brief --mime-type "$_[0]"` },
+        contexts => $args->{contexts} // $config->{contexts} // { default => sub { 1 } },

         targets => $args->{targets} // $config->{targets} // {}
     };
 
         targets => $args->{targets} // $config->{targets} // {}
     };
 


@@ -31,8 +29,7 @@ sub launch {
 
     my ($mime_or_uri, $targets);
     if (-e $file_or_uri) {
 
     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`;
+        $mime_or_uri = $self->{mime_query}->($file_or_uri)

     } else {
         $mime_or_uri = $file_or_uri;
     }
     } else {
         $mime_or_uri = $file_or_uri;
     }


@@ -42,10 +39,8 @@ sub launch {
             if ($mime_or_uri =~ /$pattern/) {
                 my $associations = $target->{associations};
                 for my $context (keys %{ $associations }) {
             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`;
+                    if ($self->{contexts}->{$context}->()) {
+                        $associations->{$context}->($file_or_uri);

                         return;
                     }
                 }
                         return;
                     }
                 }