blob: c1f978ad3b99c2c0cd68c5aa75570725e3db8489 (
plain)
- #!/usr/bin/perl
- # Markdown markup language
- package IkiWiki::Plugin::mdwn;
- use warnings;
- use strict;
- use IkiWiki;
- sub import { #{{{
- IkiWiki::hook(type => "htmlize", id => "mdwn", call => \&htmlize);
- } # }}}
- sub htmlize ($) { #{{{
- my $content = shift;
- if (! $INC{"/usr/bin/markdown"}) {
- # Note: a proper perl module is available in Debian
- # for markdown, but not upstream yet.
- no warnings 'once';
- $blosxom::version="is a proper perl module too much to ask?";
- use warnings 'all';
- do "/usr/bin/markdown" || IkiWiki::error("failed to load /usr/bin/markdown: $!");
- require Encode;
- }
-
- # Workaround for perl bug (#376329)
- $content=Encode::encode_utf8($content);
- $content=Encode::encode_utf8($content);
- $content=Markdown::Markdown($content);
- $content=Encode::decode_utf8($content);
- $content=Encode::decode_utf8($content);
- return $content;
- } # }}}
- 1
|