diff options
| author | scgilardi <scgilardi@gmail.com> | 2009-04-05 18:27:12 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2009-04-05 18:27:12 +0000 |
| commit | 05a3733ee5cc96577a6f3c8b4d194fb2f12e5fd9 (patch) | |
| tree | a1fa73698630208a4c3e8bbcd4acdbfc174fe2a0 /src/clojure/contrib/miglayout/internal.clj | |
| parent | 091f2a1d1a8bf86761c4d4c3ea94d2b543f796cd (diff) | |
use the-str from java-utils
Diffstat (limited to 'src/clojure/contrib/miglayout/internal.clj')
| -rw-r--r-- | src/clojure/contrib/miglayout/internal.clj | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/clojure/contrib/miglayout/internal.clj b/src/clojure/contrib/miglayout/internal.clj index 77476086..8a2131c5 100644 --- a/src/clojure/contrib/miglayout/internal.clj +++ b/src/clojure/contrib/miglayout/internal.clj @@ -15,7 +15,10 @@ (ns clojure.contrib.miglayout.internal (:import (java.awt Component)) - (:use (clojure.contrib except fcase))) + (:use (clojure.contrib + [except :only (throwf)] + [fcase :only (fcase)] + [java-utils :only (the-str)]))) (declare format-constraints) @@ -34,11 +37,6 @@ (throwf IllegalArgumentException "unrecognized constraint: %s (%s)" c (class c)))]) -(defn the-str - "Returns the string for x--its name if it's a keyword." - [x] - ((if (keyword? x) name str) x)) - (defn format-constraints "Returns a string representing all the constraints for one keyword-item or component formatted for miglayout." |