.bash_profile


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

# /etc/skel/.bash_profile 
 
# This file is sourced by bash for login shells.  The following line 
# runs your .bashrc and is recommended by the bash info pages. 
[[ -f ~/.bashrc ]] && . ~/.bashrc
 
EDITOR=vi
export EDITOR
 
source ~/perl5/perlbrew/etc/bashrc
source ~/.config/nvm/nvm.sh
export PATH="${HOME}/bin:${HOME}/.raku/bin:${HOME}/.local/bin:${PATH}"
export GPG_TTY="$(tty)"
 
eval "$(keychain --eval --inherit any-once --agents ssh id_rsa id_ed25519 id_ed25519_veritone)"
 
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() {
    for b in $(git branch --merged HEAD --no-contains HEAD|grep -vE 'stage|master|svn|develop|uat'); do
        b="${b##+( )}"
        b="${b%%+( )}"
        git branch -d $b && git push origin :$b
    done
}
 
export PERLDOC='-MPod::Text::Color::Delight'
 
fortune