anchor.diff:  (defun annotations ()
     (with-data-access (annotations (annotations-path (current-buffer)))
       annotations))
  +
  +(define-command annotate-current-url (&optional (buffer (current-buffer)))
  +  "Create/set the annotation of the URL of BUFFER."
  +  (let* ((data (prompt
  +                :prompt "Annotation"
  +                :sources (list (make-instance 'prompter:raw-source))))
  +         (annotation (make-instance 'url-annotation
  +                                    :url (url buffer)
  +                                    :data data)))
  +    (annotation-add annotation)))
  
positive.code:     '()
      :type list-of-strings)
     (date (local-time:now)))
    (:export-class-name-p t)
    (:export-accessor-names-p t)
    (:accessor-name-transformer (class*:make-name-transformer name)))
  
negative.code: ;;;; SPDX-License-Identifier: BSD-3-Clause
  
  (in-package :nyxt)
  
  (define-class annotation ()
    ((reference
  