blob: 76e19b1e884353402429399363c9a30df8302bab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(ns leiningen.lux.builder
(:require (leiningen.lux
[utils :as &utils]
[packager :as &packager])))
(defn build [project]
(if-let [program-module (get-in project [:lux :program])]
(if-let [command (&utils/build-jvm project program-module)]
(when (time (&utils/run-process command
nil
"[COMPILATION BEGAN]"
"[COMPILATION ENDED]"))
true)
(let [command (&utils/compile-path project program-module (get project :source-paths (list)))]
(when (time (&utils/run-process command
nil
"[COMPILATION BEGAN]"
"[COMPILATION ENDED]"))
(time (&packager/package project program-module (get project :resource-paths (list))))
true)))
(println "Please provide a program main module in [:lux :program]")))
|