adds alternative ezcater solution.

scratch-sessions/cash-shift.repl

@@ -5,7 +5,7 @@
 ;; You can also press C-u C-j to evaluate the expression and pretty-print its result.
 
 (def c 
-  (first (get-square-clients "NGAK")))
+  (first (get-square-clients "NGOP")))
 
 (def l  {:db/id                     17592186051554,
          :square-location/name      "Almaden",
@@ -14,12 +14,13 @@
 @(cash-drawer-shifts c l )
 
 @(get-cash-shift c "ac34dc1e-5d2e-4a83-929c-c33e24ba2882")
+@(get-cash-shift-events c "ac34dc1e-5d2e-4a83-929c-c33e24ba2882")
 
 @(cash-drawer-shifts c l)
 
 @(upsert-cash-shifts c)
 
-@(d/transact conn [{:db/ident       :cash-drawer-shift/external-id
+@(d/transact auto-ap.datomic/conn [{:db/ident       :cash-drawer-shift/external-id
               :db/doc         "The client for the sale"
               :db/valueType   :db.type/string
               :db/cardinality :db.cardinality/one
@@ -66,3 +67,13 @@
               :db/cardinality :db.cardinality/one}
 
              ])
+
+(defn get-cash-shift-events [client id]
+  (de/chain (manifold-api-call {:url (str (url/url "https://connect.squareup.com/v2/cash-drawers/shifts" id "events"
+
+                                                   ))
+                                :method :get
+
+                                :headers (client-base-headers client "2023-04-19")
+                                :as      :json})
+            :body))