diff options
Diffstat (limited to 'bin/hornet/volume')
-rwxr-xr-x | bin/hornet/volume | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/bin/hornet/volume b/bin/hornet/volume deleted file mode 100755 index 668c1b1..0000000 --- a/bin/hornet/volume +++ /dev/null @@ -1,45 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use 5.014; - -chomp(my $sink=`pactl get-default-sink`); - -sub get { - if (`pactl get-sink-mute $sink` =~ /Mute: yes/) { - 'mute' - } - else { - (`pactl get-sink-volume $sink` =~ /(\d+)%/)[0] - } -} - -if ($ARGV[0] eq 'get') { - say get; -} -elsif ($ARGV[0] eq 'up') { - my $get = get; - system("pactl set-sink-mute $sink 0"); - if ($get eq 'mute') { - exit; - } - elsif ($get <= 90) { - system("pactl set-sink-volume $sink +10%"); - } - elsif ($get < 100) { - system("pactl set-sink-volume $sink 100%"); - } -} -elsif ($ARGV[0] eq 'down') { - my $get = get; - if ($get eq 'mute') { - exit; - } - system("pactl set-sink-volume $sink -10%"); -} -elsif ($ARGV[0] eq 'mute') { - system("pactl set-sink-mute $sink toggle") -} -else { - die "unknown command '$ARGV[0]'"; -} |