Fix ~ symbol

Author: mk

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]

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 "?@"))))))