git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rfc1345convert: documentation and automatic download
[sheet.git]
/
digraphs.plp
diff --git
a/digraphs.plp
b/digraphs.plp
index 075a398ceb6bce8faf7b4424433e44a497f2557b..be33d63fe57546e26ca562a067620e618966dfd0 100644
(file)
--- a/
digraphs.plp
+++ b/
digraphs.plp
@@
-2,6
+2,7
@@
use utf8;
use strict;
use warnings;
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';
use open IO => ':utf8';
our $VERSION = '1.0';
@@
-21,6
+22,12
@@
$header{content_type} = 'text/html; charset=utf-8';
<body>
<h1>RFC-1345 Digraphs</h1>
<body>
<h1>RFC-1345 Digraphs</h1>
+<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';
<:
my $di = do 'digraphs.inc.pl';
@@
-38,19
+45,20
@@
my @chars = (
['A'..'M'], ['N'..'Z'],
['a'..'m'], ['n'..'z'],
);
['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 '<table
class="glyphs dimap"
><col>';
print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
-print "\n";
+print "
</colgroup><col>
\n";
for my $section (qw{thead tfoot}) {
for my $section (qw{thead tfoot}) {
- print "<$section><tr><th> ";
- print "<th>$_" for map {@$_} @chars2;
+ print "<$section><tr><th>↳";
+ print '<th>', quote($_) for map {@$_} @chars2;
+ print "<th> \n";
}
for my $c1group (@chars) {
print '<tbody>';
for my $c1 (@$c1group) {
}
for my $c1group (@chars) {
print '<tbody>';
for my $c1 (@$c1group) {
- print
"<tr><th>$c1"
;
+ print
'<tr><th>', quote($c1)
;
for my $c2 (map {@$_} @chars2) {
my $mnem = $c1 . $c2;
if (not defined $di->{$mnem}) {
for my $c2 (map {@$_} @chars2) {
my $mnem = $c1 . $c2;
if (not defined $di->{$mnem}) {
@@
-61,9
+69,9
@@
for my $c1group (@chars) {
printf '<td class="X Xr" title="%s">', quote($mnem);
next;
}
printf '<td class="X Xr" title="%s">', quote($mnem);
next;
}
- my ($codepoint, $name, $prop, $script) = @{ $di->{$mnem} };
+ my ($codepoint, $name, $prop, $script
, $string
) = @{ $di->{$mnem} };
- my $glyph = chr $codepoint;
+ my $glyph =
$string ||
chr $codepoint;
utf8::upgrade($glyph); # prevent latin1 output
my $desc = $mnem . ($name && " ($name)");
my @class = ('X', grep {$_} $prop, $script);
utf8::upgrade($glyph); # prevent latin1 output
my $desc = $mnem . ($name && " ($name)");
my @class = ('X', grep {$_} $prop, $script);
@@
-74,13
+82,13
@@
for my $c1group (@chars) {
printf "\n".'<td class="%s" title="%s">%s',
join(' ', @class), quote($desc), $glyph;
}
printf "\n".'<td class="%s" title="%s">%s',
join(' ', @class), quote($desc), $glyph;
}
- print "\n<th>
$c1
\n";
+ print "\n<th>
", quote($c1), "
\n";
}
}
print "</table>\n";
:>
<div id="legend">
}
}
print "</table>\n";
:>
<div id="legend">
- <table><tr>
+ <table
class="glyphs"
><tr>
<td class="X Cc">control
<td class="X Zs"><span>spacing</span>
<td class="X Mn">modifier
<td class="X Cc">control
<td class="X Zs"><span>spacing</span>
<td class="X Mn">modifier
@@
-96,21
+104,21
@@
print "</table>\n";
<td class="X Latin">latin
<td class="X Hebrew">hebrew
<td class="X Arabic">arabic
<td class="X Latin">latin
<td class="X Hebrew">hebrew
<td class="X Arabic">arabic
+ <td class="X Hangul">korean
<td class="X Hiragana">japanese
<td class="X Bopomofo">chinese
</table>
<td class="X Hiragana">japanese
<td class="X Bopomofo">chinese
</table>
- <table><tr>
+ <table
class="glyphs"
><tr>
<td class="X">unicode
<td class="X Xl">latin1
<td class="X Xa">ascii
<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>
<p id="footer">
<td class="X Xz">proposed
</table>
</div>
<p id="footer">
- <a href="http://
vi.shiar.net/digraphs">vi.<strong>shiar.net</strong>/digraphs
</a>
+ <a href="http://
sheet.shiar.nl/digraphs">sheet.shiar.nl<strong>/digraphs</strong>
</a>
<a href="git://dev.shiar.net/vi-cheat"><:= "v$VERSION" :></a>
created by Shiar •
<a title="Licensed under the GNU Affero General Public License, version 3"
<a href="git://dev.shiar.net/vi-cheat"><:= "v$VERSION" :></a>
created by Shiar •
<a title="Licensed under the GNU Affero General Public License, version 3"