Ability to specify link to the stylesheet

[galgen.git] / galgen.zsh
diff --git a/galgen.zsh b/galgen.zsh

index 8a9974009bd7ca12782a18d7be1dc745a69aefdc..55e24e84300dc39da2d62a4b82ec8a9bf5289421 100755 (executable)
--- a/galgen.zsh
+++ b/galgen.zsh
@@ -1,19 +1,30 @@
  #!/usr/bin/env zsh
  # Copyright (C) 2022-2023 Sergey Matveev <stargrave@stargrave.org>
  
+set -e
+
  pagesize=${PAGESIZE:-100}
+ordering=${ORDERING:-Om}
+style=$STYLE
  
-set -e
-setopt EXTENDED_GLOB
+djxl2ppm() {
+    djxl $1 $1.ppm
+    [[ -r ${1}-ec0.ppm ]] || return 0
+    mv ${1}-ec0.ppm $1.ppm
+    rm ${1}-ec1.pgm
+}
  
-imgs=((*.jxl|*.webp~*.preview.webp)(Om))
+[[ -z $style ]] || style="<link rel=\"stylesheet\" type=\"text/css\" href=\"$style\">"
+
+setopt EXTENDED_GLOB
+imgs=((*.jxl|*.webp~*.preview.webp)($ordering))
  for (( i=1 ; i <= ${#imgs} ; i++ )) {
      local img=${imgs[$i]}
      echo $i $img
      local dst=$i.img.html
      cat > $dst <<EOF
  <!DOCTYPE html>
-<html><head><title>Image ${i}/${#imgs}: $img</title></head><body>
+<html><head>${style}<title>Image ${i}/${#imgs}: $img</title></head><body>
  EOF
      [[ $i -eq 1 ]] ||
          echo "<a href=\"$(( $i - 1 )).img.html\">&lt;&lt;&lt;</a>" >> $dst
@@ -40,7 +51,7 @@ EOF
              echo "<a href=\"$img.jpg\">JPEG</a>" >> $dst
          else
              [[ -r $img.png ]] || {
-                djxl $img $img.ppm
+                djxl2ppm $img
                  pamtopng < $img.ppm > $img.png
                  rm $img.ppm
                  pngcrush -rem alla -rem allb -z 2 $img.png $img.png.png
@@ -51,7 +62,7 @@ EOF
              echo "<a href=\"$img.png\">PNG</a>" >> $dst
          fi
          rm $img.info
-        [[ -r $img.preview.webp ]] || djxl $img $img.ppm
+        [[ -r $img.preview.webp ]] || djxl2ppm $img
      else
          echo "<pre>" >> $dst
          webpinfo $img >> $dst
@@ -78,8 +89,13 @@ for (( p=1 ; p <= $pages ; p++ )) {
      local dst=$p.page.html
      cat > $dst <<EOF
  <!DOCTYPE html>
-<html><head><title>Page ${p}/$pages</title></head><body>
+<html><head>${style}<title>Page ${p}/$pages</title></head><body>
  EOF
+    [[ $p -eq 1 ]] && [[ -r .txt ]] && {
+        echo "<pre>" >> $dst
+        cat .txt >> $dst
+        echo "</pre>" >> $dst
+    }
      [[ $p -eq 1 ]] ||
          echo "<a href=\"$(( $p - 1 )).page.html\">&lt;&lt;&lt;</a>" >> $dst
      [[ $p -eq $pages ]] ||
@@ -91,7 +107,13 @@ EOF
          img=$(( ( $p - 1 ) * $pagesize + $i ))
          [[ $img -le ${#imgs} ]] || break
          echo "<a href=\"${img}.img.html\">" >> $dst
-        echo "<img alt=\"preview ${img}\" src=\"${imgs[$img]}.preview.webp\"/></a>" >> $dst
+        alt="preview ${img}"
+        title=""
+        [[ -r ${imgs[$img]}.txt ]] && {
+            alt=`cat ${imgs[$img]}.txt`
+            title="title=\"$alt\""
+        }
+        echo "<img alt=\"$alt\" $title src=\"${imgs[$img]}.preview.webp\"/></a>" >> $dst
      }
      echo "</body></html>" >> $dst
      echo page $p