(defvar test
  "var document = new Document.openDocument(\"%s\", \"application/pdf\")
var outline = document.loadOutline()
if(!outline) quit()

print(\"(\")

function pp(outl, level){ \
    print(\"((level . \" + level + \")\"); \
    print(\"(title . \" + repr(outl.title) + \")\"); \
    print(\"(page . \" + document.resolveLink(outl.uri) + \"))\"); \
    if(outl.down){ \
	for(var i=0; i<outl.down.length; i++){ \
	    pp(outl.down[i], level+1); \
	} \
    } \
}

for(var i=0; i<outline.length; i++){ \
    pp(outline[i], 1); \
}

print(\")\")")


(let ((default-directory "~/lib/emacs/straight/repos/pdf-tools/test/")
      proc)
  (with-current-buffer (get-buffer-create " *doc-view-mupdf-js*")
    (erase-buffer)
    (setq proc
          (make-process :name "mupdf-js"
                        :command (list "mutool" "run" )
                        :buffer (current-buffer)
                        :sentinel (lambda (proc _status)
                                    (when (eq (process-status proc) 'exit)
                                      (with-current-buffer (process-buffer proc)
                                        (goto-char (point-min))
                                        (message "%S" (read (current-buffer))))))))
    (process-send-string proc (format test (expand-file-name "test.pdf")))
    (process-send-eof proc)
    ))