Update markup a bit

src/api.ps

@@ -21,11 +21,11 b''
      "</a>"))
 
 (defun make-obj (title img selected)
-  (+ "<li onclick='" (inline-call select-obj title img) "'>"
-     "<a class='qsp-obj" (if selected " qsp-obj-selected" "") "'>"
+  (+ "<li onclick='" (inline-call select-obj title img)
+     "' class='qsp-obj" (if selected " selected" "") "'>"
      (if img (+ "<img src='" img "'>") "")
      title
-     "</a>"))
+     "</li>"))
 
 (defun make-menu-delimiter ()
   "<hr>")
@@ -298,12 +298,11 b''
   (call-serv-loc "$ONOBJSEL" title img))
 
 (defun update-objs ()
+  (clear-id "qsp-objs")
   (let ((elt (by-id "qsp-objs")))
-    (setf (inner-html elt) "<ul>")
     (loop :for (name obj) :of *objs
        :do (incf (inner-html elt)
-                 (make-obj name (@ obj :img) (@ obj :selected))))
-    (incf (inner-html elt) "</ul>")))
+                 (make-obj name (@ obj :img) (@ obj :selected))))))
 
 ;;; Menu