(ns leiningen.show-profiles
  "List all available profiles or display one if given an argument."
  (:require [clojure.string]
            [clojure.pprint :as pprint]
            [leiningen.core.project :as project]))

(defn ^:no-project-needed show-profiles
  "List all available profiles or display one if given an argument."
  ([project]
     (->> (project/read-profiles project)
          (keys)
          (map (comp #(subs % 1) str))
          (sort)
          (clojure.string/join "\n")
          (println)))
  ([project profile]
     (-> (project/read-profiles project)
         (get (keyword profile))
         (pprint/pprint))
     (flush)))