Do not launch editor by default

bin/mkexec

@@ -9,6 +9,7 @@ sub usage; sub mkexec; sub guesstype; sub getcmd; sub launch_editor;
 my $DEFAULT_TYPE = 'sh';
 my $DEFAULT_MODE = 0755;
 my $DEFAULT_FORCE = 0;
+my $DEFAULT_EDIT = 0;
 
 
 ## .... ##   . . .  .   .    .     .      .       .        .         .
@@ -16,11 +17,15 @@ my $DEFAULT_FORCE = 0;
 ## '''' ##   ' ' '  '   '    '     '      '       '        '         '
 
 my $force = $DEFAULT_FORCE;
-my $name; my $type;
+my $name; my $type; my $edit;
 
 foreach (@ARGV) {
     if (m/-f|--force/) {
         $force++;
+    } elsif (m/-e|--edit/) {
+        $edit++;
+    } elsif (m/-E|--no-edit/) {
+        $edit = 0;
     } elsif (defined $name) {
         $type = $_;
     } else {
@@ -63,7 +68,7 @@ if (exists $bangs->{$type}) {
     (not -e $name or $force)
         and mkexec $name, mkbody($type);
     chmod $DEFAULT_MODE, $name;
-    launch_editor $name;
+    launch_editor $name if $edit;
 } else {
     die "unknown type: $type\n";
 }
@@ -74,7 +79,7 @@ if (exists $bangs->{$type}) {
 ## '''' ##   ..............................................................-'
 
 sub usage {
-    print STDERR "usage: $0 [-f] filename [type]\n";
+    print STDERR "usage: $0 [-f|-E] filename [type]\n";
     exit 0;
 }