dev: web: clarify AddForm a bit (#1229)

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

@@ -61,42 +61,42 @@ addForm ::
   Journal -> Day -> Markup ->
   MForm m (FormResult Transaction, WidgetFor (HandlerSite m) ())
 addForm j today = identifyForm "add" $ \extra -> do
-  (dateRes, dateView) <- mreq dateField dateFS Nothing
+  let  -- bindings used in add-form.hamlet
-  (descRes, descView) <- mreq textField descFS Nothing
+    descriptions = foldMap S.fromList [journalPayeesDeclaredOrUsed j, journalDescriptions j]
-  (acctRes, _) <- mreq listField acctFS Nothing
+    files = fst <$> jfiles j
-  (amtRes, _) <- mreq listField amtFS Nothing
+  (dateRes, dateView) <- mreq dateField dateSettings Nothing
+  (descRes, descView) <- mreq textField descSettings Nothing
+  (acctRes, _)        <- mreq listField "account" Nothing
+  (amtRes , _)        <- mreq listField "amount" Nothing
   let (postRes, displayRows) = validatePostings acctRes amtRes
-
-  -- bindings used in add-form.hamlet
-  let descriptions = foldMap S.fromList [journalPayeesDeclaredOrUsed j, journalDescriptions j]
-      journals = fst <$> jfiles j
-
   pure (validateTransaction dateRes descRes postRes, $(widgetFile "add-form"))
 
   where
-    dateFS = FieldSettings "date" Nothing Nothing (Just "date")
+    -- field settings
+    dateSettings = FieldSettings "date" Nothing Nothing (Just "date")
       [("class", "form-control input-lg"), ("placeholder", "Date")]
-    descFS = FieldSettings "desc" Nothing Nothing (Just "description")
+    descSettings = FieldSettings "desc" Nothing Nothing (Just "description")
       [("class", "form-control input-lg typeahead"), ("placeholder", "Description"), ("size", "40")]
-    acctFS = FieldSettings "amount" Nothing Nothing (Just "account") []
-    amtFS = FieldSettings "amount" Nothing Nothing (Just "amount") []
-    dateField = checkMMap (pure . validateDate) (T.pack . show) textField
-    validateDate s =
-      first (const ("Invalid date format" :: Text)) $
-      fixSmartDateStrEither' today (T.strip s)
 
+    -- custom field types
+    dateField = checkMMap (pure . validateDate) (T.pack . show) textField
+      where
+        validateDate s =
+          first (const ("Invalid date format" :: Text)) $
+          fixSmartDateStrEither' today (T.strip s)
     listField = Field
       { fieldParse = const . pure . Right . Just . dropWhileEnd T.null
       , fieldView = error "Don't render using this!"  -- PARTIAL:
       , fieldEnctype = UrlEncoded
       }
 
-    -- Used in add-form.hamlet
+    -- helpers 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
+
       preEscapedText $ T.concat [
         "[",
         T.intercalate "," $ map (
@@ -112,8 +112,8 @@ addForm j today = identifyForm "add" $ \extra -> do
           ) ts,
         "]"
         ]
-b64wrap :: Text -> Text
+      where
-b64wrap = ("atob(\""<>) . (<>"\")") . encodeBase64
+        b64wrap = ("atob(\""<>) . (<>"\")") . encodeBase64
 
 validateTransaction ::
      FormResult Day
@@ -128,8 +128,11 @@ validateTransaction dateRes descRes postingsRes =
     x -> x
   where
     makeTransaction date desc postings =
-      nulltransaction {tdate = date, tdescription = desc, tpostings = postings}
+      nulltransaction {
-
+         tdate        = date
+        ,tdescription = desc
+        ,tpostings    = postings
+        }
 
 -- | Parse a list of postings out of a list of accounts and a corresponding list
 -- of amounts

hledger-web/templates/add-form.hamlet

@@ -58,10 +58,10 @@
   <div .col-md-4 .col-xs-4 .col-sm-4>
     <button type=submit .btn .btn-default .btn-lg name=submit>add
 
-$if length journals > 1
+$if length files > 1
   <br>
   <span .input-lg>to:
-    <select #journalselect .form-control.input-lg name=journal style="width:auto; display:inline-block;">
+    <select #journalselect .form-control.input-lg name=file style="width:auto; display:inline-block;">
-      $forall p <- journals
+      $forall f <- files
-        <option value=#{p}>#{p}
+        <option value=#{f}>#{f}
 <span .small style="padding-left:2em;">