alias listaliases {
close -@ @aliases
window -nk0 @aliases
var %i = 1, %o = $+(+,$iif(-l* !iswm $1,(?!-l +\S)),(\S+))
while $alias(%i) {
filter -fwg $+(",$ifmatch,") @aliases /^(?i)(?>n\d+=|)[^; ]\S* +\S/
inc %i
}
var %i = 1, %a = $line(@aliases,0)
while $script(%i) {
filter -fwg $+(",$ifmatch,") @aliases /^(?i)(?>n\d+=|)alias %o +\S/
inc %i
}
%i = $line(@aliases,0)
while %i > %a {
!.echo -q $regex($line(@aliases,%i),/^(?>n\d+=|)alias +(?:-l +)?(\S+) /i)
rline @aliases %i $regml(1)
dec %i
}
while %i {
!.echo -q $regex($line(@aliases,%i),/^(?>n\d+=|)([^; ]\S*)/i)
rline @aliases %i $regml(1)
dec %i
}
filter -wwct 2 47 @aliases @aliases
window -a @aliases
}