                         (subs s (inc offset))]
                        [s nil]))))
                s)))))
-
-;;TODO: This is an oversimplied version. Needs to be fully implemented
-(defn- is-whitespace? [s]
-  (boolean
-    (#{\space \newline} s)))
 
 (defn- capitalize-word-writer
   "Returns a proxy that wraps writer, capitalizing all words"

                               defdirectives formatter-out]])
  (:require
    [cljs.core :refer [IWriter IDeref]]
    [clojure.string :as string])
  (:import [goog.string StringBuffer]))

(def ^:dynamic *out* nil)


          js/Number
          (let [c (char x)]
            (if (and (not @capped) (gstring/isUnicodeChar c))
              (do
                (reset! capped true)
                (-write writer (string/upper-case c)))
