#! /bin/zsh
#
# this file:
#   https://dataswamp.org/~incal/conf/.zsh/remote-mic
#
# (find-file "/sunos-ssh:embe8573@polhem.it.uu.se:.bash_profile")

MU='embe8573'
MDOM='it.uu.se'
MHOST="polhem.${MDOM}"
MLOGIN="$MU@$MHOST"
WEBPAGE="http://user.${MDOM}/~${MU}"

mic-debug () {
    ssh \
        -l $MU                    \
        -o ControlMaster=auto     \
        -o ControlPath='tramp.%C' \
        -o ControlPersist=no      \
        -e none                   \
        $MHOST
}

get-ebc () {
    echo $@ | tr ' ' '\n' | parallel wget $WEBPAGE/{}
}
alias ebc-get=get-ebc

mic () {
    local pass=$(emacs --batch --load ~/.emacs.d/ssh-pass.el 2>&1)
    sshpass -p $pass ssh -o ServerAliveInterval=120 $MLOGIN
}

mic-get () {
    rsync -aLv $MLOGIN:/home/$MU/public_html/$1 .
}

mcp () {
    rsync                  \
        -aLv               \
        --exclude='*.jpg'  \
        --exclude='*.mp4'  \
        --exclude='*.png'  \
        --exclude='blog/*' \
                           $@ $MLOGIN:
}

mic-cos () {
    mcp ~/public_html ~/.mailrc
    echo "MIC done"
}
alias cos-mic=mic-cos