anchor.diff:      (setf (gtk:gtk-widget-size-request message-container)
             (list -1 (message-buffer-height window)))
   
  -    (setf status-view (make-web-view))
  +    (setf status-buffer (make-instance 'status-buffer))
       (gtk:gtk-box-pack-end box-layout status-container :expand nil)
  -    (gtk:gtk-box-pack-start status-container status-view :expand t)
  +    (gtk:gtk-box-pack-start status-container (gtk-object status-buffer) :expand t)
       (setf (gtk:gtk-widget-size-request status-container)
  -          (list -1 (status-buffer-height window)))
  +          (list -1 (height status-buffer)))
   
       (setf minibuffer-view (make-web-view))
       (gtk:gtk-box-pack-end box-layout minibuffer-container :expand nil)
  
positive.code: 
  (defmethod ffi-print-status ((window gtk-window) text)
    (let ((text (markup:markup
                 (:head (:style (status-buffer-style window)))
                 (:body (markup:raw text)))))
      (with-slots (status-view) window
        (webkit2:webkit-web-view-evaluate-javascript
         (status-view window)
         (ps:ps (setf (ps:@ document Body |innerHTML|) ; TODO: Rename all "Body" to "body".
                      (ps:lisp text)))))))
  
  
negative.code:    (minibuffer-container :accessor minibuffer-container)
     (minibuffer-view :accessor minibuffer-view)
     (status-container :accessor status-container)
     (message-container :accessor message-container)
     (message-view :accessor message-view)
     (key-string-buffer :accessor key-string-buffer)))
  