zaw-jaro-addr.zsh (500B)
1 function zaw-src-jaro-addr() { 2 alladdr="$(jaro addr)" 3 : ${(A)candidates::=${(f)alladdr}} 4 # : ${(A)cand_descriptions::=${(f)alladdr}} 5 actions=(zaw-src-jaro-addemail) 6 act_descriptions=("append email address") 7 # options=(-t "$title") 8 } 9 10 function zaw-src-jaro-addemail(){ 11 BUFFER="$BUFFER `print $1 | awk '{ for (i=1;i<=NF;i++) 12 if ( $i ~ /[[:alnum:]]@[[:alnum:]]/ ) { 13 gsub(/<|>|,/ , "" , $i); print $i } }'`" 14 15 } 16 17 zaw-register-src -n jaro-addr zaw-src-jaro-addr