anchor.diff:    (let* ((active-window (rpc-window-active))
            (buffer (active-buffer active-window)))
       (set-window-title active-window buffer)
  -    ;; TODO: Include title in buffer history.
       (htree:add-child (make-instance 'buffer-description
                                       :url url
                                       :title (title buffer))
  
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:     (:use :common-lisp :trivia :next :annot.class)
    (:documentation "Mode for web pages"))
  (in-package :next/web-mode)
  
  ;; 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).
  