anchor.diff:                (setf (nyxt/os-package-manager-mode:current-process-info mode) process-info)
                 (nyxt::html-set "" buffer) ; Reset content between operations.
                 (nyxt::html-write
  -               (markup:markup
  -                (:style (style buffer))
  -                (:h1 title)
  -                (:p
  -                 (:a :class "button"
  -                     :href (lisp-url '(nyxt/os-package-manager-mode:cancel-package-operation))
  -                     "Cancel")))
  +               (spinneret:with-html-string
  +                 (:style (style buffer))
  +                 (:h1 title)
  +                 (:p
  +                  (:a :class "button"
  +                      :href (lisp-url '(nyxt/os-package-manager-mode:cancel-package-operation))
  +                      "Cancel")))
                  buffer)
                 (format-command-stream
                  process-info
  
positive.code:     (ffi-buffer-evaluate-javascript-async
       (current-buffer)
       (ps:ps (ps:chain document
                        (write (ps:lisp (markup:markup (:p "Operation cancelled.")))))))))
  
  (defmethod prompter:object-attributes ((pkg ospm:os-package))
    `(("Name" ,(ospm:name pkg))
  
negative.code:                  ;; TODO: Make shell formating function and add support for
                   ;; special characters, e.g. progress bars.
                   (nyxt::html-write
                    (spinneret:with-html-string
                      (:code (str:replace-all " " " " s))
                      (:br))
                    buffer)))
                (nyxt::html-write
                 (spinneret:with-html-string (:p "Done."))
                 buffer)))
            (set-current-buffer buffer)
            buffer))))
  