summaryrefslogtreecommitdiffstats
path: root/clerk
diff options
context:
space:
mode:
authorRasmus Steinke <rasi@xssn.at>2017-08-05 23:20:56 +0200
committerRasmus Steinke <rasi@xssn.at>2017-08-05 23:20:56 +0200
commit6f0f096494c7bded863e16d1f036decf754ccc81 (patch)
tree26543dbdea7bbf8176e7416991b5ee8a6e3d5a9a /clerk
parenta6ce0cb8ffd82ae296223bb5823630b34df96a97 (diff)
downloadperl-app-clerk-6f0f096494c7bded863e16d1f036decf754ccc81.tar.gz
perl-app-clerk-6f0f096494c7bded863e16d1f036decf754ccc81.tar.xz
use -f to run tmux interface
Diffstat (limited to 'clerk')
-rwxr-xr-xclerk61
1 files changed, 39 insertions, 22 deletions
diff --git a/clerk b/clerk
index 66169d4..dc6b9f0 100755
--- a/clerk
+++ b/clerk
@@ -11,6 +11,8 @@ use File::Basename;
use File::Path qw(make_path);
use File::Slurper 'read_binary';
use File::stat;
+use FindBin '$Bin';
+use FindBin '$Script';
use Getopt::Std;
use HTTP::Date;
use IO::Select;
@@ -27,15 +29,13 @@ my $config_file = $ENV{'HOME'} . "/.config/clerk/clerk.conf";
if ($ENV{CLERK_CONF}) {
$config_file = $ENV{CLERK_CONF};
}
-
+my $backend="fzf";
# read configuration file
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};
my $columns_cfg = $cfg->param(-block=>"Columns");
@@ -46,37 +46,54 @@ my $title_l = $columns_cfg->{title_l};
my $track_l = $columns_cfg->{track_l};
my $artist_l = $columns_cfg->{artist_l};
+
# open connection to MPD
my $mpd = Net::MPD->connect($ENV{MPD_HOST} // $mpd_host // 'localhost');
sub main {
create_db();
my %options=();
- getopts("talp", \%options);
-
- $backend = 'rofi' if scalar %options;
- if (defined $options{t}) {
- list_db_entries_for("Tracks");
- } elsif (defined $options{a}) {
- list_db_entries_for("Albums");
- } elsif (defined $options{p}) {
- list_playlists();
- } elsif (defined $options{l}) {
- my $backend="rofi";
- list_db_entries_for("Latest");
- }
- if ($backend eq "fzf") {
+ getopts("talpf", \%options);
+# $backend = 'rofi' if scalar %options;
+# if (! scalar @options{f}) { $backend = 'rofi' }
+# if (defined $options{t}) {
+# list_db_entries_for("Tracks");
+# } elsif (defined $options{a}) {
+# list_db_entries_for("Albums");
+# } elsif (defined $options{p}) {
+# list_playlists();
+# } elsif (defined $options{l}) {
+# list_db_entries_for("Latest");
+# }
+# elsif (scalar @options{f}) { $backend = 'fzf' }
+# system('tmux', 'has-session', '-t', 'music');
+# if ($? != -0) {
+# system('tmux', '-f', $tmux_config, 'new-session', '-s', 'music', '-n', 'albums', '-d', 'clerk', '-a', '-f');
+# system('tmux', 'new-window', '-t', 'music', '-n', 'tracks', 'clerk', '-t', '-f');
+# system('tmux', 'new-window', '-t', 'music', '-n', 'latest', 'clerk', '-l', '-f');
+# system('tmux', 'new-window', '-t', 'music', '-n', 'playlists', 'clerk', '-p', '-f');
+# system('tmux', 'new-window', '-t', 'music', '-n', 'queue', 'ncmpcpp');
+# }
+# system('tmux', 'attach', '-t', 'music');
+ unless ($options{f}) {
+ $backend = 'rofi'
+ } else {
+ $backend = 'fzf';
system('tmux', 'has-session', '-t', 'music');
if ($? != -0) {
- system('tmux', '-f', $tmux_config, 'new-session', '-s', 'music', '-n', 'albums', '-d', 'clerk', '-a');
- system('tmux', 'new-window', '-t', 'music', '-n', 'tracks', 'clerk', '-t');
- system('tmux', 'new-window', '-t', 'music', '-n', 'latest', 'clerk', '-l');
- system('tmux', 'new-window', '-t', 'music', '-n', 'playlists', 'clerk', '-p');
+ system('tmux', '-f', $tmux_config, 'new-session', '-s', 'music', '-n', 'albums', '-d', $self, '-a', '-f');
+ system('tmux', 'new-window', '-t', 'music', '-n', 'tracks', $self, '-t', '-f');
+ system('tmux', 'new-window', '-t', 'music', '-n', 'latest', $self, '-l', '-f');
+ system('tmux', 'new-window', '-t', 'music', '-n', 'playlists', $self, '-p', '-f');
system('tmux', 'new-window', '-t', 'music', '-n', 'queue', 'ncmpcpp');
}
system('tmux', 'attach', '-t', 'music');
}
-# elsif ($backend eq "rofi") {
+
+ if (defined $options{t}) { list_db_entries_for("Tracks") }
+ elsif (defined $options{a}) { list_db_entries_for("Albums") }
+ elsif (defined $options{p}) { list_playlists() }
+ elsif (defined $options{l}) { list_db_entries_for("Latest") }
}