galgen.zsh

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