diff --git a/informative-edit.htm b/informative-edit.htm
--- a/informative-edit.htm
+++ b/informative-edit.htm
@@ -16,20 +16,23 @@
     <div .hint>
       #{msg}
   $maybe sect <- msect
-    $case (sect, kind)
-      $of (Left c, Article)
+    $case (sect, kind, fmt)
+      $of (Left c, Article, Source _ _)
+        <div .sourceContent>
+	  #{c}
+      $of (Left c, Article, _)
         <div .content>
           #{c}
-      $of (Left c, Hint)
+      $of (Left c, Hint, _)
         <div .hint>
           #{c}
-      $of (Left c, _)
+      $of (Left c, _, _)
         <div .error>
           #{c}
-      $of (Right [], _)
+      $of (Right [], _, _)
         <div .error>
           Empty table.
-      $of (Right rows, Table)
+      $of (Right rows, Table, _)
         <div .table>
           <table>
             <thead>
@@ -39,7 +42,7 @@
               <tr>
                 $forall c <- cols
                   <td>#{c}
-      $of (Right rows, Mapping)
+      $of (Right rows, Mapping, _)
         <div .mapping>
           <table>
             $forall cols <- rows
diff --git a/informative.cabal b/informative.cabal
--- a/informative.cabal
+++ b/informative.cabal
@@ -10,7 +10,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.1.0.13
+version:             0.1.0.14
 
 -- A short (one-line) description of the package.
 synopsis:            A yesod subsite serving a wiki.
diff --git a/informative.css b/informative.css
--- a/informative.css
+++ b/informative.css
@@ -92,11 +92,17 @@
   margin-left: -4px;
   margin-bottom: 4px;
 
-div.content, div.hint, div.error
+div.content, div.hint, div.error, div.sourceContent
   padding-left: 4px;
   display: block;
   margin: 0.3cm;
 
+div.sourceContent
+  margin-top: -0.3px;
+
+div.sourceContent ~ div.content, div.sourceContent ~ div.table, div.sourceContent ~ div.mapping
+  margin-top: -0.3px;
+
 div.table, div.mapping
   background-color: white;
   border: 0px;
@@ -141,7 +147,7 @@
   border: none;
   background: none;
 
-div#content div.content a:before, div#content div.table a:before, div#content div.mapping a:before
+div#content div.content a:before, div#content div.table a:before, div#content div.mapping a:before, div#content div.sourceContent a:before
   color: navy;
   content: '->';
   font-size: 11px;
@@ -197,6 +203,13 @@
   background-color: #dddddd;
   padding: 4px;
   margin-right: 3px;
+
+div.sourceContent code.sourceCode
+  margin-top: 0px;
+  margin-bottom: 0px;
+
+div.sourceContent table
+  width: 100%;
 
 code.cs, code.source-cs
   background-color: #ffdddd
diff --git a/informative.htm b/informative.htm
--- a/informative.htm
+++ b/informative.htm
@@ -23,7 +23,7 @@
   $forall (idx, (rid, sect, kind, fmt)) <- sects
     $case (sect, kind, fmt)
       $of (Left c, Article, Source _ _)
-        <div .content .sourceContent>
+        <div .sourceContent>
           #{c}
       $of (Left c, Article, _)
         <div .content>