Rename recently-played.js to recently-played.js.original

Match naming convention of other original JS files now replaced by parenscript

frontend-partials.lisp

@@ -30,7 +30,7 @@
                              (multiple-value-bind (match groups)
                                  (cl-ppcre:scan-to-strings "<title>(.*?)</title>" source-section)
                                (if (and match groups)
-                                   (plump:decode-entities (aref groups 0))
+                                   (aref groups 0)
                                    "Unknown")))
                            "Unknown")))
             

parenscript/spectrum-analyzer.lisp

@@ -20,7 +20,6 @@
     ;; Color themes for spectrum analyzer
     (defvar *themes* 
       (ps:create
-       "monotone" (ps:create "top" "#0047ab" "mid" "#002966" "bottom" "#000d1a")
        "green" (ps:create "top" "#00ff00" "mid" "#00aa00" "bottom" "#005500")
        "blue" (ps:create "top" "#00ffff" "mid" "#0088ff" "bottom" "#0044aa")
        "purple" (ps:create "top" "#ff00ff" "mid" "#aa00aa" "bottom" "#550055")
@@ -181,26 +180,10 @@
         (setf *animation-id* nil)))
     
     (defun set-spectrum-theme (theme-name)
-      "Change the spectrum analyzer color theme and update dropdown colors"
+      "Change the spectrum analyzer color theme"
       (when (ps:getprop *themes* theme-name)
         (setf *current-theme* theme-name)
         (ps:chain local-storage (set-item "spectrum-theme" theme-name))
-        
-        (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)))))
     
     (defun get-available-themes ()
@@ -229,23 +212,13 @@
           (when (and saved-style (or (= saved-style "bars") (= saved-style "wave") (= saved-style "dots")))
             (setf *current-style* saved-style))
           
-          ;; Update UI selectors, canvas border, and dropdown colors
+          ;; Update UI selectors if they exist
           (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")))
+                (style-selector (ps:chain document (get-element-by-id "spectrum-style-selector"))))
-                (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
-              (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")))))

template/front-page-content.ctml

@@ -38,7 +38,6 @@
           <label>
             Theme: 
             <select id="spectrum-theme-selector" onchange="setSpectrumTheme(this.value)" style="padding: 3px; background: #000; color: #00ff00; border: 1px solid #00ff00;">
-              <option value="monotone">Monotone</option>
               <option value="green">Green</option>
               <option value="blue">Blue</option>
               <option value="purple">Purple</option>

template/front-page.ctml

@@ -38,7 +38,6 @@
           <label>
             Theme: 
             <select id="spectrum-theme-selector" onchange="setSpectrumTheme(this.value)" style="padding: 3px; background: #000; color: #00ff00; border: 1px solid #00ff00;">
-              <option value="monotone">Monotone</option>
               <option value="green">Green</option>
               <option value="blue">Blue</option>
               <option value="purple">Purple</option>

template/player-content.ctml

@@ -32,7 +32,6 @@
         <label>
           Theme: 
           <select id="spectrum-theme-selector" onchange="setSpectrumTheme(this.value)" style="padding: 3px; background: #000; color: #00ff00; border: 1px solid #00ff00;">
-            <option value="monotone">Monotone</option>
             <option value="green">Green</option>
             <option value="blue">Blue</option>
             <option value="purple">Purple</option>