hidden digraph entries for common character details
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 20 Apr 2009 17:52:09 +0000 (17:52 +0000)
committerMischa POSLAWSKY <perl@shiar.org>
Wed, 22 Apr 2009 00:01:21 +0000 (00:01 +0000)
Prepare fake digraphs with $ prepended for non-digraph pages.

base.css
rfc1345convert
shiar.inc.txt

index 30b38461aed7090990e0e0b877a96daa5edb4fca..4d0676b4272e00a37fdf7d5926494bca1c0dbfac 100644 (file)
--- a/base.css
+++ b/base.css
@@ -275,11 +275,11 @@ td.Nd, td.Nl, td.No        {background: #FDD} /* number */
 td.Sc                      {background: #FCD} /* currency */
 td.Sm                      {background: #ECE} /* math */
 td.So                      {background: #DCF} /* symbol */
 td.Sc                      {background: #FCD} /* currency */
 td.Sm                      {background: #ECE} /* math */
 td.So                      {background: #DCF} /* symbol */
-td.Cf, td.Pd, td.Po        {background: #CDF} /* punctuation */
+td.Pd, td.Po, td.Pc        {background: #CDF} /* punctuation */
 td.Ps, td.Pe, td.Pi, td.Pf {background: #BEF} /* quote */
 td.Lm, td.Sk               {background: #CEE} /* spacing modifier */
 td.Mn                      {background: #ACC} /* modifier */
 td.Ps, td.Pe, td.Pi, td.Pf {background: #BEF} /* quote */
 td.Lm, td.Sk               {background: #CEE} /* spacing modifier */
 td.Mn                      {background: #ACC} /* modifier */
-td.Cc         {color: #666; background: #BBB} /* control */
+td.Cc, td.Cf  {color: #666; background: #BBB} /* control */
 td.Zs                      {background: #ACB} /* space */
 td.Zs span                 {background: #EEE}
 td.Co                      {background: #A99} /* private */
 td.Zs                      {background: #ACB} /* space */
 td.Zs span                 {background: #EEE}
 td.Co                      {background: #A99} /* private */
@@ -317,12 +317,12 @@ td.Nd:hover, td.Nl:hover, td.No:hover              {background: #F99} /* number
 td.Sc:hover                                        {background: #F8C} /* currency */
 td.Sm:hover                                        {background: #F8F} /* math */
 td.So:hover                                        {background: #A8F} /* symbol */
 td.Sc:hover                                        {background: #F8C} /* currency */
 td.Sm:hover                                        {background: #F8F} /* math */
 td.So:hover                                        {background: #A8F} /* symbol */
-td.Cf:hover, td.Pd:hover, td.Po:hover              {background: #8AF} /* punctuation */
+td.Pd:hover, td.Po:hover, td.Pc:hover              {background: #8AF} /* punctuation */
 td.Ps:hover, td.Pe:hover, td.Pi:hover, td.Pf:hover {background: #8DF} /* quote */
 td.Lm:hover, td.Sk:hover                           {background: #BFF} /* spacing modifier */
 td.Mn:hover                                        {background: #CDE} /* modifier */
 td.Zs:hover                                        {background: #CED} /* space */
 td.Ps:hover, td.Pe:hover, td.Pi:hover, td.Pf:hover {background: #8DF} /* quote */
 td.Lm:hover, td.Sk:hover                           {background: #BFF} /* spacing modifier */
 td.Mn:hover                                        {background: #CDE} /* modifier */
 td.Zs:hover                                        {background: #CED} /* space */
-td.Cc:hover                                        {background: #DDD} /* control */
+td.Cc:hover, td.Cf:hover                           {background: #DDD} /* control */
 td.Co:hover                                        {background: #A77} /* private */
 td.Xr:hover                                        {background: #FFF} /* reserved */
 td.Xa:hover {outline: 1px solid #0F0} /* ascii */
 td.Co:hover                                        {background: #A77} /* private */
 td.Xr:hover                                        {background: #FFF} /* reserved */
 td.Xa:hover {outline: 1px solid #0F0} /* ascii */
index f93275348360e0970948d38a731513efc64dea17..4fd3940d011a212a2a53c0b7eb600ff22de74573 100755 (executable)
@@ -2,6 +2,7 @@
 
 use strict;
 use warnings;
 
 use strict;
 use warnings;
+use utf8;
 
 use open OUT => ':utf8', ':std';
 use Data::Dumper;
 
 use open OUT => ':utf8', ':std';
 use Data::Dumper;
@@ -109,7 +110,7 @@ my @extra;
 if (-r 'shiar.inc.txt') {
        open my $include, '<:utf8', 'shiar.inc.txt';
        for (readline $include) {
 if (-r 'shiar.inc.txt') {
        open my $include, '<:utf8', 'shiar.inc.txt';
        for (readline $include) {
-               m{^([!"%'-Z_a-z]{2}) (.)} or next;
+               m{^(\$?[!"%'-Z_a-z]{2}) (.)} or next;
                warn("$1 already defined"), next if defined $di{$1};
                $di{$1} = ord $2;
                push @extra, $1;
                warn("$1 already defined"), next if defined $di{$1};
                $di{$1} = ord $2;
                push @extra, $1;
@@ -149,6 +150,10 @@ for (keys %di) {
        # show descriptive symbols instead of control chars themselves
        $info{$_}->{string} = $di{$_} < 32 ? chr($di{$_} + 0x2400) : chr(0xFFFD);
 }
        # show descriptive symbols instead of control chars themselves
        $info{$_}->{string} = $di{$_} < 32 ? chr($di{$_} + 0x2400) : chr(0xFFFD);
 }
+# presentational string for some control(lish) entries
+$info{$_}->{string} = '-' for grep { $di{$_} == 0x00AD } keys %di;
+$info{$_}->{string} = '→' for grep { $di{$_} == 0x200E } keys %di;
+$info{$_}->{string} = '←' for grep { $di{$_} == 0x200F } keys %di;
 
 # convert info hashes into arrays of strings to output in display order
 for my $row (values %info) {
 
 # convert info hashes into arrays of strings to output in display order
 for my $row (values %info) {
index 22db94111acedce4ab7e552630571fc4c3c70425..5b9f181e8ed8d52df1500621ef41393091b3fb3e 100644 (file)
@@ -388,3 +388,70 @@ oK ㅛ
 eK ㅕ
 EK ㅖ
 
 eK ㅕ
 EK ㅖ
 
+###
+# under development or temporary
+
+# incompatible
+$PR ► # current PR should be TR
+$PL ◄ # current PL should be TL
+$'> ˆ # where to put ^?
+$'? ˜ # where to put ~?
+$?' ΄ # tonos
+$?" ΅ # tonos+dialytika
+$!: ῏ # psili+peris
+$?, ῞ # dasia+oxia
+$,! ῝ # dasia+varia
+$,' ῾ # dasia
+$;! ῍ # psili+varia
+$;' ᾿ # psili
+$?: ῟ # dasia+peris
+$?; ῎ # psili+oxia
+
+# undecided
+$!D ‼ # !! in use
+$<> ♦
+$ud ↨ # UD with base
+$FS   # figure space
+$!o ϕ # Ph?
+$D= ₯
+$,i ͺ # spacing iota subscript
+$vv װ
+$vy ױ
+$yy ײ
+$g1 ׳
+$g2 ״
+$lr ‎
+$rl ‏
+$zw ‍
+
+# rfc (incorrectly?) maps double to heavy
+$vL ╡
+$Vl ╢
+$Dl ╖
+$dL ╕
+$VL ╣
+$VV ║
+$DL ╗
+$UL ╝
+$Ul ╜
+$uL ╛
+$vR ╞
+$Vr ╟
+$UR ╚
+$DR ╔
+$UH ╩
+$DH ╦
+$VR ╠
+$HH ═
+$VH ╬
+$uH ╧
+$Uh ╨
+$dH ╤
+$Dh ╥
+$Ur ╙
+$uR ╘
+$dR ╒
+$Dr ╓
+$Vh ╫
+$vH ╪
+