X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b5b3537710ed9f73e1c867e0cc27d50439eaf4cd..9ae15ec3a7007abdd580cd30e4d9e9fbb47628da:/tools/mkdigraphlist

diff --git a/tools/mkdigraphlist b/tools/mkdigraphlist
index fa67418..d50f7b5 100755
--- a/tools/mkdigraphlist
+++ b/tools/mkdigraphlist
@@ -141,6 +141,9 @@ for (keys %di) {
 }
 # presentational string for some control(lish) entries
 $info{$_}->{string} = '-' for grep { $di{$_} == 0x00AD } keys %di;
+$info{$_}->{string} = '␣' for grep { $di{$_} == 0x200B } keys %di;
+$info{$_}->{string} = '|' for grep { $di{$_} == 0x200C } keys %di;
+$info{$_}->{string} = '⁀' for grep { $di{$_} == 0x200D } keys %di;
 $info{$_}->{string} = '→' for grep { $di{$_} == 0x200E } keys %di;
 $info{$_}->{string} = '←' for grep { $di{$_} == 0x200F } keys %di;
 
@@ -153,6 +156,7 @@ for my $row (values %info) {
 
 # output perl code of hash
 # (assume no backslashes or curlies, so we can just q{} w/o escaping)
+print "use utf8;\n";
 print "+{\n";
 printf '(map {$_=>0} qw{%s}),'."\n", join(' ',
 	map { substr($_, 1, 1).substr($_, 0, 1) } sort keys %di