web: fix add form completions (fixes #1156)

It seems like show (toJSON "a") used to give "\"a\"" instead of
"String \"a\"". I haven't found the root cause, it's possible
that this fix won't work if built with older libs.

Author: simonmichael

hledger-web/Hledger/Web/Widget/AddForm.hs

@@ -13,7 +13,7 @@ module Hledger.Web.Widget.AddForm
 
 import Control.Monad.State.Strict (evalStateT)
 import Data.Bifunctor (first)
-import Data.List (dropWhileEnd, nub, sort, unfoldr)
+import Data.List (dropWhileEnd, intercalate, nub, sort, unfoldr)
 import Data.Maybe (isJust)
 #if !(MIN_VERSION_base(4,13,0))
 import Data.Semigroup ((<>))
@@ -73,10 +73,6 @@ addForm j today = identifyForm "add" $ \extra -> do
   -- bindings used in add-form.hamlet
   let descriptions = sort $ nub $ tdescription <$> jtxns j
       journals = fst <$> jfiles j
-      listToJsonArray :: [Text] -> Markup
-      listToJsonArray = preEscapedString . escapeJSSpecialChars . show . toJSON
-        where
-          escapeJSSpecialChars = regexReplaceCI "</script>" "<\\/script>" -- #236
 
   pure (validateTransaction dateRes descRes postRes, $(widgetFile "add-form"))
 
@@ -98,6 +94,28 @@ addForm j today = identifyForm "add" $ \extra -> do
       , fieldEnctype = UrlEncoded
       }
 
+    -- Used in add-form.hamlet
+    toBloodhoundJson :: [Text] -> Markup
+    toBloodhoundJson ts =
+      -- This used to work, but since 1.16, it seems like something changed.
+      -- toJSON ("a"::Text) gives String "a" instead of "a", etc.
+      -- preEscapedString . escapeJSSpecialChars . show . toJSON
+      preEscapedString $ concat [
+        "[",
+        intercalate "," $ map (
+          ("{\"value\":" ++).
+          (++"}").
+          escapeJSSpecialChars .
+          drop 7 .  -- "String "
+          show .
+          toJSON
+          ) ts,
+        "]"
+        ]
+      where
+        -- avoid https://github.com/simonmichael/hledger/issues/236
+        escapeJSSpecialChars = regexReplaceCI "</script>" "<\\/script>"
+
 validateTransaction ::
      FormResult Day
   -> FormResult Text

hledger-web/templates/add-form.hamlet

@@ -1,15 +1,15 @@
 <script>
   jQuery(document).ready(function() {
     descriptionsSuggester = new Bloodhound({
-      local:#{listToJsonArray descriptions},
+      local:#{toBloodhoundJson descriptions},
       limit:100,
       datumTokenizer: function(d) { return [d.value]; },
       queryTokenizer: function(q) { return [q]; }
     });
     descriptionsSuggester.initialize();
 
     accountsSuggester = new Bloodhound({
-      local:#{listToJsonArray (journalAccountNamesDeclaredOrImplied j)},
+      local:#{toBloodhoundJson (journalAccountNamesDeclaredOrImplied j)},
       limit:100,
       datumTokenizer: function(d) { return [d.value]; },
       queryTokenizer: function(q) { return [q]; }