#{title'} $if elem AddPermission perms Kirjaa tapahtuma
$forall torig <- items

$with (payee, note) <- payeeAndNoteFromDescription' $ tdescription torig #{show (tdate torig)}
$case tstatus torig $of Unmarked
$of Pending
$of Cleared
$if not $ T.null $ tcode torig
(#{tcode torig}) $if not $ T.null $ T.strip payee
#{textElideRight 60 payee} $if not $ T.null $ T.strip note
#{textElideRight 60 note} $if null $ filter isVisibleTag $ ttags torig $else
$forall (tagName, tagValue) <- filter isVisibleTag $ ttags torig

#{tagName}
#{tagValue}
$forall Posting { paccount = acc, pamount = amt, ptags = tags } <- tpostings torig

#{elideAccountName 40 acc}
^{mixedAmountAsHtml amt} $if null $ filter (isPostingTag acc) $ filter isVisibleTag tags $else
$forall (tagName, tagValue) <- filter (isPostingTag acc) $ filter isVisibleTag tags

#{tagName}
#{tagValue} $if elem AddPermission perms ^{addModal AddR j today}