Hooks are really something !

Here's a productivity boost:

    (defun no-facebook-hook (url)
    "Always redirect to Diaspora."
    (let ((uri (quri:uri url)))
        (if (search "facebook.com" (quri:uri-host uri))
            (progn
              (setf (quri:uri-host uri) "pod.geraspora.de")
              (let ((new-url (quri:render-uri uri)))
                (log:info "You shall not go to Facebook!" new-url)
                new-url))
            url)))
    (add-to-default-list #'no-facebook-hook 'buffer 'load-hook)