diff --git a/src/ARE/Actions.pm b/src/ARE/Actions.pm
index de982c8..39d48dc 100644
--- a/src/ARE/Actions.pm
+++ b/src/ARE/Actions.pm
@@ -105,3 +105,4 @@ sub buildsub($rpast, $block = PAST::Block.new() ) {
     $block;
 }
 
+# vim: filetype=perl6:
diff --git a/src/ARE/Compiler.pm b/src/ARE/Compiler.pm
index 546b1f0..ee5c7e7 100644
--- a/src/ARE/Compiler.pm
+++ b/src/ARE/Compiler.pm
@@ -6,4 +6,4 @@ class ARE::Compiler is HLL::Compiler {
     }
 }
 
-
+# vim: filetype=perl6:
diff --git a/src/ARE/Grammar.pm b/src/ARE/Grammar.pm
index 2231da5..59656e9 100644
--- a/src/ARE/Grammar.pm
+++ b/src/ARE/Grammar.pm
@@ -44,3 +44,4 @@ token metachar:sym<[> {
 proto token backslash { <...> }
 token backslash:sym<w> { $<sym>=[<[dswDSW]>] }
 
+# vim: filetype=perl6:
diff --git a/src/Partcl/Actions.pm b/src/Partcl/Actions.pm
index d747335..86ea50b 100644
--- a/src/Partcl/Actions.pm
+++ b/src/Partcl/Actions.pm
@@ -166,4 +166,4 @@ method term:sym<integer>($/) { make $<integer>.ast; }
 method term:sym<[ ]>($/) { make $<script>.ast; }
 method term:sym<" ">($/)  { make concat_atoms($<quoted_atom>); }
 
-
+# vim: filetype=perl6:
diff --git a/src/Partcl/Compiler.pm b/src/Partcl/Compiler.pm
index 03f9bbf..040a1b6 100644
--- a/src/Partcl/Compiler.pm
+++ b/src/Partcl/Compiler.pm
@@ -5,3 +5,5 @@ INIT {
     Partcl::Compiler.parsegrammar(Partcl::Grammar);
     Partcl::Compiler.parseactions(Partcl::Actions);
 }
+
+# vim: filetype=perl6:
diff --git a/src/Partcl/Grammar.pm b/src/Partcl/Grammar.pm
index 1b34747..b794502 100644
--- a/src/Partcl/Grammar.pm
+++ b/src/Partcl/Grammar.pm
@@ -119,3 +119,5 @@ 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:
diff --git a/src/Partcl/commands/info.pm b/src/Partcl/commands/info.pm
index 8b8c5c2..85cc774 100644
--- a/src/Partcl/commands/info.pm
+++ b/src/Partcl/commands/info.pm
@@ -66,3 +66,5 @@ our sub info(*@args) {
     # invalid subcommand.
     error("unknown or ambiguous subcommand \"$cmd\": must be args, body, cmdcount, commands, complete, default, exists, frame, functions, globals, hostname, level, library, loaded, locals, nameofexecutable, patchlevel, procs, script, sharedlibextension, tclversion, or vars");
 }
+
+# vim: filetype=perl6:
diff --git a/src/Partcl/commands/main.pm b/src/Partcl/commands/main.pm
index ca4f22c..c3b5965 100644
--- a/src/Partcl/commands/main.pm
+++ b/src/Partcl/commands/main.pm
@@ -506,4 +506,4 @@ our sub EXPAND($args) {
     Partcl::Grammar.parse($args, :rule<list>, :actions(Partcl::Actions) ).ast;
 }
 
-# vim: ft=perl6:
+# vim: filetype=perl6:
diff --git a/src/Partcl/commands/namespace.pm b/src/Partcl/commands/namespace.pm
index 819b67b..09edebd 100644
--- a/src/Partcl/commands/namespace.pm
+++ b/src/Partcl/commands/namespace.pm
@@ -47,3 +47,5 @@ our sub namespace(*@args) {
     # invalid subcommand.
     error("bad option \"$cmd\": must be children, code, current, delete, ensemble, eval, exists, export, forget, import, inscope, origin, parent, path, qualifiers, tail, unknown, upvar, or which");
 }
+
+# vim: filetype=perl6:
diff --git a/src/Partcl/commands/package.pm b/src/Partcl/commands/package.pm
index 2d54552..499d081 100644
--- a/src/Partcl/commands/package.pm
+++ b/src/Partcl/commands/package.pm
@@ -39,3 +39,5 @@ our sub package(*@args) {
     # invalid subcommand.
     error("bad option \"$cmd\": must be forget, ifneeded, names, prefer, present, provide, require, unknown, vcompare, versions, or vsatisfies");
 }
+
+# vim: filetype=perl6:
diff --git a/src/Partcl/commands/string.pm b/src/Partcl/commands/string.pm
index a948f91..c5e1cb1 100644
--- a/src/Partcl/commands/string.pm
+++ b/src/Partcl/commands/string.pm
@@ -129,3 +129,5 @@ module _tcl {
         };
     }
 }
+
+# vim: filetype=perl6:
diff --git a/src/TclLexPad.pm b/src/TclLexPad.pm
index acfe062..a68e477 100644
--- a/src/TclLexPad.pm
+++ b/src/TclLexPad.pm
@@ -12,3 +12,5 @@ class TclLexPad is Hash {
     method depth() { $!depth }
     method outer() { $!outer }
 }
+
+# vim: filetype=perl6:
diff --git a/src/init.pm b/src/init.pm
index e6b574b..799de4e 100644
--- a/src/init.pm
+++ b/src/init.pm
@@ -19,3 +19,5 @@ sub _getChannel($name) {
     $ioObj // error("can not find channel named \"$name\"");
     return $ioObj;
 }
+
+# vim: filetype=perl6:
diff --git a/src/options.pm b/src/options.pm
index efb8afd..9bfbb20 100644
--- a/src/options.pm
+++ b/src/options.pm
@@ -1,5 +1,3 @@
-# vim: filetype=perl6:
-
 module _tcl {
 
 =begin head1 select_option
@@ -262,3 +260,4 @@ sub optionsToString(@options) {
 
 }
 
+# vim: filetype=perl6: