diff options
| author | Gabriel A. Giovanini <mail@gabrielgio.me> | 2018-02-20 00:21:24 -0300 |
|---|---|---|
| committer | Gabriel A. Giovanini <mail@gabrielgio.me> | 2018-02-20 00:21:24 -0300 |
| commit | 71eb6b34ce80cc91ab1e713f2c5b32076c3ee940 (patch) | |
| tree | 6cc740597d52f0836e06fa3d7c6374a22e475b59 /src/clj | |
| parent | d1c15fe5fa8d5aac6a7ca056e79ca8872971a9d9 (diff) | |
| download | queue-api-71eb6b34ce80cc91ab1e713f2c5b32076c3ee940.tar.gz queue-api-71eb6b34ce80cc91ab1e713f2c5b32076c3ee940.tar.bz2 queue-api-71eb6b34ce80cc91ab1e713f2c5b32076c3ee940.zip | |
Simplifies q-job and doc
Diffstat (limited to 'src/clj')
| -rw-r--r-- | src/clj/queue_api/db/core.clj | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/src/clj/queue_api/db/core.clj b/src/clj/queue_api/db/core.clj index faa4d65..e0eb491 100644 --- a/src/clj/queue_api/db/core.clj +++ b/src/clj/queue_api/db/core.clj @@ -52,18 +52,18 @@ `s`: status of the job `ts`: types of the job" [u s & ts] - (let [q (->> (d/q '[:find ?d ?id - :in $ ?u ?s ?ts - :where - [?e :job/date ?d] - [?e :job/id ?id] - [?e :job/urgent ?u] - [?e :job/status ?s] - [?e :job/type ?t] - [(clojure.string/includes? ?ts ?t)]] - @conn u s ts) - (sort-by first))] - (map #(d/entity @conn [:job/id (last %)]) q))) + (->> (d/q '[:find ?d ?id + :in $ ?u ?s ?ts + :where + [?e :job/date ?d] + [?e :job/id ?id] + [?e :job/urgent ?u] + [?e :job/status ?s] + [?e :job/type ?t] + [(clojure.string/includes? ?ts ?t)]] + @conn u s ts) + (sort-by first) + (map #(d/entity @conn [:job/id (last %)])))) (defn q-status "Query job filtering only by `s`" @@ -112,7 +112,9 @@ p (q-skillset (:agent/secondary-skillset a))))))) -(defn t-job +(defn + "Transact status `s` and agent `a` of a job `id`" + t-job ([^String id ^Keyword s] (d/transact! conn [{:job/id id :job/status s}])) |