diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-05-02 08:37:11 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-05-04 11:52:34 +0200 |
| commit | 671171d1c00ad62e761b7dfcf4bd99187c01a7d4 (patch) | |
| tree | 227883d4c3d2ed6b345738ac006cad621fd9d015 /perl-install | |
| parent | 92504a69d308fdc485a71ee08dd84f7a7d696d13 (diff) | |
| download | drakx-671171d1c00ad62e761b7dfcf4bd99187c01a7d4.tar drakx-671171d1c00ad62e761b7dfcf4bd99187c01a7d4.tar.gz drakx-671171d1c00ad62e761b7dfcf4bd99187c01a7d4.tar.bz2 drakx-671171d1c00ad62e761b7dfcf4bd99187c01a7d4.tar.xz drakx-671171d1c00ad62e761b7dfcf4bd99187c01a7d4.zip | |
pretty format
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 0fbe7e0a6..e71132b69 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -989,6 +989,25 @@ sub urpmi_add_all_media { $val; } +sub format_wm { + my ($wm) = @_; + return { + cinnamon => 'Cinnamon', + enlightenment => 'Enlightenment', + 'gnome-classic' => 'Gnome Classic', + gnome => 'Gnome', + i3 => 'I3', + 'i3-with-shmlog' => 'I3 with shmlog', + lxqt => 'LxQt', + mate => 'Mate', + openbox => 'OpenBox', + 'plasma-mediacenter' => 'Plasma Mediacenter', + '01plasma' => 'Plasma', + sugar => 'Sugar', + xfce => 'XFCE', + }->{$wm}; +} + sub autologin { my ($o, $in) = @_; @@ -1007,7 +1026,7 @@ sub autologin { messages => N("I can set up your computer to automatically log on one user.") }, [ { text => N("Use this feature"), val => \$use_autologin, type => 'bool' }, { label => N("Choose the default user:"), val => \$o->{autologin}, list => \@users, disabled => sub { !$use_autologin } }, - { label => N("Choose the window manager to run:"), val => \$o->{desktop}, list => \@wm, disabled => sub { !$use_autologin } } ] + { label => N("Choose the window manager to run:"), val => \$o->{desktop}, list => \@wm, disabled => sub { !$use_autologin }, format => \&format_wm } ] ); delete $o->{autologin} if !$use_autologin; } else { |