scripts/misc/new-profile

33 lines
775 B
Text
Raw Permalink Normal View History

2011-08-12 14:44:43 +01:00
#!/bin/bash
#
# This is based on an idea stolen from Oliver; see his great blog post
# http://blogs.perl.org/users/oliver_gorwits/2011/07/locallibs-for-dist-development.html
# for the rationale.
#
# This script works hand-in-hand with switch-profile.
#
set -e
if [ -z "$1" ]
then
echo 'Pass the profile name, please' >&2
exit 2
fi
echo "Creating local::lib for $1 ..."
sleep 3
test -d "${HOME}/perl-profiles" || mkdir -v "${HOME}/perl-profiles"
PROFILE_DIR="${HOME}/perl-profiles/$1"
curl -L http://cpanmin.us/ | perl - --notest --quiet --local-lib-contained "${PROFILE_DIR}" \
2011-08-12 14:44:43 +01:00
App::cpanminus \
Dist::Zilla \
App::local::lib::helper
mkdir -p "${PROFILE_DIR}/etc"
cat > "${PROFILE_DIR}/etc/bashrc" <<EOF
export PS1="\u@\h:\w [\$PROFILE]\\\$ "
EOF