op public repos

Blame

Date:: Mon Jan 9 10:06:12 2023 UTC
Message:: contrib/amused-monitor: make use of the new extended info adjust amused-monitor not to query amused on certain events but use the new extra info that `amused monitor' prints.
Actions:: History | Blob | Raw File
  1 508e5f5f 2022-07-10 op #!/usr/bin/env perl
  2 508e5f5f 2022-07-10 op #
  3 508e5f5f 2022-07-10 op # Copyright (c) 2022 Omar Polo <op@omarpolo.com>
  4 508e5f5f 2022-07-10 op #
  5 508e5f5f 2022-07-10 op # Permission to use, copy, modify, and distribute this software for any
  6 508e5f5f 2022-07-10 op # purpose with or without fee is hereby granted, provided that the above
  7 508e5f5f 2022-07-10 op # copyright notice and this permission notice appear in all copies.
  8 508e5f5f 2022-07-10 op #
  9 508e5f5f 2022-07-10 op # THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 10 508e5f5f 2022-07-10 op # WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 11 508e5f5f 2022-07-10 op # MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 12 508e5f5f 2022-07-10 op # ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 13 508e5f5f 2022-07-10 op # WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 14 508e5f5f 2022-07-10 op # ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 15 508e5f5f 2022-07-10 op # OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 16 508e5f5f 2022-07-10 op 
 17 508e5f5f 2022-07-10 op use strict;
 18 508e5f5f 2022-07-10 op use warnings;
 19 508e5f5f 2022-07-10 op use v5.12;
 20 508e5f5f 2022-07-10 op 
 21 508e5f5f 2022-07-10 op use Curses;
 22 508e5f5f 2022-07-10 op use POSIX ":sys_wait_h";
 23 508e5f5f 2022-07-10 op use Text::CharWidth qw(mbswidth);
 24 508e5f5f 2022-07-10 op use IO::Poll qw(POLLIN);
 25 508e5f5f 2022-07-10 op use Time::HiRes qw(clock_gettime CLOCK_MONOTONIC);
 26 508e5f5f 2022-07-10 op use Getopt::Long qw(:config bundling);
 27 508e5f5f 2022-07-10 op use Pod::Usage;
 28 508e5f5f 2022-07-10 op 
 29 3a0b3cb8 2022-07-10 op my $run = 1;
 30 3a0b3cb8 2022-07-10 op 
 31 508e5f5f 2022-07-10 op my $pfile;
 32 508e5f5f 2022-07-10 op my $trim = "";
 33 508e5f5f 2022-07-10 op 
 34 508e5f5f 2022-07-10 op my $pair_n = 1;
 35 508e5f5f 2022-07-10 op 
 36 508e5f5f 2022-07-10 op my @songs;
 37 e9c1a558 2023-01-09 op my $current_song;
 38 508e5f5f 2022-07-10 op my $playlist_cur;
 39 508e5f5f 2022-07-10 op my $playlist_max;
 40 508e5f5f 2022-07-10 op my $time_cur;
 41 508e5f5f 2022-07-10 op my $time_dur;
 42 508e5f5f 2022-07-10 op my $status;
 43 63dcef30 2022-07-13 op my $mode;
 44 508e5f5f 2022-07-10 op 
 45 508e5f5f 2022-07-10 op my $last_lines;
 46 508e5f5f 2022-07-10 op 
 47 3c8ce7d5 2022-07-11 op sub round {
 48 3c8ce7d5 2022-07-11 op 	return int(0.5 + shift);
 49 3c8ce7d5 2022-07-11 op }
 50 3c8ce7d5 2022-07-11 op 
 51 508e5f5f 2022-07-10 op sub max {
 52 508e5f5f 2022-07-10 op 	my ($a, $b) = @_;
 53 508e5f5f 2022-07-10 op 	return $a > $b ? $a : $b;
 54 508e5f5f 2022-07-10 op }
 55 508e5f5f 2022-07-10 op 
 56 508e5f5f 2022-07-10 op sub excerpt {
 57 3c8ce7d5 2022-07-11 op 	my $lines = shift;
 58 508e5f5f 2022-07-10 op 	my @tmp;
 59 42426670 2022-07-11 op 	my ($n, $idx, $cur) = (0, 0, -1);
 60 508e5f5f 2022-07-10 op 
 61 42426670 2022-07-11 op 	open (my $fh, "-|", "amused", "show", "-p");
 62 508e5f5f 2022-07-10 op 	while (<$fh>) {
 63 508e5f5f 2022-07-10 op 		chomp;
 64 508e5f5f 2022-07-10 op 		s,$trim,,;
 65 42426670 2022-07-11 op 		$tmp[$idx] = $_;
 66 e9c1a558 2023-01-09 op 
 67 e9c1a558 2023-01-09 op 		if (m/^>/) {
 68 e9c1a558 2023-01-09 op 			$cur = $n;
 69 e9c1a558 2023-01-09 op 			$current_song = s/^> //r;
 70 e9c1a558 2023-01-09 op 		}
 71 e9c1a558 2023-01-09 op 
 72 42426670 2022-07-11 op 		$n++;
 73 42426670 2022-07-11 op 		$idx = ++$idx % $lines;
 74 42426670 2022-07-11 op 
 75 83438dc0 2022-07-13 op 		last if $cur != -1 && $n - $cur > int($lines/2) &&
 76 42426670 2022-07-11 op 		    $#tmp == $lines-1;
 77 508e5f5f 2022-07-10 op 	}
 78 508e5f5f 2022-07-10 op 	close($fh);
 79 508e5f5f 2022-07-10 op 
 80 42426670 2022-07-11 op 	return ("Empty playlist.") unless @tmp;
 81 508e5f5f 2022-07-10 op 
 82 42426670 2022-07-11 op 	# reorder the entries
 83 42426670 2022-07-11 op 	my @r;
 84 42426670 2022-07-11 op 	my $len = $#tmp + 1;
 85 6045cf87 2022-07-13 op 	$idx = $idx % $len;
 86 42426670 2022-07-11 op 	for (1..$len) {
 87 42426670 2022-07-11 op 		push @r, $tmp[$idx];
 88 42426670 2022-07-11 op 		$idx = ++$idx % $len;
 89 42426670 2022-07-11 op 	}
 90 42426670 2022-07-11 op 	return @r;
 91 508e5f5f 2022-07-10 op }
 92 508e5f5f 2022-07-10 op 
 93 508e5f5f 2022-07-10 op sub playlist_numbers {
 94 508e5f5f 2022-07-10 op 	my ($cur, $tot, $found) = (0, 0, 0);
 95 508e5f5f 2022-07-10 op 	open (my $fh, "-|", "amused", "show", "-p");
 96 508e5f5f 2022-07-10 op 	while (<$fh>) {
 97 508e5f5f 2022-07-10 op 		$tot++;
 98 508e5f5f 2022-07-10 op 		$cur++ unless $found;
 99 508e5f5f 2022-07-10 op 		$found = 1 if m/^>/;
100 508e5f5f 2022-07-10 op 	}
101 508e5f5f 2022-07-10 op 	close($fh);
102 508e5f5f 2022-07-10 op 	return ($cur, $tot);
103 508e5f5f 2022-07-10 op }
104 508e5f5f 2022-07-10 op 
105 508e5f5f 2022-07-10 op sub status {
106 63dcef30 2022-07-13 op 	my ($pos, $dur, $mode);
107 508e5f5f 2022-07-10 op 
108 508e5f5f 2022-07-10 op 	open (my $fh, "-|", "amused", "status", "-f",
109 63dcef30 2022-07-13 op 	      "status,time:raw,mode:oneline");
110 e9c1a558 2023-01-09 op 
111 e9c1a558 2023-01-09 op 	<$fh> =~ m/([a-z]+) (.*)/;
112 e9c1a558 2023-01-09 op 	my ($status, $current_song) = ($1, $2);
113 e9c1a558 2023-01-09 op 
114 508e5f5f 2022-07-10 op 	while (<$fh>) {
115 508e5f5f 2022-07-10 op 		chomp;
116 508e5f5f 2022-07-10 op 		$pos = s/position //r if m/^position /;
117 508e5f5f 2022-07-10 op 		$dur = s/duration //r if m/^duration /;
118 63dcef30 2022-07-13 op 		$mode = $_ if m/^repeat/;
119 508e5f5f 2022-07-10 op 	}
120 508e5f5f 2022-07-10 op 	close($fh);
121 e9c1a558 2023-01-09 op 	return ($status, $current_song, $pos, $dur, $mode);
122 508e5f5f 2022-07-10 op }
123 508e5f5f 2022-07-10 op 
124 508e5f5f 2022-07-10 op sub showtime {
125 508e5f5f 2022-07-10 op 	my $seconds = shift;
126 508e5f5f 2022-07-10 op 	my $str = "";
127 508e5f5f 2022-07-10 op 
128 508e5f5f 2022-07-10 op 	if ($seconds > 3600) {
129 508e5f5f 2022-07-10 op 		my $hours = int($seconds / 3600);
130 508e5f5f 2022-07-10 op 		$seconds -= $hours * 3600;
131 86d7c366 2022-08-23 op 		$str = sprintf("%02d:", $hours);
132 508e5f5f 2022-07-10 op 	}
133 508e5f5f 2022-07-10 op 
134 508e5f5f 2022-07-10 op 	my $minutes = int($seconds / 60);
135 508e5f5f 2022-07-10 op 	$seconds -= $minutes * 60;
136 508e5f5f 2022-07-10 op 	$str .= sprintf "%02d:%02d", $minutes, $seconds;
137 508e5f5f 2022-07-10 op 	return $str;
138 508e5f5f 2022-07-10 op }
139 508e5f5f 2022-07-10 op 
140 508e5f5f 2022-07-10 op sub center {
141 508e5f5f 2022-07-10 op 	my ($str, $pstr) = @_;
142 508e5f5f 2022-07-10 op 	my $width = mbswidth($str);
143 508e5f5f 2022-07-10 op 	return $str if $width > $COLS;
144 1b135dc5 2022-07-26 op 	my $pre = round(($COLS - $width) / 2);
145 508e5f5f 2022-07-10 op 	my $lpad = $pstr x $pre;
146 1b135dc5 2022-07-26 op 	my $rpad = $pstr x ($COLS - $width - $pre);
147 508e5f5f 2022-07-10 op 	return ($lpad, $str, $rpad);
148 508e5f5f 2022-07-10 op }
149 508e5f5f 2022-07-10 op 
150 508e5f5f 2022-07-10 op sub offsets {
151 508e5f5f 2022-07-10 op 	my ($y, $x, $cur, $max) = @_;
152 508e5f5f 2022-07-10 op 	my ($pre, $c, $post) = center(" $cur / $max ", '-');
153 508e5f5f 2022-07-10 op 	addstring $y, $x, "";
154 508e5f5f 2022-07-10 op 
155 508e5f5f 2022-07-10 op 	my $p = COLOR_PAIR($pair_n);
156 508e5f5f 2022-07-10 op 
157 508e5f5f 2022-07-10 op 	attron $p;
158 508e5f5f 2022-07-10 op 	addstring $pre;
159 508e5f5f 2022-07-10 op 	attroff $p;
160 508e5f5f 2022-07-10 op 
161 508e5f5f 2022-07-10 op 	addstring $c;
162 508e5f5f 2022-07-10 op 
163 508e5f5f 2022-07-10 op 	attron $p;
164 508e5f5f 2022-07-10 op 	addstring $post;
165 508e5f5f 2022-07-10 op 	attroff $p;
166 508e5f5f 2022-07-10 op }
167 508e5f5f 2022-07-10 op 
168 508e5f5f 2022-07-10 op sub progress {
169 508e5f5f 2022-07-10 op 	my ($y, $x, $pos, $dur) = @_;
170 508e5f5f 2022-07-10 op 
171 508e5f5f 2022-07-10 op 	my $pstr = showtime $pos;
172 508e5f5f 2022-07-10 op 	my $dstr = showtime $dur;
173 508e5f5f 2022-07-10 op 
174 508e5f5f 2022-07-10 op 	my $len = $COLS - length($pstr) - length($dstr) - 4;
175 127f376a 2022-07-11 op 	return if $len <= 0 or $dur <= 0;
176 3c8ce7d5 2022-07-11 op 	my $filled = round($pos * $len / $dur);
177 508e5f5f 2022-07-10 op 
178 508e5f5f 2022-07-10 op 	addstring $y, $x, "$pstr [";
179 508e5f5f 2022-07-10 op 	addstring "#" x $filled;
180 508e5f5f 2022-07-10 op 	addstring " " x max($len - $filled, 0);
181 508e5f5f 2022-07-10 op 	addstring "] $dstr";
182 508e5f5f 2022-07-10 op }
183 508e5f5f 2022-07-10 op 
184 508e5f5f 2022-07-10 op sub show_status {
185 508e5f5f 2022-07-10 op 	my ($y, $x, $status) = @_;
186 508e5f5f 2022-07-10 op 	my ($pre, $c, $post) = center($status, ' ');
187 508e5f5f 2022-07-10 op 	addstring $y, $x, $pre;
188 508e5f5f 2022-07-10 op 	addstring $c;
189 508e5f5f 2022-07-10 op 	addstring $post;
190 508e5f5f 2022-07-10 op }
191 508e5f5f 2022-07-10 op 
192 63dcef30 2022-07-13 op sub show_mode {
193 63dcef30 2022-07-13 op 	my ($y, $x, $mode) = @_;
194 63dcef30 2022-07-13 op 	my ($pre, $c, $post) = center($mode, ' ');
195 508e5f5f 2022-07-10 op 	addstring $y, $x, $pre;
196 508e5f5f 2022-07-10 op 	addstring $c;
197 508e5f5f 2022-07-10 op 	addstring $post;
198 508e5f5f 2022-07-10 op }
199 508e5f5f 2022-07-10 op 
200 508e5f5f 2022-07-10 op sub render {
201 508e5f5f 2022-07-10 op 	erase;
202 508e5f5f 2022-07-10 op 	if ($LINES < 4 || $COLS < 20) {
203 508e5f5f 2022-07-10 op 		addstring "window too small";
204 508e5f5f 2022-07-10 op 		refresh;
205 508e5f5f 2022-07-10 op 		return;
206 508e5f5f 2022-07-10 op 	}
207 508e5f5f 2022-07-10 op 
208 508e5f5f 2022-07-10 op 	my $song_pad = "";
209 508e5f5f 2022-07-10 op 	my $longest = 0;
210 508e5f5f 2022-07-10 op 	$longest = max $longest, length($_) foreach @songs;
211 508e5f5f 2022-07-10 op 	if ($longest < $COLS) {
212 508e5f5f 2022-07-10 op 		$song_pad = " " x (($COLS - $longest)/2);
213 508e5f5f 2022-07-10 op 	}
214 508e5f5f 2022-07-10 op 
215 508e5f5f 2022-07-10 op 	my $line = 0;
216 508e5f5f 2022-07-10 op 	map {
217 508e5f5f 2022-07-10 op 		attron(A_BOLD) if m/^>/;
218 508e5f5f 2022-07-10 op 		addstring $line++, 0, $song_pad . $_;
219 508e5f5f 2022-07-10 op 		standend;
220 508e5f5f 2022-07-10 op 	} @songs;
221 508e5f5f 2022-07-10 op 
222 508e5f5f 2022-07-10 op 	offsets $LINES - 4, 0, $playlist_cur, $playlist_max;
223 508e5f5f 2022-07-10 op 	progress $LINES - 3, 0, $time_cur, $time_dur;
224 e9c1a558 2023-01-09 op 	show_status $LINES - 2, 0, "$status $current_song";
225 63dcef30 2022-07-13 op 	show_mode $LINES - 1, 0, $mode;
226 508e5f5f 2022-07-10 op 
227 508e5f5f 2022-07-10 op 	refresh;
228 508e5f5f 2022-07-10 op }
229 508e5f5f 2022-07-10 op 
230 508e5f5f 2022-07-10 op sub getsongs {
231 508e5f5f 2022-07-10 op 	$last_lines = $LINES;
232 42426670 2022-07-11 op 	@songs = excerpt $LINES - 4;
233 508e5f5f 2022-07-10 op }
234 508e5f5f 2022-07-10 op 
235 508e5f5f 2022-07-10 op sub getnums {
236 508e5f5f 2022-07-10 op 	($playlist_cur, $playlist_max) = playlist_numbers;
237 508e5f5f 2022-07-10 op }
238 508e5f5f 2022-07-10 op 
239 508e5f5f 2022-07-10 op sub save {
240 508e5f5f 2022-07-10 op 	return unless defined $pfile;
241 508e5f5f 2022-07-10 op 
242 508e5f5f 2022-07-10 op 	open(my $fh, ">", $pfile);
243 508e5f5f 2022-07-10 op 	open(my $ph, "-|", "amused", "show", "-p");
244 508e5f5f 2022-07-10 op 
245 508e5f5f 2022-07-10 op 	print $fh $_ while (<$ph>);
246 508e5f5f 2022-07-10 op }
247 508e5f5f 2022-07-10 op 
248 508e5f5f 2022-07-10 op sub hevent {
249 508e5f5f 2022-07-10 op 	my $fh = shift;
250 508e5f5f 2022-07-10 op 	my $l = <$fh>;
251 508e5f5f 2022-07-10 op 	die "monitor quit" unless defined($l);
252 e9c1a558 2023-01-09 op 
253 e9c1a558 2023-01-09 op 	$status = "playing" if $l =~ m/^play/;
254 e9c1a558 2023-01-09 op 	$status = "paused"  if $l =~ m/^pause/;
255 e9c1a558 2023-01-09 op 	$status = "stopped" if $l =~ m/^stop/;
256 e9c1a558 2023-01-09 op 
257 e9c1a558 2023-01-09 op 	($time_cur, $time_dur) = ($1, $2) if $l =~ m/^seek (\d+) (\d+)/;
258 e9c1a558 2023-01-09 op 
259 e9c1a558 2023-01-09 op 	$mode = $1 if $l =~ m/^mode (.*)/;
260 e9c1a558 2023-01-09 op 
261 508e5f5f 2022-07-10 op 	getnums if $l =~ m/load|jump|next|prev/;
262 508e5f5f 2022-07-10 op 	getsongs if $l =~ m/load|jump|next|prev/;
263 508e5f5f 2022-07-10 op }
264 508e5f5f 2022-07-10 op 
265 508e5f5f 2022-07-10 op sub hinput {
266 508e5f5f 2022-07-10 op 	my ($ch, $key) = getchar;
267 9c72efd4 2022-07-13 op 	if (defined $key) {
268 9c72efd4 2022-07-13 op 		if ($key == KEY_BACKSPACE) {
269 3fc73666 2022-07-26 op 			system "amused", "seek", "0";
270 9c72efd4 2022-07-13 op 		}
271 9c72efd4 2022-07-13 op 	} elsif (defined $ch) {
272 508e5f5f 2022-07-10 op 		if ($ch eq " ") {
273 508e5f5f 2022-07-10 op 			system "amused", "toggle";
274 508e5f5f 2022-07-10 op 		} elsif ($ch eq "<" or $ch eq "p") {
275 508e5f5f 2022-07-10 op 			system "amused", "prev";
276 508e5f5f 2022-07-10 op 		} elsif ($ch eq ">" or $ch eq "n") {
277 508e5f5f 2022-07-10 op 			system "amused", "next";
278 508e5f5f 2022-07-10 op 		} elsif ($ch eq ",") {
279 508e5f5f 2022-07-10 op 			system "amused", "seek", "-5";
280 508e5f5f 2022-07-10 op 		} elsif ($ch eq ".") {
281 508e5f5f 2022-07-10 op 			system "amused", "seek", "+5";
282 508e5f5f 2022-07-10 op 		} elsif ($ch eq "S") {
283 508e5f5f 2022-07-10 op 			system "amused show | sort -u | amused load";
284 508e5f5f 2022-07-10 op 		} elsif ($ch eq "R") {
285 508e5f5f 2022-07-10 op 			system "amused show | sort -R | amused load";
286 508e5f5f 2022-07-10 op 		} elsif ($ch eq "s") {
287 508e5f5f 2022-07-10 op 			save;
288 508e5f5f 2022-07-10 op 		} elsif ($ch eq "q") {
289 3a0b3cb8 2022-07-10 op 			$run = 0;
290 9c72efd4 2022-07-13 op 		} elsif ($ch eq "\cH") {
291 3fc73666 2022-07-26 op 			system "amused", "seek", "0"
292 508e5f5f 2022-07-10 op 		}
293 508e5f5f 2022-07-10 op 	}
294 508e5f5f 2022-07-10 op }
295 508e5f5f 2022-07-10 op 
296 508e5f5f 2022-07-10 op GetOptions(
297 508e5f5f 2022-07-10 op 	"p:s" => \$pfile,
298 508e5f5f 2022-07-10 op 	"t:s" => \$trim,
299 508e5f5f 2022-07-10 op     ) or pod2usage(1);
300 508e5f5f 2022-07-10 op 
301 87abdf60 2022-07-12 op my $mpid = open(my $monitor, "-|", "amused", "monitor")
302 508e5f5f 2022-07-10 op     or die "can't spawn amused monitor";
303 508e5f5f 2022-07-10 op 
304 508e5f5f 2022-07-10 op initscr;
305 508e5f5f 2022-07-10 op start_color;
306 508e5f5f 2022-07-10 op use_default_colors;
307 508e5f5f 2022-07-10 op init_pair $pair_n, 250, -1;
308 508e5f5f 2022-07-10 op 
309 508e5f5f 2022-07-10 op timeout 1000;
310 508e5f5f 2022-07-10 op scrollok 0;
311 508e5f5f 2022-07-10 op curs_set 0;
312 9c72efd4 2022-07-13 op keypad 1;
313 508e5f5f 2022-07-10 op 
314 508e5f5f 2022-07-10 op my $poll = IO::Poll->new();
315 508e5f5f 2022-07-10 op $poll->mask(\*STDIN => POLLIN);
316 508e5f5f 2022-07-10 op $poll->mask($monitor => POLLIN);
317 936bd534 2022-08-13 op 
318 936bd534 2022-08-13 op if (`uname` =~ "OpenBSD") {
319 936bd534 2022-08-13 op 	use OpenBSD::Pledge;
320 936bd534 2022-08-13 op 	use OpenBSD::Unveil;
321 936bd534 2022-08-13 op 
322 936bd534 2022-08-13 op 	my $prog = `which amused`;
323 936bd534 2022-08-13 op 	chomp $prog;
324 936bd534 2022-08-13 op 
325 936bd534 2022-08-13 op 	unveil($prog, 'rx') or die "unveil $prog: $!";
326 936bd534 2022-08-13 op 	if (defined($pfile)) {
327 936bd534 2022-08-13 op 		unveil($pfile, 'wc') or die "unveil $pfile: $!";
328 936bd534 2022-08-13 op 		pledge qw(stdio wpath cpath tty proc exec) or die "pledge: $!";
329 936bd534 2022-08-13 op 	} else {
330 936bd534 2022-08-13 op 		pledge qw(stdio tty proc exec) or die "pledge: $!";
331 936bd534 2022-08-13 op 	}
332 936bd534 2022-08-13 op }
333 508e5f5f 2022-07-10 op 
334 508e5f5f 2022-07-10 op getsongs;
335 508e5f5f 2022-07-10 op getnums;
336 e9c1a558 2023-01-09 op ($status, $current_song, $time_cur, $time_dur, $mode) = status;
337 508e5f5f 2022-07-10 op render;
338 508e5f5f 2022-07-10 op 
339 3a0b3cb8 2022-07-10 op while ($run) {
340 e9c1a558 2023-01-09 op 	$poll->poll();
341 508e5f5f 2022-07-10 op 	hinput if $poll->events(\*STDIN) & POLLIN;
342 508e5f5f 2022-07-10 op 	hevent $monitor if $poll->events($monitor) & POLLIN;
343 508e5f5f 2022-07-10 op 
344 508e5f5f 2022-07-10 op 	getsongs if $LINES != $last_lines;
345 508e5f5f 2022-07-10 op 
346 508e5f5f 2022-07-10 op 	render;
347 508e5f5f 2022-07-10 op }
348 508e5f5f 2022-07-10 op 
349 508e5f5f 2022-07-10 op endwin;
350 508e5f5f 2022-07-10 op save;
351 508e5f5f 2022-07-10 op 
352 508e5f5f 2022-07-10 op kill 'INT', $mpid;
353 508e5f5f 2022-07-10 op wait;
354 508e5f5f 2022-07-10 op 
355 508e5f5f 2022-07-10 op __END__
356 508e5f5f 2022-07-10 op 
357 508e5f5f 2022-07-10 op =pod
358 508e5f5f 2022-07-10 op 
359 508e5f5f 2022-07-10 op =head1 NAME
360 508e5f5f 2022-07-10 op 
361 508e5f5f 2022-07-10 op amused-monitor - curses interface for amused(1)
362 508e5f5f 2022-07-10 op 
363 508e5f5f 2022-07-10 op =head1 SYNOPSIS
364 508e5f5f 2022-07-10 op 
365 508e5f5f 2022-07-10 op B<amused-monitor> [B<-p> I<playlist>] [B<-t> I<string>]
366 508e5f5f 2022-07-10 op 
367 508e5f5f 2022-07-10 op =head1 DESCRIPTION
368 508e5f5f 2022-07-10 op 
369 508e5f5f 2022-07-10 op amused-monitor is a simple curses interface for amused(1).
370 508e5f5f 2022-07-10 op 
371 508e5f5f 2022-07-10 op The following options are available:
372 508e5f5f 2022-07-10 op 
373 508e5f5f 2022-07-10 op =over 12
374 508e5f5f 2022-07-10 op 
375 508e5f5f 2022-07-10 op =item B<-p> I<playlist>
376 508e5f5f 2022-07-10 op 
377 508e5f5f 2022-07-10 op Save the current playling queue to the file I<playlist> upon exit or
378 508e5f5f 2022-07-10 op I<s> key.
379 508e5f5f 2022-07-10 op 
380 508e5f5f 2022-07-10 op =item B<-t> I<string>
381 508e5f5f 2022-07-10 op 
382 508e5f5f 2022-07-10 op Trim out the given I<string> from every song in the playlist view.
383 508e5f5f 2022-07-10 op 
384 508e5f5f 2022-07-10 op =back
385 508e5f5f 2022-07-10 op 
386 508e5f5f 2022-07-10 op The following key-bindings are available:
387 508e5f5f 2022-07-10 op 
388 508e5f5f 2022-07-10 op =over 8
389 508e5f5f 2022-07-10 op 
390 9c72efd4 2022-07-13 op =item backspace or C-h
391 9c72efd4 2022-07-13 op 
392 9c72efd4 2022-07-13 op Seek back to the beginning of the track.
393 9c72efd4 2022-07-13 op 
394 508e5f5f 2022-07-10 op =item space
395 508e5f5f 2022-07-10 op 
396 508e5f5f 2022-07-10 op Toggle play/pause.
397 508e5f5f 2022-07-10 op 
398 508e5f5f 2022-07-10 op =item < or p
399 508e5f5f 2022-07-10 op 
400 508e5f5f 2022-07-10 op Play previous song.
401 508e5f5f 2022-07-10 op 
402 508e5f5f 2022-07-10 op =item > or n
403 508e5f5f 2022-07-10 op 
404 508e5f5f 2022-07-10 op Play next song.
405 508e5f5f 2022-07-10 op 
406 508e5f5f 2022-07-10 op =item ,
407 508e5f5f 2022-07-10 op 
408 508e5f5f 2022-07-10 op Seek backward by five seconds.
409 508e5f5f 2022-07-10 op 
410 508e5f5f 2022-07-10 op =item .
411 508e5f5f 2022-07-10 op 
412 508e5f5f 2022-07-10 op Seek forward by five seconds.
413 508e5f5f 2022-07-10 op 
414 508e5f5f 2022-07-10 op =item R
415 508e5f5f 2022-07-10 op 
416 508e5f5f 2022-07-10 op Randomize the playlist.
417 508e5f5f 2022-07-10 op 
418 508e5f5f 2022-07-10 op =item S
419 508e5f5f 2022-07-10 op 
420 508e5f5f 2022-07-10 op Sort the playlist.
421 508e5f5f 2022-07-10 op 
422 508e5f5f 2022-07-10 op =item s
423 508e5f5f 2022-07-10 op 
424 508e5f5f 2022-07-10 op Save the status to the file given with the B<-p> flag.
425 508e5f5f 2022-07-10 op 
426 508e5f5f 2022-07-10 op =item q
427 508e5f5f 2022-07-10 op 
428 508e5f5f 2022-07-10 op Quit.
429 508e5f5f 2022-07-10 op 
430 508e5f5f 2022-07-10 op =back
431 508e5f5f 2022-07-10 op 
432 508e5f5f 2022-07-10 op =head1 SEE ALSO
433 508e5f5f 2022-07-10 op 
434 508e5f5f 2022-07-10 op amused(1)
435 508e5f5f 2022-07-10 op 
436 508e5f5f 2022-07-10 op =cut