                    r (if nl (dec (count cc)) (+ col (count cc)))
                    dstack (into out cc) nil false false
                    (if-not nl incm) (= c \return) nl cmindent))
-          (= c \") (let [cc (if (or incl insl) [c] [\space c])]
+          (= c \") (let [cc (if (or incl insl sups) [c] [\space c])]
                      (recur
                        r (+ col (count cc)) dstack (into out cc)
                        (if (and insl (not incl)) [\space]) false

(ns ccw.editors.antlrbased.ClojureFormat
  (:use [clojure.contrib.pprint])
  (:import
    [org.eclipse.jface.text IAutoEditStrategy
     IDocument
     DocumentCommand])
  (:gen-class
    :init init
    :state state

                    false false false false (sups-char? c)
                    cmindent))))
      (apply str out))))


(deftest code-formatting
  (is (= "#\"something\"" (format-code "#\"something\""))))
