Fix previews generation

diff --git a/galgen.zsh b/galgen.zsh
index 7c8282145c523c55891f95ee634f5caca9d04fa6..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.6.0
+VERSION=0.7.0
 
 set -e
 
@@ -46,12 +46,15 @@ pages=$(( ${#imgs} / $pagesize ))
 local tmp=`mktemp`
 trap "rm -f $tmp" HUP PIPE INT QUIT TERM EXIT
 
-[[ -n "$NOALT" ]] || {
-    echo HERE
-    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=()
-    pams=()
     for img ($imgs) {
         [[ -r .info/$img.img ]]
         [[ -r alt/$img.jpg ]] || [[ -r alt/$img.png ]] && : || {
@@ -67,7 +70,6 @@ trap "rm -f $tmp" HUP PIPE INT QUIT TERM EXIT
     }
     jpgs=()
 
-    djxl2pam="( djxl --quiet {} ppm:- || djxl --quiet {} pgm:- )"
     [[ ${#pngs} == 0 ]] || {
         echo PNG generation... >&2
         parallel "$djxl2pam | pamtopng > {}.png" ::: $pngs
@@ -75,7 +77,7 @@ trap "rm -f $tmp" HUP PIPE INT QUIT TERM EXIT
         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 -- -"