examples/ikiwiki/muse

   1 #!/usr/bin/perl
   2 # Ikiwiki plugin for Emacs Muse.
   3 # Author: Michael Olson
   4 # License: GPLv2 or later
   5 package IkiWiki::Plugin::muse;
   6
   7 use warnings;
   8 use strict;
   9 use IkiWiki 2.00;
  10 use Encode;
  11 use File::Temp;
  12
  13 sub import {
  14     hook(type => "htmlize", id => "muse", call => \&htmlize);
  15 }
  16
  17 sub htmlize (@) {
  18     my %params=@_;
  19     my $content = decode_utf8(encode_utf8($params{content}));
  20
  21     my ($fh, $filename) = File::Temp::tempfile();
  22     my $quoted = $filename;
  23     $quoted =~ s/"/\\"/g;
  24     system "emacsclient", "--eval", qq{(muse-ikiwiki-publish "$quoted")};
  25     {
  26         local $/;
  27         $contents = <$fh>;
  28     }
  29     return $contents;
  30 }
  31
  32 1