conrad.category_listings.clj Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of conrad Show documentation

Back-End Services for the iPlant Administrative Console

The newest version!

(ns conrad.category-listings
  (:use [conrad.app-listings]
        [conrad.category-crud])
  (:require [clojure.tools.logging :as log]))

(defn- load-apps-in-categories [category-hids]
  (map #(load-app-listing %)
       (reduce concat (map #(get-app-ids-in-category %) category-hids))))

(defn- extract-category-hids [category]
  (cons (:hid category)
        (reduce concat (map #(extract-category-hids %) (:groups category)))))

(defn- marshal-apps-in-category [hid]
  (let [category (load-category hid)
        apps (load-apps-in-categories (extract-category-hids category))]
    (dissoc (assoc category :templates apps) :groups)))

(defn- marshal-deleted-and-orphaned-apps []
  (let [apps (load-deleted-and-orphaned-app-listings)]
    (dissoc (assoc (list-trash-category) :templates apps) :groups)))

(defn- marshal-category-without-apps [hid]
  (load-category hid #(dissoc % :hid :workspace_id)))

(defn list-public-categories-without-apps []
  (let [hids (get-public-root-category-hids)]
    {:groups (conj (map #(marshal-category-without-apps %) hids)
                   (list-trash-category))}))

(defn list-category-with-apps [category-id]
  (if (= category-id trash-category-id)
    (marshal-deleted-and-orphaned-apps)
    (marshal-apps-in-category (get-category-hid category-id))))