aboutsummaryrefslogtreecommitdiff
path: root/lux-lein/src/leiningen/lux.clj
blob: 40f39f9d38b71085c4ff92007c40cfef2bd00e2e (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)

    "auto"
    (case (second args)
      "build"
      (&watch/watch #(&builder/build project) project)

      "test"
      (&watch/watch #(&test/test project) project))

    ;; default...
    (println "Commands available: (auto) build, (auto) test, repl"))
  )