Add function afsp by gregoa
[abe:zshrc.git] / zsh.d / 50-alias
1 # -*- sh -*-
2 ################
3 # abe's .alias #
4 ################
5
6 # Former \!* using tcsh aliases have been converted to functions
7
8 ### DEBUG ###
9 #set -x
10
11 # One character aliases
12 alias   c=cat
13 #unfunction d
14 alias   d='dirs -v'
15 alias   g=git
16 alias   l=less
17 alias   m=mutt
18 alias   o='$PAGER'
19 alias   q=exit
20 alias   t=task
21 alias   v=vcsh
22 alias   z=zile
23
24 # Two character aliases
25 alias    eg='egrep --color=auto'
26 function ff() { find . -name "$@" }
27 alias    ga='git annex'
28 alias    gr='fgrep --color=auto'
29 alias    qu='quota -v'
30 alias    tn=telnet
31 alias    to=touch
32 function df() { command df -TP "$@" | column -t }
33
34 alias   mx="nslookup -sil -q=mx"
35 alias   ns="nslookup -sil -q=ns"
36
37 alias   ls='ls -F --color=auto'
38 alias   la='ls -AF'
39 alias   ll='ls -AlF'
40
41 alias   uc='perl -Mlocale -pe "\$_=uc(\$_);"'
42 alias   lc='perl -Mlocale -pe "\$_=lc(\$_);"'
43
44 alias   ec=emacsclient
45
46 if alias md > /dev/null; then unalias md; fi
47 function md { mkdir -p "$@" && cd "$@" }
48
49 if alias au > /dev/null; then unalias au; fi
50 alias au='aptitude -u'
51
52 # Needed for /usr/bin/ag
53 if alias ag > /dev/null; then unalias ag; fi
54
55 # Three character aliases
56 alias   acs='apt-cache show --no-all-versions'
57 alias   acsa='apt-cache show -a'
58 alias   acp='apt-cache policy'
59 alias   acd='apt-cache depends'
60 alias   acr='apt-cache rdepends'
61 alias   ac/='apt-cache search'
62 alias   acn='apt-cache search -n'
63 alias   af/='apt-file search'
64 alias   afs='apt-file search'
65 alias   afl='apt-file list'
66 alias   afu='apt-file update'
67 alias   ag/='aptitude search'
68 salias  agi='aptitude install'
69 salias  ag+='aptitude install'
70 salias  ag-='aptitude remove'
71 salias  agr='aptitude remove'
72 salias  ag_='aptitude purge'
73 salias  agp='aptitude purge'
74 salias  agu='apt-get update'
75 salias  agh='aptitude hold'
76 salias  agc='apt-get clean'
77 alias   agw='aptitude why'
78 alias   asv='apt-show-versions'
79 alias   ack=ack-grep
80 function ffi() { find . -iname "$@" }
81 function lpr() { command lpr "$@"; lpq }
82 alias   cls=clear # Yeah, that's from DOS
83 alias   ecn='emacsclient -n'
84 alias   ecc='emacsclient -c'
85 alias   ino='inotail -f'
86 alias   gap='git add -p'
87 alias   gnf='glark --no-filter'
88 alias   mpl=mplayer
89 alias   mpfs='mplayer -fs'
90 alias   mpau='mplayer -vo none'
91 alias   nsl=nslookup
92 alias   ooo=openoffice
93 alias   OOo=openoffice
94
95 function asc() {
96     # Set the title to something more obvious, e.g. the expanded
97     # alias, eh, function
98     print -Pn "\e]0;%n@%m: autossh -t $* 'screen -RdU'\a";
99
100     # For the following hack for getting ssh-agent to work inside the
101     # reattached screen session, see
102     # http://samrowe.com/wordpress/ssh-agent-and-gnu-screen/ and
103     # http://www.stderr.nl/Blog/Software/Mutt/MuttRemoteAttachments.html?seemore=y
104     autossh -x -A -t "$@" 'test -x ~/.mutt/bin/setup-ssh-screen && exec ~/.mutt/bin/setup-ssh-screen || exec screen -RdU'
105 }
106 compdef asc=ssh
107
108 # Four character aliases
109 function assh() {
110     # Set the title to something more obvious, e.g. the expanded
111     # alias, eh, function
112     print -Pn "\e]0;%n@%m: autossh $*\a";
113     autossh "$@"
114 }
115 compdef assh=ssh
116
117 alias   root='ssh root@localhost'
118 alias   acss='apt-cache showsrc'
119 salias  agsu='aptitude safe-upgrade'
120 salias  agdu='aptitude full-upgrade'
121 salias  agma='aptitude markauto'
122 salias  agum='aptitude unmarkauto'
123 salias  agri='aptitude reinstall'
124 salias  aguh='aptitude unhold'
125 salias  agbd='aptitude build-dep'
126 alias   agwn='aptitude why-not'
127 alias   ccal='ccal -e'
128 alias   eccn='emacsclient -c -n'
129
130 # apt-file search for Perl Modules, by gregoa
131 function afsp() {
132     apt-file search $(echo "/$@" | sed -e 's|::|/|g ; s|-|/|g ; s|$|.pm|') | uniq
133 }
134
135 # Five character aliases
136 alias    agrep=ack-grep
137 alias    cgrep='ack-grep --passthru'
138 alias    deurl='$HOME/bin/url_decode.pl'
139 function perlv()        { perl -le "use $1; print "'$'"$1"'::VERSION;' }
140 alias    acsrc='apt-cache showsrc'
141 salias   aguma='aptitude unmarkauto'
142 function mount() {
143     if [[ $# -eq 0 ]]; then
144         command mount | column -t
145     else
146         command mount "$@"
147     fi
148 }
149
150 # noglob aliasses
151 alias   mmv='noglob mmv'
152 alias   wget='noglob wget'
153 alias   find='noglob find'
154 alias   clive='noglob clive'
155 alias   clivescan='noglob clivescan'
156 alias   'youtube-dl'='noglob youtube-dl'
157 alias   translate='noglob translate'
158 alias   links='noglob links'
159 alias   links2='noglob links2'
160 alias   xlinks2='noglob xlinks2'
161 alias   lynx='noglob lynx'
162
163 # Compose key errors
164 alias   ßh=ssh
165
166 # ls sorting (Idea from zsh book)
167 alias lsbig=ls -lhSr
168 alias lssmall=ls -lhS
169 alias lsnew=ls -lhtr
170 alias lsold=ls -lht
171
172 # grep with color by default
173 alias   grep='grep --color=auto'
174 alias   fgrep='fgrep --color=auto'
175 alias   egrep='egrep --color=auto'
176
177 # OpenSSL
178 for i in sha512 sha256 sha1 md5; do
179         ssl-cert-$i() { openssl x509 -noout -fingerprint -$i -in $1 }
180 done
181
182 ssl-cert-fingerprints() {
183         for i in sha512 sha256 sha1 md5; do
184                 ssl-cert-$i $1
185         done
186 }
187
188 ssl-cert-info() {
189         openssl x509 -noout -text -in $1
190         ssl-cert-fingerprints $1
191 }
192
193 ### Set ###
194 alias   setvi='export EDITOR=vi VISUAL=vi'
195 alias   setvim='export EDITOR=vim VISUAL=vim'
196 alias   setzile='export EDITOR=zile VISUAL=zile'
197 alias   setemacs='export EDITOR="emacsclient -a emacs" VISUAL="emacsclient -a emacs"'
198 #alias   edit='$EDITOR'
199 alias   vt100='export TERM=vt100'
200
201 ### Package Management ###
202 alias aptitude-just-recommended='aptitude -o "Aptitude::Pkg-Display-Limit=!?reverse-depends(~i) ( ?reverse-recommends(~i) | ?reverse-suggests(~i) ) !?reverse-recommends(^abe-) !?reverse-suggests(^abe-) ~M !?essential"'
203 alias aptitude-also-via-dependency='aptitude -o "Aptitude::Pkg-Display-Limit=~i !~M ( ?reverse-depends(~i) | ?reverse-recommends(~i) | ?reverse-suggests(~i) ) !?essential"'
204 alias aptitude-review-unmarkauto-libraries='aptitude -o "Aptitude::Pkg-Display-Limit=( ^lib !-dev$ !-dbg$ !-utils$ !-tools$ !-bin$ !-doc$ !^libreoffice | -data$ | -common$ | -base$ !^r-base ) !~M"'
205 alias aptitude-upgradable-to-experimental='aptitude -o "Aptitude::Pkg-Display-Limit=~i ?narrow(!~VCURRENT, ~Aexperimental)"'
206 alias aptitude-newer-than-in-archive='aptitude -o "Aptitude::Pkg-Display-Limit=~i ?any-version(!~O.) !~U !~o"'
207
208 ### BTS ###
209 alias btsmutt='bts --mbox show'
210
211 ### MIA stuff ###
212 mia-query() {
213     if [ -x /org/qa.debian.org/mia/mia-query ]; then
214         /org/qa.debian.org/mia/mia-query "$@"
215     else
216         ssh -xa qa.debian.org /org/qa.debian.org/mia/mia-query "$@"
217     fi
218 }
219
220 ### Gags ###
221 #alias  y='echo "Hallo, sind wir noch wach, oder sind wir wieder auf die Y-Taste gefallen? ;-)"'
222
223 # Teppfihler
224 alias   amek=make
225 alias   nls=nsl
226 #alias  sl=ls
227 alias   les=less
228 alias   lesss=less
229
230 ### Laden weiterer Aliasse
231
232 #alias  xal='source ~/.Xalias'
233
234 #if ( -f $home/.alias.mtools ) then
235 #  source $home/.alias.mtools
236 #endif
237 #if ( -f $home/.alias.wapua ) then
238 #  source $home/.alias.wapua
239 #endif
240
241
242 # Idea from Sven's zsh Book (and yeah I overwrite the previous reload
243 # function which reloaded the zshrc.
244 start stop restart reload force-reload() {
245     sudo invoke-rc.d $1 $0
246 }
247
248 # From http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=299228
249 apt-rbdepends () {
250     grep-dctrl -F Build-Depends "$1" -s Package /var/lib/apt/lists/*_Sources \
251         | sort -u
252 }