From 35e54306995fd5e21e16ee68e815393845522c91 Mon Sep 17 00:00:00 2001
From: Ben Harris <bjh21@bjh21.me.uk>
Date: Sat, 18 Nov 2006 21:26:04 +0000
Subject: Emit a PageLabels dictionary to make it clear what page numbering
 scheme Halibut uses.

[originally from svn r6912]
---
 bk_pdf.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/bk_pdf.c b/bk_pdf.c
index c4a65be..6ce0e5a 100644
--- a/bk_pdf.c
+++ b/bk_pdf.c
@@ -112,7 +112,7 @@ void pdf_backend(paragraph *sourceform, keywordlist *keywords,
 
     /*
      * The catalogue just contains references to the outlines and
-     * pages objects.
+     * pages objects, and the pagelabels dictionary.
      */
     objtext(cat, "<<\n/Type /Catalog");
     if (outlines) {
@@ -121,6 +121,8 @@ void pdf_backend(paragraph *sourceform, keywordlist *keywords,
     }
     objtext(cat, "\n/Pages ");
     objref(cat, pages);
+    /* Halibut just numbers pages 1, 2, 3, ... */
+    objtext(cat, "\n/PageLabels<</Nums[0<</S/D>>]>>");
     if (outlines)
 	objtext(cat, "\n/PageMode /UseOutlines");
     objtext(cat, "\n>>\n");
-- 
cgit v1.1