metabase.api.cards

(ns metabase.api.cards
  (:require [compojure.core :refer [POST]]
            [metabase.api.card :as api.card]
            [metabase.api.common :as api]
            [metabase.models.interface :as mi]
            [metabase.util.malli :as mu]
            [metabase.util.malli.schema :as ms]
            [toucan2.core :as t2]))

(mu/defn get-dashboards
  [card-id :- ms/PositiveInt]
  (let [card (t2/select-one :model/Card :id card-id)]
    (:in_dashboards (t2/hydrate card :in_dashboards))))

(defn- present-dashboard [dashboard]
  (-> (cond
        (not (mi/can-read? dashboard)) {:error :unreadable-dashboard}
        (not (mi/can-write? dashboard)) (merge dashboard {:error :unwritable-dashboard})
        :else dashboard)
      (dissoc :collection_id)))

(api/defendpoint POST 
  "Get the dashboards that multiple cards appear in. The response is a sequence of maps, each of which has a `card_id`
  and `dashboards`. `dashboard` may include an `:error` key, either `:unreadable-dashboard` or
  `:unwritable-dashboard`. In the case of an `unreadable-dashboard` the dashboard details (name, ID) will NOT be
  present."
  [:as {{:keys [card_ids]} :body}]
  {card_ids [:sequential ms/PositiveInt]}
  (->> card_ids
       (mapv (fn [card-id]
               {:card_id card-id :dashboards (map present-dashboard (get-dashboards card-id))}))))

(api/defendpoint POST 
  "Moves a number of Cards to a single collection or dashboard.
  For now, just either succeed or fail as a batch - we can think more about error handling later down the road."
  [:as {{:keys [card_ids
                collection_id
                dashboard_id], :as body} :body}]
  {card_ids [:sequential ms/PositiveInt]
   collection_id [:maybe ms/PositiveInt]
   dashboard_id [:maybe ms/PositiveInt]}
  (t2/with-transaction [_conn]
    (doseq [card-id card_ids]
      (api.card/update-card! card-id (select-keys body [:collection_id :dashboard_id]) true)))
  {:status :success})

(api/define-routes)