diff --git a/hledger-lib/Hledger/Utils.hs b/hledger-lib/Hledger/Utils.hs
index 29f44f6ca..a80640c7a 100644
--- a/hledger-lib/Hledger/Utils.hs
+++ b/hledger-lib/Hledger/Utils.hs
@@ -58,7 +58,7 @@ strip = lstrip . rstrip
 lstrip = dropWhile (`elem` " \t") :: String -> String
 rstrip = reverse . lstrip . reverse
 
-stripbrackets = dropWhile (`elem` "([") . reverse . dropWhile (`elem` "])") . reverse
+stripbrackets = dropWhile (`elem` "([") . reverse . dropWhile (`elem` "])") . reverse :: String -> String
 
 elideLeft width s =
     if length s > width then ".." ++ reverse (take (width - 2) $ reverse s) else s
diff --git a/hledger-web/Foundation.hs b/hledger-web/Foundation.hs
index 2d45362ff..5421f73b6 100644
--- a/hledger-web/Foundation.hs
+++ b/hledger-web/Foundation.hs
@@ -102,10 +102,10 @@ instance Yesod App where
             $(widgetFile "normalize")
             addStylesheet $ StaticR css_bootstrap_css
             -- load jquery early:
-            toWidgetHead [hamlet| <script type="text/javascript" src="/static/jquery.js"></script> |]
+            toWidgetHead [hamlet| <script type="text/javascript" src="@{StaticR jquery_js}"></script> |]
             addScript $ StaticR jquery_url_js
             addScript $ StaticR jquery_flot_js
-            toWidget [hamlet| \<!--[if lte IE 8]> <script type="text/javascript" src="excanvas.min.js"></script> <![endif]--> |]
+            toWidget [hamlet| \<!--[if lte IE 8]> <script type="text/javascript" src="@{StaticR excanvas_min_js}"></script> <![endif]--> |]
             addScript $ StaticR dhtmlxcommon_js
             addScript $ StaticR dhtmlxcombo_js
             addStylesheet $ StaticR style_css
diff --git a/hledger-web/Handler/Common.hs b/hledger-web/Handler/Common.hs
index 03eb70c0e..fa562e94f 100644
--- a/hledger-web/Handler/Common.hs
+++ b/hledger-web/Handler/Common.hs
@@ -109,12 +109,12 @@ searchform VD{..} = [hamlet|
   filtering = not $ null q
 
 -- | Add transaction form.
-addform :: ViewData -> HtmlUrl AppRoute
-addform vd@VD{..} = [hamlet|
+addform :: Text -> ViewData -> HtmlUrl AppRoute
+addform staticRootUrl vd@VD{..} = [hamlet|
 <script type=text/javascript>
  \$(document).ready(function() {
     /* dhtmlxcombo setup */
-    window.dhx_globalImgPath="../static/";
+    window.dhx_globalImgPath="#{staticRootUrl}/";
     var desccombo  = new dhtmlXCombo("description");
     var acct1combo = new dhtmlXCombo("account1");
     var acct2combo = new dhtmlXCombo("account2");
diff --git a/hledger-web/Handler/JournalEntriesR.hs b/hledger-web/Handler/JournalEntriesR.hs
index a3920f999..56fb8f6db 100644
--- a/hledger-web/Handler/JournalEntriesR.hs
+++ b/hledger-web/Handler/JournalEntriesR.hs
@@ -19,6 +19,7 @@ import Hledger.Web.Options
 getJournalEntriesR :: Handler RepHtml
 getJournalEntriesR = do
   vd@VD{..} <- getViewData
+  staticRootUrl <- (staticRoot . settings) <$> getYesod
   let
       sidecontent = sidebar vd
       title = "Journal entries" ++ if m /= Any then ", filtered" else "" :: String
@@ -35,7 +36,7 @@ getJournalEntriesR = do
    <h2#contenttitle>#{title}
    ^{searchform vd}
    ^{maincontent}
-  ^{addform vd}
+  ^{addform staticRootUrl vd}
   ^{editform vd}
   ^{importform}
 |]
diff --git a/hledger-web/Handler/JournalR.hs b/hledger-web/Handler/JournalR.hs
index 9e0e6750b..1cbd10e29 100644
--- a/hledger-web/Handler/JournalR.hs
+++ b/hledger-web/Handler/JournalR.hs
@@ -17,6 +17,7 @@ import Hledger.Web.Options
 getJournalR :: Handler RepHtml
 getJournalR = do
   vd@VD{..} <- getViewData
+  staticRootUrl <- (staticRoot . settings) <$> getYesod
   let sidecontent = sidebar vd
       -- XXX like registerReportAsHtml
       inacct = inAccount qopts
@@ -42,7 +43,7 @@ getJournalR = do
    <h2#contenttitle>#{title}
    ^{searchform vd}
    ^{maincontent}
-  ^{addform vd}
+  ^{addform staticRootUrl vd}
   ^{editform vd}
   ^{importform}
 |]
diff --git a/hledger-web/Handler/Post.hs b/hledger-web/Handler/Post.hs
index f3c36df15..197a2268b 100644
--- a/hledger-web/Handler/Post.hs
+++ b/hledger-web/Handler/Post.hs
@@ -67,8 +67,8 @@ handleAdd = do
                            tdate=parsedate date
                           ,tdescription=desc
                           ,tpostings=[
-                            Posting False acct1 (mixed amt1) "" RegularPosting [] Nothing
-                           ,Posting False acct2 (mixed amt2) "" RegularPosting [] Nothing
+                            Posting Nothing Nothing False acct1 (mixed amt1) "" RegularPosting [] Nothing
+                           ,Posting Nothing Nothing False acct2 (mixed amt2) "" RegularPosting [] Nothing
                            ]
                           })
   -- display errors or add transaction
diff --git a/hledger-web/Handler/RegisterR.hs b/hledger-web/Handler/RegisterR.hs
index 7bf4f1c39..2b91cf4bd 100644
--- a/hledger-web/Handler/RegisterR.hs
+++ b/hledger-web/Handler/RegisterR.hs
@@ -19,6 +19,7 @@ import Hledger.Web.Options
 getRegisterR :: Handler RepHtml
 getRegisterR = do
   vd@VD{..} <- getViewData
+  staticRootUrl <- (staticRoot . settings) <$> getYesod
   let sidecontent = sidebar vd
       -- injournal = isNothing inacct
       filtering = m /= Any
@@ -40,7 +41,7 @@ getRegisterR = do
    <h2#contenttitle>#{title}
    ^{searchform vd}
    ^{maincontent}
-  ^{addform vd}
+  ^{addform staticRootUrl vd}
   ^{editform vd}
   ^{importform}
 |]