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

fix: Preserve playlist selection in scheduler dropdown on refresh

This commit is contained in:
glenneth 2026-01-04 06:36:50 +03:00 committed by Brian O'Reilly
parent f0f2dd93a4
commit f476b83cbe
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
parenscript/admin.lisp
View File

@ -1159,14 +1159,17 @@
(setf (ps:@ status-el inner-h-t-m-l) (setf (ps:@ status-el inner-h-t-m-l)
"<span style=\"color: #ffaa00;\">🟡 Disabled</span>")))) "<span style=\"color: #ffaa00;\">🟡 Disabled</span>"))))
;; Update available playlists dropdown ;; Update available playlists dropdown (preserve current selection)
(let ((playlist-select (ps:chain document (get-element-by-id "schedule-playlist"))) (let ((playlist-select (ps:chain document (get-element-by-id "schedule-playlist")))
(available (ps:@ data available_playlists))) (available (ps:@ data available_playlists)))
(when (and playlist-select available) (when (and playlist-select available)
(let ((html "<option value=\"\">-- Select Playlist --</option>")) (let ((current-value (ps:@ playlist-select value))
(html "<option value=\"\">-- Select Playlist --</option>"))
(ps:chain available (ps:chain available
(for-each (lambda (p) (for-each (lambda (p)
(setf html (+ html "<option value=\"" p "\">" p "</option>"))))) (setf html (+ html "<option value=\"" p "\""
(if (= p current-value) " selected" "")
">" p "</option>")))))
(setf (ps:@ playlist-select inner-h-t-m-l) html)))) (setf (ps:@ playlist-select inner-h-t-m-l) html))))
;; Update schedule table with edit/delete buttons ;; Update schedule table with edit/delete buttons