blob: 4902d048fed9e3314dd9341693cfccf23aea073b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
;; Copyright (c) Eduardo Julian. All rights reserved.
;; This Source Code Form is subject to the terms of the Mozilla Public License, v. 2.0.
;; If a copy of the MPL was not distributed with this file,
;; You can obtain one at http://mozilla.org/MPL/2.0/.
(ns leiningen.lux
(:require [leiningen.pom :as pom]
[leiningen.core.classpath :as classpath]
(leiningen.lux [builder :as &builder]
[test :as &test]
[repl :as &repl]
[watch :as &watch])))
;; [Exports]
(defn lux [project & args]
(case (first args)
"build"
(&builder/build project)
"test"
(&test/test project)
"repl"
(&repl/repl project)
"watch"
(case (second args)
"build"
(&watch/watch #(&builder/build project) project)
"test"
(&watch/watch #(&test/test project) project))
;; default...
(println "Commands available: (watch) build, (watch) test, repl"))
)
|
