galgen.zsh

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