diff options
Diffstat (limited to 'perl-install/keyboard.pm')
| -rw-r--r-- | perl-install/keyboard.pm | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm index fad61f667..8bd75bbf3 100644 --- a/perl-install/keyboard.pm +++ b/perl-install/keyboard.pm @@ -1,14 +1,21 @@ + package keyboard; use diagnostics; use strict; +#-###################################################################################### +#- misc imports +#-###################################################################################### use common qw(:common :system :file); use run_program; use log; use c; +#-###################################################################################### +#- Globals +#-###################################################################################### my $KMAP_MAGIC = 0x8B39C07F; my %lang2keyboard = @@ -16,9 +23,6 @@ my %lang2keyboard = "en" => "us", ); -1; - - # [1] = name for loadkeys, [2] = extension for Xmodmap my %keyboards = ( # armenian xmodmap have to be checked... @@ -60,6 +64,9 @@ my %keyboards = ( "yu" => [ __("Yugoslavian (latin layout)"), "yu-latin2", "yu" ], ); +#-###################################################################################### +#- Functions +#-###################################################################################### sub list { map { $_->[0] } values %keyboards } sub xmodmaps { map { $_->[2] } values %keyboards } sub keyboard2text { $keyboards{$_[0]} && $keyboards{$_[0]}[0] } @@ -142,3 +149,8 @@ sub read($) { } die "empty keyboard configuration file"; } + +#-###################################################################################### +#- Wonderful perl :( +#-###################################################################################### +1; # |