From 8ea9b05d235fa9621da3aca290072bccaa50ce35 Mon Sep 17 00:00:00 2001 From: Luka Hadzi-Djokic Date: Tue, 5 Sep 2023 15:51:18 +0200 Subject: [PATCH] help: Update `panel-buffer` style when theme changes. --- source/help.lisp | 29 +++++++++++++++++------------ 1 file changed, 17 insertions(+), 12 deletions(-) diff --git a/source/help.lisp b/source/help.lisp index 8439511e6427..bebc7223211b 100644 --- a/source/help.lisp +++ b/source/help.lisp @@ -87,24 +87,29 @@ Note that some settings may require restarting Nyxt to take effect.") (theme:accent-color (symbol-value theme-symbol)) (theme:on-accent-color (symbol-value theme-symbol))) `(nyxt/setting::apply-generic-setting 'nyxt/setting::browser-generic-setting - (lambda (browser-instance) - (setf (theme browser-instance) ,theme-symbol) - (mapc (lambda (window-instance) - (setf (style (status-buffer window-instance)) + (lambda (browser) + (setf (theme browser) ,theme-symbol) + (mapc (lambda (window) + (mapc (lambda (panel) + (setf (style panel) + (apply (closer-mop:slot-definition-initfunction (mopu:get-slot-definition 'panel-buffer 'style)) + nil)) + (reload-buffer panel)) + (panel-buffers window)) + (setf (style (status-buffer window)) (apply (closer-mop:slot-definition-initfunction (mopu:get-slot-definition 'status-buffer 'style)) nil)) - (setf (message-buffer-style window-instance) + (setf (message-buffer-style window) (apply (closer-mop:slot-definition-initfunction (mopu:get-slot-definition 'window 'message-buffer-style)) nil))) - (alex:hash-table-values (windows browser-instance))) - (mapc (lambda (buffer-instance) - (when (internal-page-p (url buffer-instance)) - (setf (style buffer-instance) + (alex:hash-table-values (windows browser))) + (mapc (lambda (buffer) + (when (internal-url-p (url buffer)) + (setf (style buffer) (apply (closer-mop:slot-definition-initfunction (mopu:get-slot-definition 'web-buffer 'style)) nil)) - (buffer-load (url buffer-instance) - :buffer buffer-instance))) - (alex:hash-table-values (buffers browser-instance))) + (reload-buffer buffer))) + (alex:hash-table-values (buffers browser))) (print-status) (echo "Theme changed.")))) (:p "Colors:")