diff options
author | Rasmus Steinke <rasi@xssn.at> | 2017-08-05 18:29:34 +0200 |
---|---|---|
committer | Rasmus Steinke <rasi@xssn.at> | 2017-08-05 18:29:34 +0200 |
commit | 5dc8f9a11136f3fe2f8680109b4312f3d41c6b68 (patch) | |
tree | 76320d105d76fb039b66b751875f41be19df8679 /clerk.pl | |
parent | 51ce4f60ee4b9402ca3feebd756751113587b01c (diff) | |
download | perl-app-clerk-5dc8f9a11136f3fe2f8680109b4312f3d41c6b68.tar.gz perl-app-clerk-5dc8f9a11136f3fe2f8680109b4312f3d41c6b68.tar.xz |
add tmux_config option
Diffstat (limited to 'clerk.pl')
-rwxr-xr-x | clerk.pl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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}; |