diff options
Diffstat (limited to '.ikiwiki')
-rwxr-xr-x | .ikiwiki/IkiWiki/Plugin/pandoc.pm | 329 |
1 files changed, 329 insertions, 0 deletions
diff --git a/.ikiwiki/IkiWiki/Plugin/pandoc.pm b/.ikiwiki/IkiWiki/Plugin/pandoc.pm new file mode 100755 index 0000000..ddc5299 --- /dev/null +++ b/.ikiwiki/IkiWiki/Plugin/pandoc.pm @@ -0,0 +1,329 @@ +#!/usr/bin/env perl + +package IkiWiki::Plugin::pandoc; + +use warnings; +use strict; +use IkiWiki; +use FileHandle; +use IPC::Open2; +use JSON; + +sub import { + my $markdown_ext = $config{pandoc_markdown_ext} || "mdwn"; + + # May be both a string with a single value, a string containing commas or an arrayref + if ($markdown_ext =~ /,/) { + $markdown_ext = [split /\s*,\s*/, $markdown_ext]; + } + + hook(type => "getsetup", id => "pandoc", call => \&getsetup); + if (ref $markdown_ext eq 'ARRAY') { + foreach my $mde (@$markdown_ext) { + hook(type => 'htmlize', id => $mde, + call => sub{ htmlize("markdown", @_) }); + } + } else { + hook(type => "htmlize", id => $markdown_ext, + call => sub { htmlize("markdown", @_) }); + } + if ($config{pandoc_latex}) { + hook(type => "htmlize", id => "tex", + call => sub { htmlize("latex", @_) }); + } + if ($config{pandoc_rst}) { + hook(type => "htmlize", id => "rst", + call => sub { htmlize("rst", @_) }); + } + if ($config{pandoc_textile}) { + hook(type => "htmlize", id => "textile", + call => sub { htmlize("textile", @_) }); + } + if ($config{pandoc_mediawiki}) { + hook(type => "htmlize", id => "mediawiki", + call => sub { htmlize("mediawiki", @_) }); + } +} + + +sub getsetup () { + return + plugin => { + safe => 1, + rebuild => 1, + }, + pandoc_command => { + type => "string", + example => "/usr/local/bin/pandoc", + description => "Path to pandoc executable", + safe => 0, + rebuild => 0, + }, + pandoc_markdown_ext => { + type => "string", + example => "mdwn", + description => "File extension for Markdown files", + safe => 1, + rebuild => 1, + }, + pandoc_latex => { + type => "boolean", + example => 0, + description => "Enable Pandoc processing of LaTeX documents", + safe => 0, + rebuild => 1, + }, + pandoc_rst => { + type => "boolean", + example => 0, + description => "Enable Pandoc processing of reStructuredText documents", + safe => 0, + rebuild => 1, + }, + pandoc_textile => { + type => "boolean", + example => 0, + description => "Enable Pandoc processing of Textile documents", + safe => 0, + rebuild => 1, + }, + pandoc_mediawiki => { + type => "boolean", + example => 0, + description => "Enable Pandoc processing of MediaWiki documents", + safe => 0, + rebuild => 1, + }, + pandoc_smart => { + type => "boolean", + example => 1, + description => "Use smart quotes, dashes, and ellipses", + safe => 1, + rebuild => 1, + }, + pandoc_obfuscate => { + type => "boolean", + example => 1, + description => "Obfuscate emails", + safe => 1, + rebuild => 1, + }, + pandoc_html5 => { + type => "boolean", + example => 0, + description => "Generate HTML5", + safe => 1, + rebuild => 1, + }, + pandoc_ascii => { + type => "boolean", + example => 0, + description => "Generate ASCII instead of UTF8", + safe => 1, + rebuild => 1, + }, + pandoc_numsect => { + type => "boolean", + example => 0, + description => "Number sections", + safe => 1, + rebuild => 1, + }, + pandoc_sectdiv => { + type => "boolean", + example => 0, + description => "Attach IDs to section DIVs instead of Headers", + safe => 1, + rebuild => 1, + }, + pandoc_codeclasses => { + type => "string", + example => "", + description => "Classes to use for indented code blocks", + safe => 1, + rebuild => 1, + }, + pandoc_math => { + type => "string", + example => "mathjax", + description => "Process TeX math using", + safe => 0, + rebuild => 1, + }, + pandoc_bibliography => { + type => "string", + example => "", + description => "Path to bibliography file", + safe => 0, + rebuild => 1, + }, + pandoc_csl => { + type => "string", + example => "", + description => "Path to CSL file (for references and bibliography)", + safe => 0, + rebuild => 1, + }, +} + + +sub htmlize ($@) { + my $format = shift; + my %params = @_; + my $page = $params{page}; + + local(*PANDOC_IN, *JSON_IN, *JSON_OUT, *PANDOC_OUT); + my @args; + + my $command = $config{pandoc_command} || "/usr/local/bin/pandoc"; + + if ($config{pandoc_smart}) { + push @args, '--smart'; + }; + + if ($config{pandoc_obfuscate}) { + push @args, '--email-obfuscation=references'; + } else { + push @args, '--email-obfuscation=none'; + }; + + if ($config{pandoc_html5}) { + push @args, '--html5'; + }; + + if ($config{pandoc_ascii}) { + push @args, '--ascii'; + }; + + if ($config{pandoc_numsect}) { + push @args, '--number-sections'; + }; + + if ($config{pandoc_sectdiv}) { + push @args, '--section-divs'; + }; + + if ($config{pandoc_codeclasses} && ($config{pandoc_codeclasses} ne "")) { + push @args, '--indented-code-classes=' . $config{pandoc_codeclasses}; + }; + + if ($config{pandoc_bibliography}) { + push @args, '--bibliography='.$config{pandoc_bibliography}; + } + + if ($config{pandoc_csl}) { + push @args, '--csl='.$config{pandoc_csl}; + } + + for ($config{pandoc_math}) { + if (/^mathjax$/) { + push @args, '--mathjax=/dev/null'; + } + elsif (/^jsmath$/) { + push @args, '--jsmath'; + } + elsif (/^latexmathml$/) { + push @args, '--latexmathml'; + } + elsif (/^mimetex$/) { + push @args, '--mimetex'; + } + elsif (/^mathtex$/) { + push @args, '--mimetex=/cgi-bin/mathtex.cgi'; + } + elsif (/^google$/) { + push @args, '--webtex'; + } + elsif (/^mathml$/) { + push @args, '--mathml'; + } + else { } + } + + # Convert to intermediate JSON format so that the title block + # can be parsed out + my $to_json_pid = open2(*JSON_OUT, *PANDOC_OUT, $command, + '-f', $format, + '-t', 'json', + @args); + + error("Unable to open $command") unless $to_json_pid; + + # $ENV{"LC_ALL"} = "en_US.UTF-8"; + my $to_html_pid = open2(*PANDOC_IN, *JSON_IN, $command, + '-f', 'json', + '-t', 'html', + @args); + + error("Unable to open $command") unless $to_html_pid; + + # Workaround for perl bug (#376329) + require Encode; + my $content = Encode::encode_utf8($params{content}); + + print PANDOC_OUT $content; + close PANDOC_OUT; + + my $json_content = <JSON_OUT>; + close JSON_OUT; + + waitpid $to_json_pid, 0; + + print JSON_IN $json_content; + close JSON_IN; + + my @html = <PANDOC_IN>; + close PANDOC_IN; + + waitpid $to_html_pid, 0; + + $content = Encode::decode_utf8(join('', @html)); + + # Parse the title block out of the JSON and set the meta values + my @perl_content = @{decode_json($json_content)}; + my %header_section = %{$perl_content[0]}; + my @doc_title = @{$header_section{'docTitle'}}; + my @doc_authors = @{$header_section{'docAuthors'}}; + my $num_authors = @doc_authors; + my @primary_author = (); + if ($num_authors gt 0) { + @primary_author = @{$doc_authors[0]}; + } + my @doc_date = @{$header_section{'docDate'}}; + + sub compile_string { + # The uncompiled string is an array of hashes containing words and + # string with the word "Space". + my (@uncompiled_string) = @_; + my $compiled_string = ''; + foreach my $word_or_space(@uncompiled_string) { + if (ref($word_or_space) eq "HASH") { + if ($word_or_space->{"Str"}) { + $compiled_string .= $word_or_space->{"Str"}; + } + } + else { + $compiled_string .= ' '; + } + } + return $compiled_string; + } + + my $title = compile_string @doc_title; + my $author = compile_string @primary_author; + my $date = compile_string @doc_date; + + if ($title) { + $pagestate{$page}{meta}{title} = $title; + } + if ($author) { + $pagestate{$page}{meta}{author} = $author; + } + if ($date) { + $pagestate{$page}{meta}{date} = $date; + } + + return $content; +} + +1 |