   [kw]
   (let [first-level-parents (-> @keyword-mapping kw :parents)]
     (->> first-level-parents
-      (mapcat all-parents)
-      (concat first-level-parents)
-      distinct)))
-  
+         (mapcat all-parents)
+         (concat first-level-parents)
+         distinct)))
+
 (defn keyword-add-value 
   "Associate the value keyword with the provided value for the given keyword representing the UI element."
   [element-kw value-kw value]

                            (attribute-value el-type value)
                            value)]
           `(~(symbol (str ".set" (capitalize (name attr)))) ~obj ~real-value)))
         attributes))

(defn process-attributes
  "Takes an UI element type, its object symbol and a map of

    value
    (or (-> @keyword-mapping element-kw :values value)
        (symbol (str (.getName (classname element-kw)) \/ (kw-to-static-field value))))))

;; These would be moved somewhere at some point.
;;
(do
