anchor.diff:  
   ;; TODO: Parse Texinfo for Guix descriptions.
   ;; TODO: Add commands:
  -;; - Report store item path.
  -;; - Report package size.
   ;; - find-files (open in editor, with select program) -- leverage file-manager
   ;; - show-deps, show-reverse-deps (when minibuffer has actions)
  
positive.code:                          " "))
                       inputs))
                    (format-outputs (outputs)
                      (alex:mappend
                       (lambda (output)
                         `((:tr
                            (:td ,(ospama:name output))
                            (:td ,(if (= 0 (ospama:size output))
                                      "Unknown size"
                                      (format nil "~aB" (ospama:size output))))
                            (:td ,(ospama:path output)))))
                       outputs)))
               (markup:markup
                (:style (style buffer))
                (:h1 "Packages")
  
negative.code:                                     (:ul
                                       ,@(when (typep package 'ospama:guix-package)
                                           `((:li "Outputs: "
                                                  ,@(unless (ospama:expanded-outputs-p package)
                                                      `((:a :class "button"
                                                            :href ,(lisp-url '(echo "Computing path & size...")
                                                                             `(ospama:expand-outputs (ospama:find-os-package ,(ospama:name package)))
                                                                             `(%describe-os-package
                                                                               (list (ospama:find-os-package ,(ospama:name package)))))
                                                            "Compute path & size")))
                                                  ,(format-outputs (ospama:outputs package)))
                                             (:li "Supported systems: " ,(str:join " " (ospama:supported-systems package)))
                                             (:li "Inputs: " ,@(format-inputs (ospama:inputs package)))
                                             (:li "Propagated inputs: " ,@(format-inputs (ospama:propagated-inputs package)))
  