X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=speller%2Fadd-no-suggest;fp=speller%2Fadd-no-suggest;h=f3bea697df55b10595a48a1e84d1ba28953799c2;hb=b13ea8a082364672c6de2b010e558211ff52ec9a;hp=0000000000000000000000000000000000000000;hpb=01534a94130c1f5a3a230cf4fe18365a235ba271;p=deb_pkgs%2Fscowl.git

diff --git a/speller/add-no-suggest b/speller/add-no-suggest
new file mode 100755
index 0000000..f3bea69
--- /dev/null
+++ b/speller/add-no-suggest
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+while (<>) {
+  chop;
+  my ($w, $a) = split /\//;
+  $a .= '!';
+  print "$w";
+  print "/$a" if length($a) > 0;
+  print "\n";
+}