                     false false false false (sups-char? c)
                     cmindent))))
       (apply str out))))
+
+
+(deftest code-formatting
+  (is (= "#\"something\"" (format-code "#\"something\""))))

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

                   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 sups) [c] [\space c])]
                     (recur
                       r (+ col (count cc)) dstack (into out cc)
                       (if (and insl (not incl)) [\space]) false
