a simple Clojurescript logging function that prints objects with pr-str when appropriate

gistfile1.clj

(defn- printable?
  "Returns true if obj is printable with pr-str, false otherwise.
   the function `log` uses this"
  [obj]
  (try
    (satisfies? IPrintWithWriter obj)
    (catch js/Error e
      (satisfies? IPrintable obj))))

(defn log [& more]
  (.apply (.-log js/console) js/console
          (into-array (map #(if (printable? %)
                              (pr-str %)
                              %)
                           more))))