aboutsummaryrefslogtreecommitdiff
path: root/src/clj/queue_api/db/core.clj
blob: 765ce39f7e8fa3da124d6f67213e6720c6234c81 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
(ns queue-api.db.core
  (:require [datascript.core :as d]
            [mount.core :as mount]
            [clj-time.core :as time]))

(def schema {:agent/id                 {:db/unique :db.unique/identity}
             :agent/primary-skillset   {:db/cardinality :db.cardinality/many}
             :agent/secondary-skillset {:db/cardinality :db.cardinality/many}
             :agent/job                {:db.valueType :db.type/ref}
             :job/id                   {:db/unique :db.unique/identity}
             :job/agent                {:db.valueType :db.type/ref}})

(mount/defstate conn
                :start (d/create-conn schema))

(defn add-agent [{:keys [id name primary-skillset secondary-skillset]}]
  (d/transact! queue-api.db.core/conn [{:agent/id                 id
                                        :agent/name               name
                                        :agent/primary-skillset   primary-skillset
                                        :agent/secondary-skillset secondary-skillset}]))

(defn add-job [{:keys [id type urgent]}]
  (d/transact! queue-api.db.core/conn [{:job/id     id
                                        :job/type   type
                                        :job/urgent urgent
                                        :job/date   (time/now)
                                        :job/status :unassigned}]))

(defn request-job [id]
  {:job_request {:job_id "Dummy" :agent_id "Dummy"}})


(defn get-agent [id]
  [{:type "Dummy"
    :jobs -2}])

(defn agent-jobs [id s]
  (let [q (d/q '[:find ?jid
                 :in $ ?id ?s
                 :where
                 [?e :agent/id ?id]
                 [?x :job/id ?jid]
                 [?x :job/status ?s]
                 [?x :job/agent ?e]]
               @conn id s)]
    (map #(d/entity @conn [:job/id (first %)]) q)))


(defn q-job [u s t]
  (let [q (->> (d/q '[:find ?d ?id
                      :in $ ?u ?s ?t
                      :where
                      [?e :job/date ?d]
                      [?e :job/id ?id]
                      [?e :job/urgent ?u]
                      [?e :job/status ?s]
                      [?e :job/type ?t]]
                    @conn u s t)
               (sort-by first))]
    (map #(d/entity @conn [:job/id (last %)]) q)))

(defn q-status [s]
  (d/q '[:find ?id :in $ ?status
         :where
         [?e :job/status ?status]
         [?e :job/id ?id]]
       @conn s))

(defn sum-queue []
  {:completed  (map #(first %) (q-status :completed))
   :processing (map #(first %) (q-status :processing))
   :unassigned (map #(first %) (q-status :unassigned))})