summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm11
1 files changed, 10 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 4615f2b74..d0e63cf03 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -666,6 +666,15 @@ sub setupBootloader__grub2 {
}
}
+sub adapt_desktop_for_plasma {
+ my ($desktop) = @_;
+ my %h = (
+ 'Plasma' => '01plasma',
+ 'GNOMEClassic' => 'gnome-classic',
+ );
+ $h{$desktop} ? $h{$desktop} . '.desktop' : lc("${desktop}.desktop");
+}
+
sub get_autologin() {
my %desktop = getVarsFromSh("$::prefix/etc/sysconfig/desktop");
my $gdm_file = "$::prefix/etc/X11/gdm/custom.conf";
@@ -728,7 +737,7 @@ sub set_autologin {
#- Configure SDDM
my $sddm_conffile = "$::prefix/etc/sddm.conf";
eval { common::update_gnomekderc_no_create($sddm_conffile, 'Autologin' => (
- Session => $autologin->{desktop},
+ Session => adapt_desktop_for_plasma($autologin->{desktop}),
User => $autologin->{user},
)) } if -e $sddm_conffile;