get back a button for JSON parsing

mvc-works · Jan 3, 2024 · 3a7f38a · 3a7f38a
1 parent 5127279
commit 3a7f38a
Show file tree

Hide file tree

Showing 2 changed files with 53 additions and 0 deletions.
diff --git a/calcit.cirru b/calcit.cirru
diff --git a/compact.cirru b/compact.cirru
@@ -64,6 +64,13 @@
                             fn () $ to-calcit-data
                               jsedn/toJS $ jsedn/parse (:text store)
                             , d!
+                      a $ {} (:inner-text "\"Read JSON")
+                        :class-name $ str-spaced css/link
+                        :on-click $ fn (e d!)
+                          handle-result
+                            fn () $ to-calcit-data
+                              js/JSON.parse $ :text store
+                            , d!
                       ; a $ {} (:inner-text "\"Read CSON")
                         :style $ merge ui/link
                         :on-click $ fn (e d!)