   "Find all job IDs that are not yet complete."
   [db]
   (->> (d/q '[:find ?jid
-              :where
-              [?e :job/status ?s]
-              [((comp not contains?) #{:finished :aborted :failed} ?s)]
-              [?e :job/id ?jid]]
+              :where [?e :job/status ?s]
+                     [((comp not contains?) #{:finished :aborted :failed} ?s)]
+                     [?e :job/id ?jid]]
             db)
        (map first)
        (into #{})))

  [db status]
  (->> (d/q '[:find ?jid
              :in $ ?status
              :where
              [?e :job/status ?status]
              [?e :job/id ?jid]]
            db
            status)
       (map first)

      unfinished
      (->> (d/q '[:find ?jid
                  :in $ [?unfinished-jids ...]
                  :where [?j :job/id ?unfinished-jids]
                         [?j :job/id ?jid]
                         [?j :job/dep ?dj]
                         [?dj :job/status ?djs]
                         [(not= :finished ?djs)]]
                db
                unfinished)
           (map first)
