~mdw
/
profile
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
el/dot-emacs.el (date): Use primitive `delete-char' to remove newline.
[profile]
/
bin
/
disorder-notify
diff --git
a/bin/disorder-notify
b/bin/disorder-notify
index
ac329ba
..
e801d3d
100755
(executable)
--- a/
bin/disorder-notify
+++ b/
bin/disorder-notify
@@
-3,6
+3,9
@@
sub notify ($$) {
my ($head, $body) = @_;
sub notify ($$) {
my ($head, $body) = @_;
+ $body =~ s:\&:&:g;
+ $body =~ s:\<:<:g;
+ $body =~ s:\>:>:g;
my $kid = fork;
defined $kid or return;
if (!$kid) {
my $kid = fork;
defined $kid or return;
if (!$kid) {
@@
-100,6
+103,8
@@
for (;;) {
if (defined $startinfo) { $startinfo .= "; " . $msg; }
else { $startinfo = $msg; }
}
if (defined $startinfo) { $startinfo .= "; " . $msg; }
else { $startinfo = $msg; }
}
+ } elsif ($what eq "scratched") {
+ notify "DisOrder state", "Scratched playing track";
} elsif ($what eq "playing") {
now_playing $f[2];
}
} elsif ($what eq "playing") {
now_playing $f[2];
}