#! /bin/zsh
#
# this file:
#   https://dataswamp.org/~incal/conf/.zsh/drugs

DED=~/.ded

drugs-set-next () {
    local beg=${1:-now}
    local items=${2:-$(( 8 * 30 ))}
    local every_day=${3:-5}

    local days=$(( int($items/$every_day) - 1 ))
    local end=$(dateutils.dadd -f %F $beg $days)

    echo $end > $DED
    echo "last day set: $end"
}
alias dead=drugs-set-next

drugs-every-day () {
    local items=${1:-0}

    local end=$(<$DED)
    local days=$(dateutils.ddiff now $end -f '%d')
    local every_day=$(( $items / ($days + 1.0) ))

    if (( $items > 0 )); then
        printf "%dp (%.1fp/d) %dd\n" $items $every_day $days
    else
        echo "0p ${days}d"
    fi
}
alias ded=drugs-every-day