unit module PDF::Combiner;

use PDF::Lite;
use PDF::Font::Loader;

use PDF::Combiner::Subs;



comment

=begin comment
my enum Paper <Letter A4>;
my $debug   = 0;
my $left    = 1 * 72; # inches => PS points
my $right   = 1 * 72; # inches => PS points
my $top     = 1 * 72; # inches => PS points
my $bottom  = 1 * 72; # inches => PS points
my $margin  = 1 * 72; # inches => PS points
my Paper $paper  = Letter;
my $page-numbers = False;

# defaults for US Letter paper
my $height = 11.0 * 72;
my $width  =  8.5 * 72;
# for A4
# $height =; # 11.7 in
# $width = ; #  8.3 in
=end comment



multi sub run-cli() is export {
    print qq:to/HERE/;
    Usage: {$*PROGRAM.basename} config=my-pdf-project.txt

    Args
        config=X - where X is the name of a configuration file listing various
                   options as well as a list of PDF documents to be combined,
                   one name or option per line, comments and blank lines are
                   ignored. See the 'example-project' directory for examples.

    Options
        ofile=X  - where X is the desired output file name (which overrides
                   the 'outfile' setting in the configuration file).
        zip=X    - where X is the PDF compression level: '150' or '300' DPI.
                   Output files will get an approriate name extension of 
                   '.150dpi.pdf' or '.300dpi.pdf'.

    'config' file options when present in the file
        =numbers   Bool [explicit 'true' or 'false' OR, with no value:
                     True if present, False if not]

                   produces page numbers on each page
                   except the cover which is number
                   one but not shown; format: 'Page N of M'

        =begin title # empty or no title bock: no cover page
                   title line for the cover page
                   # a retained blank line for the cover page
                   another title line for the cover page
        =end title
        =two-sided Bool [explicit 'true' or 'false' OR, with no value:
                     True if present, False if not]
        =back      Bool [explicit 'true' or 'false' OR, with no value:
                     True if present, False if not]
        =outfile   file name of the new document
        =paper     'Letter' or 'A4' [default: Letter]
        =margins   size in PostScript points [default: 72 (one inch)]

    Combines the input PDFs into one document
    HERE
    exit
} # multi sub run-cli() is export {

multi sub run-cli(@args) is export {

    # run all from here while calling into PDF::Combiner::Subs
    my $debug = 0;
    my Config $c;
    my $ofile;
    my $zip;

    # default config file for debugging;
    my $IFIL  = "example-project/our-israel-trip.txt";
    my $IFIL2 = "/home/tbrowde/mydata/tbrowde-home/israel-trip-1980/our-israel-trip.txt"; 

    my $ifil;
    for @args {
        when /^:i d/ {
            ++$debug;
            $ifil = $IFIL;
            note "DEBUG is on";
        }
        when /^:i e/ { # e = exercise
            $ifil = $IFIL2;
        }
        when /^:i o[file]? '=' (\S+) / { 
            $ofile = ~$0;
        }
        when /^:i z[ip]? '=' (\d\d\d) / { 
            $zip = ~$0;
            unless $zip eq '150' or $zip eq '300' {
                say "FATAL: zip values must be 150 or 300, you entered '$zip'";
                exit;
            }
        }
        when /^config '=' (\S+) $/ {
            $ifil = ~$0;
            unless $ifil.IO.r {
                say "FATAL: Unable to open config file '$ifil'";
                exit;
            }
        }
        default {
            say "FATAL: Unknown arg '$_'"; exit;
        }
    }

    # collect data
    $c = read-config-file $ifil, :$debug;

    my @pdf-objs;
    for $c.pdfs -> $pdf-in {
        my $pdf-obj = PDF::Lite.open: $pdf-in;
        @pdf-objs.push: $pdf-obj;
    }

    # do we need to specify 'media-box'?
    my ($centerx, $height, $width);
    my $pdf = PDF::Lite.new;
    if $c.paper eq "Letter" {
        $pdf.media-box = 'Letter';
        $height = 11.0 * 72;
        $width  =  8.5 * 72;
    }
    else {
        $pdf.media-box = 'A4';
        $height = 11.7 * 72;
        $width  =  8.3 * 72;
    }
    $centerx = 0.5 * $width;

    # manipulate the PDF some more
    my $tot-pages = 0;

    my PDF::Lite::Page $page;

    # do we need a cover?
    my @tlines;
    if $c.title.elems {
        for $c.title.values -> $val {
            @tlines.push($val) if $val ~~ /\S+/
        }
    }

    my $has-cover = False;
    my $two-sided = $c.two-sided;
    my $has-back  = $c.back;
    if @tlines.elems {
        $has-cover = True;
        # add a cover for the collection
        $page = $pdf.add-page;
        my $font  = $pdf.core-font(:family<Times-RomanBold>);
        my $font2 = $pdf.core-font(:family<Times-Roman>);

        make-cover-page $page, :config($c), :$centerx, :$font, :$font2, :$debug;
        if $c.two-sided {
            # for now just add a blank page
            $page = $pdf.add-page;
        }
    }

    for @pdf-objs.kv -> $i, $pdf-obj {

        # handle multi-page files being combined
        my $part = $i+1;

        

# add a cover for part $part
        $page = $pdf.add-page;
        $page.text: -> $txt {
            my $text = "Part $part";
            $txt.font = $font, 16;
            $txt.text-position = 0, 7*72; # baseline height is determined here
            # output aligned text
            $txt.say: $text, :align<center>, :position[$centerx];
        }



        my $pc = $pdf-obj.page-count;
        say "Input doc $part: $pc pages";
        $tot-pages += $pc;
        for 1..$pc -> $page-num {
            $pdf.add-page: $pdf-obj.page($page-num);
        }
    }

    if $has-back {
        # add a single blank page
        $page = $pdf.add-page;
        say "A single page, empty back cover added."
    }

    if $c.numbers {
        say "Page numbers being added";
        # note we vary position of the number depending
        # on two-sided or not

        #method !paginate($pdf) {
        my $page-count = $pdf.Pages.page-count;
        my $font = $pdf.core-font: "Helvetica";
        my $font-size := 9;
        my $align := 'right';
        my $page-num = 0;
        --$page-count if $has-back;

        PAGE: for $pdf.Pages.iterate-pages -> $page {
            ++$page-num;
            next PAGE if $page-num == 1 and $has-cover;
            last PAGE if $has-back and $page-num > $page-count;
            #if $has-back and $page-num == $page-count {
            #    last;
            #}

            my PDF::Content $gfx = $page.gfx;

            my $is-odd = $page-num % 2 ?? True !! False;

            my $text = "Page {$page-num} of $page-count";
            my @position = $gfx.width - $c.margins, $c.margins - $font-size;
            if $c.two-sided and not $is-odd {
                # odd numbers on facing pages (obverse) are bottom right
                #   (or none on front cover)
                # even numbers on back side (reverse) are bottom left
                @position = 0 + $c.margins, $c.margins - $font-size; 
                $gfx.print: $text, :@position, :$font, :$font-size, :align<left>;
            }
            else {
                $gfx.print: $text, :@position, :$font, :$font-size, :$align;
            }
            $page.finish;
        }
    }

    # report final results
    say "Total input pages: $tot-pages";
    my $new-pages = $pdf.page-count;

    my $outfile = $c.outfile;
    if $ofile.defined {
        $outfile = $ofile;
    }
    if $outfile !~~ /:i '.pdf'$/ {
        $outfile ~= '.pdf';   
        # eliminate double dots
        $outfile ~~ s:g/'..'/./;
    }
    else {
        # lower-case the .pdf
        $outfile ~~ s/:i pdf$/pdf/;
    }

    my $Zip = $zip ?? $zip !! $c.zip;
    if $Zip {
        # insert the correct zip info
        $outfile ~~ s/'.pdf'$/.{$Zip}dpi.pdf/;
        my $tmpfil = "/tmp/pdfout.pdf";
        $pdf.save-as: $tmpfil;
        my $arg;
        if $Zip eq "150" {
            $arg = "-dPDFSETTINGS=/ebook";
        }
        elsif $Zip eq "300" {
            $arg = "-dPDFSETTINGS=/printer";
        }
        run "ps2pdf", $arg, $tmpfil, $outfile;
    } 
    else {
        $pdf.save-as: $outfile;
    }
    say "See combined pdf: {$outfile}";
    say "Total pages: $new-pages";

} #multi sub run-cli(@args) is export {
#==== end of this file's content ============


root

README

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Combiner

PDF::Combiner v0.0.1

Authors

License

Dependencies

Test Dependencies

Provides

Documentation