From 4ed40cad555bb1bd5d76b5a59f5d986cb4b58754 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Fri, 1 Aug 2008 22:11:45 +0000 Subject: [PATCH] digraphs page A simple table showing the resulting character of every possible digraph key combination, making an excellent cheat cheat for vim's i^k. Actual contents is to follow. --- digraphs.inc.pl | 7 +++++ digraphs.plp | 81 +++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 88 insertions(+) create mode 100644 digraphs.inc.pl create mode 100644 digraphs.plp diff --git a/digraphs.inc.pl b/digraphs.inc.pl new file mode 100644 index 0000000..9960728 --- /dev/null +++ b/digraphs.inc.pl @@ -0,0 +1,7 @@ +use utf8; +{ + '!!' => ord '|', + '!0' => 9786, + 'AA' => ord 'â«', + 'aa' => ord 'Ã¥', +}; diff --git a/digraphs.plp b/digraphs.plp new file mode 100644 index 0000000..9a20f58 --- /dev/null +++ b/digraphs.plp @@ -0,0 +1,81 @@ +<: +use utf8; +use strict; +use warnings; +use open IO => ':utf8'; + +our $VERSION = '1.0'; + +$header{content_type} = 'text/html; charset=utf-8'; + +:> + + + +digraph cheat sheet + + + + + +

RFC-1345 Digraphs

+<: +my $di = do 'digraphs.inc.pl'; + +sub quote { + local $_ = shift; + s/"/"/g; + s//>/g; + return $_; +} + +my @chars = ((map {chr} ord '!' .. ord 'Z'), 'a'..'z'); +splice @chars, $_, 1, () for 2, 3-1, 5-2, 31-3; # remove character exceptions # $ & @ +print ''; +print ''; +for my $c1 (@chars) { + print "

'; +print "	$_" for @chars, '_'; +print '
$c1"; + for my $c2 (@chars, '_') { + my $mnem = $c1 . $c2; + if (not defined $di->{$mnem}) { + print '	'; + next; + } + my $chr = $di->{$mnem}; + + my @class = 'any'; + + printf '	%s', + join(' ', @class), quote($mnem), quote(chr $chr); + } + print "\n"; +} +print "

\n"; + -- 2.30.0