keyboard/altgr/spacecadet.eng.inc.pl

   1 use utf8;
   2 use strict;
   3 use warnings;
   4 use Shiar_Sheet::KeyboardChars 'kbchars';
   5
   6 my %rows = (
   7         'q' => '∧',
   8         'w' => '∨',
   9         'e' => '∩',
  10         'r' => '∪',
  11         't' => '⊂',
  12         'y' => '⊃',
  13         'u' => '∀',
  14         'i' => '∞',
  15         'o' => '∃',
  16         'p' => '∂',
  17
  18         'a' => '⊥',
  19         's' => '⊤',
  20         'd' => '⊢',
  21         'f' => '⊣',
  22         'g' => '↑',
  23         'h' => '↓',
  24         'j' => '←',
  25         'k' => '→',
  26         'l' => '↔',
  27
  28         'z' => '⌊',
  29         'x' => '⌈',
  30         'c' => '≠',
  31         'v' => '≃',
  32         'b' => '≡',
  33         'n' => '≤',
  34         'm' => '≥',
  35         #',' => '<', # just shifted
  36         #'.' => '>',
  37         #'/' => '?',
  38
  39         '+:' => '⋄', # positioned left of 1, also drawn as §-ish
  40         '+1' => '†',
  41         '+2' => '‡',
  42         '+3' => '∇',
  43         '+4' => '¢',
  44         '+5' => '∘',
  45         '+6' => '⎕', # or ⌷
  46         '+7' => '÷',
  47         '+8' => '×',
  48         '+9' => '¶',
  49         '+0' => '○',
  50         '+-' => '¯',
  51         '+=' => '≈',
  52
  53         '+q' => 'θ',
  54         '+w' => 'ω',
  55         '+e' => 'ε',
  56         '+r' => 'ρ',
  57         '+t' => 'τ',
  58         '+y' => 'ψ',
  59         '+u' => 'υ',
  60         '+i' => 'ι',
  61         '+o' => 'ο',
  62         '+p' => 'π',
  63         '+[' => '⟦', # separate keys ([ and {<
  64         '+]' => '⟧', # )] and }> ⟨⟩
  65         '+`' => '¬', # positioned between ] and \
  66         '+\\'=> '∥',
  67
  68         '+a' => 'α',
  69         '+s' => 'σ',
  70         '+d' => 'δ',
  71         '+f' => 'φ', # drawn like ø
  72         '+g' => 'γ',
  73         '+h' => 'η',
  74         '+j' => 'ϑ', # probably
  75         '+k' => 'κ',
  76         '+l' => 'λ',
  77         '+;' => '¨',
  78         "+'" => '·', # ambiguous dot (visually raised •)
  79
  80         '+z' => 'ζ',
  81         '+x' => 'ξ',
  82         '+c' => 'χ',
  83         '+v' => 'ς', # likely
  84         '+b' => 'β',
  85         '+n' => 'ν',
  86         '+m' => 'μ',
  87         '+,' => '≪',
  88         '+.' => '≫',
  89         '+/' => '∫',
  90 );
  91
  92 my $groups = kbchars(\%rows);
  93 $rows{$_} =~ /\A\p{Greek}/ and $groups->{def}{''}{$_} =~ s/g6/g5/ for map {"+$_"} 'a'..'z';
  94 $groups->{flag}{g4} = ['similar', 'transliterates or transcribes an expected letter'];
  95 $groups->{flag}{g5} = ['greek', 'different Greek letters or symbols'];
  96
  97 +{
  98         %{$groups},
  99         version => '1.1',
 100         title => 'Space Cadet',
 101         category => 'legacy',
 102         intro => join("\n",
 103                 'Apparent <a href="/charset">glyphs</a> available',
 104                 'on the 1978 (later Symbolics) Space Cadet keyboard',
 105                 'by pressing either the <em>Greek/Front</em> or <em>Top</em> key.',
 106                 'Distinct from the modern <a href="/keyboard/altgr/apl">IBM standard</a>',
 107                 'for <a href="/apl">APL</a> programming.',
 108         ),
 109         description => [
 110                 'A map of the legendary Space Cadet keyboard',
 111                 'with Unicode characters of all greek and APL options.',
 112         ],
 113         rows => [3, 0], # greek/front and top
 114         moderows => '41-4',
 115         image => 'data/keyboard/thumb/spacecadet.jpg',
 116         imagealt => 'Many modifier keys on a traditional Symbolics Space Cadet keyboard',
 117 }