Skip to content

Instantly share code, notes, and snippets.

@rarous

rarous/employee-stats.clj

Last active December 8, 2017 20:11
Show Gist options
  • Save rarous/994124f8efb49f0bbac03f8845b690b1 to your computer and use it in GitHub Desktop.
Save rarous/994124f8efb49f0bbac03f8845b690b1 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
employee-stats.clj
(def employee-stats
(xf/transjuxt
{:billable-hours (comp billable-hours (xf/reduce +))
:startups-hours (comp startups-hours (xf/reduce +))
:non-billable-without-edu-hours (comp non-billable-without-edu-hours (xf/reduce +))
:without-allocation-hours (comp without-allocation-hours (xf/reduce +))
:education-hours (comp education-hours (xf/reduce +))
:time-off-hours (comp time-off-hours (xf/reduce +))
:projects-count (comp significant-projects xf/count)}))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment