diff --git a/src/api.ps b/src/api.ps
--- a/src/api.ps
+++ b/src/api.ps
@@ -21,11 +21,11 @@
""))
(defun make-obj (title img selected)
- (+ "
"
- ""
+ (+ ""
(if img (+ "") "")
title
- ""))
+ ""))
(defun make-menu-delimiter ()
"
")
@@ -298,12 +298,11 @@
(call-serv-loc "$ONOBJSEL" title img))
(defun update-objs ()
+ (clear-id "qsp-objs")
(let ((elt (by-id "qsp-objs")))
- (setf (inner-html elt) "")
(loop :for (name obj) :of *objs
:do (incf (inner-html elt)
- (make-obj name (@ obj :img) (@ obj :selected))))
- (incf (inner-html elt) "
")))
+ (make-obj name (@ obj :img) (@ obj :selected))))))
;;; Menu