anchor.diff:    (with-data-access (annotations (annotations-path (current-buffer)))
       annotations))
   
  -(define-command annotate-current-url (&optional (buffer (current-buffer)))
  -  "Create a annotation of the URL of BUFFER."
  -  (let* ((data (prompt1
  -                 :prompt "Annotation"
  -                 :sources (list (make-instance 'prompter:raw-source
  -                                               :name "Note"))))
  +(define-command annotate-current-url (&optional (buffer-id (id (current-buffer))))
  +  "Create a annotation of the URL of buffer with BUFFER-ID."
  +  (let* ((buffer (buffers-get buffer-id))
  +         (data (prompt1
  +                    :prompt "Annotation"
  +                    :sources (list (make-instance 'prompter:raw-source
  +                                                  :name "Note"))))
            (tags (prompt
                   :prompt "Tag(s)"
                   :sources (list (make-instance 'prompter:word-source
  
positive.code:                                       :tags tags)))
        (annotation-add annotation))))
  
  (define-internal-page-command render-annotations (&key annotations)
      (buffer "*Annotations*" 'base-mode)
    "Show the ANNOTATIONS in a new buffer"
    (spinneret:with-html-string
      (:style (style buffer))
      (:h1 "Annotations")
      (loop for annotation in annotations
            collect (:div (:raw (render annotation))
                          (:hr)))))
  
  (define-command show-annotations-for-current-url (&optional (source-buffer (current-buffer)))
    "Create a new buffer with the annotations of the current URL of BUFFER."
    (with-data-access (annotations (annotations-path (current-buffer)))
      (let ((filtered-annotations (remove-if-not (lambda (i) (url-equal (quri:uri (url i)) (url source-buffer))) annotations)))
        (render-annotations :annotations filtered-annotations))))
  
  (define-class annotation-source (prompter:source)
  
negative.code:                                    :actions nil))))
      (render-annotations :annotations selected-annotations)))
  
  (define-internal-page-command show-annotations ()
      (buffer "*Annotations*" 'base-mode)
    "Show all annotations"
    (with-data-access (annotations (annotations-path buffer))
      (render-annotations :annotations annotations)))
  