add :uneval element type.

Author: Yannick Scherer

src/rewrite_clj/parser/core.clj

@@ -96,6 +96,7 @@
       \' (parse-prefixed :var reader delim)
       \^ (parse-pair :meta* reader delim)
       \= (parse-prefixed :eval reader delim)
+      \_ (parse-prefixed :uneval reader delim)
       (do (r/unread reader \#) (parse-pair :reader-macro reader delim)))))
 
 (defn- parse-unquote

src/rewrite_clj/printer.clj

@@ -41,6 +41,7 @@
 (defmethod print-edn :map [data] (print-children "{" data "}"))
 (defmethod print-edn :set [data] (print-children "#{" data "}"))
 (defmethod print-edn :eval [data] (print-children "#=" data))
+(defmethod print-edn :uneval [data] (print-children "#_" data))
 (defmethod print-edn :reader-macro [data] (print-children "#" data))
 (defmethod print-edn :quote [data] (print-children "'" data))
 (defmethod print-edn :syntax-quote [data] (print-children "`" data))

test/rewrite_clj/parser_test.clj

@@ -105,7 +105,9 @@
   "#'a"                      :var             :token        1
   "#(+ % 1)"                 :fn              :token        5
   "#=(+ 1 2)"                :eval            :list         1
-  "#macro 1"                 :reader-macro    :token        3)
+  "#macro 1"                 :reader-macro    :token        3
+  "#_abc"                    :uneval          :token        1
+  "#_(+ 1 2)"                :uneval          :list         1)
 
 (tabular
   (fact "about parsing exceptions"

test/rewrite_clj/printer_test.clj

@@ -1,4 +1,4 @@
-(ns ^{:doc "Tests for EDN printer." 
+(ns ^{:doc "Tests for EDN printer."
       :author "Yannick Scherer"}
   rewrite-clj.printer-test
   (:require [midje.sweet :refer :all]
@@ -11,19 +11,41 @@
       (estimate-length tree) => (count ?str)
       (->string tree) => ?str))
   ?str
-  "0"    "0.1"     "1N"
-  ":key" ":ns/key" "::key"
-  "sym"  "sym#"
+  "0"
+  "0.1"
+  "1N"
+
+  ":key"
+  ":ns/key"
+  "::key"
+
+  "sym"
+  "sym#"
+
   "\"string\""
+  "\"string\nnewline\""
+  "\"string\n  newline\n  other\""
 
-  "@sym"  "#'sym" "'sym" "~sym"
-  "~@sym" "`sym"  "#=sym"
+  "@sym"
+  "#'sym"
+  "'sym"
+  "~sym"
+  "~@sym"
+  "`sym"
+  "#=sym"
 
   "(first form) (second form)"
   "[:complex (list {:map 0})]"
-  "#=(eval this)" "#date s"
 
-  "#\"regex\"" "#\"regex\\.\"" "#\"[reg|k].x\""
+  "#=(eval this)"
+  "#date s"
+  "#(+ 1 2)"
+  "#_abc"
+  "#_(+ 1 2)"
+
+  "#\"regex\""
+  "#\"regex\\.\""
+  "#\"[reg|k].x\""
 
   "^:private s"
   "^{:private true} s"