#! /bin/zsh # # this file: # http://user.it.uu.se/~embe8573/conf/.zsh/zsh-to-emacs # https://dataswamp.org/~incal/conf/.zsh/zsh-to-emacs elisp-lines () { for f in **/*.el; do wc -l $f done } emacs-byte-compile () { local -a files files=($@) emacs -Q -batch -f batch-byte-compile $files } egrep-in-files () { local search=$1 shift local -a files files=($@) egrep --color=always $search $files # egrep --color=no $search $files } # mail export MAIL_PATH=~/Mail/mail find-in-mail-misc () { local key=$1 egrep-in-files $key ${MAIL_PATH}/misc/* } alias mail-misc=find-in-mail-misc find-in-mail-sent () { local key=$1 egrep-in-files $key ${MAIL_PATH}/sent/* } alias {mail-sent,ms}=find-in-mail-sent # homepage find-in-html () { local key=$1 egrep-in-files $key ~/public_html/**/*.html } # zsh find-in-zsh () { local key=$1 egrep-in-files $key ~/.zsh/**/*(.) ~/.zshrc ~/.zprofile ~/.zshenv } alias z=find-in-zsh # Emacs find-in-elisp () { local key=$1 egrep-in-files $key ~/.emacs.d/emacs-init/**/*.el ~/.emacs } alias e=find-in-elisp pipe-out () { local pipe_file=~/.emacs.d/piped-out.txt local input if (( $# )); then # usage: pipe-out `cmd` input=$* # or: pipe-out `cmd1` plain `cmd2` (etc.) else read -d \\0 input # cmd | pipe-out fi echo $input >> $pipe_file }