Vertical beautification

bin/mkexec.pl

@@ -10,6 +10,11 @@ my $DEFAULT_TYPE = 'pl';
 my $DEFAULT_MODE = 0755;
 my $DEFAULT_FORCE = 0;
 
+
+## .... ##   . . .  .   .    .     .      .       .        .         .
+## INIT ## -------------------------------------------------------------------
+## '''' ##   ' ' '  '   '    '     '      '       '        '         '
+
 my $force = $ARGV[0] == '-f' ? shift : $DEFAULT_FORCE;
 my $name = shift or usage;
 my $type = ($ARGV[0] ? shift : guesstype $name);
@@ -36,6 +41,10 @@ $cmds->{editor}->{test} = "editor --version 2>/dev/null";
 $cmds->{editor}->{run}  = "editor '%s'";
 
 
+## ... ##   # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+## RUN ## ----------------------------------------------------------------- #
+## ''' ##   # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+
 if (exists $bangs->{$type}) {
     -e $name and not $force || mkexec $name, mkbody($type);
     chmod $DEFAULT_MODE, $name;
@@ -44,6 +53,11 @@ if (exists $bangs->{$type}) {
     die "unknown type: $type\n";
 }
 
+
+## .... ##   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''-.
+## SUBZ ## ----------------------------------------------------------------- :
+## '''' ##   ..............................................................-'
+
 sub usage {
     print STDERR "usage: $0 filename [type]\n";
     exit 0;