         :name ~name
         :main false
         :prefix ~prefix
+        ~@(when state
+            '(:init "init" :state "state"))
         :extends ~(or extends Activity)
         :exposes-methods {~'onCreate ~'superOnCreate
                           ~'onStart ~'superOnStart

                          ~'onActivityResult ~'superOnActivityResult
                          ~'onNewIntent ~'superOnNewIntent
                          ~'onDestroy ~'superOnDestroy})
       ~(when on-create
          `(defn ~(symbol (str prefix "onCreate"))
             [~(vary-meta 'this assoc :tag name),

  - same as :on-create but require a one-argument function."
  [name & {:keys [extends prefix on-create on-create-options-menu
                  on-options-item-selected on-activity-result
                  on-new-intent def state]
           :as options}]
  (let [options (or options {}) ;; Handle no-options case
        sname (simple-name name)
