             " found..."]
            [:ul.issues (om/build-all display-issue issues)]])))
 
-(defn live-checking [data owner]
-  (om/component
-    (html [:div#live-checking
-           (om/build checking-textarea data)
-           [:div#issues-display
-            (om/build-all display-checker (get data :issues))]])))
-
-(defmulti listen (fn [tx-data _] (:tag tx-data)))
-(defmethod listen :default [_ _] nil)
 
 (defn- edn-post [url [content-type data] success-fn]
   (jq/ajax url

              [:span.line line]
              [:span.column column]]
             [:div.suggestion
              "Use "
              (code->hiccup :alt alt)
              " 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]
            [clojure.string :as s]
            [sablono.core :as html :refer-macros [html]]
            [figwheel.client :as figwheel :include-macros true]
            [weasel.repl :as weasel]))

(def ^:private kibit-example (str '(when (not anything) something)))

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

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