From c88d0b8fa12271d1129a4c4c4d090710bcd05ed7 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 6 Nov 2021 19:54:38 +0000
Subject: [PATCH] write out individual book files

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 .gitignore          | 1 +
 pumpkin-books.ps.pl | 9 ++++++++-
 2 files changed, 9 insertions(+), 1 deletion(-)

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;
 }
-- 
2.30.2