summaryrefslogtreecommitdiffstats
path: root/clerk
diff options
context:
space:
mode:
authorRasmus Steinke <rasi@xssn.at>2017-08-21 01:02:59 +0200
committerRasmus Steinke <rasi@xssn.at>2017-08-21 01:02:59 +0200
commit50fdaaf2b41efb870a4b125b4b3305ccb5314225 (patch)
tree03cd68aa2dfa17837393eb0234e0cffe4f9af567 /clerk
parent7d8473113cf450820d80217c5b68873e1c76b509 (diff)
downloadperl-app-clerk-50fdaaf2b41efb870a4b125b4b3305ccb5314225.tar.gz
perl-app-clerk-50fdaaf2b41efb870a4b125b4b3305ccb5314225.tar.xz
remove hardcoded binary call
Diffstat (limited to 'clerk')
-rwxr-xr-xclerk17
1 files changed, 9 insertions, 8 deletions
diff --git a/clerk b/clerk
index 1ba9fd4..22ff055 100755
--- a/clerk
+++ b/clerk
@@ -73,11 +73,11 @@ sub main {
elsif (defined $options{h}) { help_output() }
elsif (defined $options{x}) {
create_db();
- system('tmux', 'split-window', '-d', 'clerk', '-f', '-r');
+ system('tmux', 'split-window', '-d', $self, '-f', '-r');
system('tmux', 'select-pane', '-D');
}
elsif (defined $options{y}) {
- system('tmux', 'split-window', '-d', 'clerk', '-f', '-z');
+ system('tmux', 'split-window', '-d', $self, '-f', '-z');
system('tmux', 'select-pane', '-D');
}
elsif (defined $options{r}) {
@@ -109,20 +109,21 @@ sub main {
sub help_output {
my @output = (
- "Usage: clerk [-f] [command]",
+ "Usage: clerk [command] [-f]",
"clerk version 2.0",
"",
- "Options:",
- " -f Use fzf interface. Without other arguments",
- " this starts a complete tmux interface with tabs.",
- " ",
"Commands:",
" -a Add/Replace album(s) to queue.",
" -l Add/Replace album(s) to queue (sorted by mtime)",
" -t Add/Replace track(s) to queue.",
" -p Add stored playlist to queue",
" -r [-A, -T] Replace current playlist with random songs/album",
- " -u Update caches");
+ " -u Update caches",
+ "",
+ "Options:",
+ " -f Use fzf interface",
+ " ",
+ "Without further arguments, clerk starts a tabbed tmux interface");
print join("\n", @output), "\n\n";
}