     [(or (:line (meta form)) MAX-LINE)
      (or (:end-line (meta form)) MIN-LINE)]))
 
-(defn j [v]
-  (string/join " " (flatten v)))
+(defn j [v] (string/join " " (flatten v)))
 
 (defn process-top-level-form [smodel form]
   (let [[op name & rest] form]


(def OUT-WIDTH 50)

(defn word-wrap [width s]
  (re-seq (re-pattern (str ".{0," width "}\\s")) s))

(defn ljust [width s]
  (format (str "%-" width "s:") s))

(defn pprintm [x]
  (binding [*print-meta* true]
    (pprint x)))

(defn read-model-file [fname]
    {:fname fname

  (println "hello world from zgo")
  (let [smodel (read-model-file "src/cbfg/fence.cljs")
        pmodel (process-top-level-forms smodel)]
    (pprint smodel)
    (emit (:lines smodel) pmodel)))

