#! /bin/zsh
#
# this file:
#   http://user.it.uu.se/~embe8573/conf/.zsh/video-meta
#   https://dataswamp.org/~incal/conf/.zsh/video-meta

video-seconds () {
    local fs=($@)

    local many=false
    [[ $# > 1 ]] && many=true

    local dur
    local f
    for f in $fs; do
        dur=$(exiftool -j $f | jq -aMr '.[].Duration')
        if [[ $dur != "null" ]]; then
            $many && echo -n "$f "
            date -d "1970-01-01 ${dur}Z" +'%s'
        fi
    done
}

video-property () {
    local p=$1
    shift

    local fs=($@)

    local v
    local f
    for f in $fs; do
        v=$(exiftool -j $f | jq -aMr ".[].$p")
        if [[ $v != "null" ]]; then
            echo -n $v | sed -e "s/\"//g"
            [[ $# > 1 ]] && echo -n " $f[0,72]"
            echo
        fi
    done
}

video-resolution () {
    video-property ImageSize $@
}
alias res=video-resolution

video-width () {
    video-property ImageWidth $@
}
alias vid-w=video-width

video-height () {
    video-property ImageHeight $@
}
alias vid-h=video-height

video-length () {
    video-property Duration $@
}
alias len=video-length