keyboard/altgr/unigraph.eng.inc.pl

   1 use utf8;
   2 use strict;
   3 use warnings;
   4 use Shiar_Sheet::KeyboardChars 'kbchars';
   5
   6 my %rows = qw{
   7         +! 🐀 +@ 🐂 +# 🐅 +$ 🐇 +% 🐉 +^ 🐍 +& 🐎 +* 🐐 +( 🐒 +) 🐓 +_ 🐕 ++ 🐖
   8         +1 ♙  +2 ♖  +3 ♘  +4 ♗  +5 ♕  +6 ♔  +7 ♚  +8 ♛  +9 ♝  +0 ♞  +-  ♜ += ♟
   9
  10         $ ○ 4 ●  % □ 5 ■  ^ ☆ 6 ★  \{ ☓
  11         & ♠ * ♥ ( ♦ ) ♣
  12         - ☺ _ ☹ = ☻
  13         = ☼ + ☀
  14
  15         q ↖ w ↑ e ↗  Q ⇖ W ⇑ E ⇗  +q ◤ +w ▲ +e ◥  +Q ◸ +W △ +E ◹
  16         a ← s ↔ d →  A ⇐ S ⇔ D ⇒  +a ◀ +s ◆ +d ▶  +A ◁ +S ◇ +D ▷
  17         z ↙ x ↓ c ↘  Z ⇙ X ⇓ C ⇘  +z ◣ +x ▼ +c ◢  +Z ◺ +X ▽ +C ◿
  18         1 ⤡ 2 ↕ 3 ⤢  ! ◄ @ ⇕ # ►
  19
  20         r ┌ t ┬ y ┐  R ╔ T ╦ Y ╗
  21         f ├ g ┼ h ┤  F ╠ G ╬ H ╣
  22         v └ b ┴ n ┘  V ╚ B ╩ N ╝
  23         ' ─ \ │      " ═ | ║      +' ╌ +\ ╎  +" ┈ +| ┊
  24
  25         +r ╒ +R ╓ +t ╤ +T ╥ +y ╕ +Y ╖
  26         +f ╞ +F ╟ +g ╪ +G ╫ +h ╡ +H ╢
  27         +v ╘ +V ╙ +b ╧ +B ╨ +n ╛ +N ╜
  28
  29         > ▛ . ▘ , ▀ M ▜ m ▝
  30         l ▌ L ▚ k █ J ▞ j ▐  ; ▎ : ▊  +; 🮇 +: 🮊
  31         O ▙ o ▖ i ▄ U ▟ u ▗  / ▂ ? ▆  +/ 🮂 +? 🮅
  32         7 ░ 8 ▒ 9 ▓
  33         I 🮙 K 🮖 < 🮘
  34
  35         +i 🭯 +, 🭭 +j 🭮 +l 🭬  +[ 🮚 +k 🮛
  36         +u ╭ +o ╮ +m ╰ +. ╯
  37
  38         +U 🮣 +I 🮦 +O 🮢
  39         +J 🮥 +K 🮮 +L 🮤
  40         +M 🮡 +< 🮧 +> 🮠
  41         p ╱ [ ╳ ] ╲
  42         P 🮨 \} 🮩  +p 🮫 +] 🮪  +P 🮬 +\} 🮭
  43 };
  44 $rows{' '} = "\N{FIGURE SPACE}";
  45
  46 # remaining candidates: ┄┆ 🮗 🮕 ♤♧♡♢ ⚐⚑ ✓✔ ✗✘ ▬
  47
  48 my $groups = kbchars(\%rows);
  49
  50 use Encode 'decode';
  51 my %cpcompat = (
  52         # lower cp437 representations from charset-encoding excluding BEL/BS/CR/LF
  53         (map {$_ => 'g3'} split //, '☺☻♥♦♣♠○♂♀♫☼►◄↕‼¶§▬↨↑↓→←∟↔▲▼'),
  54         # upper characters converted to unicode
  55         (map {$_ => 'g4'} split //, decode('cp437', pack 'C*', 127..255)),
  56         (map {$_ => 'g2'} split //, decode('cp850', pack 'C*', 127..255)),
  57 );
  58
  59 while (my ($k, $c) = each %rows) {
  60         $groups->{def}{''}{$k} = $cpcompat{$c} // (
  61                 $c =~ /\p{In=1.1}/ ? 'g5' :
  62                 $c =~ /\p{In=6.0}/ ? 'g6' :
  63                 $c =~ /[\x{1FB00}-\x{1FBFF}]/ ? 'g7' : # Age=V13.0
  64                 'g0'
  65         );
  66 }
  67
  68 +{
  69         %{ $groups },
  70         version => '1.0',
  71         title => 'Unicode semigraphics',
  72         category => 'specialized',
  73         intro => join("\n",
  74                 sprintf('Keyboard mode to %s draw character graphics.',
  75                         '<span title="without requiring a specialised editor">manually</span>',
  76                 ),
  77                 'Inspired by <a href="/keyboard/altgr/msx-graph">MSX graph</a> mode,',
  78                 'but reimagined for modern Unicode coverage.',
  79         ),
  80         moderows => '5421-21',
  81         flag => {
  82                 g2 => ['cp850'    => 'shared international repetoire in most DOS code pages'],
  83                 g3 => ['historic' => 'extended graphics presentations of control characters in cp437 ea'],
  84                 g4 => ['cp437'    => '<em>ANSI art</em> drawing glyphs in English code page 437 (OEM-US)'],
  85                 g5 => ['standard' => 'gathered in the original Unicode release in 1993'],
  86                 g6 => ['extended' => 'later additions accumulated within a decade, mostly Unicode 3.2'],
  87                 g7 => ['rare'     => 'exceptional <em>symbols for legacy computing</em> in Unicode since <abbr title="Unicode 13.0">2020</abbr>'],
  88         },
  89 }