Add support for command aliases

mdom · Dec 14, 2016 · 8746270 · 8746270
1 parent 048d03c
commit 8746270
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 8 deletions.
diff --git a/bin/squaretag b/bin/squaretag
@@ -33,18 +33,14 @@ sub run {
             minargs => 2,
             opt_spec => \@rename_opts,
             check    => \&is_tag_file,
+            alias    => ['rm'],
         },
         rename => {
             cmd      => sub { rename_files( shift, rename_tag(@_) ) },
             minargs  => 3,
             opt_spec => \@rename_opts,
             check    => \&is_tag_file,
-        },
-        mv => {
-            cmd      => sub { rename_files( shift, rename_tag(@_) ) },
-            minargs  => 3,
-            opt_spec => \@rename_opts,
-            check    => \&is_tag_file,
+            alias    => ['mv'],
         },
         clear => {
             cmd      => sub { rename_files( shift, clear(@_) ) },
@@ -61,6 +57,16 @@ sub run {
         },
     );
 
+    for my $mode ( values %modes ) {
+        if ( my $aliases = $mode->{alias} ) {
+            for my $alias (@$aliases) {
+                if ( !exists $modes{$alias} ) {
+                    $modes{$alias} = $mode;
+                }
+            }
+        }
+    }
+
     if ( $mode && $modes{$mode} ) {
         my $cmd     = $modes{$mode}->{cmd};
         my $minargs = $modes{$mode}->{minargs};

diff --git a/t/08cli.t b/t/08cli.t
@@ -49,8 +49,12 @@ test_output ['remove','-v', 'foo', 'file[bar,foo].txt'], <<EOF;
 file[bar,foo].txt -> file[bar].txt
 EOF
 
-test_output [qw(clear -v file[bar].txt)], <<EOF;
-file[bar].txt -> file.txt
+test_output [qw(mv -v bar foo file[bar].txt)], <<EOF;
+file[bar].txt -> file[foo].txt
+EOF
+
+test_output [qw(clear -v file[foo].txt)], <<EOF;
+file[foo].txt -> file.txt
 EOF
 
 done_testing;