Skip to content
Browse files

Have mercy on the packagers; don't pull in useful for a 1-line defn.

  • Loading branch information...
1 parent b48eec9 commit 97e390984885ed9ad3ef7e59fe8cd5c972e739ad @technomancy committed
Showing with 5 additions and 4 deletions.
  1. +0 −1 project.clj
  2. +5 −3 src/leiningen/pom.clj
View
1 project.clj
@@ -8,7 +8,6 @@
:url "http://www.eclipse.org/legal/epl-v10.html"}
:dependencies [[leiningen-core "2.0.0-SNAPSHOT"]
[clucy "0.2.3"]
- [useful "0.7.6-alpha1"]
[lein-newnew "0.2.6"]
[reply "0.1.0-beta1"]
[org.clojure/data.xml "0.0.3"]
View
8 src/leiningen/pom.clj
@@ -4,8 +4,7 @@
[leiningen.core.project :as project]
[clojure.java.io :as io]
[clojure.string :as s]
- [clojure.data.xml :as xml]
- [useful.string :as useful]))
+ [clojure.data.xml :as xml]))
(defn- relativize [project]
(let [root (str (:root project) "/")]
@@ -86,8 +85,11 @@
(defn- make-test-scope [[dep version opts]]
[dep version (assoc opts :scope "test")])
+(defn- camelize [string]
+ (s/replace string #"[-_](\w)" (comp s/upper-case second)))
+
(defn- pomify [key]
- (->> key name useful/camelize keyword))
+ (->> key name camelize keyword))
(defmulti ^:private xml-tags
(fn [tag value] (keyword "leiningen.pom" (name tag))))

0 comments on commit 97e3909

Please sign in to comment.
Something went wrong with that request. Please try again.