slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed artifacts of conversion

Browse Source
This commit is contained in:
Dominik Süß 2016-10-21 19:58:52 +02:00 committed by Simon Michael
parent 956b63f27d
commit 93d85e3eae
3 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-web/Foundation.hs
View File

@ -379,7 +379,6 @@ addform _ vd@VD{..} = [hamlet|
<input ##{amtvar} .amount-input .form-control .input-lg type=text name=#{amtvar} placeholder="#{amtph}"> <input ##{amtvar} .amount-input .form-control .input-lg type=text name=#{amtvar} placeholder="#{amtph}">
|] |]
where where
islast = n == numpostings
acctvar = "account" ++ show n acctvar = "account" ++ show n
acctph = "Account " ++ show n acctph = "Account " ++ show n
amtvar = "amount" ++ show n amtvar = "amount" ++ show n

5
hledger-web/Handler/Common.hs
View File

@ -47,7 +47,7 @@ topbar VD{..} = [hamlet|
<div#spacer .col-md-4 .col-sm-4 .col-xs-2> <div#spacer .col-md-4 .col-sm-4 .col-xs-2>
<h1> <h1>
<button .visible-xs .btn .btn-default type="button" data-toggle="offcanvas"> <button .visible-xs .btn .btn-default type="button" data-toggle="offcanvas">
<span .glyphicon .glyphicon-align-left .tgl-icon> <span .glyphicon .glyphicon-abootstrap link buttonlign-left .tgl-icon>
<div#topbar .col-md-8 .col-sm-8 .col-xs-10> <div#topbar .col-md-8 .col-sm-8 .col-xs-10>
<h1>#{title} <h1>#{title}
@ -190,9 +190,6 @@ balanceReportAsHtml _ vd@VD{..} (items',total) =
|] |]
where where
hassubs = not $ maybe False (null.asubs) $ ledgerAccount l acct hassubs = not $ maybe False (null.asubs) $ ledgerAccount l acct
-- <td.numpostings title="#{numpostings} transactions in this account">(#{numpostings})
-- numpostings = maybe 0 (length.apostings) $ ledgerAccount l acct
depthclass = "depth"++show aindent
inacctclass = case inacctmatcher of inacctclass = case inacctmatcher of
Just m' -> if m' `matchesAccount` acct then "inacct" else "" Just m' -> if m' `matchesAccount` acct then "inacct" else ""
Nothing -> "" :: String Nothing -> "" :: String

4
hledger-web/Handler/JournalR.hs
View File

@ -61,7 +61,7 @@ journalTransactionsReportAsHtml _ vd (_,items) = [hamlet|
where where
-- .#{datetransition} -- .#{datetransition}
itemAsHtml :: ViewData -> (Int, Bool, Bool, Bool, TransactionsReportItem) -> HtmlUrl AppRoute itemAsHtml :: ViewData -> (Int, Bool, Bool, Bool, TransactionsReportItem) -> HtmlUrl AppRoute
itemAsHtml VD{..} (n, _, _, _, (torig, _, split, _, amt, _)) = [hamlet| itemAsHtml VD{..} (_, _, _, _, (torig, _, split, _, amt, _)) = [hamlet|
<tr .title #transaction-#{tindex torig}> <tr .title #transaction-#{tindex torig}>
<td .date>#{date} <td .date>#{date}
<td .description colspan=2>#{textElideRight 60 desc} <td .description colspan=2>#{textElideRight 60 desc}
@ -82,7 +82,7 @@ $forall p' <- tpostings torig
-- datetransition | newm = "newmonth" -- datetransition | newm = "newmonth"
-- | newd = "newday" -- | newd = "newday"
-- | otherwise = "" :: String -- | otherwise = "" :: String
(firstposting, date, desc) = (False, show $ tdate torig, tdescription torig) (date, desc) = (show $ tdate torig, tdescription torig)
-- acctquery = (here, [("q", T.pack $ accountQuery acct)]) -- acctquery = (here, [("q", T.pack $ accountQuery acct)])
showamt = not split || not (isZeroMixedAmount amt) showamt = not split || not (isZeroMixedAmount amt)