anchor.diff:      (let* ((source (current-source prompt-buffer))
              (suggestions (prompter:suggestions source))
              (marks (prompter:marks source)))
  -      (evaluate-script
  -       prompt-buffer
  +      (ffi-prompt-buffer-evaluate-javascript-async
  +       (current-window)
          (ps:ps
            (setf (ps:chain document (get-element-by-id "prompt-extra") |innerHTML|)
                  (ps:lisp
  
positive.code:                                                          "marked")
                                                  (loop for (nil property) on (prompter:active-properties suggestion :source source) by #'cddr
                                                        collect (markup:markup (:td property)))))))))))
        (evaluate-script
         prompt-buffer
         (ps:ps
           (setf (ps:chain document (get-element-by-id "suggestions") |innerHTML|)
                 (ps:lisp
  
negative.code:           (:div :id "prompt" (prompter:prompt prompt-buffer))
            (:div :id "prompt-extra" "[?/?]")
            (:div (:input :type "text" :id "input" :value (prompter:input prompt-buffer))))
      (:div :id "suggestions"))))
  
  
  