anchor.diff:                                              nyxt::+data-root+
                                               "dark-mode-css-cache")))))
   
  -(defmethod apply-style ((mode dark-mode) url)
  +(defmethod apply-style ((mode dark-mode))
     (if (style mode)
         (nyxt::html-set-style (style mode) (buffer mode))
         (nyxt::darken (buffer mode))))
  
positive.code:                    :basename (uri->name uri))))
  
  (defmethod nyxt:on-signal-notify-uri ((mode style-mode) url)
    (apply-style mode url))
  
  (define-mode dark-mode (style-mode)
    "Mode for styling documents."
  
negative.code:           (or (ignore-errors (uiop:read-file-string
                                (style-file mode)))
                (open-or-cache-url mode (style-url mode)))))
    (apply-style mode))
  
  (defmethod apply-style ((mode style-mode))
    (when (style mode)
      (nyxt::html-set-style (style mode) (buffer mode))))
  
  