anchor.diff:         (setf (gtk:gtk-widget-size-request status-container)
                (list -1 (height status-buffer)))
   
  -       (setf minibuffer-view (make-web-view))
  -       (gtk:gtk-box-pack-end box-layout minibuffer-container :expand nil)
  -       (gtk:gtk-box-pack-start minibuffer-container minibuffer-view :expand t)
  -       (setf (gtk:gtk-widget-size-request minibuffer-container)
  +       (setf prompt-buffer-view (make-web-view))
  +       (gtk:gtk-box-pack-end box-layout prompt-buffer-container :expand nil)
  +       (gtk:gtk-box-pack-start prompt-buffer-container prompt-buffer-view :expand t)
  +       (setf (gtk:gtk-widget-size-request prompt-buffer-container)
                (list -1 0))
   
          (gtk:gtk-container-add gtk-object box-layout)
  
positive.code:   (%within-renderer-thread-async
     (lambda ()
       (with-slots (gtk-object box-layout active-buffer
                    minibuffer-container minibuffer-view
                    status-buffer status-container
                    message-container message-view
                    id key-string-buffer) window
  
negative.code:   (%within-renderer-thread
     (lambda (&optional channel)
       (webkit2:webkit-web-view-evaluate-javascript
        (prompt-buffer-view window)
        javascript
        (if channel
            (lambda (result)
  