 (defn- read-file [in]
   (try (slurp in)
        (catch Exception e
-         (fail (str "Could not read from '" in "'.")))))
+         (fail (str "Could not read from '" in "'")))))
 
 (defn- strmap [f coll]
   (apply str (map f coll)))

    (println (string/trim s))
    (try (spit out s)
         (catch Exception e
           (fail (str "Could not write to '" out "'."))))))

(defn- nml-parse [s start src]
  (let [result (parse s :start start)]


;; cli

(defn- assoc-e [m k v]
  (if (k m) (fail (msgs :multi-edit)))
  (assoc m k v))

(defn- assoc-f [m k v]
  (if (k m) (fail (msgs :multi-format)))
  (assoc m k v))
