From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 22 Mar 2012 20:35:03 +0000 (-0700)
Subject: add a few newlines to fig_output
X-Git-Url: https://git.donarmstrong.com/?p=ikiwiki_plugins.git;a=commitdiff_plain;h=8caaacf0430089641dea405d1468cd21fc6de68c

add a few newlines to fig_output
include the figure output in output
---

diff --git a/sweavealike.pm b/sweavealike.pm
index 48c603c..c3dad53 100644
--- a/sweavealike.pm
+++ b/sweavealike.pm
@@ -172,7 +172,7 @@ sub preprocess {
 	if ($@) {
 	    error("code 'dev.off()' (from internal figure handling) produced error '$@'");
 	}
-	$fig_output = qq(\n<img class="sweavealike" src=").urlto($image_loc,$param{destpage}).qq(" />);
+	$fig_output = qq(\n\n<img class="sweavealike" src=").urlto($image_loc,$param{destpage}).qq(" />\n);
     }
     if (exists $param{nooutput}) {
 	return($output.$fig_output);
@@ -191,7 +191,7 @@ sub preprocess {
 	exists $param{results}) {
 	$output =~ s/^/    /mg;
     }
-    return($output);
+    return($output.$fig_output);
 }
 
 # stop any started R processes here