diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 11 |
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; |