|
|
@ -12,7 +12,9 @@
|
|
|
|
(:gen-class))
|
|
|
|
(:gen-class))
|
|
|
|
|
|
|
|
|
|
|
|
(defn- home-dir [pipeline-name]
|
|
|
|
(defn- home-dir [pipeline-name]
|
|
|
|
(str (System/getProperty "user.home") "/wanijo-pipeline/" pipeline-name))
|
|
|
|
(let [dir (str (System/getProperty "user.home") "/wanijo-pipeline/" pipeline-name)]
|
|
|
|
|
|
|
|
(log/info (str "Home dir is " dir))
|
|
|
|
|
|
|
|
dir))
|
|
|
|
|
|
|
|
|
|
|
|
(defn wanijo-pipeline []
|
|
|
|
(defn wanijo-pipeline []
|
|
|
|
(lambdacd/assemble-pipeline pipeline/pipeline-def
|
|
|
|
(lambdacd/assemble-pipeline pipeline/pipeline-def
|
|
|
@ -21,7 +23,7 @@
|
|
|
|
|
|
|
|
|
|
|
|
(defn formulare-pipeline []
|
|
|
|
(defn formulare-pipeline []
|
|
|
|
(lambdacd/assemble-pipeline fp/pipeline-def
|
|
|
|
(lambdacd/assemble-pipeline fp/pipeline-def
|
|
|
|
{:home-dir (create-temp-dir "formulare")
|
|
|
|
{:home-dir (home-dir "formulare")
|
|
|
|
:name "formulare pipeline"}))
|
|
|
|
:name "formulare pipeline"}))
|
|
|
|
|
|
|
|
|
|
|
|
(defn -main [& args]
|
|
|
|
(defn -main [& args]
|
|
|
|