#!/bin/zsh

. ./_init.sh

print "insert fronts, page 1 first: "
read
OUT=scan.%02d.png START_PAGE=1 INCR_PAGE=2 SOURCE=ADF ${SCAN}

print "insert backs, last page first: "
read
OUT=scan.%02d.back.png START_PAGE=2 INCR_PAGE=2 SOURCE=ADF ${SCAN}

paste \
   =(ls -1 scan*.back.png) \
   =(ls -1r scan*.back.png) \
   | perl -lpe '@_=split; $_[1]=~s/\.back//; $_="mv $_[0] $_[1]"' \
   | sh

for x (scan.*.png) {
    gm convert -units PixelsPerInch -resample 150x150 -quality 90 $x $x:r.jpg
}
gm convert scan.*.jpg scan.pdf

scp scan.pdf ditto:/opt/paperless/consume/scan-`date +%s`.pdf