53 lines
2.0 KiB
Bash
53 lines
2.0 KiB
Bash
|
# oh-my-zsh library helper file for Perl prompts and the like
|
||
|
|
|
||
|
|
ZSH_THEME_PERL_PROMPT_PREFIX=""
|
||
|
|
ZSH_THEME_PERL_PROMPT_SUFFIX=""
|
||
|
|
|
||
|
|
function perl_prompt_info {
|
||
|
|
|
||
|
|
# there are a number of environment variables we might expect to see in a
|
||
|
|
# typical, modern Perl environment. Three of the more popular (and
|
||
|
|
# mildly, at least, sane ways) options involve just using the system perl,
|
||
|
|
# using the system perl with a local::lib-managed environment, and using
|
||
|
|
# perlbrew (and letting it manage local::lib libraries, if any). We can
|
||
|
|
# expect to see things like this:
|
||
|
|
|
||
|
|
# e.g.
|
||
|
|
#PERLBREW_BASHRC_VERSION=0.63
|
||
|
|
#PERLBREW_HOME=/home/rsrchboy/.perlbrew
|
||
|
|
#PERLBREW_LIB=trunk
|
||
|
|
#PERLBREW_MANPATH=/home/rsrchboy/.perlbrew/libs/perl-5.16.2@trunk/man:/home/rsrchboy/perl5/perlbrew/perls/perl-5.16.2/man
|
||
|
|
#PERLBREW_PATH=/home/rsrchboy/.perlbrew/libs/perl-5.16.2@trunk/bin:/home/rsrchboy/perl5/perlbrew/bin:/home/rsrchboy/perl5/perlbrew/perls/perl-5.16.2/bin
|
||
|
|
#PERLBREW_PERL=perl-5.16.2
|
||
|
|
#PERLBREW_ROOT=/home/rsrchboy/perl5/perlbrew
|
||
|
|
#PERLBREW_VERSION=0.63
|
||
|
|
#PERL_LOCAL_LIB_ROOT=/home/rsrchboy/.perlbrew/libs/perl-5.16.2@trunk
|
||
|
|
#PERL5LIB=/home/rsrchboy/.perlbrew/libs/perl-5.16.2@trunk/lib/perl5
|
||
|
|
|
||
|
|
# we assume perlbrew and local::lib, but don't check for too much else.
|
||
|
|
|
||
|
|
# XXX: NOT FINISHED!
|
||
|
|
# TODO: needs determination of *where* perl is if not /usr/bin/perl, as that's not system perl
|
||
|
|
#
|
||
|
|
|
||
|
|
#PSTAT=''
|
||
|
|
|
||
|
|
if [ -z $PERLBREW_PERL ] ; then
|
||
|
|
PSTAT="system-perl"
|
||
|
|
if [ $PERL_LOCAL_LIB_ROOT ] ; then
|
||
|
|
PSTAT="$PSTAT@${PERL_LOCAL_LIB_ROOT/#:$HOME/~}"
|
||
|
|
fi
|
||
|
|
elif [ $PERLBREW_PERL ] ; then
|
||
|
|
PSTAT="$PERLBREW_PERL"
|
||
|
|
if [ $PERLBREW_LIB ] ; then
|
||
|
|
PSTAT="$PSTAT@$PERLBREW_LIB"
|
||
|
|
fi
|
||
|
|
elif [ $PERL_LOCAL_LIB_ROOT ] ; then
|
||
|
|
#echo ' %{$_is%}and %{$fg[cyan]%}local::lib at' $PERL_LOCAL_LIB_ROOT
|
||
|
|
fi
|
||
|
|
|
||
|
|
# only print if we actually have anything interesting to print
|
||
|
|
test ! -z "$PSTAT" && echo "$ZSH_THEME_PERL_PROMPT_PREFIX$PSTAT$ZSH_THEME_PERL_PROMPT_SUFFIX"
|
||
|
|
}
|
||
|
|
|