(defvar test
  "var document = new Document.openDocument(\"%s\", \"application/pdf\");
var outline = document.loadOutline();
if(!outline) quit();
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);}}};
function run(){print(\"BEGIN(\");for(var i=0; i<outline.length; i++){pp(outline[i], 1);}print(\")\");};
run()")


(let ((default-directory "~/lib/emacs/straight/repos/pdf-tools/test/")
      outline 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)
                                    (message "%S" _status)
                                    (when (eq (process-status proc) 'exit)
                                      (with-current-buffer (process-buffer proc)
                                        (goto-char (point-min))
                                        (search-forward "BEGIN")
                                        (setq outline (read (current-buffer))))))))
    (process-send-string proc (format test "test.pdf"))
    ;; Need to send this twice for some reason...
    (process-send-eof proc)
    (process-send-eof proc)
    (while (accept-process-output proc))
    outline))