*magit: Next.txt

 (defparameter *next-interface* nil)
 (defparameter *character-conversion-table* (make-hash-table :test 'equalp))
+(defparameter *json-promise* nil)
 
 (defclass next-interface ()
   ((window :accessor window :initarg :window)
@@ -221,12 +222,15 @@
     (print js-str-value)
     (print js-str-length)
     (print (cffi:convert-from-foreign js-str-length :unsigned-int))
-    (print (cffi:convert-from-foreign str-value :string+ptr)))
-  nil)
+    (print (cffi:convert-from-foreign str-value :string+ptr))
+    (lparallel:fulfill (cffi:convert-from-foreign str-value :string+ptr))))
 
 (defun web-view-execute (view script)
-  (let ((np (cffi:null-pointer)))
-    (webkit2:webkit-web-view-run-javascript view script np (cffi:callback callybacky) np)))
+  (setf *json-promise* (lparallel:promise))
+  (synchronous-within-main
+    (let ((np (cffi:null-pointer)))
+      (webkit2:webkit-web-view-run-javascript view script np (cffi:callback callybacky) np))
+    (lparallel:force *json-promise*)))