added swedish keyboard

1 files changed, 24 insertions, 24 deletions

diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 248c095ba..514f87e64 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -22,43 +22,43 @@ my %lang2keyboard =
 # [1] = name for loadkeys, [2] = extension for Xmodmap
 my @fields =
 my %keyboards = (
+# armenian xmodmap have to be checked...
+# "am" => [ __("Armenian"),       "am-armscii8",  "am" ],
  "be" => [ __("Belgian"),        "be-latin1",   "be" ],
  "bg" => [ __("Bulgarian"),      "bg",          "bg" ],
+ "cz" => [ __("Czech"),          "cz-latin2",   "cz" ],
+ "de" => [ __("German"),         "de-latin1",   "de" ],
+ "dk" => [ __("Danish"),         "dk-latin1",   "dk" ],
+"dvorak" => [ __("Dvorak"),      "dvorak",      "dvorak" ],
+ "fi" => [ __("Finnish"),        "fi-latin1",   "fi" ],
  "fr" => [ __("French"),         "fr-latin1",   "fr" ],
+# georgian keyboards have to be written...
+#"ge_ru"=>[__("Georgian (\"Russian\" layout)","ge_ru-georgian_academy","ge_ru"],
+#"ge_la"=>[__("Georgian ("\Latin\" layout)","ge_la-georgian_academy","ge_ru"], 
  "gr" => [ __("Greek"),          "gr-8859_7",   "gr" ],
- "pt" => [ __("Portuguese"),     "pt-latin1",   "pt" ],
-# the xmodmap.pl has to be fixed to use latin2 keymaps
-# "pl" => [ __("Polish"),         "pl-latin2",   "pl" ],
- "sk" => [ __("Slovakian"),      "sk-latin2",   "sk" ],
  "hu" => [ __("Hungarian"),      "hu-latin2",   "hu" ],
- "tr_f"  => [ __("Turkish (traditional \"F\" model)"), "tr_f-latin5", "tr_f" ],
- "tr_q" => [ __("Turkish (modern \"Q\" model)"), "tr_q-latin5", "tr_q" ],
- "cz" => [ __("Czech"),          "cz-latin2",   "cz" ],
- "qc" => [ __("Canadian (Quebec)"), "qc-latin1", "qc" ],
- "de" => [ __("German"),         "de-latin1",   "de" ],
  "il" => [ __("Israelian"),      "il-8859_8",   "il" ],
- "ru" => [ __("Russian"),        "ru-koi8",     "ru" ],
- "uk" => [ __("UK keyboard"),    "uk-latin1",   "uk" ],
- "us" => [ __("US keyboard"),    "us-latin",    "us" ],
- "dk" => [ __("Danish"),         "dk-latin1",   "dk" ],
  "is" => [ __("Icelandic"),      "is-latin1",   "is" ],
-"dvorak" => [ __("Dvorak"),      "dvorak",      "dvorak" ],
- "la" => [ __("Latin American"), "la-latin1",   "la" ],
  "it" => [ __("Italian"),        "it-latin1",   "it" ],
- "sf" => [ __("Swiss (french layout)"), "sf-latin1", "sf" ],
- "yu" => [ __("Yugoslavian (latin layout)"), "yu-latin2", "yu" ],
- "fi" => [ __("Finnish"),        "fi-latin1",   "fi" ],
+ "la" => [ __("Latin American"), "la-latin1",   "la" ],
  "nl" => [ __("Dutch"),          "nl-latin1",   "nl" ],
- "sg" => [ __("Swiss (german layout)"), "sg-latin1", "sg" ],
  "no" => [ __("Norwegian"),      "no-latin1",   "no" ],
+ "pl" => [ __("Polish"),         "pl-latin2",   "pl" ],
+ "pt" => [ __("Portuguese"),     "pt-latin1",   "pt" ],
+ "qc" => [ __("Canadian (Quebec)"), "qc-latin1","qc" ],
+ "ru" => [ __("Russian"),        "ru-koi8",     "ru" ],
+ "se" => [ __("Swedish"),        "se-latin1",   "se" ],  
+ "sf" => [ __("Swiss (french layout)"), "sf-latin1", "sf" ],
+ "sg" => [ __("Swiss (german layout)"), "sg-latin1", "sg" ],
  "si" => [ __("Slovenian"),      "si-latin1",   "si" ],
+ "sk" => [ __("Slovakian"),      "sk-latin2",   "sk" ],
 # the xmodmap.th has to be fixed to use tis620 keymaps
 # "th" => [ __("Thai keyboard"),  "th",          "th" ],
-# armenian xmodmap have to be checked...
-# "am" => [ __("Armenian"),       "am-armscii8",  "am" ],
-# georgian keyboards have to be written...
-#"ge_ru"=>[__("Georgian (\"Russian\" layout)","ge_ru-georgian_academy","ge_ru"],
-#"ge_la"=>[__("Georgian ("\Latin\" layout)","ge_la-georgian_academy","ge_ru"], 
+ "tr_f"  => [ __("Turkish (traditional \"F\" model)"), "tr_f-latin5", "tr_f" ],
+ "tr_q" => [ __("Turkish (modern \"Q\" model)"), "tr_q-latin5", "tr_q" ],
+ "uk" => [ __("UK keyboard"),    "uk-latin1",   "uk" ],
+ "us" => [ __("US keyboard"),    "us-latin",    "us" ],
+ "yu" => [ __("Yugoslavian (latin layout)"), "yu-latin2", "yu" ],
 );
 
 sub list { map { $_->[0] } values %keyboards }