Merge pull request #66 from algernon/f/gen-keymap/macro-support

generate_keymaps: Don't prepend Key_ to everything
pull/72/head
Jesse Vincent 8 years ago committed by GitHub
commit 15e9be25bb

@ -15,7 +15,7 @@ for my $line (@data) {
}
my @keys = split(/\s+/, $line);
push @map, join(', ', map{ 'Key_'.lookup($_).'' } @keys);
push @map, join(', ', map{ ''.lookup($_).'' } @keys);
}
print "#define KEYMAP_$name { /* Generated keymap for $name */ ";
@ -27,23 +27,24 @@ print "},\n";
sub lookup {
my %table = (
'{' => 'LCurlyBracket',
'}' => 'RCurlyBracket',
'['=> 'LSquareBracket',
']'=> 'RSquareBracket',
'|'=> 'Pipe',
'\\' => 'Backslash',
';' => 'Semicolon',
',' => 'Comma',
'.' => 'Period',
'/' => 'Slash',
"'" => 'Quote',
'`' => 'Backtick',
'-' => 'Minus',
'=' => 'Equals');
'{' => 'Key_LCurlyBracket',
'}' => 'Key_RCurlyBracket',
'['=> 'Key_LSquareBracket',
']'=> 'Key_RSquareBracket',
'|'=> 'Key_Pipe',
'\\' => 'Key_Backslash',
';' => 'Key_Semicolon',
',' => 'Key_Comma',
'.' => 'Key_Period',
'/' => 'Key_Slash',
"'" => 'Key_Quote',
'`' => 'Key_Backtick',
'-' => 'Key_Minus',
'=' => 'Key_Equals');
my $x = shift;
return $x unless defined $table{$x};
return $x if $x =~ /\(.*\)/;
return 'Key_'.$x unless defined $table{$x};
return $table{$x};
}

Loading…
Cancel
Save