                                                         (key (first permission)))))
                                                []
                                                perms))))
-    
+
     (when-let [pk (:placement-keys options)]
       (.setPlaceKeys cco pk)) ;; FIXME bigint and long array casts?
     (when-let [q (:quality options)]

      (.setEncoding cco e))
    (when-let [f (:format options)]
      (.setFormat cco (doc-format f)))
    
    (when-let [g (:graph options)]
      (.setGraph cco g))
    (when-let [lang (:language options)]

;;;; these functions within `with-open` after setting the transaction
;;;; mode to `:update` or `:query` on the session via the
;;;; `:transaction-mode` option.
;;;;
;;;; See https://docs.marklogic.com/guide/xcc/concepts#id_23310
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

