[[ -f ~/.bashrc ]] && . ~/.bashrc
EDITOR=vi
export EDITOR
source ~/perl5/perlbrew/etc/bashrc
export PATH="${HOME}/bin:${HOME}/.raku/bin:${PATH}"
export GPG_TTY="$(tty)"
eval "$(keychain --eval --inherit any-once --agents ssh id_rsa)"
function e() {
emacsclient -n "$@"
}
function se() {
emacsclient -n "${@/#//sudo::}"
}
function pd() {
if [[ $1 == -b ]]; then
firefox "https://metacpan.org/pod/$2"
else
if type cpandoc &>/dev/null; then
cpandoc "$@"
else
perldoc "$@"
fi
fi
}
function pm() {
local fn
local ex
fn="$(pd -lm "$1")"
ex=$?
if [[ $ex != 0 ]]; then
return $ex
fi
emacsclient -c -n "$fn"
}
function killmerged() {
local -a branches=( $( \
git branch --merged HEAD --no-contains HEAD --format '%(refname)' | \
grep -vE '^refs/heads/(stage|master|svn|develop|uat|stable|live-testing)$' \
) )
branches=( "${branches[@]#refs/heads/}" )
for b in "${branches[@]}"
do
git branch -d $b
done
}
export PERLDOC='-MPod::Text::Color::Delight'
fortune