galgen.zsh

   1 #!/usr/bin/env zsh
   2 # Copyright (C) 2022-2023 Sergey Matveev <stargrave@stargrave.org>
   3
   4 set -e
   5
   6 pagesize=${PAGESIZE:-100}
   7 ordering=${ORDERING:-Om}
   8 style=$STYLE
   9
  10 exifTagsOmit=(
  11     ExifToolVersion
  12     Directory
  13     FileAccessDate
  14     FileAttributes
  15     FileInodeChangeDate
  16     FilePermissions
  17 )
  18
  19 djxl2ppm() {
  20     djxl $1 $1.ppm
  21     [[ -r ${1}-ec0.ppm ]] || return 0
  22     mv ${1}-ec0.ppm $1.ppm
  23     rm ${1}-ec1.pgm
  24 }
  25
  26 [[ -z $style ]] || style="<link rel=\"stylesheet\" type=\"text/css\" href=\"$style\">"
  27
  28 setopt EXTENDED_GLOB
  29 imgs=((*.jxl|*.webp~*.preview.webp)($ordering))
  30 pages=$(( ${#imgs} / $pagesize ))
  31 [[ $(( $pages * $pagesize )) -lt ${#imgs} ]] && pages=$(( $pages + 1 ))
  32
  33 for (( i=1 ; i <= ${#imgs} ; i++ )) {
  34     local img=${imgs[$i]}
  35     echo $i $img
  36     local dst=$i.img.html
  37     local p=$(( ( $i / $pagesize ) + 1 ))
  38     cat > $dst <<EOF
  39 <!DOCTYPE html>
  40 <html>
  41     <head>
  42         ${style}
  43         <title>Image ${i}/${#imgs}: $img</title>
  44         <link href="1.page.html" rel="start" title="home">
  45         <link href="${p}.page.html" rel="up" title="page">
  46 EOF
  47     [[ $i -eq 1 ]] ||
  48         echo "<link href=\"$(( $i - 1 )).img.html\" rel=\"prev\" title=\"previous\">" >> $dst
  49     [[ $i -eq ${#imgs} ]] ||
  50         echo "<link href=\"$(( $i + 1 )).img.html\" rel=\"next\" title=\"next\">" >> $dst
  51     cat >> $dst <<EOF
  52     </head>
  53 <body>
  54 EOF
  55     [[ $i -eq 1 ]] ||
  56         echo "<a href=\"$(( $i - 1 )).img.html\">&lt;&lt;&lt;</a>" >> $dst
  57     echo "<a href=\"${p}.page.html\">^^^</a>" >> $dst
  58     [[ $i -eq ${#imgs} ]] ||
  59         echo "<a href=\"$(( $i + 1 )).img.html\">&gt;&gt;&gt;</a>" >> $dst
  60     echo "<hr/><img alt=\"$img\" src=\"$img\"/>" >> $dst
  61     [[ -r ${img}.txt ]] && {
  62         echo "<hr/><pre>" >> $dst
  63         cat ${img}.txt >> $dst
  64         echo "</pre>" >> $dst
  65     }
  66     [[ -r ${img}.html ]] && cat ${img}.html >> $dst
  67     echo "<hr/>" >> $dst
  68     if [[ $img:e = jxl ]] ; then
  69         echo "<pre>" >> $dst
  70         jxlinfo $img > $img.info
  71         cat $img.info >> $dst
  72         echo "</pre>" >> $dst
  73         echo "Alternative formats:" >> $dst
  74         if grep -q "JPEG bitstream reconstruction" $img.info ; then
  75             [[ -r $img.jpg ]] || {
  76                 djxl $img $img.jpg
  77                 touch -r $img $img.jpg
  78             }
  79             echo "<a href=\"$img.jpg\">JPEG</a>" >> $dst
  80         else
  81             [[ -r $img.png ]] || {
  82                 djxl2ppm $img
  83                 pamtopng < $img.ppm > $img.png
  84                 rm $img.ppm
  85                 pngcrush -rem alla -rem allb -z 2 $img.png $img.png.png
  86                 mv $img.png.png $img.png
  87                 advpng -z -4 $img.png
  88                 touch -r $img $img.png
  89             }
  90             echo "<a href=\"$img.png\">PNG</a>" >> $dst
  91         fi
  92         rm $img.info
  93         [[ -r $img.preview.webp ]] || djxl2ppm $img
  94     else
  95         echo "<pre>" >> $dst
  96         webpinfo $img >> $dst
  97         echo "</pre>" >> $dst
  98         [[ -r $img.preview.webp ]] || dwebp $img -ppm -o $img.ppm
  99     fi
 100     echo "<hr/>" >> $dst
 101     exiftool -escapeHTML -htmlFormat -groupHeadings \
 102         --${=${(j/ --/)exifTagsOmit}} $img >> $dst
 103     [[ -r $img.ppm ]] && {
 104         pnmscale -w 100 < $img.ppm > $img.ppm.ppm
 105         mv $img.ppm.ppm $img.ppm
 106         cwebp -pass 10 -alpha_filter best -m 6 -mt -o $img.preview.webp $img.ppm
 107         rm $img.ppm
 108         touch -r $img $img.preview.webp
 109     }
 110     echo "</body></html>" >> $dst
 111     touch -r $img $dst
 112 }
 113
 114 for (( p=1 ; p <= $pages ; p++ )) {
 115     local dst=$p.page.html
 116     cat > $dst <<EOF
 117 <!DOCTYPE html>
 118 <html>
 119     <head>
 120         ${style}
 121         <title>Page ${p}/$pages</title>
 122         <link href="1.page.html" rel="start" title="home">
 123 EOF
 124     [[ $p -eq 1 ]] ||
 125         echo "<link href=\"$(( $p - 1 )).page.html\" rel=\"prev\" title=\"previous\">" >> $dst
 126     [[ $p -eq $pages ]] ||
 127         echo "<link href=\"$(( $p + 1 )).page.html\" rel=\"next\" title=\"next\">" >> $dst
 128     cat >> $dst <<EOF
 129     </head>
 130 <body>
 131 EOF
 132     [[ $p -eq 1 ]] && {
 133         [[ -r .txt ]] && {
 134             echo "<pre>" >> $dst
 135             cat .txt >> $dst
 136             echo "</pre>" >> $dst
 137         }
 138         [[ -r .html ]] && cat .html >> $dst
 139     }
 140     [[ $p -eq 1 ]] ||
 141         echo "<a href=\"$(( $p - 1 )).page.html\">&lt;&lt;&lt;</a>" >> $dst
 142     [[ $p -eq $pages ]] ||
 143         echo "<a href=\"$(( $p + 1 )).page.html\">&gt;&gt;&gt;</a>" >> $dst
 144     echo "| <a href=\"1.page.html\">home</a>" >> $dst
 145     echo "| <a href=\"${pages}.page.html\">end</a>" >> $dst
 146     echo "<hr/>" >> $dst
 147     for (( i=1 ; i <= $pagesize ; i++ )) {
 148         img=$(( ( $p - 1 ) * $pagesize + $i ))
 149         [[ $img -le ${#imgs} ]] || break
 150         echo "<a href=\"${img}.img.html\">" >> $dst
 151         alt="preview ${img}"
 152         title=""
 153         [[ -r ${imgs[$img]}.txt ]] && {
 154             alt=`cat ${imgs[$img]}.txt`
 155             title="title=\"$alt\""
 156         }
 157         echo "<img alt=\"$alt\" $title src=\"${imgs[$img]}.preview.webp\"/></a>" >> $dst
 158     }
 159     echo "</body></html>" >> $dst
 160     echo page $p
 161 }