Added bake.core/context?, a utility function that returns true when i…

…ts argument names the current context.
amalloy · Jan 5, 2011 · 0f1c93b · 0f1c93b
1 parent 9d9c176
commit 0f1c93b
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/bake/bake/core.clj b/bake/bake/core.clj
@@ -61,3 +61,8 @@
   `(try (set-context! ~context)
         (do ~@forms)
         (set-project! *project-root*)))
+
+(defn context? [ctx-name]
+  "Returns true iff the argument is the currently selected context. Argument can
+   be anything that clojure.core/name turns into a string."
+  (= (name (:context *project*)) (name ctx-name)))