     :else
     (literal "literal" x)))
 
-(defn- associative->dom
+(defn associative->dom
   [data {:keys [entry-class key-class val-class]}]
   (into-array
     (for [[k v] data]

;; ---------------------------------------------------------------------
;; View helpers

(declare view)

(defn- literal [class x]
  (dom/span #js {:className class :key x}
    (pr-str x)))

(defn coll-view [data opener closer class]
  (om/build view data
    {:opts {:opener opener :closer closer :class class}}))

(defn inspect* [x]
  (cond
    (satisfies? IInspect x)
    (-inspect x)

(ns ankha.core
  (:refer-clojure :exclude [empty? inspect])
  (:require
   [om.core :as om :include-macros true]
   [om.dom :as dom :include-macros true]
   [clojure.string :as string]
   [goog.object :as object]))

(enable-console-print!)

