Changes to the spell check test so that all files can be checked which has led eventually to a change in the installation instructions to allow for local spell check. *Warning* this commit is not checked since I'm (still) flying

Author: JJ

INSTALL.md

@@ -25,30 +25,42 @@ If you don't have, or don't want to have, perlbrew do basically the same with su
 > ln -s git-hooks.pl post-commit
 which will get you automatic sync with GitHub pages. 
 
-
 7. Get a [Travis account](http://travis-ci.org)  and activate the
 service hook for your project. We are going to use this for
-spell-check
+spell-check.
+
+8. If you want to spell-check also in your own computer (hey, you can
+be in a plane and offline) you'll have to install also the Hunspell
+spell checker. You can do it following the instructions in [the Travis
+conf file](.travis.yml) (hey, if it's good enough for Travis, it must
+be good enough for you), that is:
+> sudo apt-get install libhunspell-1.3-0 hunspell-en-us libhunspell-dev
+And then the modules mentioned in [the module
+Makefile.PL](Makefile.PL), that is
+> cpan Text::Hunspell
+> cpan Lingua::EN::Fathom
+with the obvious *sudo* in front if you don't use perlbrew.
 
-8. Edit (text/words.dic) for the specific words in your novel that
+9. Edit (text/words.dic) for the specific words in your novel that
 should pass the spell check, but do not. Remember that the first line
 contains the number of words.
 
-9. There's a shortcut that processed the dictionary and does commit
+10. There's a shortcut that processed the dictionary and does commit
 and push for you, it's at text/commit.pl. You can use it cirectly or
 do
 > ln -s text/commit.pl c 
 Remember always to chmod +x commit.pl
 
-10. That's it. If you find trouble along the way, just let me know by
+11. That's it, 10 points of it all. If you find trouble along the way, just let me know by
 raising  [an issue](https://github.com/JJ/hoborg/issues)
 
 Troubleshooting
 ---------------
 
-Remember that with the post-commit hook you'll be doing push in two
+Remember that with the post-commit hook you have installed you'll be
+doing push in two 
 branches at the same time. If you fall behind in a local installation,
-you have to checkout and pull in both; you can't just do a git pull
+you will have to checkout and pull in both; you can't just do a git pull
 since you'll be doing it only on the current branch. Do 
 > git pull
 > git checkout gh-pages

TODO.md

@@ -26,5 +26,6 @@ Web and presentation
 The setup
 ---------
 
+- Install Text::Hunspell on the laptop.
 - Check the possibility of having the text annotated with commit comments and publish it automatically.  
 - Install in laptop and create an easy installer.

Text-Hoborg/lib/Text/Hoborg.pm

@@ -5,14 +5,9 @@ use strict;
 use Carp;
 use File::Slurp 'read_file';
 
-use version; our $VERSION = qv('0.0.3');
-
-# Other recommended modules (uncomment to use):
-#  use IO::Prompt;
-#  use Perl6::Export;
-#  use Perl6::Slurp;
-#  use Perl6::Say;
+use version; our $VERSION = qv('0.0.4');
 
+our @appendices = qw(characters.md); #auxiliary and additional files
 
 # Module implementation here
 sub new {
@@ -21,7 +16,14 @@ sub new {
   my $text_file = "$dir/text.md";
   my $text = read_file($text_file);
   my $self = { _text => $text,
-	       _text_file => $text_file };
+	       _text_file => $text_file,
+	       _appendices => {} 
+  };
+  for my $a (@appendices ) {
+      $text_file = "$dir/$a";
+      $text = read_file($text_file);
+      $self->{'_appendices'}{$a} = $text;
+  }
   bless  $self, $class;
   return $self;
 }
@@ -36,7 +38,13 @@ sub text_file {
   return $self->{'_text_file'};
 }
 
-1; # Magic true value required at end of module
+sub appendices {
+    return $self->{'_appendices'};
+}
+
+
+"All over, all out, all over and out"; # Magic circus phrase
+
 __END__
 
 =head1 NAME

Text-Hoborg/t/00.load.t

@@ -26,7 +26,16 @@ my @words = split /\s+/, $hoborg->text;
 
 for my $w (@words) {
   my ($stripped_word) = ( $w =~ /([\w\'áéíóúÁÉÍÓÚñÑ]+)/ );
-  ok( $speller->check( $stripped_word), "Checking $stripped_word")   if ( $stripped_word ) ;
+  ok( $speller->check( $stripped_word), "Checking $stripped_word in text")   if ( $stripped_word ) ;
 }
+
+for my $a (keys %{$hoborg->appendices()}) {
+  @words = split /\s+/, $hoborg->appendices()->{$a};
+  for my $w (@words) {
+    ($stripped_word) = ( $w =~ /([\w\'áéíóúÁÉÍÓÚñÑ]+)/ );
+    ok( $speller->check( $stripped_word), "Checking $stripped_word in $a") if ( $stripped_word ) ;
+  }
+}
+
 done_testing();