Skip to content

add --dev action #6

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 2 commits into
base: master
Choose a base branch
from
Open

add --dev action #6

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
2837d87
add --dev action
iamalnewkirk May 25, 2020
7429785
void context map is satan (he says)
iamalnewkirk May 25, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
47 changes: 47 additions & 0 deletions bin/plx
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -284,6 +284,39 @@ sub run_action_cmd {
$self->run_action_exec($cmd, @args);
}

sub run_action_dev {
my ($self) = @_;
$self->ensure_layout_config_dir;

unless (-d (my $dir = $self->layout_dir('dev'))) {
mkdir($dir) or die "Couldn't make script dir ${dir}: $!";
my $file = $self->layout_file('dev', 'find');
open my $wfh, '>', $file or die "Couldn't open ${file}: $!";
print $wfh <<'EOF';
#!perl

use feature 'say';
use File::Basename 'basename';
use File::Spec::Functions 'catfile';

my $in = $ARGV[0] || '.*';

say(basename($_)) for grep /$in/, map glob(catfile($_, '*')), grep -d, qw(
bin
dev
local/bin
script
scripts
);
EOF
stderr <<END;
.plx script directory [dev] initialised with script [find]:

plx find <arg>
END
}
}

sub run_action_perl {
my ($self, @call) = @_;
$self->ensure_layout_config_dir;
Expand Down Expand Up @@ -621,6 +654,7 @@ a modified C<--cpanm> action that uses an inline C<App::cpanminus>.
plx --init <perl> # Initialize layout config for .
plx --base # Show layout base dir
plx --base <base> <action> <args> # Run action with specified base dir
plx --dev # Initialize (dev) script dir

plx --perl # Show layout perl binary
plx --libs # Show layout $PERL5LIB entries
Expand Down Expand Up @@ -753,6 +787,19 @@ Without arguments, sugar for C<--config perl>.
Otherwise, sets up the layout's environment variables and C<exec>s the
layout's perl with the given options and arguments.

=head2 --dev

plx --dev

Initializes the ./dev script directory with ./dv/find.

There are various common directories which are searched in order to resolve
script execution including the C<dev> directory. You can add your own scripts
to any of these directories and have C<plx> find and execute them. Unless the
C<dev> directory already exists in the current working directory, this command
creates that directory and seeds it with a C<find> script that helps you see
what scripts are available across these directories.

=head2 --cmd

plx --cmd <cmd> <args> # DWIM command:
Expand Down