anchor.diff:    (setf (document-model buffer)
           (nyxt/dom::named-json-parse (nyxt/dom::get-document-body-json))))
   
  -(defmethod document-model :around ((buffer web-buffer))
  +(defmethod document-model :around ((buffer buffer))
     (pflet ((%count-dom-elements
              ()
              (defvar dom-counter 0)
  
positive.code:        :documentation "Unique identifier for a buffer.
  Dead buffers or placeholder buffers (i.e. those not associated with a web view)
  have an empty ID.")
     (data-profile (make-instance (or (find-data-profile (getf *options* :data-profile))
                                      'default-data-profile))
                   :type data-profile
                   :documentation "Profile to use for all persisted files.
  See the `data-path' class and the `expand-path' function.")
     ;; TODO: Or maybe a dead-buffer should just be a buffer history?
     (url (quri:uri ""))
     (url-at-point (quri:uri ""))
     (title "")
  
negative.code: 
  (export-always 'on-signal-load-finished)
  (defmethod on-signal-load-finished ((buffer buffer) url)
    ;; Need to force document-model re-parsing.
    (setf (document-model buffer) nil)
    (dolist (mode (modes buffer))
  