               [:span.line line]
               [:span.column column]]
              [:div.suggestion
-              "Use "
+              "Use:"
               (code->hiccup :alt alt)
-              " instead of "
+              "instead of:"
               (code->hiccup :expr expr)]]))))
 
 (defn display-checker [{:keys [name source description issues]}]

(defn ig [f & more] (fn [_] (apply f more)))

(defn change-code [cursor owner]
  (om/transact! cursor
                :code (ig get-ref-value owner "code-area")
                :code-change))

(defn checking-textarea [data owner]
  (om/component
    (html [:div#code-area
           [:textarea {:ref "code-area"
                       :on-change (ig change-code data owner)}
           (:code data)]])))

(defn code->hiccup [class-name code]
  [:pre {:class class-name}
   [:code (pr-str code)]])

(defn display-issue [{:keys [alt expr line column]}]
  (reify

            " found..."]
           [:ul.issues (om/build-all display-issue issues)]])))


(defn- edn-post [url [content-type data] success-fn]
  (jq/ajax url
