diff options
| author | Miguel Ángel Moreno <mail@migalmoreno.com> | 2022-09-24 12:02:11 +0200 |
|---|---|---|
| committer | Miguel Ángel Moreno <mail@migalmoreno.com> | 2022-09-24 12:02:11 +0200 |
| commit | 24e40c12d2dded4e4a94d28b0b3cfc1e228fb9e5 (patch) | |
| tree | c59b403ed4eba49b7ea34d88e0e9c8304ff541fa | |
| parent | 65aa58465dae163aaa324e0187b14fb0aab92cbe (diff) | |
tailor.lisp: Account for Nyxt's new hint-mode slots
| -rw-r--r-- | tailor.lisp | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/tailor.lisp b/tailor.lisp index 1a58f2e..11bc51a 100644 --- a/tailor.lisp +++ b/tailor.lisp @@ -100,14 +100,14 @@ look through all the children class slots." :element 'nyxt:buffer :accessor #'buffer)) (when (find-submode (resolve-symbol :hint-mode :mode) buffer) - (setf (nyxt/hint-mode:box-style (find-submode (resolve-symbol :hint-mode :mode) buffer)) + (setf (nyxt/hint-mode::style (find-submode (resolve-symbol :hint-mode :mode) buffer)) (compute-style *current-theme* :element 'nyxt/hint-mode:hint-mode - :style-slot 'nyxt/hint-mode:box-style + :style-slot 'nyxt/hint-mode::style :accessor #'hint)))) (define-mode tailor-mode () - "Mode that manages custom browser themes." + "Manage custom browser themes and apply them on predefined criteria." ((themes '() :type list @@ -302,15 +302,10 @@ of `GTK_THEME', or if a matching theme name, it will always choose that theme on :name 'style-prompt))))) (defmethod reload-style ((element nyxt/hint-mode:hint-mode)) - (setf (nyxt/hint-mode:box-style element) + (setf (nyxt/hint-mode::style element) (compute-style *current-theme* :element 'nyxt/hint-mode:hint-mode - :style-slot 'nyxt/hint-mode:box-style - :accessor #'hint) - (nyxt/hint-mode:highlighted-box-style element) - (compute-style *current-theme* - :element 'nyxt/hint-mode:hint-mode - :style-slot 'nyxt/hint-mode:highlighted-box-style + :style-slot 'nyxt/hint-mode::style :accessor #'hint))) (defmethod reload-style ((element nyxt:buffer)) |