summaryrefslogtreecommitdiffstats
path: root/clerk
diff options
context:
space:
mode:
Diffstat (limited to 'clerk')
-rwxr-xr-xclerk53
1 files changed, 44 insertions, 9 deletions
diff --git a/clerk b/clerk
index 633eb4a..90bd081 100755
--- a/clerk
+++ b/clerk
@@ -8,7 +8,7 @@ use utf8;
use Config::Simple;
use Time::HiRes qw (sleep);
use Data::MessagePack;
-#use DDP;
+use DDP;
use Encode qw(decode encode);
use File::Basename;
use File::Path qw(make_path);
@@ -17,6 +17,7 @@ use File::stat;
use Try::Tiny;
use FindBin '$Bin';
use FindBin '$Script';
+use List::UtilsBy;
use Getopt::Std;
use HTTP::Date;
use IPC::Run qw( timeout start );
@@ -28,6 +29,7 @@ use autodie;
my $self="$Bin/$Script";
$ENV{TMUX_TMPDIR}='/tmp/clerk/tmux';
+my $minimal = "";
make_path($ENV{TMUX_TMPDIR}) unless(-d $ENV{TMUX_TMPDIR});
my $config_file = $ENV{'HOME'} . "/.config/clerk/clerk.conf";
@@ -60,18 +62,19 @@ my $random;
sub main {
my %options=();
- getopts("talpfrhuyxzAT", \%options);
+ getopts("talpfrhuyxzATRZ", \%options);
unless ($options{f}) {
$backend = 'rofi'
} else {
$backend = 'fzf';
}
- if ($options{t} // $options{a} // $options{p} // $options{l} // $options{r} // $options{x} // $options{y} // $options{h} // $options{z} // $options{u}) {
+ if ($options{t} // $options{a} // $options{p} // $options{l} // $options{R} // $options{Z} // $options{r} // $options{x} // $options{y} // $options{h} // $options{z} // $options{u}) {
if (defined $options{t}) { create_db(); list_db_entries_for("Tracks") }
elsif (defined $options{a}) { create_db(); list_db_entries_for("Albums") }
elsif (defined $options{p}) { create_db(); list_playlists() }
elsif (defined $options{z}) { help() }
elsif (defined $options{h}) { help_output() }
+ elsif (defined $options{R}) { rating() }
elsif (defined $options{x}) {
create_db();
system('tmux', 'split-window', '-d', $self, '-f', '-r');
@@ -81,6 +84,10 @@ sub main {
system('tmux', 'split-window', '-d', $self, '-f', '-z');
system('tmux', 'select-pane', '-D');
}
+ elsif (defined $options{Z}) {
+ system('tmux', 'split-window', '-d', $self, '-f', '-R');
+ system('tmux', 'select-pane', '-D');
+ }
elsif (defined $options{r}) {
if (defined $options{T}) { random_tracks(); }
elsif (defined $options{A}) { random_album(); }
@@ -198,7 +205,7 @@ sub backend_call {
"--bind=esc:$random,alt-a:toggle-all,alt-n:deselect-all",
"--with-nth=$fields"
],
- rofi => [ "rofi", "-width", "1300", "-matching", "regex", "-dmenu", "-kb-row-tab", "", "-kb-move-word-forward", "", "-kb-accept-alt", "Tab", "-multi-select", "-no-levensthein-sort", "-i", "-p", "> " ]
+ rofi => [ "rofi", "-width", "1800", "-matching", "regex", "-dmenu", "-kb-row-tab", "", "-kb-move-word-forward", "", "-kb-accept-alt", "Tab", "-multi-select", "-no-levensthein-sort", "-i", "-p", "> " , "-filter", $minimal ]
);
my $handle = start $backends{$backend} // die('backend not found'), \$input, \$out;
$input = join "", (@{$in});
@@ -279,7 +286,20 @@ sub random {
}
}
+sub rating {
+ my $mpd = Net::MPD->connect($ENV{MPD_HOST} // $mpd_host // 'localhost');
+ my @queue_cmd = ('tmux', 'findw', '-t', 'music', 'queue');
+ try { $mpd->close(); };
+ $mpd->{socket}->close;
+ my @action_items = ("1\n", "2\n", "3\n", "4\n", "5\n", "6\n", "7\n", "8\n", "9\n", "10\n");
+ my $minimal_rating = backend_call(\@action_items, "1,2,3", "cancel");
+ chomp $minimal_rating;
+ $minimal = "$minimal_rating";
+ list_db_entries_for("Ratings");
+}
+
sub do_action {
+ $minimal = "";
my $mpd = Net::MPD->connect($ENV{MPD_HOST} // $mpd_host // 'localhost');
my @queue_cmd = ('tmux', 'findw', '-t', 'music', 'queue');
my ($in, $context) = @_;
@@ -383,15 +403,26 @@ sub formatted_ratings {
sub formatted_tracks {
my ($rdb) = @_;
- my $fmtstr = join "", map {"%-${_}.${_}s\t"} ($track_l, $title_l, $artist_l, $album_l, $rating_l);
+ my $fmtstr = join "", map {"%-${_}.${_}s\t"} ($track_l, $title_l, $artist_l, $date_l, $album_l, $rating_l);
my @tracks = map {
- sprintf $fmtstr."%-s\n", (map { $_ // "-" } $_->@{qw/Track Title Artist Album/}), formatted_ratings($_->{rating} // 0), $_->{uri};
+ sprintf $fmtstr."%-s\n", (map { $_ // "-" } $_->@{qw/Track Title Artist Date Album/}), formatted_ratings($_->{rating} // 0), $_->{uri};
# sprintf $fmtstr."%-s\n", $_->@{qw/Track Title Artist Album uri/}
} @{$rdb};
return \@tracks;
}
+sub formatted_rating {
+ my ($rdb) = @_;
+ my @rating_rdb = grep { ($_->{rating} // 0) > $minimal } @$rdb;
+ $minimal = "";
+ my $fmtstr = join "", map {"%-${_}.${_}s\t"} ($track_l, $title_l, $artist_l, $date_l, $album_l, $rating_l);
+ my @tracks = map {
+ sprintf $fmtstr."%-s\n", (map { $_ // "-" } $_->@{qw/Track Title Artist Date Album/}), formatted_ratings($_->{rating} // 0), $_->{uri};
+ } @rating_rdb;
+ return \@tracks;
+}
+
sub formatted_playlists {
my ($rdb) = @_;
my @save = ("Save");
@@ -407,14 +438,15 @@ sub formatted_playlists {
sub list_db_entries_for {
my ($kind) = @_;
- die "Wrong kind" unless any {; $_ eq $kind} qw/Albums Latest Tracks/;
+ die "Wrong kind" unless any {; $_ eq $kind} qw/Albums Latest Tracks Ratings/;
my $rdb = unpack_msgpack();
- my %fields = (Albums=> "1,2,3", Latest => "1,2,3", Tracks => "1,2,3,4,5");
+ my %fields = (Albums=> "1,2,3", Latest => "1,2,3", Tracks => "1,2,3,4,5,6", Ratings => "1,2,3,4,5,6");
my %formater = (
Albums => sub {formatted_albums(@_, 0)},
Latest => sub {formatted_albums(@_, 1)},
- Tracks => \&formatted_tracks
+ Tracks => \&formatted_tracks,
+ Ratings => \&formatted_rating
);
my $output = $formater{$kind}->($rdb);
@@ -428,6 +460,9 @@ sub list_db_entries_for {
my $out = backend_call($output, $fields{$kind});
try {
do_action($out, "tracks", "ignore");
+ if($kind eq "Ratings") {
+ system('tmux', 'kill-pane');
+ }
}
}
}