anchor.diff:         (setf (gtk:gtk-widget-size-request status-container)
                (list -1 (height status-buffer)))
   
  -       (setf prompt-buffer-view (make-web-view))
  +       (setf prompt-buffer-view (make-web-view *global-profile* nil))
          (gtk:gtk-box-pack-end root-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)
  
positive.code:        (gtk:gtk-box-pack-start horizontal-box-layout panel-buffer-container-right :expand nil)
         (gtk:gtk-box-pack-start root-box-layout horizontal-box-layout :expand t :fill t)
  
         (setf message-view (make-web-view))
         (gtk:gtk-box-pack-end root-box-layout message-container :expand nil)
         (gtk:gtk-box-pack-start message-container message-view :expand t)
         (setf (gtk:gtk-widget-size-request message-container)
  
negative.code: (define-ffi-method ffi-buffer-make ((buffer gtk-buffer))
    "Initialize BUFFER's GTK web view."
    (unless (gtk-object buffer) ; Buffer may already have a view, e.g. the prompt-buffer.
      (setf (gtk-object buffer) (make-web-view (profile buffer) buffer)))
    (when (navigable-buffer-p buffer)
      (if (smooth-scrolling buffer)
          (ffi-buffer-enable-smooth-scrolling buffer t)
  