             [defun.core :refer (defun-)]
             [if-let.core :refer (if-let* when-let*)]
             [taoensso.timbre :as timbre]
-            [compojure.core :as compojure :refer (ANY)]
+            [compojure.core :as compojure :refer (ANY OPTIONS DELETE)]
             [liberator.core :refer (defresource by-method)]
             [schema.core :as schema]
             [oc.lib.schema :as lib-schema]

  (let [db-pool (-> sys :db-pool :pool)]
    (compojure/routes
      ;; Delete sample posts
      (ANY "/orgs/:org-slug/entries/samples"
        [org-slug]
        (pool/with-pool [conn db-pool]
          (entry-list conn org-slug nil)))
      (ANY "/orgs/:org-slug/entries/samples/"
        [org-slug]
        (pool/with-pool [conn db-pool]
          (entry-list conn org-slug nil)))

    
    true)) ; no existing entry, so this will fail existence check later

(defn- entry-list-for-board
  "Retrieve an entry list for the board, or false if the org or board doesn't exist."
  [conn org-slug board-slug-or-uuid ctx]
  (if-let* [_slugs? (and (slugify/valid-slug? org-slug)
                         (slugify/valid-slug? board-slug-or-uuid))
            org (or (:existing-org ctx)
                    (org-res/get-org conn org-slug))
            org-uuid (:uuid org)
            board (board-res/get-board conn org-uuid board-slug-or-uuid)
            board-uuid (:uuid board)
            entries (entry-res/list-entries-by-board conn board-uuid {})]
    {:existing-org (api-common/rep org)
     :existing-board (api-common/rep board)
     :existing-entries (api-common/rep entries)}
    false))

;; ----- Actions -----

(defn- share-entry [conn ctx entry-for]
