               [: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]}]

(ns sally.core
  (:require [om.core :as om :include-macros true]
            [jayq.core :as jq]
            [sablono.core :as html :refer-macros [html]]
            [figwheel.client :as figwheel :include-macros true]
            [weasel.repl :as weasel]))

(defonce app-state
  (atom {:code ""
         :issues []}))

(defn- get-ref-value [owner ref-name]

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

(defn change-code [cursor owner]
  (om/update! cursor
              [:code] (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)
                       :value (:code data)}]])))

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

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