keyboard/altgr/unigraph.eng.inc.pl

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