galgen.zsh

   1 #!/usr/bin/env zsh
   2 # Copyright (C) 2022-2023 Sergey Matveev <stargrave@stargrave.org>
   3
   4 VERSION=0.4.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 pams_jxl=()
  59 pams_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 ]] || pams_jxl=($pams_jxl $img)
  68     else
  69         [[ -r preview/$img.webp ]] || pams_webp=($pams_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 djxl2pam="( djxl --quiet {} ppm:- || djxl --quiet {} pgm:- )"
  80 [[ ${#pngs} == 0 ]] || {
  81     echo PNG generation... >&2
  82     parallel "$djxl2pam | pamtopng > {}.png" ::: $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 mkpreview="pnmscale -w 100"
  89 mkpreview="$mkpreview | cwebp -quiet -pass 10 -alpha_filter best -m 6 -o preview/{}.webp -- -"
  90 mkpreview="$mkpreview && touch -r {} preview/{}.webp"
  91 [[ ${#pams_jxl} == 0 ]] || {
  92     echo JPEG XL previews... >&2
  93     parallel "$djxl2pam | $mkpreview" ::: $pams_jxl
  94 }
  95 [[ ${#pams_webp} == 0 ]] || {
  96     echo WebP previews... >&2
  97     parallel "dwebp {} -ppm -o - | $mkpreview" ::: $pams_webp
  98 }
  99 pams_jxl=()
 100 pams_webp=()
 101
 102 for (( i=1 ; i <= ${#imgs} ; i++ )) {
 103     local img=${imgs[$i]}
 104     echo $i $img
 105     local dst=$i.img.html
 106     local p=$(( ( $i / $pagesize ) + 1 ))
 107     cat > $tmp <<EOF
 108 <!DOCTYPE html>
 109 <html>
 110     <head>
 111         <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
 112         <meta name="generator" content="galgen $VERSION">
 113         ${style}
 114         <title>Image ${i}/${#imgs}: $img</title>
 115         <link href="1.page.html" rel="start" title="home">
 116         <link href="${p}.page.html" rel="up" title="page">
 117 EOF
 118     [[ $i -eq 1 ]] ||
 119         echo "<link href=\"$(( $i - 1 )).img.html\" rel=\"prev\" title=\"previous\">" >> $tmp
 120     [[ $i -eq ${#imgs} ]] ||
 121         echo "<link href=\"$(( $i + 1 )).img.html\" rel=\"next\" title=\"next\">" >> $tmp
 122     cat >> $tmp <<EOF
 123     </head>
 124 <body>
 125 EOF
 126     [[ $i -eq 1 ]] ||
 127         echo "<a href=\"$(( $i - 1 )).img.html\">&lt;&lt;&lt;</a>" >> $tmp
 128     echo "<a href=\"${p}.page.html\">^^^</a>" >> $tmp
 129     [[ $i -eq ${#imgs} ]] ||
 130         echo "<a href=\"$(( $i + 1 )).img.html\">&gt;&gt;&gt;</a>" >> $tmp
 131     echo "<hr/><img alt=\"$img\" src=\"$img\"/>" >> $tmp
 132     [[ -r ${img}.txt ]] && {
 133         echo "<hr/><pre>" >> $tmp
 134         cat ${img}.txt >> $tmp
 135         echo "</pre>" >> $tmp
 136     }
 137     [[ -r ${img}.html ]] && cat ${img}.html >> $tmp
 138     echo "<hr/>" >> $tmp
 139     [[ -r .info/$img.img ]]
 140     echo "<pre>" >> $tmp
 141     cat .info/$img.img >> $tmp
 142     echo "</pre>" >> $tmp
 143     if [[ $img:e = jxl ]] ; then
 144         echo "Alternative formats:" >> $tmp
 145         [[ -r alt/$img.jpg ]] && {
 146             echo "<a href=\"alt/$img.jpg\">JPEG</a>" >> $tmp
 147         } || {
 148             echo "<a href=\"$img.png\">PNG</a>" >> $tmp
 149         }
 150     fi
 151     echo "<hr/>" >> $tmp
 152     [[ -r .info/$img.exif ]]
 153     cat .info/$img.exif >> $tmp
 154     echo "</body></html>" >> $tmp
 155     cmp -s $tmp $dst || {
 156         cat $tmp > $dst
 157         touch -r $img $dst
 158     }
 159 }
 160
 161 for (( p=1 ; p <= $pages ; p++ )) {
 162     local dst=$p.page.html
 163     cat > $tmp <<EOF
 164 <!DOCTYPE html>
 165 <html>
 166     <head>
 167         <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
 168         <meta name="generator" content="galgen $VERSION">
 169         ${style}
 170         <title>Page ${p}/$pages</title>
 171         <link href="1.page.html" rel="start" title="home">
 172 EOF
 173     [[ $p -eq 1 ]] ||
 174         echo "<link href=\"$(( $p - 1 )).page.html\" rel=\"prev\" title=\"previous\">" >> $tmp
 175     [[ $p -eq $pages ]] ||
 176         echo "<link href=\"$(( $p + 1 )).page.html\" rel=\"next\" title=\"next\">" >> $tmp
 177     cat >> $tmp <<EOF
 178     </head>
 179 <body>
 180 EOF
 181     [[ $p -eq 1 ]] && {
 182         [[ -r .txt ]] && {
 183             echo "<pre>" >> $tmp
 184             cat .txt >> $tmp
 185             echo "</pre>" >> $tmp
 186         }
 187         [[ -r .html ]] && cat .html >> $tmp
 188     }
 189     [[ $p -eq 1 ]] ||
 190         echo "<a href=\"$(( $p - 1 )).page.html\">&lt;&lt;&lt;</a>" >> $tmp
 191     [[ $p -eq $pages ]] ||
 192         echo "<a href=\"$(( $p + 1 )).page.html\">&gt;&gt;&gt;</a>" >> $tmp
 193     echo "| <a href=\"1.page.html\">home</a>" >> $tmp
 194     echo "| <a href=\"${pages}.page.html\">end</a>" >> $tmp
 195     echo "<hr/>" >> $tmp
 196     for (( i=1 ; i <= $pagesize ; i++ )) {
 197         img=$(( ( $p - 1 ) * $pagesize + $i ))
 198         [[ $img -le ${#imgs} ]] || break
 199         echo "<a href=\"${img}.img.html\">" >> $tmp
 200         alt="preview ${img}"
 201         title=""
 202         [[ -r ${imgs[$img]}.txt ]] && {
 203             alt=`cat ${imgs[$img]}.txt`
 204             title="title=\"$alt\""
 205         }
 206         echo "<img alt=\"$alt\" $title src=\"preview/${imgs[$img]}.webp\"/></a>" >> $tmp
 207     }
 208     echo "</body></html>" >> $tmp
 209     cmp -s $tmp $dst || {
 210         cat $tmp > $dst
 211         echo page $p
 212     }
 213 }