add :src-files to event map

Author: micha

CHANGES.md

@@ -1,10 +1,17 @@
 # boot
 
+## 0.2.1
+
+*Wed Nov  6 11:53:13 EST 2013*
+
+* prepopulate :src-files event key with source files (gitignored files not
+  removed)
+
 ## 0.2.0
 
 *Fri Nov  1 02:12:23 EDT 2013*
 
-* prepopulate :watch event key with source files
+* prepopulate :watch event key with source files (gitignored files removed)
 * add recursive task :main key—keywords refer to other tasks
 
 ## 0.1.1

README.md

@@ -8,7 +8,21 @@ or evaluates an expression as specified in the configuration.
 
 *This is experimental software and subject to frequent change.*
 
-**Current version: 0.2.0**
+### Dependency
+
+Artifacts are published on [Clojars][6]. 
+
+```clojure
+[tailrecursion/hoplon "0.2.1"]
+```
+
+```xml
+<dependency>
+  <groupId>tailrecursion</groupId>
+  <artifactId>hoplon</artifactId>
+  <version>0.2.1</version>
+</dependency>
+```
 
 ## Overview
 
@@ -131,3 +145,4 @@ Distributed under the Eclipse Public License, the same as Clojure.
 [3]: https://github.com/technomancy/leiningen/blob/master/doc/PROFILES.md
 [4]: https://github.com/technomancy/leiningen
 [5]: https://github.com/tailrecursion/boot/blob/master/boot.edn
+[6]: https://clojars.org/tailrecursion/boot

project.clj

@@ -1,4 +1,4 @@
-(defproject tailrecursion/boot "0.2.0"
+(defproject tailrecursion/boot "0.2.1"
   :description "A dependency setup/build tool for Clojure."
   :url "https://github.com/tailrecursion/boot"
   :license {:name "Eclipse Public License"

script/push

@@ -10,6 +10,7 @@ v=$(cat project.clj |head -1 |awk '{print $3}' |sed 's/"//g')
 if [ "$VERSION" == "$v" ]; then
   git tag -a -m "$MESSAGE" "$VERSION"
   git push --tags
+  lein push
 else
   echo "$0: version doesn't match project.clj" 1>&2
   exit 1

src/tailrecursion/boot/core.clj

@@ -108,14 +108,16 @@
   `(defn ~(with-meta name {::task true}) ~@args))
 
 (defn make-event
-  ([boot] 
-   (let [srcs (->> @boot :src-paths (map io/file) (mapcat file-seq)
-                   (filter #(.isFile %)) (remove (partial ignored? boot)) set)]
-     {:id        (gensym)
-      :time      (System/currentTimeMillis)
-      :watch     {:time srcs, :hash srcs}}))
+  ([boot]
+   (make-event boot {}))
   ([boot event]
-   (merge event {:id (gensym) :time (System/currentTimeMillis)})))
+   (let [srcs    (->> @boot :src-paths (map io/file)
+                      (mapcat file-seq) (filter #(.isFile %)))
+         watched (->> srcs (remove (partial ignored? boot)) set)]
+     (merge event {:id        (gensym)
+                   :time      (System/currentTimeMillis)
+                   :watch     {:time watched, :hash watched}
+                   :src-files (set srcs)}))))
 
 (defn init! [env]
   (doto (atom env) (add-watch ::_ #(configure! %3 %4))))