Merge branch 'inline-pygments'

htmlify.p6

@@ -698,19 +698,44 @@ sub highlight-code-blocks {
         say "pygmentize not found; code blocks will not be highlighted";
         return;
     }
+
+    my $py = try {
+        require Inline::Python;
+        my $py = ::('Inline::Python').new();
+        $py.run(q{
+import pygments.lexers
+import pygments.formatters
+p6lexer = pygments.lexers.get_lexer_by_name("perl6")
+htmlformatter = pygments.formatters.get_formatter_by_name("html")
+
+def p6format(code):
+    return pygments.highlight(code, p6lexer, htmlformatter)
+});
+        $py;
+    }
+    if defined $py {
+        say "Using syntax hilight using Inline::Python";
+    }
+
     %*POD2HTML-CALLBACKS = code => sub (:$node, :&default) {
         for @($node.contents) -> $c {
             if $c !~~ Str {
                 # some nested formatting code => we can't hilight this
                 return default($node);
             }
         }
-        my $basename = join '-', %*ENV<USER> // 'u', (^100_000).pick, 'pod_to_pyg.pod';
-        my $tmp_fname = "$*TMPDIR/$basename";
-        spurt $tmp_fname, $node.contents.join;
-        LEAVE try unlink $tmp_fname;
-        my $command = "pygmentize -l perl6 -f html < $tmp_fname";
-        return qqx{$command};
+        if defined $py {
+            return $py.call('__main__', 'p6format', $node.contents.join);
+        }
+        else {
+            my $basename = join '-', %*ENV<USER> // 'u', (^100_000).pick, 'pod_to_pyg.pod';
+            my $tmp_fname = "$*TMPDIR/$basename";
+            spurt $tmp_fname, $node.contents.join;
+            LEAVE try unlink $tmp_fname;
+            my $command = "pygmentize -l perl6 -f html < $tmp_fname";
+            return qqx{$command};
+
+        }
     }
 }