summaryrefslogtreecommitdiffstats
path: root/clerk
diff options
context:
space:
mode:
authorRasmus Steinke <rasi@xssn.at>2017-08-06 18:19:52 +0200
committerRasmus Steinke <rasi@xssn.at>2017-08-06 18:19:52 +0200
commit4b1bcf0277811e07715a7eaf1ae5da6ef1365589 (patch)
tree63cd8cab59031c4312f423a8105dae0f2af85f57 /clerk
parentf8567465f4f793fff2c150d0f2fdca72387027c5 (diff)
downloadperl-app-clerk-4b1bcf0277811e07715a7eaf1ae5da6ef1365589.tar.gz
perl-app-clerk-4b1bcf0277811e07715a7eaf1ae5da6ef1365589.tar.xz
Show notification on update if backend is rofi
Diffstat (limited to 'clerk')
-rwxr-xr-xclerk15
1 files changed, 10 insertions, 5 deletions
diff --git a/clerk b/clerk
index ac248e8..bc98868 100755
--- a/clerk
+++ b/clerk
@@ -7,7 +7,7 @@ use strict;
use utf8;
use Config::Simple;
use Data::MessagePack;
-use DDP;
+#use DDP;
use File::Basename;
use File::Path qw(make_path);
use File::Slurper 'read_binary';
@@ -54,7 +54,6 @@ my $artist_l = $columns_cfg->{artist_l};
my $mpd = Net::MPD->connect($ENV{MPD_HOST} // $mpd_host // 'localhost');
sub main {
- create_db();
my %options=();
getopts("talpfrhyxz", \%options);
unless ($options{f}) {
@@ -62,6 +61,7 @@ sub main {
} else {
$backend = 'fzf';
}
+ create_db();
if ($options{t} // $options{a} // $options{p} // $options{l} // $options{r} // $options{x} // $options{y} // $options{h} // $options{z}) {
if (defined $options{t}) { list_db_entries_for("Tracks") }
elsif (defined $options{a}) { list_db_entries_for("Albums") }
@@ -121,10 +121,15 @@ sub create_db {
my $last_update = $mpd_stats->{db_update};
if (!-f "$db_file" || stat("$db_file")->mtime < $last_update) {
- print STDERR "::: No cache found or cache file outdated\n";
- print STDERR "::: Chunksize set to $chunksize songs\n";
my $times = int($songcount / $chunksize + 1);
- print STDERR "::: Requesting $times chunks from MPD\n";
+ if ($backend eq "rofi") {
+ system('notify-send', '-t', '5', 'clerk', 'Updating Cache File');
+ }
+ elsif ($backend eq "fzf") {
+ print STDERR "::: No cache found or cache file outdated\n";
+ print STDERR "::: Chunksize set to $chunksize songs\n";
+ print STDERR "::: Requesting $times chunks from MPD\n";
+ }
my @db;
# since mpd will silently fail, if response is larger than command buffer, let's split the search.
my $chunk_size = $chunksize;