glenn
/
asteroid
mirror of https://github.com/glenneth1/asteroid.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Update dropdown colors to match spectrum analyzer theme 

- Dropdown boxes now dynamically update their text and border colors to match selected theme
- Prevents color clashing between UI elements and spectrum analyzer
- Colors update both on theme change and on page load
This commit is contained in:
Glenn Thompson 2025-12-06 19:05:14 +03:00
parent dede6fef73
commit c53ee7d82a
1 changed files with 25 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
parenscript/spectrum-analyzer.lisp
View File

@ -181,15 +181,25 @@
(setf *animation-id* nil)))
(defun set-spectrum-theme (theme-name)
"Change the spectrum analyzer color theme"
"Change the spectrum analyzer color theme and update dropdown colors"
(when (ps:getprop *themes* theme-name)
(setf *current-theme* theme-name)
(ps:chain local-storage (set-item "spectrum-theme" theme-name))
;; Update canvas border color to match theme
(when *canvas*
(let ((theme (ps:getprop *themes* theme-name)))
(setf (ps:@ *canvas* style border-color) (ps:@ theme top))))
(let ((theme (ps:getprop *themes* theme-name)))
;; Update canvas border color to match theme
(when *canvas*
(setf (ps:@ *canvas* style border-color) (ps:@ theme top)))
;; Update dropdown box colors
(let ((theme-selector (ps:chain document (get-element-by-id "spectrum-theme-selector")))
(style-selector (ps:chain document (get-element-by-id "spectrum-style-selector"))))
(when theme-selector
(setf (ps:@ theme-selector style color) (ps:@ theme top))
(setf (ps:@ theme-selector style border-color) (ps:@ theme top)))
(when style-selector
(setf (ps:@ style-selector style color) (ps:@ theme top))
(setf (ps:@ style-selector style border-color) (ps:@ theme top)))))
(ps:chain console (log (+ "Spectrum theme changed to: " theme-name)))))
@ -219,19 +229,23 @@
(when (and saved-style (or (= saved-style "bars") (= saved-style "wave") (= saved-style "dots")))
(setf *current-style* saved-style))
;; Update UI selectors and canvas border if they exist
;; Update UI selectors, canvas border, and dropdown colors
(let ((theme-selector (ps:chain document (get-element-by-id "spectrum-theme-selector")))
(style-selector (ps:chain document (get-element-by-id "spectrum-style-selector")))
(canvas (ps:chain document (get-element-by-id "spectrum-canvas"))))
(canvas (ps:chain document (get-element-by-id "spectrum-canvas")))
(theme (ps:getprop *themes* *current-theme*)))
(when theme-selector
(setf (ps:@ theme-selector value) *current-theme*))
(setf (ps:@ theme-selector value) *current-theme*)
(setf (ps:@ theme-selector style color) (ps:@ theme top))
(setf (ps:@ theme-selector style border-color) (ps:@ theme top)))
(when style-selector
(setf (ps:@ style-selector value) *current-style*))
(setf (ps:@ style-selector value) *current-style*)
(setf (ps:@ style-selector style color) (ps:@ theme top))
(setf (ps:@ style-selector style border-color) (ps:@ theme top)))
;; Set initial canvas border color
(when canvas
(let ((theme (ps:getprop *themes* *current-theme*)))
(setf (ps:@ canvas style border-color) (ps:@ theme top))))))
(setf (ps:@ canvas style border-color) (ps:@ theme top)))))
(let ((audio-element (or (ps:chain document (get-element-by-id "live-audio"))
(ps:chain document (get-element-by-id "persistent-audio")))))