anchor.diff:                   ;; TODO: Make shell formating function and add support for
                    ;; special characters, e.g. progress bars.
                    (nyxt::html-write
  -                  (markup:markup
  -                   (:code (str:replace-all " " " " s))
  -                   (:br))
  +                  (spinneret:with-html-string
  +                    (:code (str:replace-all " " " " s))
  +                    (:br))
                     buffer)))
                 (nyxt::html-write
  -               (markup:markup (:p "Done."))
  +               (spinneret:with-html-string (:p "Done."))
                  buffer)))
             (set-current-buffer buffer)
             buffer))))
  
positive.code:               (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")))
                 buffer)
                (format-command-stream
                 process-info
  
negative.code:     (ffi-buffer-evaluate-javascript-async
       (current-buffer)
       (ps:ps (ps:chain document
                        (write (ps:lisp (spinneret:with-html-string
                                          (:p "Operation cancelled.")))))))))
  
  (defmethod prompter:object-attributes ((pkg ospm:os-package))
    `(("Name" ,(ospm:name pkg))
  