     
     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]

  ;; Existentialism
  :exists? (by-method {
    :options true
    :post (partial entry-list-exists-with-board conn org-slug board-slug-or-uuid)
    :get (partial entry-list-exists-with-board conn org-slug board-slug-or-uuid)
    :delete (fn [ctx]
              (if-let* [_slugs? (slugify/valid-slug? org-slug)
                        org (or (:existing-org ctx)

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