anchor.diff:            (:div :id "prompt" (prompter:prompt prompt-buffer))
             (:div :id "prompt-extra" "[?/?]")
             (:div (:input :type "text" :id "input" :value (prompter:input prompt-buffer))))
  -    ;; TODO: Support multi columns and sources.
       (:div :id "suggestions"))))
   
   
  
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:     (let* ((source (current-source prompt-buffer))
             (suggestions (prompter:suggestions source))
             (marks (prompter:marks source)))
        (ffi-prompt-buffer-evaluate-javascript-async
         (current-window)
         (ps:ps
           (setf (ps:chain document (get-element-by-id "prompt-extra") |innerHTML|)
                 (ps:lisp
  