-
Notifications
You must be signed in to change notification settings - Fork 0
/
build.clj
62 lines (56 loc) · 2.15 KB
/
build.clj
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
(ns build
(:refer-clojure :exclude [test])
(:require [clojure.string :as str]
[clojure.tools.build.api :as b]
[org.corfield.build :as bb]))
(def lib 'com.ensime/tonic)
(def version (format "0.%s" (b/git-count-revs nil)))
(defn test "Run the tests." [opts]
(bb/run-tests opts))
(defn- compile-java [{:keys [basis class-dir] :as opts}] ; rewrite it
(b/javac {:src-dirs ["native"]
:class-dir class-dir
:basis basis
:javac-opts ["-source" "8" "-target" "8"]}))
(defn jar [{:keys [lib version] :as opts}]
(let [{:keys [basis class-dir jar-file src-dirs src+dirs ns-compile filter-nses]} opts
current-dir (System/getProperty "user.dir")
current-rel #(str/replace % (str current-dir "/") "")]
(println "\nWriting pom.xml...")
(b/write-pom {:basis basis
:lib lib
:version version
:class-dir class-dir
:src-dirs src-dirs})
(println "Copying" (str (str/join ", " (map current-rel src+dirs)) "..."))
(b/copy-dir {:src-dirs src+dirs
:target-dir class-dir})
(println "Compiling" (str (str/join ", " (or ns-compile src-dirs)) "..."))
(b/compile-clj {:basis basis
:src-dirs src-dirs
:class-dir class-dir
:filter-nses filter-nses
:ns-compile ns-compile})
(println "Compiling native...")
(compile-java opts)
(println "Building jar" (str jar-file "..."))
(b/jar {:class-dir class-dir
:jar-file jar-file})))
(defn ci "Run the CI pipeline of tests (and build the JAR)." [opts]
(-> opts
(assoc :lib lib
:version version
:basis (bb/default-basis)
:class-dir (bb/default-class-dir)
:jar-file (bb/default-jar-file lib version)
:src-dirs ["src"]
:src+dirs ["src" "resources"]
:filter-nses '[tonic.java]
:ns-compile '[tonic.java])
(bb/run-tests)
(bb/clean)
(jar)))
(defn deploy "Deploy the JAR to Clojars." [opts]
(-> opts
(assoc :lib lib :version version)
(bb/deploy)))