Added templates

bin/mkexec.pl

@@ -21,6 +21,11 @@ my $bang = {
     bc   => `which bc`
 };
 
+my $template = {
+    pl   => "use strict;\nuse warnings;\n",
+    py   => "if __name__ == '__main__':\n"
+};
+
 my $editors = [ qw/ vim editor / ];
 my $cmds;
 $cmds->{vim}->{test}    = "vim --version 2>/dev/null";
@@ -30,7 +35,7 @@ $cmds->{editor}->{run}  = "editor '%s'";
 
 
 if (exists $bang->{$type}) {
-    -e $name || mkexec $name, $bang->{$type};
+    -e $name || mkexec $name, mkbody($type);
     chmod $DEFAULT_MODE, $name;
     launch_editor $name;
 } else {
@@ -48,11 +53,18 @@ sub guesstype {
     return ( $ext ? $ext : $DEFAULT_TYPE);
 }
 
+sub mkbody {
+    my $type = shift;
+    my $tmpl = "";
+    $tmpl .= $template->{$type} if exists $template->{$type};
+    return sprintf "#!%s\n%s\n", $bang->{$type}, $tmpl;
+}
+
 sub mkexec {
-    my ($name, $bang) = @_;
+    my ($name, $body) = @_;
     open EXE, ">", $name    || die "cannot open $name for writing: $!\n";
     -W EXE                  || die "file $name is not writable\n";
-    print EXE "#!$bang\n";
+    print EXE $body;
     close EXE               || die "cannot close $name: $!\n";
 }