summaryrefslogtreecommitdiffstats
path: root/clerk.pl
diff options
context:
space:
mode:
authorRasmus Steinke <rasi@xssn.at>2017-08-05 18:29:34 +0200
committerRasmus Steinke <rasi@xssn.at>2017-08-05 18:29:34 +0200
commit5dc8f9a11136f3fe2f8680109b4312f3d41c6b68 (patch)
tree76320d105d76fb039b66b751875f41be19df8679 /clerk.pl
parent51ce4f60ee4b9402ca3feebd756751113587b01c (diff)
downloadperl-app-clerk-5dc8f9a11136f3fe2f8680109b4312f3d41c6b68.tar.gz
perl-app-clerk-5dc8f9a11136f3fe2f8680109b4312f3d41c6b68.tar.xz
add tmux_config option
Diffstat (limited to 'clerk.pl')
-rwxr-xr-xclerk.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/clerk.pl b/clerk.pl
index 25c4894..7b0f5e6 100755
--- a/clerk.pl
+++ b/clerk.pl
@@ -22,7 +22,6 @@ use Net::MPD;
use autodie;
$ENV{TMUX_TMPDIR}='/tmp/clerk/tmux';
-my $tmux_config='/etc/clerk/tmux.conf';
make_path($ENV{TMUX_TMPDIR}) unless(-d $ENV{TMUX_TMPDIR});
my $config_file = $ENV{'HOME'} . "/.config/clerk/clerk.conf";
@@ -36,6 +35,7 @@ my $cfg = new Config::Simple(filename=>"$config_file");
my $general_cfg = $cfg->param(-block=>"General");
my $mpd_host = $general_cfg->{mpd_host};
+my $tmux_config = $general_cfg->{tmux_config};
my $db_file = $general_cfg->{database};
my $backend = $general_cfg->{backend};
my $chunksize = $general_cfg->{chunksize};
@@ -204,7 +204,7 @@ sub formated_albums {
my %uniq_albums;
for my $i (@$rdb) {
- my $newkey = join "", map { lc } $i->@{qw/AlbumArtist Album Date/};
+ my $newkey = join "", $i->@{qw/AlbumArtist Album Date/};
if (!exists $uniq_albums{$newkey}) {
my $dir = (dirname($i->{uri}) =~ s/\/CD.*$//r);
$uniq_albums{$newkey} = {$i->%{qw/AlbumArtist Album Date mtime/}, Dir => $dir};