From 5eb95617b01a6e9621ac43283f65eca08e6ec27e Mon Sep 17 00:00:00 2001 From: Christophe Grand Date: Mon, 11 Dec 2017 11:43:11 +0100 Subject: [PATCH] fix missing closing quote on elided strings, fix #23 --- src/unravel/pprint.cljs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/unravel/pprint.cljs b/src/unravel/pprint.cljs index eb9803d..5c079fc 100644 --- a/src/unravel/pprint.cljs +++ b/src/unravel/pprint.cljs @@ -74,8 +74,7 @@ (concat (cons meta-open (spans m)) (cons te/space (spans v)) [te/kv-close])) unrepl.java/class [(ansi (str (:form x)) (str "\33[33m" (:form x) "\33[m"))] ; to distinguish from symbols unrepl/string (let [[s e] (:form x) - s (pr-str s) - s (subs s 0 (dec (count s)))] (cons (nobr s) (spans e))) + s (pr-str s)] (cons (nobr s) (spans e))) unrepl/ratio (let [[n d] (:form x)] [(str n "/" d)]) @@ -110,7 +109,7 @@ (concat [(delims "{")] (coll-spans (concat (dissoc x tags/unreachable) [kv]) [comma te/space] kv-spans) [(delims "}")]) (concat [(delims "{")] (coll-spans x [comma te/space] kv-spans) [(delims "}")])) :else [(pr-str x)]))] - (spans x)))) + (spans x)))) (defmethod core/spans [:text :unrepl/edn] [x to-as opts] (spans x opts))