Special case ident for Datomic where clauses

[devth]

Any thoughts on how we could support a special case ident for Datomic's :where?

(d/q '[:find ?team .
       :in $ ?user-id
       :where [?team :team/users ?user-id]
              [?team :team/active? true]]
     db user-id)

Notice how [?team :team/active? true]] is lined up with the clause above it. The default indent results in:

(d/q '[:find ?team .
       :in $ ?user-id
       :where [?team :team/users ?user-id]
       [?team :team/active? true]]
     db user-id)