galgen.zsh

   1 #!/usr/bin/env zsh
   2 # Copyright (C) 2022-2023 Sergey Matveev <stargrave@stargrave.org>
   3
   4 VERSION=0.3.0
   5
   6 set -e
   7
   8 pagesize=${PAGESIZE:-100}
   9 ordering=${ORDERING:-Om}
  10 style=$STYLE
  11
  12 exifTagsOmit=(
  13     ExifToolVersion
  14     Directory
  15     FileAccessDate
  16     FileAttributes
  17     FileInodeChangeDate
  18     FilePermissions
  19 )
  20
  21 [[ -z $style ]] || style="<link rel=\"stylesheet\" type=\"text/css\" href=\"$style\">"
  22
  23 mkdir -p alt info preview
  24 setopt EXTENDED_GLOB
  25
  26 imgs=()
  27 for img (*.jxl(N)) { [[ -r info/$img.img ]] || imgs=($imgs $img) }
  28 [[ ${#imgs} == 0 ]] || {
  29     echo JPEG XL info... >&2
  30     parallel "jxlinfo {} > info/{}.img" ::: $imgs
  31 }
  32
  33 imgs=()
  34 for img (*.webp(N)) { [[ -r info/$img.img ]] || imgs=($imgs $img) }
  35 [[ ${#imgs} == 0 ]] || {
  36     echo WebP info... >&2
  37     parallel "webpinfo {} > info/{}.img" ::: $imgs
  38 }
  39
  40 imgs=()
  41 src=((*.jxl|*.webp))
  42 for img ($src) { [[ -r info/$img.exif ]] || imgs=($imgs $img) }
  43 src=()
  44 [[ ${#imgs} == 0 ]] || {
  45     echo Exif info... >&2
  46     parallel "exiftool -escapeHTML -htmlFormat -groupHeadings --${=${(j/ --/)exifTagsOmit}} {} > info/{}.exif" ::: $imgs
  47 }
  48
  49 imgs=((*.jxl|*.webp)($ordering))
  50 pages=$(( ${#imgs} / $pagesize ))
  51 [[ $(( $pages * $pagesize )) -lt ${#imgs} ]] && pages=$(( $pages + 1 ))
  52
  53 local tmp=`mktemp`
  54 trap "rm -f $tmp" HUP PIPE INT QUIT TERM EXIT
  55
  56 jpgs=()
  57 pngs=()
  58 ppms_jxl=()
  59 ppms_webp=()
  60 for img ($imgs) {
  61     [[ -r info/$img.img ]]
  62     if [[ $img:e = jxl ]] ; then
  63         [[ -r alt/$img.jpg ]] || [[ -r alt/$img.png ]] && : || {
  64             grep -q "JPEG bitstream reconstruction" info/$img.img &&
  65                 jpgs=($jpgs $img) || pngs=($pngs $img)
  66         }
  67         [[ -r preview/$img.webp ]] || ppms_jxl=($ppms_jxl $img)
  68     else
  69         [[ -r preview/$img.webp ]] || ppms_webp=($ppms_webp $img)
  70     fi
  71 }
  72
  73 [[ ${#jpgs} == 0 ]] || {
  74     echo JPEG reconstruction... >&2
  75     parallel "djxl --quiet {} alt/{}.jpg && touch -r {} alt/{}.jpg" ::: $jpgs
  76 }
  77 jpgs=()
  78
  79 [[ ${#pngs} == 0 ]] || {
  80     echo PNG generation... >&2
  81     parallel "${0:h}/djxl2ppm {}" ::: $pngs
  82     parallel "pamtopng < {}.ppm > {}.png && rm {}.ppm" ::: $pngs
  83     parallel "pngcrush -warn -rem alla -rem allb -z 2 {}.png alt/{}.png && rm {}.png" ::: $pngs
  84     parallel "advpng --quiet --recompress -4 alt/{}.png && touch -r {} alt/{}.png" ::: $pngs
  85 }
  86 pngs=()
  87
  88 [[ ${#ppms_jxl} == 0 ]] || {
  89     echo JPEG XL decompression for preview... >&2
  90     parallel "${0:h}/djxl2ppm {}" ::: $ppms_jxl
  91 }
  92 [[ ${#ppms_webp} == 0 ]] || {
  93     echo WebP decompression for preview... >&2
  94     parallel "dwebp {} -ppm -o {}.ppm" ::: $ppms_webp
  95 }
  96 ppms=($ppms_jxl $ppms_webp)
  97 [[ ${#ppms} == 0 ]] || {
  98     echo Preview scaling and WebP compression... >&2
  99     parallel "pnmscale -w 100 < {}.ppm > {}.ppm.ppm && mv {}.ppm.ppm {}.ppm && cwebp -quiet -pass 10 -alpha_filter best -m 6 -o preview/{}.webp {}.ppm && rm {}.ppm && touch -r {} preview/{}.webp" ::: $ppms
 100 }
 101 ppms_jxl=()
 102 ppms_webp=()
 103 ppms=()
 104
 105 for (( i=1 ; i <= ${#imgs} ; i++ )) {
 106     local img=${imgs[$i]}
 107     echo $i $img
 108     local dst=$i.img.html
 109     local p=$(( ( $i / $pagesize ) + 1 ))
 110     cat > $tmp <<EOF
 111 <!DOCTYPE html>
 112 <html>
 113     <head>
 114         <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
 115         <meta name="generator" content="galgen $VERSION">
 116         ${style}
 117         <title>Image ${i}/${#imgs}: $img</title>
 118         <link href="1.page.html" rel="start" title="home">
 119         <link href="${p}.page.html" rel="up" title="page">
 120 EOF
 121     [[ $i -eq 1 ]] ||
 122         echo "<link href=\"$(( $i - 1 )).img.html\" rel=\"prev\" title=\"previous\">" >> $tmp
 123     [[ $i -eq ${#imgs} ]] ||
 124         echo "<link href=\"$(( $i + 1 )).img.html\" rel=\"next\" title=\"next\">" >> $tmp
 125     cat >> $tmp <<EOF
 126     </head>
 127 <body>
 128 EOF
 129     [[ $i -eq 1 ]] ||
 130         echo "<a href=\"$(( $i - 1 )).img.html\">&lt;&lt;&lt;</a>" >> $tmp
 131     echo "<a href=\"${p}.page.html\">^^^</a>" >> $tmp
 132     [[ $i -eq ${#imgs} ]] ||
 133         echo "<a href=\"$(( $i + 1 )).img.html\">&gt;&gt;&gt;</a>" >> $tmp
 134     echo "<hr/><img alt=\"$img\" src=\"$img\"/>" >> $tmp
 135     [[ -r ${img}.txt ]] && {
 136         echo "<hr/><pre>" >> $tmp
 137         cat ${img}.txt >> $tmp
 138         echo "</pre>" >> $tmp
 139     }
 140     [[ -r ${img}.html ]] && cat ${img}.html >> $tmp
 141     echo "<hr/>" >> $tmp
 142     [[ -r info/$img.img ]]
 143     echo "<pre>" >> $tmp
 144     cat info/$img.img >> $tmp
 145     echo "</pre>" >> $tmp
 146     if [[ $img:e = jxl ]] ; then
 147         echo "Alternative formats:" >> $tmp
 148         [[ -r alt/$img.jpg ]] && {
 149             echo "<a href=\"alt/$img.jpg\">JPEG</a>" >> $tmp
 150         } || {
 151             echo "<a href=\"$img.png\">PNG</a>" >> $tmp
 152         }
 153     fi
 154     echo "<hr/>" >> $tmp
 155     [[ -r info/$img.exif ]]
 156     cat info/$img.exif >> $tmp
 157     echo "</body></html>" >> $tmp
 158     cmp -s $tmp $dst || {
 159         cat $tmp > $dst
 160         touch -r $img $dst
 161     }
 162 }
 163
 164 for (( p=1 ; p <= $pages ; p++ )) {
 165     local dst=$p.page.html
 166     cat > $tmp <<EOF
 167 <!DOCTYPE html>
 168 <html>
 169     <head>
 170         <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
 171         <meta name="generator" content="galgen $VERSION">
 172         ${style}
 173         <title>Page ${p}/$pages</title>
 174         <link href="1.page.html" rel="start" title="home">
 175 EOF
 176     [[ $p -eq 1 ]] ||
 177         echo "<link href=\"$(( $p - 1 )).page.html\" rel=\"prev\" title=\"previous\">" >> $tmp
 178     [[ $p -eq $pages ]] ||
 179         echo "<link href=\"$(( $p + 1 )).page.html\" rel=\"next\" title=\"next\">" >> $tmp
 180     cat >> $tmp <<EOF
 181     </head>
 182 <body>
 183 EOF
 184     [[ $p -eq 1 ]] && {
 185         [[ -r .txt ]] && {
 186             echo "<pre>" >> $tmp
 187             cat .txt >> $tmp
 188             echo "</pre>" >> $tmp
 189         }
 190         [[ -r .html ]] && cat .html >> $tmp
 191     }
 192     [[ $p -eq 1 ]] ||
 193         echo "<a href=\"$(( $p - 1 )).page.html\">&lt;&lt;&lt;</a>" >> $tmp
 194     [[ $p -eq $pages ]] ||
 195         echo "<a href=\"$(( $p + 1 )).page.html\">&gt;&gt;&gt;</a>" >> $tmp
 196     echo "| <a href=\"1.page.html\">home</a>" >> $tmp
 197     echo "| <a href=\"${pages}.page.html\">end</a>" >> $tmp
 198     echo "<hr/>" >> $tmp
 199     for (( i=1 ; i <= $pagesize ; i++ )) {
 200         img=$(( ( $p - 1 ) * $pagesize + $i ))
 201         [[ $img -le ${#imgs} ]] || break
 202         echo "<a href=\"${img}.img.html\">" >> $tmp
 203         alt="preview ${img}"
 204         title=""
 205         [[ -r ${imgs[$img]}.txt ]] && {
 206             alt=`cat ${imgs[$img]}.txt`
 207             title="title=\"$alt\""
 208         }
 209         echo "<img alt=\"$alt\" $title src=\"preview/${imgs[$img]}.webp\"/></a>" >> $tmp
 210     }
 211     echo "</body></html>" >> $tmp
 212     cmp -s $tmp $dst || {
 213         cat $tmp > $dst
 214         echo page $p
 215     }
 216 }