... | ... |
@@ -51,6 +51,10 @@ |
51 | 51 |
|
52 | 52 |
(defn- third [coll] (nth coll 2)) |
53 | 53 |
|
54 |
+(defn- zip [& colls] (apply map vector colls)) |
|
55 |
+ |
|
56 |
+(defn- enumerated [& colls] (apply zip (range) colls)) |
|
57 |
+ |
|
54 | 58 |
(defn- property-list [& props] |
55 | 59 |
(into |
56 | 60 |
[:ul {:class (styles/property-list)}] |
... | ... |
@@ -62,7 +66,6 @@ |
62 | 66 |
[:span (first %)] |
63 | 67 |
[:span (second %)]))))) |
64 | 68 |
|
65 |
-(defn- zip [& colls] (apply map vector colls)) |
|
66 | 69 |
|
67 | 70 |
(defn- property-table [items & props] |
68 | 71 |
(let [pprops (partition 3 props) |