#!/usr/bin/perl
use strict;
use warnings;
use Gtk3 -init;
use Gtk3::WebKit;

my $source  = 'http://www.perl-community.de';
my $ofile = "$Bin/perl_community.pdf";
my $size_w = '1240';
my $size_h = '1745';

my $window = Gtk3::OffscreenWindow->new();
$window->set_default_size( $size_w, $size_h );

my $view = Gtk3::WebKit::WebView->new();
$view->load_uri($source);

$window->add($view);
$window->show_all();

$view->signal_connect('notify::load-status' => sub {

  die("can't load $source") unless $view->get_uri and $view->get_load_status eq 'finished';

  # mit pause um auf das rendern der Seite zu warten
  my $code = sub {
    my $w = $view->get_allocated_width();
    my $h = $view->get_allocated_height();

    print "make HTML PDF $w, $h\n";

    my $surface = Cairo::PdfSurface->create($ofile, $w, $h);
    my $cr = Cairo::Context->create($surface);
    $view->draw($cr);
    $cr->show_page();
    $cr->save();
    Gtk3->main_quit();
  };
  Glib::Timeout->add(1000, $code);

});
Gtk3->main();