X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/d5bb14b29d37e8fdd1e4f7b44f7b548d4d0ad74d..aae69dfcf69ae9825f53f670aa09691934fc27ba:/digraphs.plp

diff --git a/digraphs.plp b/digraphs.plp
index 02fcbc5..c5184a4 100644
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -2,6 +2,7 @@
 use utf8;
 use strict;
 use warnings;
+no  warnings 'qw';  # to quote or not to quote, that is the question
 use open IO => ':utf8';
 
 our $VERSION = '1.0';
@@ -24,6 +25,9 @@ $header{content_type} = 'text/html; charset=utf-8';
 <p>i^k in <a href="/">Vim</a>.
 Also see <a href="/unicode">common digraphs</a>.</p>
 
+<p style="font-size:72%">Unofficial <span class="Xz">proposals</span>
+are available as <a href="/digraphs.vim">ex commands</a>.</p>
+
 <:
 my $di = do 'digraphs.inc.pl';
 
@@ -41,7 +45,7 @@ my @chars = (
 	['A'..'M'], ['N'..'Z'],
 	['a'..'m'], ['n'..'z'],
 );
-my @chars2 = (@chars, ['_']);  # trailing character (extended set)
+my @chars2 = (['_'], @chars);  # trailing character (extended set)
 
 print '<table><col>';
 print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
@@ -109,7 +113,6 @@ print "</table>\n";
 	<td class="X">unicode
 	<td class="X Xl">latin1
 	<td class="X Xa">ascii
-	<td class="X Co">private
 	<td class="X Xz">proposed
 	</table>
 </div>