use more vim

src/ARE/Actions.pm

@@ -113,4 +113,4 @@ sub buildsub($rpast, $block = PAST::Block.new() ) {
     $block;
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/ARE/Compiler.pm

@@ -6,4 +6,4 @@ class ARE::Compiler is HLL::Compiler {
     }
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/ARE/Grammar.pm

@@ -46,4 +46,4 @@ token metachar:sym<[> {
 proto token backslash { <...> }
 token backslash:sym<w> { $<sym>=[<[dswDSW]>] }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/FileGlob/Actions.pm

@@ -8,4 +8,4 @@ method metachar:sym<{>($/) {
     make $ast;
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/FileGlob/Compiler.pm

@@ -6,4 +6,4 @@ class FileGlob::Compiler is HLL::Compiler {
     }
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/FileGlob/Grammar.pm

@@ -9,4 +9,4 @@ token word { <-[,}]>+ }
 
 token barechar { <-[\\\[*+?{]> }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/Actions.pm

@@ -271,4 +271,4 @@ method index:sym<end->($/) {
     make (2, -$<a>.ast);
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/Compiler.pm

@@ -6,4 +6,4 @@ INIT {
     Partcl::Compiler.parseactions(Partcl::Actions);
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/Grammar.pm

@@ -175,4 +175,4 @@ token infix:sym<!=> { <sym> <O('%equality_numeric, :pirop<isne Inn>')> }
 token infix:sym<eq> { <sym> <O('%equality_string, :pirop<iseq Iss>')> }
 token infix:sym<ne> { <sym> <O('%equality_string, :pirop<isne Iss>')> }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/Operators.pm

@@ -10,4 +10,4 @@ sub &infix:<==>($a, $b) {
 
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/after.pm

@@ -5,3 +5,5 @@ our sub after(*@args) {
     pir::sleep__vN(+@args[0] / 1000);
     '';
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/append.pm

@@ -28,3 +28,5 @@ our sub append(*@args) {
 
     set($varName, $result);
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/apply.pm

@@ -4,3 +4,5 @@ our sub apply(*@args) {
     }
     '';
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/array.pm

@@ -199,5 +199,4 @@ my sub unset($arrayName, $array, $pattern = '*') {
     '';
 }
 
-
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/binary.pm

@@ -21,3 +21,5 @@ our sub binary(*@args) {
     }
     '';
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/break.pm

@@ -11,4 +11,4 @@ INIT {
     }
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/catch.pm

@@ -34,3 +34,5 @@ our sub catch(*@args) {
     }
     $retval;
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/cd.pm

@@ -11,3 +11,5 @@ our sub cd(*@args) {
     }
     pir::new('OS').chdir($dir);
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/concat.pm

@@ -5,3 +5,5 @@ our sub concat(*@args) {
     }
     $result;
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/continue.pm

@@ -8,4 +8,4 @@ INIT {
     }
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/dict.pm

@@ -46,4 +46,4 @@ our sub dict(*@args) {
     }
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/eof.pm

@@ -5,3 +5,5 @@ our sub eof(*@args) {
     my $chan := _getChannel(@args[0]);
     0;
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/error.pm

@@ -24,4 +24,4 @@ INIT {
     }
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/eval.pm

@@ -11,3 +11,5 @@ our sub eval(*@args) {
     }
     &sub();
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/exit.pm

@@ -5,3 +5,5 @@ our sub exit(*@args) {
     my $code := @args[0] // 0;
     pir::exit($code);
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/expr.pm

@@ -21,3 +21,5 @@ our sub expr(*@args) {
     }
     &sub();
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/file.pm

@@ -75,4 +75,4 @@ our sub file(*@args) {
     }
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/fileevent.pm

@@ -17,3 +17,5 @@ our sub fileevent(*@args) {
 
     '';
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/flush.pm

@@ -8,3 +8,5 @@ our sub flush(*@args) {
     }
     '';
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/for.pm

@@ -22,3 +22,5 @@ our sub for(*@args) {
     }
     '';
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/foreach.pm

@@ -53,3 +53,5 @@ our sub foreach(*@args) {
     }
     '';
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/format.pm

@@ -5,3 +5,5 @@ our sub format(*@args) {
 
     pir::sprintf__ssp(@args.shift(), @args)
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/gets.pm

@@ -22,3 +22,5 @@ our sub gets(*@args) {
         return $result;
     }
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/glob.pm

@@ -20,3 +20,5 @@ our sub glob(*@args) {
     }
     @retval;
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/global.pm

@@ -9,3 +9,5 @@ our sub global (*@args) {
     }
     '';
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/if.pm

@@ -23,3 +23,5 @@ our sub if(*@args) {
     }
     '';
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/incr.pm

@@ -15,3 +15,5 @@ our sub incr (*@args) {
     }
     return set($var, pir::add__Iii(set($var), $val // 1));
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/info.pm

@@ -243,4 +243,4 @@ my sub vars($pattern = '*') {
     @result;
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/interp.pm

@@ -47,4 +47,4 @@ our sub interp(*@args) {
     }
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/join.pm

@@ -5,3 +5,5 @@ our sub join(*@args) {
 
     pir::join(@args[1] // " ", @args[0].getList());
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/lappend.pm

@@ -19,4 +19,4 @@ our sub lappend(*@args) {
     return set($var,@list);
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/lassign.pm

@@ -16,4 +16,4 @@ our sub lassign(*@args) {
     return @list;
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/lindex.pm

@@ -27,4 +27,4 @@ our sub lindex(*@args) {
     return $result;
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/linsert.pm

@@ -18,4 +18,4 @@ our sub linsert(*@args) {
     return @list;
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/list.pm

@@ -2,4 +2,4 @@ our sub list(*@args) {
     return @args;
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/llength.pm

@@ -6,4 +6,4 @@ our sub llength(*@args) {
     +@args[0].getList();
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/lrange.pm

@@ -18,4 +18,4 @@ our sub lrange(*@args) {
     return @retval;
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/lrepeat.pm

@@ -16,4 +16,4 @@ our sub lrepeat(*@args) {
     return @result;
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/lreplace.pm

@@ -30,4 +30,4 @@ our sub lreplace(*@args) {
     return @list;
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/lreverse.pm

@@ -5,4 +5,4 @@ our sub lreverse(*@args) {
     return @args[0].getList().reverse();
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/lset.pm

@@ -43,4 +43,4 @@ our sub lset(*@args) {
     }
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/lsort.pm

@@ -63,4 +63,4 @@ my sub sort_real($a, $b) {
     pir::cmp__inn(pir::clone($a), pir::clone($b));
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/namespace.pm

@@ -178,4 +178,4 @@ my sub which(*@args) {
     '';
 }	
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/package.pm

@@ -40,4 +40,4 @@ our sub package(*@args) {
     error("bad option \"$cmd\": must be forget, ifneeded, names, prefer, present, provide, require, unknown, vcompare, versions, or vsatisfies");
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/proc.pm

@@ -59,3 +59,5 @@ our sub proc(*@args) {
     pir::setprop($thing, 'body', $body);
     '';
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/puts.pm

@@ -19,3 +19,5 @@ our sub puts(*@args) {
     pir::print__vps($chanObj, "\n") if $nl;
     '';
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/pwd.pm

@@ -1,3 +1,5 @@
 our sub pwd () {
     pir::new('OS').'cwd'();
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/regexp.pm

@@ -18,3 +18,5 @@ our sub regexp(*@args) {
 
     ?$match;
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/rename.pm

@@ -10,3 +10,5 @@ our sub rename(*@args) {
         # XXX actually rename
     }
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/return.pm

@@ -4,4 +4,4 @@ INIT {
     GLOBAL::return := -> $result = '' { return $result; }
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/set.pm

@@ -58,3 +58,5 @@ our sub set(*@args) {
     }
     $result;
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/socket.pm

@@ -1,3 +1,5 @@
 our sub socket(*@args) {
     '';
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/source.pm

@@ -1,3 +1,5 @@
 our sub source($filename) {
     Partcl::Compiler.evalfiles($filename);
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/split.pm

@@ -36,3 +36,5 @@ our sub split(*@args) {
     @result := list(|@result); # convert to a TclList
     @result;
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/string.pm

@@ -544,4 +544,4 @@ my sub wordstart($string, $index) {
     ++$index;
 }
 
-# vim: filetype=perl6:
+# vim: expandtab shiftwidth=4 ft=perl6:

src/Partcl/commands/subst.pm

@@ -1,3 +1,5 @@
 our sub subst(*@args) {
     '';
 }
+
+# vim: expandtab shiftwidth=4 ft=perl6: