diff options
author | Miguel Ángel Moreno <mail@migalmoreno.com> | 2023-08-05 20:55:00 +0200 |
---|---|---|
committer | Miguel Ángel Moreno <mail@migalmoreno.com> | 2023-08-05 20:55:00 +0200 |
commit | 72b38b7d6a0f5c6e0a206f38105eee36d0c6ae7a (patch) | |
tree | 2a83b7d34339aa8c086a8b3d8f63a1035f7f562b | |
parent | e6122aa97802af393712f73d98530be611bd16d5 (diff) |
chore: Enforce 80-char column limit
-rw-r--r-- | router.lisp | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/router.lisp b/router.lisp index 667e9d5..2014cef 100644 --- a/router.lisp +++ b/router.lisp @@ -384,9 +384,9 @@ with KEY." (defmethod dispatch-router (request-data (router redirector)) (let ((url (and request-data (url request-data)))) - (when (and url (or (nyxt:toplevel-p request-data) (not (toplevel-p router)))) - (let ((redirect-url (compute-router router url))) - (setf (url request-data) redirect-url)))) + (when (and url (or (nyxt:toplevel-p request-data) + (not (toplevel-p router)))) + (setf (url request-data) (compute-router router url)))) request-data) (defmethod dispatch-router (request-data (router blocker)) @@ -395,17 +395,18 @@ with KEY." (if (compute-router router url) (progn (and (block-banner-p router) - (nyxt:buffer-load (nyxt:nyxt-url 'display-blocked-page - :url (render-url url)) - :buffer (buffer request-data))) + (nyxt:buffer-load + (nyxt:nyxt-url 'display-blocked-page + :url (render-url url)) + :buffer (buffer request-data))) nil) request-data) request-data))) (defmethod dispatch-router (request-data (router opener)) (let ((url (and request-data (url request-data)))) - (when (and url - (or (nyxt:toplevel-p request-data) (not (toplevel-p router)))) + (when (and url (or (nyxt:toplevel-p request-data) + (not (toplevel-p router)))) (compute-router router url)) (when (nyxt:toplevel-p request-data) (nyxt::buffer-delete (buffer request-data))))) |