                                   :defaultValue (name (:type data))
                                   :onChange #(callback (keyword (.. % -target -value)))}
                              (dom/option (option-element-map "email" (= :email (:type data)))  "Email")
-                             (dom/option (option-element-map "noop" (= :noop (:type data))) "Noop")))))))
+                             (dom/option (option-element-map "noop" (= :noop (:type data))) "Noop")
+                             (dom/option (option-element-map "github-issue" (= :github-issue (:type data))) "GitHub issue")))))))
 
 (defn user-email-component [data owner]
   (reify

                (om/build user-email-component (:user-email data))
                
                (when (= :email (-> data :action-type :type))
                  (om/build email-template-component (:email data)))))))

(defn add-action-footer [data owner]
  (reify

                            :action-type 
                            {:type (:type state)
                             :handler #(om/set-state! owner :type %)}

                            :github-issue
                            {:repo {:value (:gh-repo state) 
                                    :handler #(om/set-state! owner :gh-repo %)}
                             :title {:value (:gh-issue-title state) 
                                     :handler #(om/set-state! owner :gh-issue-title %)}
                             :body {:value (:gh-issue-body state)
                                    :handler #(om/set-state! owner :gh-issue-body %)}}
                            
                            :email
                            {:template (:email-template state)
