galgen.zsh

   1 #!/usr/bin/env zsh
   2 # Copyright (C) 2022 Sergey Matveev <stargrave@stargrave.org>
   3
   4 set -e
   5 setopt EXTENDED_GLOB
   6
   7 pagesize=100
   8
   9 imgs=((*.jxl|*.webp~*.preview.webp)(Om))
  10 for (( i=1 ; i <= ${#imgs} ; i++ )) {
  11     local img=${imgs[$i]}
  12     echo $i $img
  13     local dst=$i.img.html
  14     cat > $dst <<EOF
  15 <!DOCTYPE html>
  16 <html><head><title>Image ${i}/${#imgs}: $img</title></head><body>
  17 EOF
  18     [[ $i -eq 1 ]] ||
  19         echo "<a href=\"$(( $i - 1 )).img.html\">&lt;&lt;&lt;</a>" >> $dst
  20     [[ $i -eq ${#imgs} ]] ||
  21         echo "<a href=\"$(( $i + 1 )).img.html\">&gt;&gt;&gt;</a>" >> $dst
  22     echo "<hr/><img alt=\"$img\" src=\"$img\"/>" >> $dst
  23     [[ -r ${img}.txt ]] && {
  24         echo "<hr/><pre>" >> $dst
  25         cat ${img}.txt >> $dst
  26         echo "</pre>" >> $dst
  27     }
  28     echo "<hr/>" >> $dst
  29     if [[ $img:e = jxl ]] ; then
  30         echo "<pre>" >> $dst
  31         jxlinfo $img > $img.info
  32         cat $img.info >> $dst
  33         echo "</pre>" >> $dst
  34         echo "Alternative formats:" >> $dst
  35         if grep -q "JPEG bitstream reconstruction" $img.info ; then
  36             [[ -r $img.jpg ]] || {
  37                 djxl $img $img.jpg
  38                 touch -r $img $img.jpg
  39             }
  40             echo "<a href=\"$img.jpg\">JPEG</a>" >> $dst
  41         else
  42             [[ -r $img.png ]] || {
  43                 djxl $img $img.ppm
  44                 pamtopng < $img.ppm > $img.png
  45                 rm $img.ppm
  46                 pngcrush -rem alla -rem allb -z 2 $img.png $img.png.png
  47                 mv $img.png.png $img.png
  48                 advpng -z -4 $img.png
  49                 touch -r $img $img.png
  50             }
  51             echo "<a href=\"$img.png\">PNG</a>" >> $dst
  52         fi
  53         rm $img.info
  54         [[ -r $img.preview.webp ]] || djxl $img $img.ppm
  55     else
  56         echo "<pre>" >> $dst
  57         webpinfo $img >> $dst
  58         echo "</pre>" >> $dst
  59         [[ -r $img.preview.webp ]] || dwebp $img -ppm -o $img.ppm
  60     fi
  61     echo "<hr/><pre>" >> $dst
  62     exiftool -a -u -g1 $img >> $dst
  63     echo "</pre>" >> $dst
  64     [[ -r $img.ppm ]] && {
  65         pnmscale -w 100 < $img.ppm > $img.ppm.ppm
  66         mv $img.ppm.ppm $img.ppm
  67         cwebp -pass 10 -alpha_filter best -m 6 -mt -o $img.preview.webp $img.ppm
  68         rm $img.ppm
  69         touch -r $img $img.preview.webp
  70     }
  71     echo "</body></html>" >> $dst
  72     touch -r $img $dst
  73 }
  74
  75 pages=$(( ${#imgs} / $pagesize ))
  76 [[ $(( $pages * $pagesize )) -lt ${#imgs} ]] && pages=$(( $pages + 1 ))
  77 for (( p=1 ; p <= $pages ; p++ )) {
  78     local dst=$p.page.html
  79     cat > $dst <<EOF
  80 <!DOCTYPE html>
  81 <html><head><title>Page ${p}/$pages</title></head><body>
  82 EOF
  83     [[ $p -eq 1 ]] ||
  84         echo "<a href=\"$(( $p - 1 )).page.html\">&lt;&lt;&lt;</a>" >> $dst
  85     [[ $p -eq $pages ]] ||
  86         echo "<a href=\"$(( $p + 1 )).page.html\">&gt;&gt;&gt;</a>" >> $dst
  87     echo "| <a href=\"1.page.html\">home</a>" >> $dst
  88     echo "| <a href=\"${pages}.page.html\">end</a>" >> $dst
  89     echo "<hr/>" >> $dst
  90     for (( i=1 ; i <= $pagesize ; i++ )) {
  91         img=$(( ( $p - 1 ) * $pagesize + $i ))
  92         [[ $img -le ${#imgs} ]] || break
  93         echo "<a href=\"${img}.img.html\">" >> $dst
  94         echo "<img alt=\"preview ${img}\" src=\"${imgs[$img]}.preview.webp\"/></a>" >> $dst
  95     }
  96     echo "</body></html>" >> $dst
  97     echo page $p
  98 }