     (make-fstar-proof-state
      :label (if (equal .label "") nil .label)
      :location (and .location (fstar-subp-json--parse-location .location))
+     :urgency (or .urgency 1)
      :goals .goals
      :smt-goals .smt-goals)))
 

        (current-buffer))))

(defmacro fstar-tactics--with-goals-buffer (&rest body)
  "Run BODY in F*'s goals buffer, then display that buffer."
  (declare (debug t)
           (indent 0))
  `(with-current-buffer (fstar-tactics--goals-buffer)
     (let ((inhibit-read-only t))
       ,@body)
     (set-marker help-window-point-marker (point))
     (let ((window (temp-buffer-window-show (current-buffer))))
       (help-window-setup window)
       (with-selected-window window
         (recenter 0)))))

(defun fstar-subp-json--parse-proof-state (json)
  "Convert JSON proof-state an fstar-mode proof state."

      (goto-char (point-max))
      (save-excursion
        (fstar-tactics--insert-proof-state ps))
      (unless (bobp) (forward-line 2))
      (set-marker help-window-point-marker (point))
      (if (> (fstar-proof-state-urgency ps) 0)
          (let ((window (temp-buffer-window-show (current-buffer))))
                (help-window-setup window)
                (with-selected-window window
                  (recenter 0)))))))

;;; ;; Starting the F* subprocess

