Fix previews generation

[galgen.git] / galgen.zsh

diff --git a/galgen.zsh b/galgen.zsh
index c8212dd9487c3f71d10bd23338790d8692ffb833..4ab43c4abdf8c661807fd1a2250a986150e5322b 100755 (executable)
--- a/galgen.zsh
+++ b/galgen.zsh
@@ -1,7 +1,7 @@
 #!/usr/bin/env zsh
 # Copyright (C) 2022-2023 Sergey Matveev <stargrave@stargrave.org>
 
-VERSION=0.2.0
+VERSION=0.7.0
 
 set -e
 
@@ -18,26 +18,76 @@ exifTagsOmit=(
     FilePermissions
 )
 
-djxl2ppm() {
-    djxl $1 $1.ppm || {
-        djxl $1 $1.pgm
-        mv $1.pgm $1.ppm
-    }
-    [[ -r ${1}-ec0.ppm ]] || return 0
-    mv ${1}-ec0.ppm $1.ppm
-    rm ${1}-ec1.pgm
-}
-
 [[ -z $style ]] || style="<link rel=\"stylesheet\" type=\"text/css\" href=\"$style\">"
 
+mkdir -p alt .info preview
 setopt EXTENDED_GLOB
-imgs=((*.jxl|*.webp~*.preview.webp)($ordering))
+
+imgs=()
+for img (*.jxl(N)) { [[ -r .info/$img.img ]] || imgs=($imgs $img) }
+[[ ${#imgs} == 0 ]] || {
+    echo Infos... >&2
+    parallel "jxlinfo {} > .info/{}.img" ::: $imgs
+}
+
+imgs=()
+src=(*.jxl)
+for img ($src) { [[ -r .info/$img.exif ]] || imgs=($imgs $img) }
+src=()
+[[ ${#imgs} == 0 ]] || {
+    echo Exif info... >&2
+    parallel "exiftool -escapeHTML -htmlFormat -groupHeadings --${=${(j/ --/)exifTagsOmit}} {} > .info/{}.exif" ::: $imgs
+}
+
+imgs=((*.jxl)($ordering))
 pages=$(( ${#imgs} / $pagesize ))
 [[ $(( $pages * $pagesize )) -lt ${#imgs} ]] && pages=$(( $pages + 1 ))
 
 local tmp=`mktemp`
 trap "rm -f $tmp" HUP PIPE INT QUIT TERM EXIT
 
+pams=()
+djxl2pam="( djxl --quiet {} ppm:- || djxl --quiet {} pgm:- )"
+if [[ -n "$NOALT" ]] ; then
+    for img ($imgs) {
+        [[ -r preview/$img.webp ]] || pams=($pams $img)
+    }
+else
+    jpgs=()
+    pngs=()
+    for img ($imgs) {
+        [[ -r .info/$img.img ]]
+        [[ -r alt/$img.jpg ]] || [[ -r alt/$img.png ]] && : || {
+            grep -q "JPEG bitstream reconstruction" .info/$img.img &&
+                jpgs=($jpgs $img) || pngs=($pngs $img)
+        }
+        [[ -r preview/$img.webp ]] || pams=($pams $img)
+    }
+
+    [[ ${#jpgs} == 0 ]] || {
+        echo JPEG reconstruction... >&2
+        parallel "djxl --quiet {} alt/{}.jpg && touch -r {} alt/{}.jpg" ::: $jpgs
+    }
+    jpgs=()
+
+    [[ ${#pngs} == 0 ]] || {
+        echo PNG generation... >&2
+        parallel "$djxl2pam | pamtopng > {}.png" ::: $pngs
+        parallel "pngcrush -warn -rem alla -rem allb -z 2 {}.png alt/{}.png && rm {}.png" ::: $pngs
+        parallel "advpng --quiet --recompress -4 alt/{}.png && touch -r {} alt/{}.png" ::: $pngs
+    }
+    pngs=()
+fi
+
+mkpreview="pnmscale -w 100"
+mkpreview="$mkpreview | cwebp -quiet -pass 10 -alpha_filter best -m 6 -o preview/{}.webp -- -"
+mkpreview="$mkpreview && touch -r {} preview/{}.webp"
+[[ ${#pams} == 0 ]] || {
+    echo Generating previews... >&2
+    parallel "$djxl2pam | $mkpreview" ::: $pams
+}
+pams=()
+
 for (( i=1 ; i <= ${#imgs} ; i++ )) {
     local img=${imgs[$i]}
     echo $i $img
@@ -75,48 +125,23 @@ EOF
     }
     [[ -r ${img}.html ]] && cat ${img}.html >> $tmp
     echo "<hr/>" >> $tmp
-    if [[ $img:e = jxl ]] ; then
-        echo "<pre>" >> $tmp
-        jxlinfo $img > $img.info
-        cat $img.info >> $tmp
-        echo "</pre>" >> $tmp
-        echo "Alternative formats:" >> $tmp
-        if grep -q "JPEG bitstream reconstruction" $img.info ; then
-            [[ -r $img.jpg ]] || {
-                djxl $img $img.jpg
-                touch -r $img $img.jpg
-            }
-            echo "<a href=\"$img.jpg\">JPEG</a>" >> $tmp
-        else
-            [[ -r $img.png ]] || {
-                djxl2ppm $img
-                pamtopng < $img.ppm > $img.png
-                rm $img.ppm
-                pngcrush -rem alla -rem allb -z 2 $img.png $img.png.png
-                mv $img.png.png $img.png
-                advpng -z -4 $img.png
-                touch -r $img $img.png
+    [[ -r .info/$img.img ]]
+    echo "<pre>" >> $tmp
+    cat .info/$img.img >> $tmp
+    echo "</pre>" >> $tmp
+    [[ -n "$NOALT" ]] || {
+        if [[ $img:e = jxl ]] ; then
+            echo "Alternative formats:" >> $tmp
+            [[ -r alt/$img.jpg ]] && {
+                echo "<a href=\"alt/$img.jpg\">JPEG</a>" >> $tmp
+            } || {
+                echo "<a href=\"$img.png\">PNG</a>" >> $tmp
             }
-            echo "<a href=\"$img.png\">PNG</a>" >> $tmp
         fi
-        rm $img.info
-        [[ -r $img.preview.webp ]] || djxl2ppm $img
-    else
-        echo "<pre>" >> $tmp
-        webpinfo $img >> $tmp
-        echo "</pre>" >> $tmp
-        [[ -r $img.preview.webp ]] || dwebp $img -ppm -o $img.ppm
-    fi
-    echo "<hr/>" >> $tmp
-    exiftool -escapeHTML -htmlFormat -groupHeadings \
-        --${=${(j/ --/)exifTagsOmit}} $img >> $tmp
-    [[ -r $img.ppm ]] && {
-        pnmscale -w 100 < $img.ppm > $img.ppm.ppm
-        mv $img.ppm.ppm $img.ppm
-        cwebp -pass 10 -alpha_filter best -m 6 -mt -o $img.preview.webp $img.ppm
-        rm $img.ppm
-        touch -r $img $img.preview.webp
+        echo "<hr/>" >> $tmp
     }
+    [[ -r .info/$img.exif ]]
+    cat .info/$img.exif >> $tmp
     echo "</body></html>" >> $tmp
     cmp -s $tmp $dst || {
         cat $tmp > $dst
@@ -169,7 +194,7 @@ EOF
             alt=`cat ${imgs[$img]}.txt`
             title="title=\"$alt\""
         }
-        echo "<img alt=\"$alt\" $title src=\"${imgs[$img]}.preview.webp\"/></a>" >> $tmp
+        echo "<img alt=\"$alt\" $title src=\"preview/${imgs[$img]}.webp\"/></a>" >> $tmp
     }
     echo "</body></html>" >> $tmp
     cmp -s $tmp $dst || {