# Takes several screen shots in a raw

# For usage, see shoot-screen -h

#

# MiKael, 2012-08

function shoot-screen() {

    local prefix="screenshot-"

    local ext="jpg"

    local delay=4

    local opt

    local usage=0

    while getopts "hp:e:d:" opt; do

        case "$opt" in

            (p) prefix=$OPTARG;;

            (e) ext=$OPTARG;;

            (d) delay=$OPTARG;;

            (h) usage=1; break;;

            (*) usage=2; break;;

        esac

    done

    if (( usage != 0 )); then

        print "Usage: $0 [-h] [-p prefix] [-e extension] [-d delay]" >&2

    fi

    local n=0

    while :; do

        print -n 'Press Enter (type "quit" to leave) > '

        read l

        if [[ $l == "q" || $l == "quit" ]]; then break; fi

        print -n "Get ready (waiting for $delay seconds)..."

        sleep $delay

        local filename

        while :; do

            (( n = n+1 ))

            filename=$(printf "%s%03d.%s" $prefix n $ext)

            [[ -f $filename ]] || break

        done

        print "\nCapture: $filename"

        import $filename

        print

    done

}