#! /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
}