Adding settings.

utils.rkt

@@ -18,9 +18,11 @@
          info-rktplayer
          warn-rktplayer
          fatal-rktplayer
+         sync-log-rktplayer
          (all-from-out simple-log)
          list-drop!
          path-equal?
+         make-select-list
          )
 
 
@@ -137,4 +139,24 @@
           #f)
       )
     )
-  )
+  )
+
+(define (make-select-list id items selected)
+  (let ((slct (list 'select (list (list 'id (format "~a" id))))))
+    (for-each
+     (λ (item)
+       (let ((value (car item))
+             (label (cadr item)))
+         (set! slct
+               (append slct
+                       (list
+                        (if (equal? value selected)
+                            (list 'option
+                                  (list (list 'value (format "~a" value)) (list 'selected "selected"))
+                                  label)
+                            (list 'option
+                                  (list (list 'value (format "~a" value)))
+                                  label))))))
+       )
+     items)
+    slct))