Make the title a bit scarier to test the PostScript backend some more,

[sgt/halibut] / bk_ps.c

diff --git a/bk_ps.c b/bk_ps.c
index 261a22c..4e47767 100644 (file)
--- a/bk_ps.c
+++ b/bk_ps.c
@@ -108,10 +108,10 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
            "/pdfmark where { pop\n"
            "  /p { [ /Dest 3 -1 roll /View [ /XYZ null null null ]\n"
            "       /DEST pdfmark } bind def\n"
-           "  /x { [ /Dest 3 -1 roll /Rect 5 -1 roll /Border [0 0 0 0]\n"
+           "  /x { [ /Dest 3 -1 roll /Rect 5 -1 roll /Border [0 0 0]\n"
            "       /Subtype /Link /ANN pdfmark } bind def\n"
            "  /u { 2 dict dup /Subtype /URI put dup /URI 4 -1 roll put\n"
-           "       [ /Action 3 -1 roll /Rect 5 -1 roll /Border [0 0 0 0]\n"
+           "       [ /Action 3 -1 roll /Rect 5 -1 roll /Border [0 0 0]\n"
            "       /Subtype /Link /ANN pdfmark } bind def\n"
            "} {\n"
            "  /p { pop } bind def\n"
@@ -164,6 +164,11 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
        int titlelen, count, i;
 
        title = pdf_outline_convert(oe->pdata->outline_title, &titlelen);
+       if (oe->level == 0) {
+           fprintf(fp, "  [/Title");
+           ps_string_len(fp, title, titlelen);
+           fprintf(fp, "/DOCINFO pdfmark\n");
+       }
 
        count = 0;
        for (i = 1; i < noe && oe[i].level > oe->level; i++)