Update for new json printer

library.dylan

@@ -55,7 +55,7 @@ define module dylan-playground
               respond-to-post,
               server-root };
   use json,
-    import: { encode-json, parse-json, <json-parse-error> };
+    import: { print-json, parse-json, <json-parse-error> };
   use locators,
     import: { <directory-locator>,
               <file-locator>,

play.dylan

@@ -85,7 +85,7 @@ define taglib playground ()
       output("%s",
              get-attribute(page-context(), $main-code-attr)
                | get-query-value($main-code-attr)
-               | find-example-code($hello-world));
+               | find-example-code($default-example));
     end;
   tag library-code (page :: <playground-page>) ()
     begin
@@ -95,9 +95,10 @@ define taglib playground ()
   tag examples-menu (page :: <playground-page>) ()
     for (v in $examples)
       let name = v[0];
-      output("<option value=\"%s\">%s</option>\n", name, name);
+      output("<option value=\"%s\" %s>%s</option>\n",
+             name, (name = $default-example & "selected") | "", name);
     end;
-  tag example (page :: <playground-page>) (name :: <string> = $hello-world)
+  tag example (page :: <playground-page>) (name :: <string> = $default-example)
     output(find-example-code(name) | "example not found");
 end;
 
@@ -119,7 +120,7 @@ define method respond-to-post (resource :: <build-and-run>, #key) => ()
   else
     result[$compiler-output-attr] := "Please enter some code.";
   end;
-  encode-json(current-response(), result);
+  print-json(result, current-response());
 end method;
 
 define function generate-project-name () => (project-name :: <string>)
@@ -253,7 +254,7 @@ define module %s
   use print;
   use pprint;
   use streams;
-  // from libraries with only one exported module
+  // from libraries with one module, named the same as the library.
   use hash-algorithms;
   use logging;
   use regular-expressions;

share.dylan

@@ -37,7 +37,7 @@ define method respond-to-post (resource :: <create-share>, #key) => ()
   else
     result["error"] := "nothing to share!";
   end;
-  encode-json(current-response(), result);
+  print-json(result, current-response());
 end method;
 
 // Generate a key to use to find a playground share. The key is used in the
@@ -78,12 +78,13 @@ define function save-share (key :: <string>, text :: <string>) => ()
   fs/with-open-file (stream = locator,
                      direction: #"output",
                      if-does-not-exist: #"create")
-    encode-json(stream, begin
-                          let t = make(<string-table>);
-                          t["format"] := $share-format;
-                          t["code"] := text;
-                          t
-                        end);
+    print-json(begin
+                 let t = make(<string-table>);
+                 t["format"] := $share-format;
+                 t["code"] := text;
+                 t
+               end,
+               stream);
   end;
 end function;