From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 6 Nov 2021 19:54:38 +0000 (+0000)
Subject: write out individual book files
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=c88d0b8fa12271d1129a4c4c4d090710bcd05ed7;p=quacks.git

write out individual book files

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/.gitignore b/.gitignore
index 6cb2956..6ebd0e8 100644
--- a/.gitignore
+++ b/.gitignore
@@ -3,6 +3,7 @@ pumpkin-books.pdf
 bag.pgm
 pot.pgm
 droplet.ppm
+book-*
 *.tmp
 *.tmp.*
 *.md.txt
diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 2f56ec4..d83a4ad 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -788,7 +788,14 @@ our @tiles;
 foreach my $spec (@books) {
   my @datas;
   foreach my $book (split m{/}, $spec) {
-    push @datas, ${*::}{"$book"}();
+    my $data = ${*::}{"$book"}();;
+    my $file = $book;
+    $file =~ s/_book//;
+    $file =~ y/_/-/;
+    open F, ">book-$file.ps" or die $!;
+    print F $ps_framing, $data, "\nshowpage\n" or die $!;
+    close F or die $!;
+    push @datas, $data;
   }
   push @tiles, @datas == 1 ? @datas : \@datas;
 }