From 54851da77809298d94bdb6d75f27541c4bcabd77 Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Sun, 11 Mar 2018 11:17:40 +0000
Subject: Add minimal Live ISO example.

---
 examples/minimal/files/set-lang-kbd | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 examples/minimal/files/set-lang-kbd

(limited to 'examples/minimal/files/set-lang-kbd')

diff --git a/examples/minimal/files/set-lang-kbd b/examples/minimal/files/set-lang-kbd
new file mode 100755
index 0000000..bcec647
--- /dev/null
+++ b/examples/minimal/files/set-lang-kbd
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+use lib qw(/usr/lib/libDrakX);
+
+use common;
+use do_pkgs;
+use lang;
+use keyboard;
+
+my $do_pkgs = do_pkgs::do_pkgs;
+
+my $locale = lang::read();
+my ($lang) = cat_("/proc/cmdline") =~ /\blang=(\w+?)\b/;
+my $h = lang::lang_to_ourlocale($lang);
+if ($lang && member($h->{lang}, lang::list_langs(exclude_non_installed => 1))) {
+    put_in_hash($locale, $h);
+    lang::set($locale);
+}
+lang::write_and_install($locale, $do_pkgs);
+
+my $keyboard = $locale ? keyboard::lang2keyboard($locale->{lang}) : keyboard::read_or_default();
+my ($kbd) = cat_("/proc/cmdline") =~ /\bkbd=(\w+?)\b/;
+$keyboard->{KEYBOARD} = $kbd if $kbd;
+keyboard::configure_and_set_standalone($keyboard);
-- 
cgit v1.2.1