anchor.diff:      (:use :common-lisp :trivia :next :annot.class)
     (:documentation "Mode for web pages"))
   (in-package :next/web-mode)
  -(annot:enable-annot-syntax)
   
   ;; TODO: Remove web-mode from special buffers (e.g. help).
   ;; This is required because special buffers cannot be part of a history (and it breaks it).
  
positive.code:     (when input
        (set-url-from-history input))))
  
  (define-command copy-url ()
    "Save current URL to clipboard."
    (copy-to-clipboard (url (current-buffer)))
  
negative.code:   (let* ((active-window (rpc-window-active))
           (buffer (active-buffer active-window)))
      (set-window-title active-window buffer)
      (htree:add-child (make-instance 'buffer-description
                                      :url url
                                      :title (title buffer))
  