                     :data-forgot "To be continued"}]
            [:input {:type "submit"
                          :value "Comment."}]]])))))
+
+(defn description-form [{:keys [issue issue-id]} owner]
+  (reify
+    om/IDisplayName (display-name [_] "Description form")
+    om/IInitState (init-state [_] {:issue-description nil
+                                   :editing? false})
+    om/IRenderState
+    (render-state [_ {:keys [issue-description]}]
+      (let [{:keys [issue-db cust cast!]} (om/get-shared owner)
+            editable? (= (:cust/email cust) (:issue/author issue))
+            editing? (and editable? (om/get-state owner :editing?))]
+        (html
+          ; if editable? ; (:issue/description issue)
+
+          [:div.original-comment
+
+           (when editing?
+             [:div.content.make
+              [:form.adaptive {:on-submit #(do (utils/stop-event %)
+                                             (when issue-description
+                                               (d/transact! issue-db [{:db/id (:db/id issue)
+                                                                       :issue/description issue-description}]))
+                                             (om/set-state! owner :issue-description nil)
+                                             (om/set-state! owner :editing? false))}
+               [:textarea {:value (or issue-description (:issue/description issue ""))
+                           :required "true"
+                           :onChange #(om/set-state! owner :issue-description (.. % -target -value))}]
+               [:label {:data-label "label here"
+                        :data-placeholder "How can we improve Precursor?"}]
+               [:input {:type "submit"
+                        :value "Make description."}]]]
+             )
+
+           (when (and (not editing?)
+                      (:issue/description issue))
+
+             [:div.issue-comment
+              [:p.make (:issue/description issue)]
+              [:p.issue-foot.make
+               [:span (common/icon :user) " "]
+               [:a {:role "button"}
+                (:issue/author issue)]
+               [:span " on "]
+               [:a {:role "button"}
+                (datetime/month-day (:issue/created-at issue))]
+               [:span " — "]
+               [:a {:role "button"
+                    :on-click #(do
+                                 (if editing?
+                                   (om/set-state! owner :editing? false)
+                                   (om/set-state! owner :editing? true)))}
+                "Edit"]]])
+
+           (when (and (not editing?)
+                      (not (:issue/description issue)))
+
+             (om/build comment-form {:issue-id issue-id}))]
+
+
+
+          ; (om/build comment-form {:issue-id issue-id})
+
+          )))))
 
 ;; XXX: handle logged-out users
 (defn vote-box [{:keys [issue]} owner]

                              (if (om/get-state owner :replying?)
                                (om/set-state! owner :replying? false)
                                (om/set-state! owner :replying? true)))}
             (if (om/get-state owner :replying?) "Cancel" "Reply")]

            ; (when (om/get-state owner :replying?) (om/build comment-form {:issue-id issue-id}))

            ]

           (when (om/get-state owner :replying?)
             (om/build comment-form {:issue-id issue-id
                                     :parent-id comment-id}))

           ; [:div.issue-divider]


            cust (om/get-shared owner :cust)]
        (html
          [:div.content.make
           [:form.adaptive {:on-submit #(do (utils/stop-event %)
                                          (when (seq comment-body)
                                            (d/transact! issue-db [{:db/id issue-id
                                                                    :issue/comments (merge {:db/id -1
                                                                                            :comment/created-at (datetime/server-date)
                                                                                            :comment/body comment-body
                                                                                            :comment/author (:cust/email cust)
                                                                                            :frontend/issue-id (utils/squuid)}
                                                                                           (when parent-id
                                                                                             {:comment/parent parent-id}))}])
                                            (om/set-state! owner :comment-body ""))
                                          (close-callback))}

           [:textarea {:required true
                       :value comment-body
