gistfile1.clj

(defn create-control [parent]
  (let [c (composite parent
            ::project-name-group create-project-name-group
            ::create-in-group create-in-group
            ::lein-template-group create-lein-template-group)
        $ (partial $ c)]
    (config! ($ ::create-in-group)
      :form-data {:top {:control ::project-name-group}
                  :left {:pct 0}
                  :right {:pct 100}})
    (config! ($ ::lein-template-group)
      :form-data {:top {:control ::create-in-group}
                  :left {:pct 0}
                  :right {:pct 100}})))