From 859c2f36ad8b8888af3a05f0d0d0f5c21e97f1ed Mon Sep 17 00:00:00 2001
From: Michael Olson <mwolson@gnu.org>
Date: Mon, 21 Jul 2008 08:54:37 -0700
Subject: [PATCH] examples/ikiwiki/muse: Write content to the temp file.

---
 examples/ikiwiki/muse | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/examples/ikiwiki/muse b/examples/ikiwiki/muse
index 762800c..6322c07 100644
--- a/examples/ikiwiki/muse
+++ b/examples/ikiwiki/muse
@@ -19,12 +19,16 @@ sub htmlize (@) {
     my $content = decode_utf8(encode_utf8($params{content}));
 
     my ($fh, $filename) = File::Temp::tempfile();
+    print $fh $contents;
+    close $fh;
     my $quoted = $filename;
     $quoted =~ s/"/\\"/g;
     system "emacsclient", "--eval", qq{(muse-ikiwiki-publish "$quoted")};
     {
+        open my $ofh, $filename;
         local $/;
-        $contents = <$fh>;
+        $contents = <$ofh>;
+        close $ofh;
     }
     return $contents;
 }
-- 
2.11.4.GIT