anchor.diff:                   (str:concat (expand-path (data-manager-path *browser*))
                                "/nyxt-data-manager-" id)))
   
  -(declaim (ftype (function (&optional (or internal-buffer buffer null))) make-context))
   (defun make-context (&optional buffer)
     (let* ((context (if (and buffer
                              ;; Initial window buffer or replacement/temp buffers
  
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:     (setf (gtk:gtk-widget-size-request message-container)
            (list -1 (message-buffer-height window)))
  
      (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 (gtk-object status-buffer) :expand t)
      (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)
  