#! /bin/zsh
#
# this file:
#   https://dataswamp.org/~incal/conf/.zsh/zsh-to-emacs

alias "emacs-dm"="emacs --module-assertions"

egrep-in-files () {
    local key=$1
    shift

    local cols=always

    if [[ $key == "--no-colors" ]]; then
        cols=no
        key=$1
        shift
    fi

    local fs=($@)
    egrep --color=$cols $key $fs | grep -v "old-zsh"
}

# mail

MAIL_PATH=~/Mail/mail

find-in-mail () {
    local args=($@)
    egrep-in-files $args ${MAIL_PATH}/misc/*
    egrep-in-files $args ${MAIL_PATH}/dataswamp/*
}
alias fim=find-in-mail

find-in-mail-sent () {
    local args=($@)
    egrep-in-files $args ${MAIL_PATH}/sent/*
}
alias fims=find-in-mail-sent

# homepage

find-in-html () {
    local args=($@)
    egrep-in-files $args ~/public_html/**/*.html
}

# zsh

find-in-zsh () {
    local args=($@)
    egrep-in-files $args ~/.zsh/**/*(.) ~/.zshrc ~/.zprofile ~/.zshenv
}
alias z=find-in-zsh

# Elisp

find-in-elisp  () {
    local args=($@)
    egrep-in-files $args ~/.emacs.d/emacs-init/**/*.el ~/.emacs
}
alias e=find-in-elisp

pipe-out () {
    local pipe_file=~/.emacs.d/piped-out.txt
    echo -n > $pipe_file

    local input
    if (( $# )); then      # pipe-out $(oh) la
        input=$*
    else
        read -d \\0 input  # echo $(oh la) | pipe-out
    fi
    echo $input >> $pipe_file
}