Write JSON string to a UNIX domain socket

gistfile1.txt

This works:

echo '{"command" : ["set_property", "pause", "yes"] }' | socat - /tmp/DP-1-sock

This does not:

(defun pause-yes ()
  (ccl:with-open-socket (socket :connect :active
                                :address-family :file
                                :type :stream
                                :remote-filename "/tmp/DP-1-sock")
    (format socket "{\"command\":[\"set_property\", \"pause\", \"yes\"]}")))
    

I also tried this with no success:

(defun pause2 ()
(with-input-from-string (stream "{"command":["set_property", "pause", "yes"]}")
(ccl:run-program "socat" (list "-" "/tmp/DP-1-sock")
:input stream
:output t)))

Adding ~& for a newline at the end of the string fixed it (for pause-yes).