Fix ~ symbol

davesann · Dec 26, 2022 · 4d06d81 · 4d06d81
1 parent 5cf3982
commit 4d06d81
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/src/nextjournal/clerk/viewer.cljc b/src/nextjournal/clerk/viewer.cljc
@@ -332,7 +332,9 @@
 ;; https://clojurians.slack.com/archives/C03S1KBA2/p1667334982789659
 
 #?(:clj (defn roundtrippable? [x]
-          (= x (-> x str read-string))))
+          (try
+            (= x (-> x str read-string))
+            (catch Exception _e false))))
 
 #?(:clj
    (defmethod print-method clojure.lang.Keyword [o w]

diff --git a/test/nextjournal/clerk/viewer_test.clj b/test/nextjournal/clerk/viewer_test.clj
@@ -218,7 +218,9 @@
     (is (= "#viewer-eval (symbol \"with spaces\")"
            (pr-str (symbol "with spaces"))))
     (is (= "#viewer-eval (symbol \"with ns\" \"and spaces\")"
-           (pr-str (symbol "with ns" "and spaces")))))
+           (pr-str (symbol "with ns" "and spaces"))))
+    (is (= "#viewer-eval (symbol \"~\")"
+           (pr-str (symbol "~")))))
 
   (testing "splicing reader conditional prints normally (issue #338)"
     (is (= "?@" (pr-str (symbol "?@"))))))