blob: a1cb3d51e14d5ec5f975ae4827851aed53e5c6c3 (
plain)
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
|
[[ -f ~/.bashrc ]] && . ~/.bashrc EDITOR=vi export EDITOR source ~/perl5/perlbrew/etc/bashrc export PATH="${HOME}/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() { for b in $(git branch --merged HEAD --no-contains HEAD|grep -vE 'stage|master|svn|develop'); do git branch -d $b && git push origin :$b done } export PERLDOC='-MPod::Text::Color::Delight' fortune
|