diff options
| author | Miguel Ángel Moreno <mail@migalmoreno.com> | 2022-06-06 00:58:54 +0200 |
|---|---|---|
| committer | Miguel Ángel Moreno <mail@migalmoreno.com> | 2022-07-06 20:20:26 +0200 |
| commit | b1f205aa53cfd2e791cb42bebd3783f39efca99c (patch) | |
| tree | b569ee8315f33f799cc6d86614e3887073c11443 | |
| parent | 42d74bc04aa39efff84945c664f90cae6b650deb (diff) | |
tailor.lisp: Adds compatibility with latest Nyxt master
| -rw-r--r-- | tailor.lisp | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/tailor.lisp b/tailor.lisp index fec7e53..6998c66 100644 --- a/tailor.lisp +++ b/tailor.lisp @@ -79,14 +79,14 @@ looks through all the children class slots." *current-theme* :element 'nyxt:buffer :accessor #'user-buffer)) - (when (find-submode (resolve-symbol :web-mode :mode) buffer) - (setf (nyxt/web-mode:box-style (find-submode (resolve-symbol :web-mode :mode) buffer)) + (when (find-submode (resolve-symbol :hint-mode :mode) buffer) + (setf (nyxt/hint-mode:box-style (find-submode (resolve-symbol :hint-mode :mode) buffer)) (compute-style *current-theme* - :element 'nyxt/web-mode:web-mode - :style-slot 'nyxt/web-mode:box-style + :element 'nyxt/hint-mode:hint-mode + :style-slot 'nyxt/hint-mode:box-style :accessor #'hint)))) -(define-mode tailor-mode (nyxt/style-mode:style-mode) +(define-mode tailor-mode () "Mode that manages custom browser themes." ((themes '() @@ -207,12 +207,12 @@ looks through all the children class slots." (defun reload-hint-style (mode) "Reloads hint styles in MODE." - (when (find-submode (resolve-symbol :web-mode :mode) (buffer mode)) - (setf (nyxt/web-mode:box-style - (find-submode (resolve-symbol :web-mode :mode) (buffer mode))) + (when (find-submode (resolve-symbol :hint-mode :mode) (buffer mode)) + (setf (nyxt/hint-mode:box-style + (find-submode (resolve-symbol :hint-mode :mode) (buffer mode))) (compute-style *current-theme* - :element 'nyxt/web-mode:web-mode - :style-slot 'nyxt/web-mode:box-style + :element 'nyxt/hint-mode:hint-mode + :style-slot 'nyxt/hint-mode:box-style :accessor #'hint)))) (defun reload-buffer-style () @@ -244,6 +244,6 @@ looks through all the children class slots." "Applies the `current-theme''s color scheme to the current page." (when *current-theme* (nyxt::html-set-style - (funcall (user-buffer (cut (current-theme (current-tailor-mode)))) + (funcall (user-buffer (cut *current-theme*)) *current-theme*) (current-buffer)))) |