Move PWS files into a subdir

Author: coke

.gitignore

@@ -20,7 +20,7 @@ assets/cache
 .sass-cache/
 links.txt
 links.tmp
-xt/aspell.pws
+xt/pws/aspell.pws
 highlights/node_modules
 **/npm-debug.log
 highlights/atom-language-perl6/
@@ -33,4 +33,4 @@ node_modules/
 package-lock.json
 *.epub
 .idea
-*.iml
+*.iml

util/clean-spell

@@ -1,6 +1,6 @@
 #!/usr/bin/env raku
 
-# Remove words in xt/*.pws that are no longer needed
+# Remove words in xt/pws/*.pws that are no longer needed
 # * Bug fixes in the spell checker have removed the need
 #   to check certain words.
 # * Edits to the docs themselves no longer use some words.
@@ -33,7 +33,7 @@ sub erase-word($file, @words, $word="") {
     run('mv', $tmp_fname, $file);
 }
 
-for <xt/words.pws xt/code.pws> -> $dict {
+for <xt/pws/words.pws xt/pws/code.pws> -> $dict {
     my @words = $dict.IO.lines;
     for @words -> $word {
         note "Testing $dict / $word ";

xt/aspell.t

@@ -19,8 +19,8 @@ that are only allowed in code (variable names, some output, etc.).
 
 If the test fails, you can make it pass again by changing the
 text (fixing the spelling issue), or adding the new word to
-C<xt/words.pws> (if it's a word, a class/method name, known
-program name, etc.), or to C<xt/code.pws> (if it's a fragment of
+C<xt/pws/words.pws> (if it's a word, a class/method name, known
+program name, etc.), or to C<xt/pws/code.pws> (if it's a fragment of
 text that is part of a code example)
 
 =end overview
@@ -38,9 +38,9 @@ if $proc.exitcode {
 # generate a combined words file
 # a header is required, but is supplied by words.pws
 
-my $dict = $*PROGRAM.parent.child("aspell.pws").open(:w);
-$dict.say($*PROGRAM.parent.child("words.pws").IO.slurp.chomp);
-$dict.say($*PROGRAM.parent.child("code.pws").IO.slurp.chomp);
+my $dict = $*PROGRAM.parent.child("pws/aspell.pws").open(:w);
+$dict.say($*PROGRAM.parent.child("pws/words.pws").IO.slurp.chomp);
+$dict.say($*PROGRAM.parent.child("pws/code.pws").IO.slurp.chomp);
 $dict.close;
 
 my %output;
@@ -75,10 +75,10 @@ my $lock = Lock.new;
         my ($dict, $body);
         if $type eq "code" {
             $body = $code;
-            $dict = $*PROGRAM.parent.child("aspell.pws").absolute;
+            $dict = $*PROGRAM.parent.child("pws/aspell.pws").absolute;
         } else {
             $body = $text;
-            $dict = $*PROGRAM.parent.child("words.pws").absolute;
+            $dict = $*PROGRAM.parent.child("pws/words.pws").absolute;
         }
 
         react {

xt/code.pws renamed to xt/pws/code.pws

@@ -15,23 +15,23 @@ Avoid duplicates, verify header, lowercase, sorting.
 
 plan 6;
 
-my @words = $*PROGRAM.parent.child('words.pws').IO.lines;
-my @code = $*PROGRAM.parent.child('code.pws').IO.lines;
+my @words = $*PROGRAM.parent.child('pws/words.pws').IO.lines;
+my @code = $*PROGRAM.parent.child('pws/code.pws').IO.lines;
 
 my $header = @words.shift;
 
-is($header, 'personal_ws-1.1 en 0 utf-8', "header on xt/words.pws is correct");
+is($header, 'personal_ws-1.1 en 0 utf-8', "header on xt/pws/words.pws is correct");
 
 sub sorted(@lexicon) {
     return [&&] @lexicon.rotor(2 => -1).map({$_[0] lt $_[1]})
 }
 
-ok(sorted(@words), "xt/words.pws is sorted");
-ok(sorted(@code), "xt/code.pws is sorted");
+ok(sorted(@words), "xt/pws/words.pws is sorted");
+ok(sorted(@code), "xt/pws/code.pws is sorted");
 
 my @dupes = @words.Set ∩ @code.Set;
 
-is(~@dupes, "", "No duplicates between xt/words.pws and xt/code.pws");
+is(~@dupes, "", "No duplicates between xt/pws/words.pws and xt/pws/code.pws");
 
 # are all the words lower case?
 # (ignore some unicode that aspell doesn't case fold as well as we do.
@@ -40,10 +40,10 @@ sub get-uppers(@lexicon) {
 }
 
 my $uppers = get-uppers(@words);
-is($uppers.elems, 0, "all words in xt/words.pws are lowercase");
+is($uppers.elems, 0, "all words in xt/pws/words.pws are lowercase");
 diag $uppers if $uppers.elems;
 
 $uppers = get-uppers(@code);
-is($uppers.elems, 0, "all words in xt/code.pws are lowercase");
+is($uppers.elems, 0, "all words in xt/pws/code.pws are lowercase");
 diag $uppers if $uppers.elems;