3 files changed, 10 insertions(+), 7 deletions(-)

M good-place/sock/app.janet
M good-place/web/init.janet
M templates/edit.temple

@@ 35,8 35,8 @@
                         "stream is closed")
           (eprintf "Sock Supervisor: %s" err)
           (debug/stacktrace fiber)
-          (protect (:write conn (trevor/text (json/encode {:error err}))))
-          (ev/give chan [:conn conn])))
+          (protect (:write conn (trevor/text err)))
+          (:close conn)))
       [:conn connection]
       (ev/go
         (fiber-fn :tp

@@ 21,10 21,12 @@
         (unless (one-of err
                         "Connection reset by peer"
                         "stream is closed")
+          (eprintf "Web Supervisor: %s" err)
+          (debug/stacktrace fiber)
           (protect (:write conn
                            (internal-server-error
                              (. "Internal Server Error: " err)))))
-        (ev/give-supervisor :close conn))
+        (:close conn))
       [:close conn] (:close conn))))
 
 (defn layout [args]


@@ 67,7 69,8 @@
 
 (defn save [list-content]
   (fn [req]
-    (def {:body {"file-name" fnm "file-content" fc} :headers {"HX-Request" hx}} req)
+    (def {:body {"file-name" fnm "file-content" fc}
+          :headers {"HX-Request" hx}} req)
     (spit fnm (string/replace-all "\r\n" "\n" fc))
     (emerge list-content)
     (ev/sleep 0.01) # give monitor time to catch up


@@ 75,7 78,7 @@
 
 (defn pkgs [get-pkgs]
   (fn [&]
-    (emerge (tracev get-pkgs))
+    (emerge get-pkgs)
     (page packages-update {})))
 
 (defn handler [envelope useful-acts]

@@ 3,9 3,9 @@
 (def fnm (args :file-name))
 (def new? (= fnm new-file-name))
 %}
-<form hx-post="/__dashboard/save" style="max-width: 45rem" action="/__dashboard/save" method="POST">
+<form hx-post="/__dashboard/save" style="max-width: 45rem">
   <textarea name="file-content" cols="80" rows="20">{- (args :file-content) -}</textarea>
-  {- (if new? `<label for="name">File name</label>`) -}
+  {- (if new? `<label for="file-name">File name</label>`) -}
   <input type={- (if new? (. `"text" placeholder="` fnm `"`) `"hidden"`) -}
     name="file-name" value="{- (unless new? fnm) -}"/>
   <input type="submit" value="Save" />