summaryrefslogtreecommitdiffstats
path: root/perl-install/harddrake
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/harddrake')
-rw-r--r--perl-install/harddrake/sound.pm70
1 files changed, 47 insertions, 23 deletions
diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index b77719b58..a023afbbc 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -211,10 +211,23 @@ sub configure_pipewire_wireplumber {
$pipewire_wp_user = stop_pipewire_media_session();
stop_pipewire();
- my $required_installed = $in->do_pkgs->ensure_are_installed(
- ['task-pipewire',
+ my $plasma_installed = $in->do_pkgs->is_installed('plasma-desktop');
+ my @pkgs = (
+ 'task-pipewire',
'wireplumber',
- 'pavucontrol']
+ );
+ if (!$in->do_pkgs->is_installed('pavucontrol-qt')) {
+ if ($plasma_installed) {
+ push(@pkgs, 'pavucontrol-qt');
+ }
+ else {
+ push(@pkgs, 'pavucontrol');
+ }
+ }
+
+
+ my $required_installed = $in->do_pkgs->ensure_are_installed(
+ \@pkgs
);
if (!$required_installed)
@@ -266,11 +279,8 @@ sub configure_pipewire_wireplumber {
}
#Plasma tricks
- if ($in->do_pkgs->is_installed('plasma-desktop')) {
- $in->do_pkgs->ensure_are_installed(
- [ 'pavucontrol-qt',
- 'kpipewire' ]
- );
+ if ($plasma_installed) {
+ $in->do_pkgs->ensure_is_installed('kpipewire');
}
}
@@ -287,10 +297,22 @@ sub configure_pipewire_media_session {
stop_pipewire();
- my $required_installed = $in->do_pkgs->ensure_are_installed(
- ['task-pipewire',
+ my $plasma_installed = $in->do_pkgs->is_installed('plasma-desktop');
+ my @pkgs = (
+ 'task-pulseaudio',
'pipewire-media-session',
- 'pavucontrol']
+ );
+ if (!$in->do_pkgs->is_installed('pavucontrol-qt')) {
+ if ($plasma_installed) {
+ push(@pkgs, 'pavucontrol-qt');
+ }
+ else {
+ push(@pkgs, 'pavucontrol');
+ }
+ }
+
+ my $required_installed = $in->do_pkgs->ensure_are_installed(
+ \@pkgs
);
if (!$required_installed)
@@ -341,11 +363,8 @@ sub configure_pipewire_media_session {
}
#Plasma tricks
- if ($in->do_pkgs->is_installed('plasma-desktop')) {
- $in->do_pkgs->ensure_are_installed(
- [ 'pavucontrol-qt',
- 'kpipewire' ]
- );
+ if ($plasma_installed) {
+ $in->do_pkgs->ensure_is_installed('kpipewire');
}
}
@@ -387,9 +406,19 @@ sub configure_pulseaudio {
# now packages
$in->do_pkgs->remove('pipewire-alsa');
+ my $plasma_installed = $in->do_pkgs->is_installed('plasma-desktop');
+ my @pkgs = 'task-pulseaudio';
+ if (!$in->do_pkgs->is_installed('pavucontrol-qt')) {
+ if ($plasma_installed) {
+ push(@pkgs, 'pavucontrol-qt');
+ }
+ else {
+ push(@pkgs, 'pavucontrol');
+ }
+ }
+
my $required_installed = $in->do_pkgs->ensure_are_installed(
- ['task-pulseaudio',
- 'pavucontrol']
+ \@pkgs
);
if (!$required_installed)
@@ -418,11 +447,6 @@ sub configure_pulseaudio {
# disable all the pipewire stuff before managing packages
disable_all_pipewire($in);
- #Plasma tricks
- if ($in->do_pkgs->is_installed('plasma-desktop')) {
- $in->do_pkgs->ensure_is_installed('pavucontrol-qt');
- }
-
# start pulseaudio with same pipewire preserved user
if ($pipewire_user) {
start_pulseaudio($pipewire_user);