anchor.diff:           (profile (prompt-minibuffer
                      :suggestion-function (os-profile-suggestion-filter)
                      :input-prompt "Target profile"))
  +         ;; TODO: Check for running process.
            (buffer (or (find-buffer 'os-package-manager-mode)
                        (nyxt/os-package-manager-mode:os-package-manager-mode
                         :activate t
  -                      :buffer (make-internal-buffer :title "*OS packages*")))) ; TODO: Use different buffer?
  +                      :buffer (make-internal-buffer :title "*OS packages*"))))
            (content
  -           (markup:markup
  -            (:style (style buffer))
  -            (:h1 "Installing packages...")))
  +          (markup:markup
  +           (:style (style buffer))
  +           (:h1 "Installing packages...")))
            (insert-content (ps:ps (setf (ps:@ document body |innerHTML|)
                                         (ps:lisp content)))))
       (ffi-buffer-evaluate-javascript-async buffer insert-content)
  
positive.code:                                                    ;; function and add support
                                                     ;; for special characters,
                                                     ;; e.g. progress bars.
                                                     (write (ps:lisp (str:concat
                                                                      (str:replace-all " " "&nbsp;" s)
                                                                      "<br>")))))
                                    ;; (ps:ps (setf (ps:@ document body |innerHTML|)
                                    ;;              (ps:lisp (str:concat (ps:ps (ps:@ document body |innerHTML|))
                                    ;;                                   s))))
                                    )))))
      (set-current-buffer buffer)
      buffer))
  
negative.code:   ())
  
  ;; TODO: Add command to interrupt operation?
  ;; (uiop:terminate-process  process-info)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (in-package :nyxt)
  