aboutsummaryrefslogtreecommitdiff
path: root/src/clojure/contrib/miglayout/internal.clj
diff options
context:
space:
mode:
authorscgilardi <scgilardi@gmail.com>2009-03-11 22:16:06 +0000
committerscgilardi <scgilardi@gmail.com>2009-03-11 22:16:06 +0000
commit2bb3f67f27ed1d647e4b2aac080ebd88eeef21f7 (patch)
tree4f0dcf489add1a5c6aad94a407e5f9339e51de69 /src/clojure/contrib/miglayout/internal.clj
parent63fbd72c2c1f20539bb0efa84dd950600ae8bf95 (diff)
miglayout: correct example and improve conciseness
Diffstat (limited to 'src/clojure/contrib/miglayout/internal.clj')
-rw-r--r--src/clojure/contrib/miglayout/internal.clj12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/clojure/contrib/miglayout/internal.clj b/src/clojure/contrib/miglayout/internal.clj
index bef89aca..00be8785 100644
--- a/src/clojure/contrib/miglayout/internal.clj
+++ b/src/clojure/contrib/miglayout/internal.clj
@@ -58,18 +58,18 @@
(#{:layout :column :row} x))))
(defn parse-item-constraints
- "Iterates over args and builds a map containing :keywords, a map of from
- keyword-item to constraints string and :components, a vector of vectors
- each associating a component with its constraints string. :components is
- a vector because ordering of components matters."
+ "Iterates over args and builds a map containing values associated with
+ :keywords and :components. The value for :keywords is a map from keyword
+ items to constraints strings. The value for :components is a vector of
+ vectors each associating a component with its constraints string."
[& args]
(loop [[item & args] args
- item-constraints {:components [] :keyword-items {}}]
+ item-constraints {:keywords {} :components []}]
(if item
(let [[constraints args] (split-with constraint? args)]
(recur args
(update-in
item-constraints
- [(if (component? item) :components :keyword-items)]
+ [(if (component? item) :components :keywords)]
conj [item (apply format-constraints constraints)])))
item-constraints)))