'|' => "\x{2309}",
);
+my $groups = kbchars(\%rows);
+$groups->{flag}{g5} = [greek =>
+ "a different greek letter not corresponding with latin transcription"
+];
+while (my ($key, $chr) = each %rows) {
+ $groups->{def}{''}{$key}[0] =~ s/g6/g5/ if $chr =~ /\A\p{Greek}/;
+}
+
+{
- %{ kbchars(\%rows) },
- version => '1.0',
+ %{$groups},
+ version => '1.1',
title => 'US Symbolics',
- category => 'specialised/greek',
+ category => 'specialised/greek/xorg',
intro => join("\n",
"A US English extension providing scientific",
'<a href="/unicode">Unicode</a> characters while pressing AltGr,',