+        ^{maincontent}
      |]
 
 postJournalR :: Handler Html
@@ -46,11 +48,10 @@ postJournalR = postAddForm
 -- | Render a "TransactionsReport" as html for the formatted journal view.
 journalTransactionsReportAsHtml :: WebOpts -> ViewData -> TransactionsReport -> HtmlUrl AppRoute
 journalTransactionsReportAsHtml _ vd (_,items) = [hamlet|
-
- 
+
+ 
   
    Date
-   
   Description
   Account
   Amount
@@ -61,26 +62,20 @@ journalTransactionsReportAsHtml _ vd (_,items) = [hamlet|
 -- .#{datetransition}
    itemAsHtml :: ViewData -> (Int, Bool, Bool, Bool, TransactionsReportItem) -> HtmlUrl AppRoute
    itemAsHtml VD{..} (n, _, _, _, (torig, _, split, _, amt, _)) = [hamlet|
-
-  
-   #{date}
-   #{textElideRight 60 desc}
-   
-    $if showamt
-     \#{mixedAmountAsHtml amt}
-  $forall p' <- tpostings torig
-   
-    
-    
-    
-      
-     #{elideAccountName 40 $ paccount p'}
-    #{mixedAmountAsHtml $ pamount p'}
-  
-   | - | - | - | + | 
+ | #{date}
+ | #{textElideRight 60 desc}
+ | +  $if showamt
+   \#{mixedAmountAsHtml amt}
+$forall p' <- tpostings torig
+ | 
+  | + | + | +    
+   #{elideAccountName 40 $ paccount p'}
+#{mixedAmountAsHtml $ pamount p'}
 |]
      where
        acctlink a = (RegisterR, [("q", T.pack $ accountQuery a)])
diff --git a/hledger-web/Handler/RegisterR.hs b/hledger-web/Handler/RegisterR.hs
index 634463b0c..444523edc 100644
--- a/hledger-web/Handler/RegisterR.hs
+++ b/hledger-web/Handler/RegisterR.hs
@@ -48,24 +48,27 @@ postRegisterR = postAddForm
 -- Generate html for an account register, including a balance chart and transaction list.
 registerReportHtml :: WebOpts -> ViewData -> TransactionsReport -> HtmlUrl AppRoute
 registerReportHtml opts vd r = [hamlet|
- ^{registerChartHtml $ transactionsReportByCommodity r}
+ | 
+  ^{registerChartHtml $ transactionsReportByCommodity r}
  ^{registerItemsHtml opts vd r}
 |]
 
 -- Generate html for a transaction list from an "TransactionsReport".
 registerItemsHtml :: WebOpts -> ViewData -> TransactionsReport -> HtmlUrl AppRoute
 registerItemsHtml _ vd (balancelabel,items) = [hamlet|
-
- 
-  
-   Date
-   
-  Description
-  To/From Account(s)
-  Amount Out/In
-  #{balancelabel'}
- $forall i <- numberTransactionsReportItems items
-  ^{itemAsHtml vd i}
+
+ 
+  
+   
+    | +     Date
+     
+ | Description
+ | To/From Account(s)
+ | Amount Out/In
+ | #{balancelabel'}
+  $forall i <- numberTransactionsReportItems items
+   ^{itemAsHtml vd i}
  |]
  where
    insomeacct = isJust $ inAccount $ qopts vd
@@ -107,7 +110,7 @@ registerChartHtml percommoditytxnreports =
  -- is hidden, eg with add form toggled
  [hamlet| |