Make region-selection a Dropdown.

technomancy · May 21, 2014 · 3ff5280 · 3ff5280
1 parent 4663dfa
commit 3ff5280
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/src/syme/html.clj b/src/syme/html.clj
@@ -3,7 +3,9 @@
             [tentacles.repos :as repos]
             [tentacles.users :as users]
             [environ.core :refer [env]]
-            [hiccup.page :refer [html5 include-css]]))
+            [syme.instance :as instance]
+            [hiccup.page :refer [html5 include-css]]
+            [hiccup.form :as form]))
 
 (def login-url (str "https://github.com/login/oauth/authorize?"
                     "client_id=" (env :oauth-client-id)))
@@ -68,9 +70,10 @@
        [:input {:type :text :style "width: 320px"
                 :name "credential" :id "credential"
                 :value credential :placeholder "AWS Secret Key"}]
-       [:input {:type :text :name "region"
-                :style "width: 48%"
-                :placeholder "region (default: us-west-2)"}]
+       (form/drop-down "region" (->> (keys instance/ami-by-region)
+                                     (map name)
+                                     sort)
+                       "us-west-2")
        [:input {:type :text :name "ami-id"
                 :style "width: 48%"
                 :placeholder "ami id (optional)"}]