summaryrefslogtreecommitdiffstats
path: root/.ikiwiki
diff options
context:
space:
mode:
authorGustav Eek <gustav.eek@fripost.org>2020-05-31 09:06:04 +0200
committerGustav Eek <gustav.eek@fripost.org>2020-05-31 09:06:04 +0200
commit51aefdebbe78351cc007e2cc1f851d7703e2386e (patch)
tree1d2140df795d260db57059102f7fc5eb1d670aac /.ikiwiki
parent84da9ca12a22bd47400504475e9297713f3de992 (diff)
Debug. Refactor of comments regarding debugging.
Diffstat (limited to '.ikiwiki')
-rwxr-xr-x.ikiwiki/IkiWiki/Plugin/pandoc.pm15
1 files changed, 14 insertions, 1 deletions
diff --git a/.ikiwiki/IkiWiki/Plugin/pandoc.pm b/.ikiwiki/IkiWiki/Plugin/pandoc.pm
index 573617a..aa5bcd0 100755
--- a/.ikiwiki/IkiWiki/Plugin/pandoc.pm
+++ b/.ikiwiki/IkiWiki/Plugin/pandoc.pm
@@ -1,6 +1,8 @@
#!/usr/bin/env perl
+# DEBUG
$DB::single = 1;
+# END
package IkiWiki::Plugin::pandoc;
@@ -11,8 +13,9 @@ use FileHandle;
use IPC::Open2;
use File::Path qw/make_path/;
use JSON;
-use Data::Dumper;
+# DEBUG
+use Data::Dumper;
$Data::Dumper::Indent = 3;
my $fh = undef;
@@ -23,6 +26,7 @@ my $next = 0;
my $base = '/tmp/pandoc';
mkdir($base);
+# END
# activate with 'generate_$format' in meta; turn on all with 'generate_all_formats'.
my %extra_formats = (
@@ -52,6 +56,8 @@ my @list_hash_meta_keys = qw/
references
/;
+
+# DEBUG setup filename function
sub debug_get_filename_prefix {
my $place = shift;
@@ -72,6 +78,7 @@ sub debug_get_filename_prefix {
}
return $fnm_pfx;
}
+# END
# DEBUG Print
print "D: pandoc: First file read.\n";
@@ -723,8 +730,10 @@ sub htmlize ($@) {
waitpid $to_html_pid, 0;
+ # DEBUG
print "D: pandoc:htmlize: Pandoc command: ", " ", $command, " ", '-f', " ",
'json', " ", '-t', $htmlformat, " ", @html_args, "\n";
+ # END
$content = Encode::decode_utf8(join('', @html));
@@ -846,7 +855,9 @@ sub pageactions {
my %args = @_;
my $page = $args{page};
+ # DEBUG
print "D: pandoc:pageactions: Run for ", $page, "\n";
+ # END
my @links = ();
return unless $pagestate{$page}{pandoc_extra_formats};
@@ -926,9 +937,11 @@ sub export_file {
print EXPORT $json_content;
close EXPORT or die "Could not close pipe for $ext: $!";
+ # DEBUG
print "D: pandoc:export_file: Pandoc command: ", " ", $command, " ", '-f' =>
'json', " ", '-t' => $to_format, " ", '-o' =>
$tmp_export_path, " ", @args, " ", @extra_args;
+ # DEBUG
if ($indirect_pdf && $tmp_export_path ne $export_path) {
my @latexmk_args = qw(-quiet -silent);