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

dlpw () {
    clear

    local min=4
    local dur=$min

    [[ $dur > $min ]] && echo "Hold $dur seconds ..."

    local i=0
    while true; do
        (( $i % 10 == 0 )) && left-short
        i=$(( $i + 1 ))
        dlp $dur
    done
}
alias {down,downs}=dlpw

dlp () {
    local dur=${1:-5}
    local disk=${2:-sda}

    local beg
    local end

    local awk_cmd="/$disk/{print \$4}"

    beg=$(sudo df | awk $awk_cmd)
    sleep $dur
    end=$(sudo df | awk $awk_cmd)

    local b=$(( $beg - $end ))
    local speed=$(( $b / ($dur * 1.0) ))

    local out=$(printf "%.0f KB/s\n" $speed)
    echo ${(l:9:: :)out}
}