.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
60
61
62

# 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
export PATH="${HOME}/bin:${HOME}/.raku/bin:${PATH}"
export GPG_TTY="$(tty)"
 
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'
 
if [[ -z "$DISPLAY" ]]; then
    TTY=$(tty)
    [[ "${TTY/tty}" != "$TTY" && "${TTY:8:1}" = "8" ]] &&
        exec startx >~/xsession-errors 2>&1
fi
 
if [[ -z "$DBUS_SESSION_BUS_ADDRESS" && -e .dbus.env ]]; then
    source .dbus.env
fi