diff options
| author | Abdallah Maouche <heiwiper@tutanota.com> | 2024-03-18 07:48:20 +0100 |
|---|---|---|
| committer | Andre A. Gomes <andremegafone@gmail.com> | 2024-04-08 22:00:20 +0300 |
| commit | 4d77c08e8d1bd1aba4c5adce42aa4ca101d8cd53 (patch) | |
| tree | 79d2b25b5e3569b9b88bb8d462f16c2555cc49b3 | |
| parent | 3f87bfaed8601f5862061436fd2c49e030928639 (diff) | |
mode/hint: Replace 'qsa' with 'rqsa' to restore Shadow DOM support
| -rw-r--r-- | source/mode/hint.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/source/mode/hint.lisp b/source/mode/hint.lisp index 1e84a3d63..bdc0b4901 100644 --- a/source/mode/hint.lisp +++ b/source/mode/hint.lisp @@ -139,7 +139,7 @@ A positive value shifts to the bottom.") (style (ps:new (|CSSStyleSheet|))) (hints (ps:lisp (list 'quote hints))) (i 0)) - (dolist (hinted-element (nyxt/ps:qsa document "[nyxt-hintable]")) + (dolist (hinted-element (nyxt/ps:rqsa document "[nyxt-hintable]")) (let ((hint (aref hints i))) (ps:chain hinted-element (set-attribute "nyxt-hint" hint)) (ps:chain shadow (append-child (create-hint-overlay hinted-element hint))) @@ -181,14 +181,14 @@ A positive value shifts to the bottom.") alphabet)))))) (define-parenscript set-hintable-attribute (selector) - (ps:dolist (element (nyxt/ps:qsa document (ps:lisp selector))) + (ps:dolist (element (nyxt/ps:rqsa document (ps:lisp selector))) (if (ps:lisp (eq :vi (hinting-type (find-submode 'hint-mode)))) (when (nyxt/ps:element-in-view-port-p element) (ps:chain element (set-attribute "nyxt-hintable" ""))) (ps:chain element (set-attribute "nyxt-hintable" ""))))) (define-parenscript remove-hintable-attribute () - (ps:dolist (element (nyxt/ps:qsa document "[nyxt-hintable]")) + (ps:dolist (element (nyxt/ps:rqsa document "[nyxt-hintable]")) (ps:chain element (remove-attribute "nyxt-hintable")))) (defun add-hints (&key selector (buffer (current-buffer))) @@ -209,7 +209,7 @@ A positive value shifts to the bottom.") (ps:when hints-parent (ps:chain hints-parent (remove)))) (when (ps:lisp (show-hint-scope-p (find-submode 'hint-mode))) - (ps:dolist (element (nyxt/ps:qsa document ".nyxt-element-hint")) + (ps:dolist (element (nyxt/ps:rqsa document ".nyxt-element-hint")) (ps:chain element class-list (remove "nyxt-element-hint"))))) (defun remove-hints (&key (buffer (current-buffer))) |