4 my ($head, $body) = @_;
10 defined $kid or return;
12 open STDOUT
, ">", "/dev/null";
13 exec "gdbus", "call", "-e",
14 "-d", "org.freedesktop.Notifications",
15 "-o", "/org/freedesktop/Notifications",
16 "-m", "org.freedesktop.Notifications.Notify", "--",
17 "DisOrder", "0", "audio-volume-high",
18 $head, $body, "[]", "{}", "5000";
25 open my $f, "-|", "disorder", @args;
28 if (wantarray) { return @r; }
29 elsif (@r == 1) { return $r[0]; }
30 else { return "??? multiple lines"; }
33 sub now_playing
(;$) {
35 if (!defined $track) {
36 my @r = cmd
"playing";
37 if ($r[0] =~ /^track\s+(.*)$/) { $track = $1; }
41 for my $p ("artist", "album", "title")
42 { $p{$p} = cmd
"part", $track, "display", $p; }
43 if ($p{artist
} =~ /^[A-Z]$/)
44 { $p{artist
} = $p{album
}; $p{album
} = undef; }
45 elsif ($p{artist
} eq "share" && $p{album
} eq "disorder")
47 my $r = "$p{artist}: ‘$p{title}’";
48 if (defined $p{album
}) { $r .= ", from ‘$p{album}’"; }
49 notify
"DisOrder: now playing", $r;
53 open my $log, "-|", "disorder", "log";
55 my $stateinfo = undef;
56 LINE
: while (<$log>) {
59 my $q = my $t = undef;
62 for (my $i = 0; $i < length $_; $i++) {
63 my $ch = substr($_, $i, 1);
65 if ($ch eq "n") { $ch = "\n"; }
68 push @f, $t; $q = $t = undef;
69 } elsif (defined $q) {
70 if ($ch eq "\\") { $e = 1; }
72 } elsif ($ch eq " ") {
73 push @f, $t if defined $t; $t = undef;
74 } elsif (!defined $t && ($ch eq '"' || $ch eq "'")) {
75 $t //= ""; $q = $ch; $j = $i;
80 defined $q and die "unmatched $q (pos $j) in: $_";
81 push @f, $t if defined $t;
84 if ($what eq "volume" && $startp) {
86 notify
"DisOrder state", "Connected: $startinfo";
88 } elsif ($what eq "state") {
92 if ($st eq "disable_random") { $msg = "random play disabled"; }
93 elsif ($st eq "enable_random") { $msg = "random play enabled"; }
94 elsif ($st eq "disable_play") { $msg = "playing disabled"; }
95 elsif ($st eq "enable_play") { $msg = "playing enabled"; }
96 elsif ($st eq "pause") { $msg = "paused"; }
97 elsif ($st eq "resume") { $msg = "playing"; $np = 1; }
100 notify
"DisOrder state", ucfirst $msg;
103 if (defined $startinfo) { $startinfo .= "; " . $msg; }
104 else { $startinfo = $msg; }
106 } elsif ($what eq "scratched") {
107 notify
"DisOrder state", "Scratched playing track";
108 } elsif ($what eq "playing") {