pdf-preferences.raku

use v6;
use PDF::API6;
use PDF::Page;

my PDF::API6 $pdf .= new;
use PDF::Destination :Fit;

sub dest(|c) { :Dest($pdf.destination(|c)) }

for 1..4 -> $page-no {
    my PDF::Page $page = $pdf.add-page;
    $page.media-box = [0, 0, 650, 400];
    $page.text: {
        .font = .core-font( :family<Courier>, :weight<bold> );
        .text-position = [10, 350];

        .say: "Page $page-no/3";
        .say;
        .say: "This PDF has various preferences, including:";
        .say: " * :hide-toolbar    - toolbar should not appear in reader";
        .say: " * dest(:page(2), :fit(FitWindow) - document should open on page 2,";
        .say: "                                    contents scaled to fit window";
        .say  " * outlines         - you should see outlines (table of contents)";
        .say  "                      when opening this with a PDF viewer        ";
    }
}

# Set global preferences
given  $pdf.preferences {
    .HideToolbar = True;
    .OpenAction = dest( :page(1), :fit(FitWindow) );
    .PageLayout = 'SinglePage';
    .PageMode = 'UseNone';
    .NonFullScreenPageMode = 'UseNone';
}

# Set a title for the PDF
$pdf.info.Title = "Sample PDF with preferences";

# Set outlines (aka Book-marks)

$pdf.outlines.kids = [
    %( :Title('1. Sample Heading-1'), dest(:page(1))),
    %( :Title('2. Sample Heading-2'), dest(:page(2))),
    %( :Title('3. Sample Heading-3'), dest(:page(3)),
       :kids[
           %( :Title('3.1. Sub Heading'), dest(:page(3)) ),
           %( :Title('3.1. Sub Heading'), dest(:page(3)) ),
          ],
      ),
    %( :Title('Appendix'), dest(:page(4))),
   ];

# also set the page number for the outlines
my @page-labels = 0 => 'i',    # roman page numbering: i, ii
                  1 => 1,      # regular page numbering: 1, 2
                  3 => 'A-1';  # Appendix A-1, S2...

$pdf.page-labels = @page-labels;

$pdf.save-as: "preferences.pdf";