galgen

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