unicode.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => 'unicode glyph cheat sheet',
   5         version => 'v1.0',
   6         description => [
   7                 "Common Unicode characters with digraph or code point, layed out for quick location.",
   8                 "Includes general symbols, arrows, drawing characters, and IPA letters.",
   9         ],
  10         keywords => [qw'
  11                 unicode glyph char character reference common ipa symbol sign mark table digraph
  12         '],
  13         stylesheet => [qw'light dark mono circus red'],
  14         data => [qw'digraphs.inc.pl unicode.inc.pl'],
  15 });
  16
  17 :>
  18 <h1>Common Unicode</h1>
  19
  20 <p>
  21 Glyphs are followed by
  22 <a href="/digraphs">digraph</a> or <a href="/charset">code point</a>,
  23 i^k or i^vu respectively in <a href="/vi">Vim</a>.
  24 </p>
  25
  26 <div class="diinfo">
  27
  28 <:
  29 use 5.010;
  30 use Shiar_Sheet::FormatChar;
  31 my $glyphs = Shiar_Sheet::FormatChar->new;
  32
  33 if (exists $get{di}) {
  34         $glyphs->{anno} = (!defined $get{di} || $get{di}) && 'di';
  35         $glyphs->{unicode} = 1;
  36 }
  37 if (exists $get{q}) {
  38         $glyphs->{unicode} = -1;
  39         $glyphs->{anno} = 0;
  40 }
  41
  42 our $verbose = exists $get{v};
  43
  44 my $tables = do 'unicode.inc.pl' or die $@ || $!;
  45
  46 $glyphs->print(map {
  47         my $_ = /(.*)\?(.*)/ ? ($verbose ? $2 : $1) : $_;
  48         if (/[A-Z]/) {
  49                 $_;
  50         }
  51         else {
  52                 state $group;
  53                 $group = $1 if s{^([^/]+)/}{};
  54                 if (s/=(.*)//) {
  55                         my @select = split /=/, $1;
  56                         my $table = $tables->{$group}->{$_};
  57                         my $rowlen;
  58                         for ($rowlen = 1; $rowlen++; $rowlen <= $#$table) {
  59                                 last if $table->[$rowlen] =~ /\./;
  60                         }
  61                         my @cells = map { $_*$rowlen .. ($_+1)*$rowlen - 1 } @select;
  62                         [ @$table[@cells] ];
  63                 }
  64                 else {
  65                         $tables->{$group}->{$_};
  66                 }
  67         }
  68 } qw{
  69         Popular
  70                 punctuation/quoting
  71                         common
  72                 symbols/binary?symbols/binary=0
  73                 latin/sample=0=1
  74                         sample=2=3
  75                         ?uncommon
  76                 punctuation/version
  77                 punctuation/marks
  78         Symbols
  79                 symbols/currency
  80                         cards
  81                         ?chess
  82                         signs1
  83                         communic=0?communic
  84                         trinity=0?trinity
  85                         signs2
  86         Signs
  87                         solar
  88                         zodiac=0?zodiac
  89         Key commands
  90                 keys/spacing
  91                         editing
  92                         modifier
  93                         control
  94                         command
  95                         ?player
  96         Arrows
  97                 arrows/single
  98                         double
  99                         white
 100                         black
 101                         block
 102                         blacktri
 103                         whitetri
 104                         ?-large
 105                         ?-heavy
 106         Line drawing
 107                 lines/double
 108                         doubleh
 109                         doublev
 110                         single
 111                         heavy
 112                         heavyh
 113                         heavyv
 114                         straight
 115                         curved
 116                         diagonal
 117         Blocks
 118                 block/square
 119                         shades
 120                         fill4
 121                         fill4i
 122                         fill8
 123         IPA
 124                 ipa/cons
 125                         consco
 126                         vowels
 127         ?Japanese
 128                 ?japanese/hira
 129                         ?hiraderiv
 130                         ?kata
 131                         ?kataderiv
 132 });
 133
 134 :></div>
 135
 136 <div class="legend">
 137         <table class="glyphs"><tr>
 138         <td class="X l4">ascii
 139         <td class="X l3"><:= $glyphs->{style} eq 'di' ? 'digraph' : 'latin1' :>
 140         <td class="X l2"><:= $glyphs->{style} eq 'di' ? 'proposed' : 'BMP' :>
 141         <td class="X l1">other unicode
 142         <td class="X ex">discouraged
 143         </table>
 144 </div>
 145
 146 <script type="text/javascript" src="/clipboard.js"></script>
 147