#{username} $forall Entity _ emp <- employments
From # #{show (employmentStartDate emp)} $maybe enddate <- employmentEndDate emp \ until # #{show enddate} $if isThisUser

^{formWidget} $else

Category Hours Date Note $forall (a,b,c,d,e) <- entries
#{timeCategoryName b} #{c} #{d} #{e} ^{pageNavWidget}

#{username} $forall Entity _ emp <- employments From # #{show (employmentStartDate emp)} $maybe enddate <- employmentEndDate emp \ until # #{show enddate} $if isThisUser ^{formWidget} $else Category Hours Date Note $forall (a,b,c,d,e) <- entries #{timeCategoryName b} #{c} #{d} #{e} ^{pageNavWidget}