You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
50 lines
1.6 KiB
50 lines
1.6 KiB
(ns leiningen.equilibrium
|
|
(:require [equilibrium.render :as render]
|
|
[equilibrium.miner.ftp :as ftp]
|
|
[leiningen.core.main :refer [info warn]]
|
|
[clojure.java.io :as io]))
|
|
|
|
(defn deploy
|
|
"Deploys the rendered page under target/page to the configured ftp target"
|
|
[project]
|
|
(ftp/with-ftp [client (System/getenv "EQUILIBRIUM_URL")
|
|
:ftp-user (System/getenv "EQUILIBRIUM_USER")
|
|
:ftp-pass (System/getenv "EQUILIBRIUM_PASS")]
|
|
(doseq [file (file-seq (io/file "target/page"))
|
|
:let [fname (str file)
|
|
relpath (subs fname (count "target/page"))
|
|
dir? (.isDirectory file)]
|
|
:when (pos? (count relpath))]
|
|
(let [dest (str (or (System/getenv "EQUILIBRIUM_FTP_BASE_PATH") "")
|
|
"/"
|
|
(subs relpath 1))]
|
|
(if dir?
|
|
(do
|
|
(println "creating dir" dest)
|
|
(ftp/client-mkdir client dest))
|
|
(do
|
|
(println fname "to" dest)
|
|
(ftp/client-put client fname dest)))))))
|
|
|
|
(defn invalid-input [project]
|
|
(warn "refer to 'lein help equilibrium' for available tasks"))
|
|
|
|
(defn rendloy
|
|
"Render and deploy - see render and deploy"
|
|
[project]
|
|
(render/render project)
|
|
(deploy project))
|
|
|
|
(def argmapping
|
|
{:render render/render
|
|
:deploy deploy
|
|
:rendloy rendloy
|
|
:? invalid-input})
|
|
|
|
(defn equilibrium
|
|
{:subtasks [#'render/render #'deploy]}
|
|
[project & args]
|
|
(let [kwarg (keyword (or (first args) "?"))
|
|
callfn (kwarg argmapping invalid-input)]
|
|
(callfn project)))
|