(ns leiningen.equilibrium
  (:require [leiningen.render :as render]
            [leiningen.core.main :refer [info warn]]))

(defn deploy
  "Deploys the rendered page under target/page to the configured ftp target"
  [project])

(defn invalid-input [project]
  (warn "refer to 'lein help equilibrium' for available tasks"))

(def argmapping
  {:render render/render
   :deploy deploy
   :? invalid-input})

(defn equilibrium
  {:subtasks [#'render/render #'deploy]}
  [project & args]
  (let [kwarg (keyword (or (first args) "?"))
        callfn (kwarg argmapping invalid-input)]
    (callfn project)))