no need for bultitude here

Author: micha

README.md

@@ -376,7 +376,6 @@ pulled in code from the following projects (thanks, guys!)
 * [technomancy/leiningen][50]
 * [cemerick/pomegranate][51]
 * [Raynes/conch][52]
-* [Raynes/bultitude][60]
 * [tebeka/clj-digest][53]
 * [cldwalker/table][54]
 * [clojure/tools.cli][55]
@@ -416,4 +415,3 @@ Distributed under the Eclipse Public License, the same as Clojure.
 [57]: https://github.com/AvisoNovate/pretty
 [58]: https://github.com/google/hesokuri
 [59]: https://code.google.com/p/barbarywatchservice/
-[60]: https://github.com/Raynes/bultitude

boot/core/src/boot/from/bultitude/core.clj

@@ -11,8 +11,7 @@
    [boot.util                :as util]
    [boot.gitignore           :as git]
    [boot.task-helpers        :as helpers]
-   [boot.from.table.core     :as table]
-   [boot.from.bultitude.core :as btude])
+   [boot.from.table.core     :as table])
   (:import
    [java.util.concurrent LinkedBlockingQueue TimeUnit]))
 
@@ -315,10 +314,11 @@
 
   (let [tgt (core/mktgtdir! ::aot-tgt)]
     (core/with-pre-wrap
-      (let [nses (if-not all
-                   namespace
-                   (->> (core/get-env :src-paths) (map io/file)
-                     (btude/namespaces-on-classpath :classpath)))]
+      (let [nses (->> (core/src-files)
+                   (map core/relative-path)
+                   (filter #(.endsWith % ".clj"))
+                   (map util/path->ns)
+                   (filter (if all (constantly true) #(contains? namespace %))))]
         (binding [*compile-path* (.getPath tgt)]
           (doseq [ns nses]
             (util/info "Compiling %s...\n" ns)

boot/core/src/boot/task/built_in.clj

@@ -3,6 +3,8 @@
    [clojure.java.io              :as io]
    [clojure.set                  :as set]
    [clojure.pprint               :as pprint]
+   [clojure.string               :as string]
+   [boot.file                    :as file]
    [boot.from.io.aviso.ansi      :as ansi]
    [boot.from.io.aviso.repl      :as repl]
    [boot.from.io.aviso.exception :as pretty])
@@ -93,6 +95,11 @@
     (map?     form) (str "{" (apply str (interpose " " (map pr-color-str (mapcat identity form)))) "}")
     :else (pr-str form)))
 
+(defn path->ns
+  [path]
+  (-> path file/split-path (#(string/join "." %))
+    (.replace \_ \-) (.replaceAll "\\.clj$" "") symbol))
+
 (defn auto-flush
   [writer]
   (proxy [java.io.PrintWriter] [writer]